diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-03 18:44:10 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-03 18:44:10 +0000 |
| commit | b52a65946a07a6d08fee0039debac02bea7cdddc (patch) | |
| tree | 2e5a4ef8f1e0843b32b77d55cfac1b0ed48e5cc4 /gcc/warmelt-macro-0.c | |
| parent | a217eb614007708e37e64dde0e08c53672cb4ce8 (diff) | |
| download | gcc-b52a65946a07a6d08fee0039debac02bea7cdddc.tar.gz | |
2009-04-03 Basile Starynkevitch <basile@starynkevitch.net>
[binding issue with citerators seems to be solved / t2iter.bysl test]
* gcc/melt/warmelt-normal.bysl: added has_extra_warnings and use it to
catch hiding let bindings.
(normexp_citeration) add uncachelist etc.. Don't forget to update
the :nctx_symbcachemap when adding bindings, including removing
stuff from it.
* gcc/testsuite/melt/t2iter.bysl: updated but passes.
* 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@145515 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/warmelt-macro-0.c')
| -rw-r--r-- | gcc/warmelt-macro-0.c | 46132 |
1 files changed, 23949 insertions, 22183 deletions
diff --git a/gcc/warmelt-macro-0.c b/gcc/warmelt-macro-0.c index dbd89b6a99f..59a76e7a44f 100644 --- a/gcc/warmelt-macro-0.c +++ b/gcc/warmelt-macro-0.c @@ -1,5 +1,5 @@ /* GCC BASILYS GENERATED FILE warmelt-macro-3.c - DO NOT EDIT */ -/* generated on Tue Mar 31 09:55:42 2009 */ +/* generated on Fri Apr 3 20:35:09 2009 */ #include "run-basilys.h" @@ -7,20 +7,24 @@ #define basilys_HAS_INITIAL_ENVIRONMENT 1 /**!!** -Copyright 2008, 2009 Free Software Foundation, Inc. -Contributed by Basile Starynkevitch <basile@starynkevitch.net> -This file is part of GCC. -GCC is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 3, or (at your option) -any later version. -GCC is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. -You should have received a copy of the GNU General Public License -along with GCC; see the file COPYING3. If not see -<http://www.gnu.org/licenses/>. + Copyright 2008, 2009 Free Software Foundation, Inc. + Contributed by Basile Starynkevitch <basile@starynkevitch.net> + + This file is part of GCC. + + GCC is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + GCC is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GCC; see the file COPYING3. If not see + <http://www.gnu.org/licenses/>. **!!**/ @@ -141,32 +145,32 @@ static basilys_ptr_t rout_23_WARN_IF_REDEFINED(basilysclosure_ptr_t closp_, basi -static basilys_ptr_t rout_24_PARSE_PAIRLIST_C_CODE_EXPANSION(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_24_FLATTEN_FOR_C_CODE_EXPANSION(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_25_MEXPAND_DEFPRIMITIVE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_25_PARSE_PAIRLIST_C_CODE_EXPANSION(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_26_MEXPAND_DEFCITERATOR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_26_CHECK_C_EXPANSION(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_27_MEXPAND_DEFCMATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_27_MEXPAND_DEFPRIMITIVE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_28_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_28_MEXPAND_DEFCITERATOR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_29_MEXPAND_DEFUNMATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_29_MEXPAND_DEFCMATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); @@ -176,7 +180,7 @@ static basilys_ptr_t rout_30_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t -static basilys_ptr_t rout_31_MEXPAND_DEFUN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_31_MEXPAND_DEFUNMATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); @@ -186,27 +190,27 @@ static basilys_ptr_t rout_32_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t -static basilys_ptr_t rout_33_SCAN_DEFCLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_33_MEXPAND_DEFUN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_34_MEXPAND_DEFCLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_34_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_35_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_35_SCAN_DEFCLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_36_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_36_MEXPAND_DEFCLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_37_PARSE_FIELD_ASSIGNMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_37_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); @@ -216,92 +220,92 @@ static basilys_ptr_t rout_38_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t -static basilys_ptr_t rout_39_MEXPAND_DEFINSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_39_PARSE_FIELD_ASSIGNMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_40_MEXPAND_DEFSELECTOR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_40_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_41_MEXPAND_INSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_41_MEXPAND_DEFINSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_42_PARSE_FIELD_PATTERN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_42_MEXPAND_DEFSELECTOR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_43_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_43_MEXPAND_INSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_44_PATEXPAND_INSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_44_PARSE_FIELD_PATTERN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_45_PATEXPAND_OBJECT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_45_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_46_MEXPAND_OBJECT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_46_PATEXPAND_INSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_47_MEXPAND_UNSAFE_PUT_FIELDS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_47_PATEXPAND_OBJECT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_48_MEXPAND_PUT_FIELDS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_48_MEXPAND_OBJECT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_49_MEXPAND_UNSAFE_GET_FIELD(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_49_MEXPAND_UNSAFE_PUT_FIELDS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_50_MEXPAND_GET_FIELD(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_50_MEXPAND_PUT_FIELDS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_51_MEXPAND_SETQ(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_51_MEXPAND_UNSAFE_GET_FIELD(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_52_MEXPAND_IF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_52_MEXPAND_GET_FIELD(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_53_MEXPAND_CPPIF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_53_MEXPAND_SETQ(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_54_MEXPAND_COND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_54_MEXPAND_IF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_55_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_55_MEXPAND_CPPIF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_56_MEXPAND_AND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_56_MEXPAND_COND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); @@ -311,62 +315,62 @@ static basilys_ptr_t rout_57_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t -static basilys_ptr_t rout_58_PATEXPAND_AS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_58_MEXPAND_AND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_59_MEXPAND_AS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_59_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_60_PATEXPAND_AND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_60_PATEXPAND_AS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_61_MEXPAND_OR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_61_MEXPAND_AS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_62_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_62_PATEXPAND_AND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_63_PATEXPAND_OR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_63_MEXPAND_OR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_64_MEXPAND_MATCH(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_64_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_65_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_65_PATEXPAND_OR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_66_MEXPAND_LETBINDING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_66_MEXPAND_MATCH(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_67_MEXPAND_LET(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_67_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_68_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_68_MEXPAND_LETBINDING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_69_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_69_MEXPAND_LET(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); @@ -376,7 +380,7 @@ static basilys_ptr_t rout_70_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t -static basilys_ptr_t rout_71_MEXPAND_LAMBDA(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_71_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); @@ -386,12 +390,12 @@ static basilys_ptr_t rout_72_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t -static basilys_ptr_t rout_73_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_73_MEXPAND_LAMBDA(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_74_MEXPAND_MULTICALL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_74_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); @@ -401,32 +405,32 @@ static basilys_ptr_t rout_75_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t -static basilys_ptr_t rout_76_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_76_MEXPAND_MULTICALL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_77_MEXPAND_QUOTE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_77_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_78_MEXPAND_COMMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_78_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_79_PAIRLIST_TO_PROGN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_79_MEXPAND_QUOTE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_80_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_80_MEXPAND_COMMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_81_PAIRLIST_TO_RETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_81_PAIRLIST_TO_PROGN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); @@ -436,27 +440,27 @@ static basilys_ptr_t rout_82_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t -static basilys_ptr_t rout_83_MEXPAND_PROGN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_83_PAIRLIST_TO_RETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_84_MEXPAND_RETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_84_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_85_MEXPAND_FOREVER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_85_MEXPAND_PROGN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_86_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_86_MEXPAND_RETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_87_MEXPAND_EXIT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_87_MEXPAND_FOREVER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); @@ -466,72 +470,82 @@ static basilys_ptr_t rout_88_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t -static basilys_ptr_t rout_89_MEXPAND_COMPILE_WARNING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_89_MEXPAND_EXIT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); + + + + +static basilys_ptr_t rout_90_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); + + +static basilys_ptr_t rout_91_MEXPAND_COMPILE_WARNING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_90_MEXPAND_ASSERT_MSG(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_92_MEXPAND_ASSERT_MSG(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_91_MEXPAND_DEBUG_MSG(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_93_MEXPAND_DEBUG_MSG(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_92_MEXPAND_EXPORT_VALUES(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_94_MEXPAND_EXPORT_VALUES(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_93_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_95_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_94_MEXPAND_EXPORT_MACRO(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_96_MEXPAND_EXPORT_MACRO(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_95_MEXPAND_EXPORT_PATMACRO(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_97_MEXPAND_EXPORT_PATMACRO(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_96_MEXPAND_EXPORT_CLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_98_MEXPAND_EXPORT_CLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_97_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_99_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_98_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_100_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_99_MEXPAND_PARENT_MODULE_ENVIRONMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_101_MEXPAND_PARENT_MODULE_ENVIRONMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_100_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_102_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_101_MEXPAND_FETCH_PREDEFINED(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); +static basilys_ptr_t rout_103_MEXPAND_FETCH_PREDEFINED(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); -static basilys_ptr_t rout_102_MEXPAND_STORE_PREDEFINED(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); + + +static basilys_ptr_t rout_104_MEXPAND_STORE_PREDEFINED(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); void* start_module_basilys(void*); @@ -9625,7 +9639,7 @@ BASILYS_LOCATION("warmelt-macro.bysl:1088:/ block"); basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DISCRARG__V42*/ curfptr[25]), 1, "NAMED_NAME");/*_.NAMED_NAME__V43*/ curfptr[24] = slot; }; ; - basilys_error_str((basilys_ptr_t)(/*_.ARGLOC__V13*/ curfptr[12]), ( "unexepected argument in formal arglist"), (basilys_ptr_t)(/*_.NAMED_NAME__V43*/ curfptr[24])); + 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.bysl:1143:/ clear"); /*clear*/ /*_.DISCRARG__V42*/ curfptr[25] = 0 ; @@ -10959,7 +10973,7 @@ basilys_trace_end("WARN_IF_REDEFINED", callcount); basilys_topframe = (struct c static basilys_ptr_t -rout_24_PARSE_PAIRLIST_C_CODE_EXPANSION(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_24_FLATTEN_FOR_C_CODE_EXPANSION(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -10970,17 +10984,392 @@ rout_24_PARSE_PAIRLIST_C_CODE_EXPANSION(basilysclosure_ptr_t closp_, basilys_ptr #define callcount 0L #endif - struct frame_rout_24_PARSE_PAIRLIST_C_CODE_EXPANSION_st { unsigned nbvar; + struct frame_rout_24_FLATTEN_FOR_C_CODE_EXPANSION_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; -#define CURFRAM_NBVARPTR 19 - void* varptr[19]; -#define CURFRAM_NBVARNUM 9 - long varnum[9]; +#define CURFRAM_NBVARPTR 20 + void* varptr[20]; +#define CURFRAM_NBVARNUM 6 + long varnum[6]; +/*others*/ + long _spare_; } + *framptr_=0, curfram__; + if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_basilys_un (framptr_->clos); + for(ix=0; ix<20; ix++) + if (framptr_->varptr[ix]) + gt_ggc_mx_basilys_un (framptr_->varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&curfram__, 0, sizeof(curfram__)); + curfram__.nbvar = 20; + curfram__.clos = closp_; + curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; + basilys_topframe = (struct callframe_basilys_st *) &curfram__; +basilys_trace_start("FLATTEN_FOR_C_CODE_EXPANSION", callcount); +/*getargs*/ + + /*getarg#0*/ + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ getarg"); + /*_.LOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; + + /*getarg#1*/ + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ 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.bysl:1233:/ 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); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +BASILYS_LOCATION("warmelt-macro.bysl:1233:/ block"); +/*block*/{ + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1234:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1234:/ block"); + /*block*/{ + /*_#IS_LIST__L1*/ curfnum[0] = + (basilys_magic_discr((basilys_ptr_t)(/*_.FLATLIST__V4*/ curfptr[3])) == OBMAG_LIST);; + BASILYS_LOCATION("warmelt-macro.bysl:1234:/ cond"); + /*cond*/ if (/*_#IS_LIST__L1*/ curfnum[0]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1234:/ cond.then"); + /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1234:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1234:/ block"); + /*block*/{ + /*block*/{ + + basilys_assert_failed(( "check flatlist"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1234)?(1234):__LINE__, __FUNCTION__); + /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} + ; + /*epilog*/} + ; + } + ; + /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1234:/ clear"); + /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1234:/ clear"); + /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1234:/ cppif.else"); + /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*_#NULL__L2*/ curfnum[0] = + ((/*_.COMP__V3*/ curfptr[2]) == NULL);; + BASILYS_LOCATION("warmelt-macro.bysl:1238:/ cond"); + /*cond*/ if (/*_#NULL__L2*/ curfnum[0]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1238:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1238:/ block"); + /*block*/{ + + basilys_error_str((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1]), ( "null component for C chunk"), (basilys_ptr_t)0); + BASILYS_LOCATION("warmelt-macro.bysl:1241:/ block"); + /*block*/{ + /*_.RETVAL___V1*/ curfptr[0] = NULL;; + BASILYS_LOCATION("warmelt-macro.bysl:1241:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ;} + ; + BASILYS_LOCATION("warmelt-macro.bysl:1238:/ block"); + /*block*/{ + /*_.PROGN___V9*/ curfptr[8] = /*_.RETURN___V8*/ curfptr[7];;} + ; + /*_.IFELSE___V7*/ curfptr[5] = /*_.PROGN___V9*/ curfptr[8];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1238:/ clear"); + /*clear*/ /*_.RETURN___V8*/ curfptr[7] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1238:/ clear"); + /*clear*/ /*_.PROGN___V9*/ curfptr[8] = 0 ;} + ; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1238:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1238:/ 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.bysl:1242:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1242:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1242:/ block"); + /*block*/{ + /*block*/{ + + 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.bysl:1242:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1242:/ block"); + /*block*/{ + /*_#IS_STRING__L4*/ curfnum[3] = + (basilys_magic_discr((basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2])) == OBMAG_STRING);; + BASILYS_LOCATION("warmelt-macro.bysl:1245:/ cond"); + /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[3]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1245:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1245:/ 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*/{ + + 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.bysl:1245:/ clear"); + /*clear*/ /*_.MAKE_STRING__V10*/ curfptr[7] = 0 ;} + ; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1245:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1245:/ block"); + /*block*/{ + /*_#IS_LIST__L5*/ curfnum[4] = + (basilys_magic_discr((basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2])) == OBMAG_LIST);; + BASILYS_LOCATION("warmelt-macro.bysl:1248:/ cond"); + /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[4]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1248:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1248:/ block"); + /*block*/{ + /*citerblock FOREACH_IN_LIST*/ { + /* start cit1__EACHLIST*/ +for (/*_.CURPAIR__V11*/ curfptr[8] = basilys_list_first(/*_.COMP__V3*/ curfptr[2]); +basilys_magic_discr(/*_.CURPAIR__V11*/ curfptr[8]) == OBMAG_PAIR; +/*_.CURPAIR__V11*/ curfptr[8] = basilys_pair_tail(/*_.CURPAIR__V11*/ curfptr[8])) { +/*_.CURCOMP__V12*/ curfptr[7] = basilys_pair_head(/*_.CURPAIR__V11*/ curfptr[8]); + + + BASILYS_LOCATION("warmelt-macro.bysl:1253:/ apply"); + /*apply*/{ + union basilysparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1253:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURCOMP__V12*/ curfptr[7]; + BASILYS_LOCATION("warmelt-macro.bysl:1253:/ 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); + } + ; + /*_.IFELSE___V7*/ curfptr[5] = /*_.FLATTEN_FOR_C_CODE_EXPANSION__V13*/ curfptr[12];; + } /* end cit1__EACHLIST*/ + + + /*citerepilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1249:/ clear"); + /*clear*/ /*_.CURPAIR__V11*/ curfptr[8] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1249:/ clear"); + /*clear*/ /*_.CURCOMP__V12*/ curfptr[7] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1249:/ clear"); + /*clear*/ /*_.FLATTEN_FOR_C_CODE_EXPANSION__V13*/ curfptr[12] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ + ; + /*epilog*/} + ; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1248:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1248:/ 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.bysl:1257:/ cond"); + /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1257:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1257:/ block"); + /*block*/{ + BASILYS_LOCATION("warmelt-macro.bysl:1258:/ block"); + /*block*/{ + BASILYS_LOCATION("warmelt-macro.bysl:1258:/ 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.bysl:1258:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1258:/ 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.bysl:1258:/ cond.else"); + + /*_.SUBLOC__V14*/ curfptr[13] = NULL;; + } + ; + BASILYS_LOCATION("warmelt-macro.bysl:1259:/ 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.bysl:1259:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1259:/ 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.bysl:1259:/ cond.else"); + + /*_.SUBCONTENT__V15*/ curfptr[14] = NULL;; + } + ; + /*citerblock FOREACH_IN_LIST*/ { + /* start cit2__EACHLIST*/ +for (/*_.CURSUBPAIR__V16*/ curfptr[15] = basilys_list_first(/*_.SUBCONTENT__V15*/ curfptr[14]); +basilys_magic_discr(/*_.CURSUBPAIR__V16*/ curfptr[15]) == OBMAG_PAIR; +/*_.CURSUBPAIR__V16*/ curfptr[15] = basilys_pair_tail(/*_.CURSUBPAIR__V16*/ curfptr[15])) { +/*_.CURSUBCOMP__V17*/ curfptr[16] = basilys_pair_head(/*_.CURSUBPAIR__V16*/ curfptr[15]); + + + BASILYS_LOCATION("warmelt-macro.bysl:1265:/ apply"); + /*apply*/{ + union basilysparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1265:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURSUBCOMP__V17*/ curfptr[16]; + BASILYS_LOCATION("warmelt-macro.bysl:1265:/ 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); + } + ; + /*_.IFELSE___V7*/ curfptr[5] = /*_.FLATTEN_FOR_C_CODE_EXPANSION__V18*/ curfptr[17];; + } /* end cit2__EACHLIST*/ + + + /*citerepilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1261:/ clear"); + /*clear*/ /*_.CURSUBPAIR__V16*/ curfptr[15] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1261:/ clear"); + /*clear*/ /*_.CURSUBCOMP__V17*/ curfptr[16] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1261:/ clear"); + /*clear*/ /*_.FLATTEN_FOR_C_CODE_EXPANSION__V18*/ curfptr[17] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ + ; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1258:/ clear"); + /*clear*/ /*_.SUBLOC__V14*/ curfptr[13] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1258:/ clear"); + /*clear*/ /*_.SUBCONTENT__V15*/ curfptr[14] = 0 ;} + ; + /*epilog*/} + ; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1257:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1257:/ block"); + /*block*/{ + + 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.bysl:1272:/ 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.bysl:1272:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1272:/ 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.bysl:1272:/ cond.else"); + + /*_.NAMED_NAME__V20*/ curfptr[14] = NULL;; + } + ; + + 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.bysl:1269:/ block"); + /*block*/{} + ; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1257:/ clear"); + /*clear*/ /*_.DISCRIM__V19*/ curfptr[13] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1257:/ clear"); + /*clear*/ /*_.NAMED_NAME__V20*/ curfptr[14] = 0 ;} + ; + } + ; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1248:/ clear"); + /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;} + ; + } + ; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1245:/ clear"); + /*clear*/ /*_#IS_LIST__L5*/ curfnum[4] = 0 ;} + ; + } + ; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1242:/ clear"); + /*clear*/ /*_#IS_STRING__L4*/ curfnum[3] = 0 ;} + ; + } + ; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1238:/ clear"); + /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;} + ; + } + ; + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ block"); + /*block*/{ + /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V7*/ curfptr[5];; + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ;} + ; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ clear"); + /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ clear"); + /*clear*/ /*_#NULL__L2*/ curfnum[0] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ clear"); + /*clear*/ /*_.IFELSE___V7*/ curfptr[5] = 0 ;} + +; + goto labend_rout; +labend_rout: +basilys_trace_end("FLATTEN_FOR_C_CODE_EXPANSION", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; + return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); +#undef callcount +#undef CURFRAM_NBVARNUM +#undef CURFRAM_NBVARPTR +} /*end rout_24_FLATTEN_FOR_C_CODE_EXPANSION*/ + + + + + +static basilys_ptr_t +rout_25_PARSE_PAIRLIST_C_CODE_EXPANSION(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, + const char xresdescr_[], union basilysparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#define callcount thiscallcounter__ +#else +#define callcount 0L +#endif + + struct frame_rout_25_PARSE_PAIRLIST_C_CODE_EXPANSION_st { unsigned nbvar; +#if ENABLE_CHECKING + const char* flocs; +#endif + struct basilysclosure_st *clos; + struct excepth_basilys_st *exh; + struct callframe_basilys_st *prev; +#define CURFRAM_NBVARPTR 27 + void* varptr[27]; +#define CURFRAM_NBVARNUM 8 + long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; @@ -10988,13 +11377,13 @@ rout_24_PARSE_PAIRLIST_C_CODE_EXPANSION(basilysclosure_ptr_t closp_, basilys_ptr int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); - for(ix=0; ix<19; ix++) + for(ix=0; ix<27; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 19; + curfram__.nbvar = 27; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; @@ -11002,11 +11391,11 @@ basilys_trace_start("PARSE_PAIRLIST_C_CODE_EXPANSION", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1232:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1279:/ getarg"); /*_.LOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1232:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1279:/ 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); @@ -11015,35 +11404,100 @@ basilys_trace_start("PARSE_PAIRLIST_C_CODE_EXPANSION", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:1232:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:1279:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1233:/ block"); + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1280:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1280:/ block"); + /*block*/{ + /*_#THE_CALLCOUNT__L1*/ curfnum[0] = + callcount;; + BASILYS_LOCATION("warmelt-macro.bysl:1280:/ apply"); + /*apply*/{ + union basilysparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1280:/ apply.arg"); + argtab[0].bp_cstring = "parse_pairlist_c_code_expansion loc"; + BASILYS_LOCATION("warmelt-macro.bysl:1280:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; + BASILYS_LOCATION("warmelt-macro.bysl:1280:/ apply.arg"); + argtab[2].bp_cstring = "warmelt-macro.bysl"; + BASILYS_LOCATION("warmelt-macro.bysl:1280:/ apply.arg"); + argtab[3].bp_long = 1280; + /*_.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.bysl:1280:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1280:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1280:/ cppif.else"); + /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1281:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1281:/ block"); + /*block*/{ + /*_#THE_CALLCOUNT__L2*/ curfnum[0] = + callcount;; + BASILYS_LOCATION("warmelt-macro.bysl:1281:/ apply"); + /*apply*/{ + union basilysparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1281:/ apply.arg"); + argtab[0].bp_cstring = "parse_pairlist_c_code_expansion curpair"; + BASILYS_LOCATION("warmelt-macro.bysl:1281:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; + BASILYS_LOCATION("warmelt-macro.bysl:1281:/ apply.arg"); + argtab[2].bp_cstring = "warmelt-macro.bysl"; + BASILYS_LOCATION("warmelt-macro.bysl:1281:/ apply.arg"); + argtab[3].bp_long = 1281; + /*_.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.bysl:1281:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1281:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1281:/ cppif.else"); + /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + BASILYS_LOCATION("warmelt-macro.bysl:1282:/ block"); /*block*/{ - /*_#NBCOMP__L1*/ curfnum[0] = - (basilys_pair_listlength((basilys_ptr_t)(/*_.CURPAIR__V3*/ curfptr[2])));; - /*_.ETUPLE__V5*/ curfptr[4] = - (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (/*_#NBCOMP__L1*/ curfnum[0])));; - /*_#IX__L2*/ curfnum[1] = 0;; - BASILYS_LOCATION("warmelt-macro.bysl:1236:/ loop"); - /*loop*/{ labloop_COMPLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1236:/ loopbody"); + /*_.FLATLIST__V9*/ curfptr[8] = + (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[1]))));; + BASILYS_LOCATION("warmelt-macro.bysl:1283:/ loop"); + /*loop*/{ labloop_COMPLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1283:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:1236:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1283:/ block"); /*block*/{ - /*_#IS_PAIR__L3*/ curfnum[2] = + /*_#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[2]));; - BASILYS_LOCATION("warmelt-macro.bysl:1237:/ cond"); + (!(/*_#IS_PAIR__L3*/ curfnum[0]));; + BASILYS_LOCATION("warmelt-macro.bysl:1285:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1237:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1237:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1285:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1285:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1237:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1285:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1237:/ compute"); - /*_.COMPLOOP__V7*/ curfptr[6] = NULL;; + BASILYS_LOCATION("warmelt-macro.bysl:1285:/ compute"); + /*_.COMPLOOP__V11*/ curfptr[10] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1237:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:1285:/ exit"); /*exit*/{ goto labexit_COMPLOOP_1;} ;} @@ -11052,150 +11506,245 @@ BASILYS_LOCATION("warmelt-macro.bysl:1232:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1238:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1286:/ block"); /*block*/{ - /*_.CURHEAD__V8*/ curfptr[7] = + /*_.PAIRHD__V13*/ curfptr[12] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V3*/ curfptr[2])));; - /*_.DISCRIM__V9*/ curfptr[8] = - (basilys_discr((basilys_ptr_t)(/*_.CURHEAD__V8*/ curfptr[7])));; - /*_#__L6*/ curfnum[5] = - ((/*_.DISCRIM__V9*/ curfptr[8]) == ((/*!DISCR_STRING*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.bysl:1241:/ cond"); - /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1241:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1241:/ block"); - /*block*/{ - /*_.MAKE_STRING__V11*/ curfptr[10] = - (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[2])), basilys_string_str((basilys_ptr_t)(/*_.CURHEAD__V8*/ curfptr[7]))));; - BASILYS_LOCATION("warmelt-macro.bysl:1242:/ compute"); - /*_.CURHEAD__V8*/ curfptr[7] = /*_.SETQ___V12*/ curfptr[11] = /*_.MAKE_STRING__V11*/ curfptr[10];; - BASILYS_LOCATION("warmelt-macro.bysl:1241:/ block"); - /*block*/{ - /*_.PROGN___V13*/ curfptr[12] = (/*nil*/NULL);;} - ; - /*_.IFELSE___V10*/ curfptr[9] = /*_.PROGN___V13*/ curfptr[12];; - /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1241:/ clear"); - /*clear*/ /*_.MAKE_STRING__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1241:/ clear"); - /*clear*/ /*_.SETQ___V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1241:/ clear"); - /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;} - ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1241:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1241:/ block"); + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1287:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1287:/ block"); /*block*/{ - /*_.DISCRIM__V14*/ curfptr[10] = - (basilys_discr((basilys_ptr_t)(/*_.CURHEAD__V8*/ curfptr[7])));; - /*_#__L7*/ curfnum[6] = - ((/*_.DISCRIM__V14*/ curfptr[10]) != ((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.bysl:1244:/ cond"); - /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1244:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1244:/ block"); - /*block*/{ - - basilys_error_str((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1]), ( "invalid expansion component in C code expansion"), (basilys_ptr_t)0); - BASILYS_LOCATION("warmelt-macro.bysl:1244:/ block"); - /*block*/{ - /*_.PROGN___V16*/ curfptr[12] = (/*nil*/NULL);;} - ; - /*_.IFELSE___V15*/ curfptr[11] = /*_.PROGN___V16*/ curfptr[12];; - /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1244:/ clear"); - /*clear*/ /*_.PROGN___V16*/ curfptr[12] = 0 ;} - ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1244:/ cond.else"); - - /*_.IFELSE___V15*/ curfptr[11] = NULL;; + /*_#THE_CALLCOUNT__L5*/ curfnum[4] = + callcount;; + BASILYS_LOCATION("warmelt-macro.bysl:1287:/ apply"); + /*apply*/{ + union basilysparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1287:/ apply.arg"); + argtab[0].bp_cstring = "parse_pairlist_c_code_expansion loop pairhd"; + BASILYS_LOCATION("warmelt-macro.bysl:1287:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; + BASILYS_LOCATION("warmelt-macro.bysl:1287:/ apply.arg"); + argtab[2].bp_cstring = "warmelt-macro.bysl"; + BASILYS_LOCATION("warmelt-macro.bysl:1287:/ apply.arg"); + argtab[3].bp_long = 1287; + /*_.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); } ; - /*_.IFELSE___V10*/ curfptr[9] = /*_.IFELSE___V15*/ curfptr[11];; + /*_.IFCPP___V14*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1241:/ clear"); - /*clear*/ /*_.DISCRIM__V14*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1241:/ clear"); - /*clear*/ /*_#__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1241:/ clear"); - /*clear*/ /*_.IFELSE___V15*/ curfptr[11] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:1287:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1287:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1287:/ cppif.else"); + /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; + BASILYS_LOCATION("warmelt-macro.bysl:1288:/ apply"); + /*apply*/{ + union basilysparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1288:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PAIRHD__V13*/ curfptr[12]; + BASILYS_LOCATION("warmelt-macro.bysl:1288:/ 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); } ; - - basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.ETUPLE__V5*/ curfptr[4]), (/*_#IX__L2*/ curfnum[1]), (basilys_ptr_t)(/*_.CURHEAD__V8*/ curfptr[7])); - /*_.PAIR_TAIL__V17*/ curfptr[12] = - (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V3*/ curfptr[2])));; - BASILYS_LOCATION("warmelt-macro.bysl:1248:/ compute"); - /*_.CURPAIR__V3*/ curfptr[2] = /*_.SETQ___V18*/ curfptr[10] = /*_.PAIR_TAIL__V17*/ curfptr[12];; - /*_#I__L8*/ curfnum[6] = - ((/*_#IX__L2*/ curfnum[1]) + (1));; - BASILYS_LOCATION("warmelt-macro.bysl:1249:/ compute"); - /*_#IX__L2*/ curfnum[1] = /*_#SETQ___L9*/ curfnum[8] = /*_#I__L8*/ curfnum[6];; - /*_#LET___L5*/ curfnum[4] = /*_#SETQ___L9*/ curfnum[8];; + /*_.LET___V12*/ curfptr[11] = /*_.FLATTEN_FOR_C_CODE_EXPANSION__V16*/ curfptr[14];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1238:/ clear"); - /*clear*/ /*_.CURHEAD__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1238:/ clear"); - /*clear*/ /*_.DISCRIM__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1238:/ clear"); - /*clear*/ /*_#__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1238:/ clear"); - /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1238:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1238:/ clear"); - /*clear*/ /*_.SETQ___V18*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1238:/ clear"); - /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1238:/ clear"); - /*clear*/ /*_#SETQ___L9*/ curfnum[8] = 0 ;} - ; + BASILYS_LOCATION("warmelt-macro.bysl:1286:/ clear"); + /*clear*/ /*_.PAIRHD__V13*/ curfptr[12] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1286:/ clear"); + /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1286:/ 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.bysl:1289:/ compute"); + /*_.CURPAIR__V3*/ curfptr[2] = /*_.SETQ___V18*/ curfptr[13] = /*_.PAIR_TAIL__V17*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1236:/ clear"); - /*clear*/ /*_#IS_PAIR__L3*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1236:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1283:/ clear"); + /*clear*/ /*_#IS_PAIR__L3*/ curfnum[0] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1283:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1236:/ clear"); - /*clear*/ /*_#LET___L5*/ curfnum[4] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:1283:/ clear"); + /*clear*/ /*_.LET___V12*/ curfptr[11] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1283:/ clear"); + /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[12] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1283:/ clear"); + /*clear*/ /*_.SETQ___V18*/ curfptr[13] = 0 ;} ; ; goto labloop_COMPLOOP_1; - labexit_COMPLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1236:/ loopepilog"); + labexit_COMPLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1283:/ loopepilog"); /*loopepilog*/ - /*_.FOREVER___V6*/ curfptr[5] = /*_.COMPLOOP__V7*/ curfptr[6];; + /*_.FOREVER___V10*/ curfptr[9] = /*_.COMPLOOP__V11*/ curfptr[10];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1250:/ block"); + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1291:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1291:/ block"); + /*block*/{ + /*_#THE_CALLCOUNT__L6*/ curfnum[4] = + callcount;; + BASILYS_LOCATION("warmelt-macro.bysl:1291:/ apply"); + /*apply*/{ + union basilysparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1291:/ apply.arg"); + argtab[0].bp_cstring = "parse_pairlist_c_code_expansion flatlist"; + BASILYS_LOCATION("warmelt-macro.bysl:1291:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4]; + BASILYS_LOCATION("warmelt-macro.bysl:1291:/ apply.arg"); + argtab[2].bp_cstring = "warmelt-macro.bysl"; + BASILYS_LOCATION("warmelt-macro.bysl:1291:/ apply.arg"); + argtab[3].bp_long = 1291; + /*_.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.bysl:1291:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1291:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[11] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1291:/ cppif.else"); + /*_.IFCPP___V19*/ curfptr[14] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + BASILYS_LOCATION("warmelt-macro.bysl:1292:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.ETUPLE__V5*/ curfptr[4];; - BASILYS_LOCATION("warmelt-macro.bysl:1250:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1292:/ apply"); + /*apply*/{ + union basilysparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1292:/ 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); + } ; - /*finalret*/ goto labend_rout ;} + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1293:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1293:/ block"); + /*block*/{ + /*_#THE_CALLCOUNT__L7*/ curfnum[0] = + callcount;; + BASILYS_LOCATION("warmelt-macro.bysl:1293:/ apply"); + /*apply*/{ + union basilysparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1293:/ apply.arg"); + argtab[0].bp_cstring = "parse_pairlist_c_code_expansion tupexp"; + BASILYS_LOCATION("warmelt-macro.bysl:1293:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; + BASILYS_LOCATION("warmelt-macro.bysl:1293:/ apply.arg"); + argtab[2].bp_cstring = "warmelt-macro.bysl"; + BASILYS_LOCATION("warmelt-macro.bysl:1293:/ apply.arg"); + argtab[3].bp_long = 1293; + /*_.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.bysl:1293:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1293:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1293:/ cppif.else"); + /*_.IFCPP___V23*/ curfptr[11] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1294:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1294:/ block"); + /*block*/{ + /*_#IS_MULTIPLE__L8*/ curfnum[3] = + (basilys_magic_discr((basilys_ptr_t)(/*_.TUPEXP__V22*/ curfptr[13])) == OBMAG_MULTIPLE);; + BASILYS_LOCATION("warmelt-macro.bysl:1294:/ cond"); + /*cond*/ if (/*_#IS_MULTIPLE__L8*/ curfnum[3]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1294:/ cond.then"); + /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1294:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1294:/ block"); + /*block*/{ + /*block*/{ + + basilys_assert_failed(( "check tupexp"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1294)?(1294):__LINE__, __FUNCTION__); + /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} + ; + /*epilog*/} + ; + } + ; + /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1294:/ clear"); + /*clear*/ /*_#IS_MULTIPLE__L8*/ curfnum[3] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1294:/ clear"); + /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1294:/ cppif.else"); + /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + BASILYS_LOCATION("warmelt-macro.bysl:1295:/ block"); + /*block*/{ + /*_.RETVAL___V1*/ curfptr[0] = /*_.TUPEXP__V22*/ curfptr[13];; + BASILYS_LOCATION("warmelt-macro.bysl:1295:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ;} + ; + /*_.LET___V21*/ curfptr[12] = /*_.RETURN___V27*/ curfptr[25];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1292:/ clear"); + /*clear*/ /*_.TUPEXP__V22*/ curfptr[13] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1292:/ clear"); + /*clear*/ /*_.IFCPP___V23*/ curfptr[11] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1292:/ clear"); + /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1292:/ clear"); + /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;} ; - /*_.LET___V4*/ curfptr[3] = /*_.RETURN___V19*/ curfptr[11];; + /*_.LET___V8*/ curfptr[6] = /*_.LET___V21*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1233:/ clear"); - /*clear*/ /*_#NBCOMP__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1233:/ clear"); - /*clear*/ /*_.ETUPLE__V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1233:/ clear"); - /*clear*/ /*_#IX__L2*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1233:/ clear"); - /*clear*/ /*_.FOREVER___V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1233:/ clear"); - /*clear*/ /*_.RETURN___V19*/ curfptr[11] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:1282:/ clear"); + /*clear*/ /*_.FLATLIST__V9*/ curfptr[8] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1282:/ clear"); + /*clear*/ /*_.FOREVER___V10*/ curfptr[9] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1282:/ clear"); + /*clear*/ /*_.IFCPP___V19*/ curfptr[14] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1282:/ clear"); + /*clear*/ /*_.LET___V21*/ curfptr[12] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1232:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1279:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];; - BASILYS_LOCATION("warmelt-macro.bysl:1232:/ finalreturn"); + /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; + BASILYS_LOCATION("warmelt-macro.bysl:1279:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1232:/ clear"); - /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:1279:/ clear"); + /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1279:/ clear"); + /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1279:/ clear"); + /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; @@ -11205,14 +11754,14 @@ basilys_trace_end("PARSE_PAIRLIST_C_CODE_EXPANSION", callcount); basilys_topfra #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_24_PARSE_PAIRLIST_C_CODE_EXPANSION*/ +} /*end rout_25_PARSE_PAIRLIST_C_CODE_EXPANSION*/ static basilys_ptr_t -rout_25_MEXPAND_DEFPRIMITIVE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_26_CHECK_C_EXPANSION(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -11223,17 +11772,17 @@ rout_25_MEXPAND_DEFPRIMITIVE(basilysclosure_ptr_t closp_, basilys_ptr_t firstarg #define callcount 0L #endif - struct frame_rout_25_MEXPAND_DEFPRIMITIVE_st { unsigned nbvar; + struct frame_rout_26_CHECK_C_EXPANSION_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; -#define CURFRAM_NBVARPTR 59 - void* varptr[59]; -#define CURFRAM_NBVARNUM 10 - long varnum[10]; +#define CURFRAM_NBVARPTR 18 + void* varptr[18]; +#define CURFRAM_NBVARNUM 7 + long varnum[7]; /*others*/ long _spare_; } *framptr_=0, curfram__; @@ -11241,13 +11790,317 @@ rout_25_MEXPAND_DEFPRIMITIVE(basilysclosure_ptr_t closp_, basilys_ptr_t firstarg int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); - for(ix=0; ix<59; ix++) + for(ix=0; ix<18; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 59; + curfram__.nbvar = 18; + curfram__.clos = closp_; + curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; + basilys_topframe = (struct callframe_basilys_st *) &curfram__; +basilys_trace_start("CHECK_C_EXPANSION", callcount); +/*getargs*/ + + /*getarg#0*/ + BASILYS_LOCATION("warmelt-macro.bysl:1300:/ getarg"); + /*_.ETUPLE__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; + + /*getarg#1*/ + BASILYS_LOCATION("warmelt-macro.bysl:1300:/ 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.bysl:1300:/ 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); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +BASILYS_LOCATION("warmelt-macro.bysl:1300:/ block"); +/*block*/{ + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1301:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1301:/ block"); + /*block*/{ + /*_#THE_CALLCOUNT__L1*/ curfnum[0] = + callcount;; + BASILYS_LOCATION("warmelt-macro.bysl:1301:/ apply"); + /*apply*/{ + union basilysparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1301:/ apply.arg"); + argtab[0].bp_cstring = "check_c_expansion etuple"; + BASILYS_LOCATION("warmelt-macro.bysl:1301:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; + BASILYS_LOCATION("warmelt-macro.bysl:1301:/ apply.arg"); + argtab[2].bp_cstring = "warmelt-macro.bysl"; + BASILYS_LOCATION("warmelt-macro.bysl:1301:/ apply.arg"); + argtab[3].bp_long = 1301; + /*_.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.bysl:1301:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1301:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1301:/ cppif.else"); + /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1302:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1302:/ block"); + /*block*/{ + /*_#THE_CALLCOUNT__L2*/ curfnum[0] = + callcount;; + BASILYS_LOCATION("warmelt-macro.bysl:1302:/ apply"); + /*apply*/{ + union basilysparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1302:/ apply.arg"); + argtab[0].bp_cstring = "check_c_expansion loc"; + BASILYS_LOCATION("warmelt-macro.bysl:1302:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; + BASILYS_LOCATION("warmelt-macro.bysl:1302:/ apply.arg"); + argtab[2].bp_cstring = "warmelt-macro.bysl"; + BASILYS_LOCATION("warmelt-macro.bysl:1302:/ apply.arg"); + argtab[3].bp_long = 1302; + /*_.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.bysl:1302:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1302:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1302:/ cppif.else"); + /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + long cit1__EACHTUP_ln = basilys_multiple_length((basilys_ptr_t)/*_.ETUPLE__V2*/ curfptr[1]); +int cit1__EACHTUP_ix = 0; +for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix ++) { +/*_.ECOMP__V9*/ curfptr[7] = basilys_multiple_nth((basilys_ptr_t)(/*_.ETUPLE__V2*/ curfptr[1]), cit1__EACHTUP_ix); +/*_#IX__L3*/ curfnum[0] = cit1__EACHTUP_ix; + + + /*_#NULL__L4*/ curfnum[3] = + ((/*_.ECOMP__V9*/ curfptr[7]) == NULL);; + BASILYS_LOCATION("warmelt-macro.bysl:1307:/ cond"); + /*cond*/ if (/*_#NULL__L4*/ curfnum[3]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1307:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1307:/ block"); + /*block*/{ + /*block*/{ + + 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.bysl:1307:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1307:/ 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.bysl:1309:/ cond"); + /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1309:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1309:/ 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.bysl:1310:/ cond"); + /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1310:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1310:/ block"); + /*block*/{ + BASILYS_LOCATION("warmelt-macro.bysl:1312:/ 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.bysl:1312:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1312:/ 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.bysl:1312:/ cond.else"); + + /*_.NAMED_NAME__V13*/ curfptr[12] = NULL;; + } + ; + + 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.bysl:1310:/ clear"); + /*clear*/ /*_.NAMED_NAME__V13*/ curfptr[12] = 0 ;} + ; + } /*noelse*/ + ; + BASILYS_LOCATION("warmelt-macro.bysl:1309:/ block"); + /*block*/{ + /*_.PROGN___V14*/ curfptr[12] = (/*nil*/NULL);;} + ; + /*_.IFELSE___V11*/ curfptr[10] = /*_.PROGN___V14*/ curfptr[12];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1309:/ clear"); + /*clear*/ /*_.MAPOBJECT_GET__V12*/ curfptr[11] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1309:/ clear"); + /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1309:/ clear"); + /*clear*/ /*_.PROGN___V14*/ curfptr[12] = 0 ;} + ; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1309:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1309:/ block"); + /*block*/{ + /*_#IS_STRING__L7*/ curfnum[5] = + (basilys_magic_discr((basilys_ptr_t)(/*_.ECOMP__V9*/ curfptr[7])) == OBMAG_STRING);; + BASILYS_LOCATION("warmelt-macro.bysl:1315:/ cond"); + /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[5]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1315:/ cond.then"); + /*_.IFELSE___V15*/ curfptr[11] = (/*nil*/NULL);; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1315:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1315:/ block"); + /*block*/{ + /*_.DISCRIM__V16*/ curfptr[12] = + (basilys_discr((basilys_ptr_t)(/*_.ECOMP__V9*/ curfptr[7])));; + BASILYS_LOCATION("warmelt-macro.bysl:1320:/ 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.bysl:1320:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1320:/ 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.bysl:1320:/ cond.else"); + + /*_.NAMED_NAME__V17*/ curfptr[16] = NULL;; + } + ; + + 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.bysl:1318:/ block"); + /*block*/{ + /*_.PROGN___V18*/ curfptr[17] = (/*nil*/NULL);;} + ; + /*_.IFELSE___V15*/ curfptr[11] = /*_.PROGN___V18*/ curfptr[17];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1315:/ clear"); + /*clear*/ /*_.DISCRIM__V16*/ curfptr[12] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1315:/ clear"); + /*clear*/ /*_.NAMED_NAME__V17*/ curfptr[16] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1315:/ clear"); + /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} + ; + } + ; + /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V15*/ curfptr[11];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1309:/ clear"); + /*clear*/ /*_#IS_STRING__L7*/ curfnum[5] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1309:/ clear"); + /*clear*/ /*_.IFELSE___V15*/ curfptr[11] = 0 ;} + ; + } + ; + /*_.IFELSE___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1307:/ clear"); + /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1307:/ clear"); + /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} + ; + } + ; + } /* end cit1__EACHTUP*/ + + /*citerepilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1303:/ clear"); + /*clear*/ /*_.ECOMP__V9*/ curfptr[7] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1303:/ clear"); + /*clear*/ /*_#IX__L3*/ curfnum[0] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1303:/ clear"); + /*clear*/ /*_#NULL__L4*/ curfnum[3] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1303:/ clear"); + /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1300:/ clear"); + /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1300:/ clear"); + /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} + +; + goto labend_rout; +labend_rout: +basilys_trace_end("CHECK_C_EXPANSION", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; + return (basilys_ptr_t)(/*noretval*/ NULL); +#undef callcount +#undef CURFRAM_NBVARNUM +#undef CURFRAM_NBVARPTR +} /*end rout_26_CHECK_C_EXPANSION*/ + + + + + +static basilys_ptr_t +rout_27_MEXPAND_DEFPRIMITIVE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, + const char xresdescr_[], union basilysparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#define callcount thiscallcounter__ +#else +#define callcount 0L +#endif + + struct frame_rout_27_MEXPAND_DEFPRIMITIVE_st { unsigned nbvar; +#if ENABLE_CHECKING + const char* flocs; +#endif + struct basilysclosure_st *clos; + struct excepth_basilys_st *exh; + struct callframe_basilys_st *prev; +#define CURFRAM_NBVARPTR 67 + void* varptr[67]; +#define CURFRAM_NBVARNUM 16 + long varnum[16]; +/*others*/ + long _spare_; } + *framptr_=0, curfram__; + if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_basilys_un (framptr_->clos); + for(ix=0; ix<67; 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__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; @@ -11255,18 +12108,18 @@ basilys_trace_start("MEXPAND_DEFPRIMITIVE", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ 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.bysl:1256:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ 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); @@ -11275,60 +12128,60 @@ basilys_trace_start("MEXPAND_DEFPRIMITIVE", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:1256:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:1326:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1257:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1257:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1327:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1327:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1257:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1327:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1257:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1327:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defprimitive sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:1257:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1327:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1257:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1327:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1257:/ apply.arg"); - argtab[3].bp_long = 1257; + BASILYS_LOCATION("warmelt-macro.bysl:1327:/ apply.arg"); + argtab[3].bp_long = 1327; /*_.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.bysl:1257:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1327:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1257:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1327:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1257:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1327:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1258:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1258:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1328:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1328:/ 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.bysl:1258:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1328:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1258:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1328:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1258:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1328:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1258:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1328:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1258)?(1258):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1328)?(1328):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -11337,34 +12190,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:1256:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1258:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1328:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1258:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1328:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1258:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1328:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1259:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1259:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1329:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1329:/ 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.bysl:1259:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1329:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1259:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1329:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1259:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1329:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1259:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1329:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1259)?(1259):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1329)?(1329):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} @@ -11373,23 +12226,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:1256:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1259:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1329:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1259:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1329:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1259:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1329:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1260:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1330:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1260:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1330:/ 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.bysl:1261:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1331:/ 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; }; ; @@ -11401,10 +12254,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:1256:/ 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.bysl:1265:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1335:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1265:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1265:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1335:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1335:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing symbol for (DEFPRIMITIVE symb args type expansion...)"), (basilys_ptr_t)0); @@ -11414,37 +12267,37 @@ BASILYS_LOCATION("warmelt-macro.bysl:1256:/ block"); ; /*_.PAIR_TAIL__V17*/ curfptr[16] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1267:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1337:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V18*/ curfptr[17] = /*_.PAIR_TAIL__V17*/ curfptr[16];; - BASILYS_LOCATION("warmelt-macro.bysl:1269:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1339:/ 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.bysl:1269:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1339:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1269:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1339:/ 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.bysl:1270:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1340:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V24*/ curfptr[23] = /*_.PAIR_TAIL__V23*/ curfptr[22];; - BASILYS_LOCATION("warmelt-macro.bysl:1272:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1342:/ 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.bysl:1273:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1343:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1273:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1273:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1343:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1343:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing type keyword for (DEFPRIMITIVE symb args type expansion...)"), (basilys_ptr_t)0); @@ -11452,54 +12305,54 @@ BASILYS_LOCATION("warmelt-macro.bysl:1256:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1275:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1345:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1275:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1345:/ 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.bysl:1276:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1346:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1276:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1276:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1346:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1346:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1278:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1278:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1348:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1348:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1278:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1348:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1278:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1348:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defprimitive bad cty"; - BASILYS_LOCATION("warmelt-macro.bysl:1278:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1348:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.bysl:1278:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1348:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1278:/ apply.arg"); - argtab[3].bp_long = 1278; + BASILYS_LOCATION("warmelt-macro.bysl:1348:/ apply.arg"); + argtab[3].bp_long = 1348; /*_.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.bysl:1278:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1348:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1278:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1348:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1278:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1348:/ cppif.else"); /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1280:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1350:/ 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; }; ; @@ -11507,81 +12360,81 @@ BASILYS_LOCATION("warmelt-macro.bysl:1256:/ block"); 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.bysl:1281:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1351:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V33*/ curfptr[32];; - BASILYS_LOCATION("warmelt-macro.bysl:1281:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1351:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1277:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1347:/ block"); /*block*/{ /*_.PROGN___V35*/ curfptr[34] = /*_.RETURN___V34*/ curfptr[33];;} ; /*_.IF___V29*/ curfptr[28] = /*_.PROGN___V35*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1276:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1346:/ clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1276:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1346:/ clear"); /*clear*/ /*_.NAMED_NAME__V32*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1276:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1346:/ clear"); /*clear*/ /*_.THE_NULL__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1276:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1346:/ clear"); /*clear*/ /*_.RETURN___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1276:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1346:/ clear"); /*clear*/ /*_.PROGN___V35*/ curfptr[34] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1276:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1346:/ cond.else"); /*_.IF___V29*/ curfptr[28] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1283:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1353:/ 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.bysl:1283:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1353:/ cond"); /*cond*/ if (/*_#__L8*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1283:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1283:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1353:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1353:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1285:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1285:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1355:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1355:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1285:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1355:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1285:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1355:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defprimitive strange typkw"; - BASILYS_LOCATION("warmelt-macro.bysl:1285:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1355:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.bysl:1285:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1355:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1285:/ apply.arg"); - argtab[3].bp_long = 1285; + BASILYS_LOCATION("warmelt-macro.bysl:1355:/ apply.arg"); + argtab[3].bp_long = 1355; /*_.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.bysl:1285:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1355:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1285:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1355:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1285:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1355:/ cppif.else"); /*_.IFCPP___V38*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1287:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1357:/ 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; }; ; @@ -11589,304 +12442,439 @@ BASILYS_LOCATION("warmelt-macro.bysl:1256:/ block"); 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.bysl:1288:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1358:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V41*/ curfptr[33];; - BASILYS_LOCATION("warmelt-macro.bysl:1288:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1358:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1284:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1354:/ block"); /*block*/{ /*_.PROGN___V43*/ curfptr[42] = /*_.RETURN___V42*/ curfptr[41];;} ; /*_.IF___V37*/ curfptr[30] = /*_.PROGN___V43*/ curfptr[42];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1283:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1353:/ clear"); /*clear*/ /*_.IFCPP___V38*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1283:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1353:/ clear"); /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1283:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1353:/ clear"); /*clear*/ /*_.THE_NULL__V41*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1283:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1353:/ clear"); /*clear*/ /*_.RETURN___V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1283:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1353:/ clear"); /*clear*/ /*_.PROGN___V43*/ curfptr[42] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1283:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1353:/ 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.bysl:1291:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1361:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V45*/ curfptr[34] = /*_.PAIR_TAIL__V44*/ curfptr[32];; - BASILYS_LOCATION("warmelt-macro.bysl:1292:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1293:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1363:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1293:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1363:/ 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); } ; - BASILYS_LOCATION("warmelt-macro.bysl:1295:/ block"); + /*_#MULTIPLE_LENGTH__L10*/ curfnum[8] = + (basilys_multiple_length((basilys_ptr_t)(/*_.BTUP__V22*/ curfptr[21])));; + /*_#I__L11*/ curfnum[10] = + ((2) * (/*_#MULTIPLE_LENGTH__L10*/ curfnum[8]));; + /*_#I__L12*/ curfnum[11] = + ((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.bysl:1367:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1295:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1367:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; - basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_DEFPRIMITIVE*/ curfrout->tabval[8])), (5), "CLASS_SRC_DEFPRIMITIVE");/*_.INST__V49*/ curfptr[48] = + 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.bysl:1295:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1367:/ 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_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.bysl:1295:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1367:/ 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), (/*_.SYMB__V16*/ curfptr[15]), "SDEF_NAME"); + 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.bysl:1295:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1367:/ 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), (/*_.BTUP__V22*/ curfptr[21]), "SFORMAL_ARGS"); + 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.bysl:1295:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1367:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (3), (/*_.CTY__V28*/ curfptr[27]), "SPRIM_TYPE"); + 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.bysl:1295:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1367:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (4), (/*_.ETUPLE__V47*/ curfptr[41]), "SPRIM_EXPANSION"); + 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__V48*/ curfptr[42] = /*_.INST__V49*/ curfptr[48];;} + /*_.SDEFPRI__V49*/ curfptr[48] = /*_.INST__V50*/ curfptr[49];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1303:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1375:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V50*/ curfptr[49] = slot; }; + 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.bysl:1302:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1374:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1302:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1374:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; - basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[9])), (5), "CLASS_PRIMITIVE");/*_.INST__V52*/ curfptr[51] = + 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.bysl:1302:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1374:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51]))));basilys_putfield_object((/*_.INST__V52*/ curfptr[51]), (1), (/*_.NAMED_NAME__V50*/ curfptr[49]), "NAMED_NAME"); + 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.bysl:1302:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1374:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51]))));basilys_putfield_object((/*_.INST__V52*/ curfptr[51]), (2), (/*_.BTUP__V22*/ curfptr[21]), "PRIM_FORMALS"); + 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.bysl:1302:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1374:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51]))));basilys_putfield_object((/*_.INST__V52*/ curfptr[51]), (3), (/*_.CTY__V28*/ curfptr[27]), "PRIM_TYPE"); + 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.bysl:1302:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1374:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51]))));basilys_putfield_object((/*_.INST__V52*/ curfptr[51]), (4), (/*_.ETUPLE__V47*/ curfptr[41]), "PRIM_EXPANSION"); + 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__V51*/ curfptr[50] = /*_.INST__V52*/ curfptr[51];;} + /*_.PRIMIT__V52*/ curfptr[51] = /*_.INST__V53*/ curfptr[52];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1308:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1380:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1308:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1380:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; - basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ curfrout->tabval[10])), (4), "CLASS_PRIMITIVE_BINDING");/*_.INST__V54*/ curfptr[53] = + 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.bysl:1308:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1380:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53]))));basilys_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.SYMB__V16*/ curfptr[15]), "BINDER"); + 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.bysl:1308:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1380:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53]))));basilys_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.SDEFPRI__V48*/ curfptr[42]), "PBIND_PRIMDEF"); + 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.bysl:1308:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1380:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53]))));basilys_putfield_object((/*_.INST__V54*/ curfptr[53]), (3), (/*_.PRIMIT__V51*/ curfptr[50]), "PBIND_PRIMITIVE"); + 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"); + ; + /*_.PBIND__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;} + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + long cit1__EACHTUP_ln = basilys_multiple_length((basilys_ptr_t)/*_.BTUP__V22*/ curfptr[21]); +int cit1__EACHTUP_ix = 0; +for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix ++) { +/*_.CURBIND__V56*/ curfptr[55] = basilys_multiple_nth((basilys_ptr_t)(/*_.BTUP__V22*/ curfptr[21]), cit1__EACHTUP_ix); +/*_#BIX__L13*/ curfnum[12] = cit1__EACHTUP_ix; + + + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1390:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1390:/ 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.bysl:1390:/ cond"); + /*cond*/ if (/*_#IS_A__L14*/ curfnum[13]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1390:/ cond.then"); + /*_.IFELSE___V58*/ curfptr[57] = (/*nil*/NULL);; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1390:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1390:/ block"); + /*block*/{ + /*block*/{ + + basilys_assert_failed(( "check curbind"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1390)?(1390):__LINE__, __FUNCTION__); + /*clear*/ /*_.IFELSE___V58*/ curfptr[57] = 0 ;} + ; + /*epilog*/} + ; + } + ; + /*_.IFCPP___V57*/ curfptr[56] = /*_.IFELSE___V58*/ curfptr[57];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1390:/ clear"); + /*clear*/ /*_#IS_A__L14*/ curfnum[13] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1390:/ clear"); + /*clear*/ /*_.IFELSE___V58*/ curfptr[57] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1390:/ cppif.else"); + /*_.IFCPP___V57*/ curfptr[56] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + BASILYS_LOCATION("warmelt-macro.bysl:1391:/ 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.bysl:1391:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1391:/ 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.bysl:1391:/ cond.else"); + + /*_.BINDER__V59*/ curfptr[57] = NULL;; + } ; - /*_.PBIND__V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;} + + 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.bysl:1387:/ clear"); + /*clear*/ /*_.CURBIND__V56*/ curfptr[55] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1387:/ clear"); + /*clear*/ /*_#BIX__L13*/ curfnum[12] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1387:/ clear"); + /*clear*/ /*_.IFCPP___V57*/ curfptr[56] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1387:/ clear"); + /*clear*/ /*_.BINDER__V59*/ curfptr[57] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1314:/ apply"); + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1393:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1393:/ block"); + /*block*/{ + /*_#THE_CALLCOUNT__L15*/ curfnum[13] = + callcount;; + BASILYS_LOCATION("warmelt-macro.bysl:1393:/ apply"); + /*apply*/{ + union basilysparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1393:/ apply.arg"); + argtab[0].bp_cstring = "defprimitive primit"; + BASILYS_LOCATION("warmelt-macro.bysl:1393:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; + BASILYS_LOCATION("warmelt-macro.bysl:1393:/ apply.arg"); + argtab[2].bp_cstring = "warmelt-macro.bysl"; + BASILYS_LOCATION("warmelt-macro.bysl:1393:/ apply.arg"); + argtab[3].bp_long = 1393; + /*_.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.bysl:1393:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1393:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1393:/ cppif.else"); + /*_.IFCPP___V60*/ curfptr[59] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + BASILYS_LOCATION("warmelt-macro.bysl:1394:/ apply"); + /*apply*/{ + union basilysparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1394:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; + BASILYS_LOCATION("warmelt-macro.bysl:1394:/ 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.bysl:1396:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1314:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1396:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:1314:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1396:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - /*_.WARN_IF_REDEFINED__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.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.bysl:1315:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1397:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1315:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PBIND__V53*/ curfptr[52]; - /*_.PUT_ENV__V56*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:1397:/ 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.bysl:1316:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1316:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1398:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1398:/ block"); /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[8] = + /*_#THE_CALLCOUNT__L16*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1316:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1398:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1316:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1398:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defprimitive result sdefpri"; - BASILYS_LOCATION("warmelt-macro.bysl:1316:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.bysl:1316:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1398:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[13]; + BASILYS_LOCATION("warmelt-macro.bysl:1398:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1316:/ apply.arg"); - argtab[3].bp_long = 1316; - /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SDEFPRI__V48*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:1398:/ apply.arg"); + argtab[3].bp_long = 1398; + /*_.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___V57*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V58*/ curfptr[57];; + /*_.IFCPP___V65*/ curfptr[64] = /*_.DEBUG_MSG_FUN__V66*/ curfptr[65];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1316:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1316:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:1398:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[13] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1398:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V66*/ curfptr[65] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1316:/ cppif.else"); - /*_.IFCPP___V57*/ curfptr[56] = (/*nil*/NULL); + BASILYS_LOCATION("warmelt-macro.bysl:1398:/ cppif.else"); + /*_.IFCPP___V65*/ curfptr[64] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1317:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1399:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.SDEFPRI__V48*/ curfptr[42];; - BASILYS_LOCATION("warmelt-macro.bysl:1317:/ finalreturn"); + /*_.RETVAL___V1*/ curfptr[0] = /*_.SDEFPRI__V49*/ curfptr[48];; + BASILYS_LOCATION("warmelt-macro.bysl:1399:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - /*_.LET___V46*/ curfptr[33] = /*_.RETURN___V59*/ curfptr[57];; + /*_.LET___V46*/ curfptr[33] = /*_.RETURN___V67*/ curfptr[65];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1292:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); /*clear*/ /*_.ETUPLE__V47*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1292:/ clear"); - /*clear*/ /*_.SDEFPRI__V48*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1292:/ clear"); - /*clear*/ /*_.NAMED_NAME__V50*/ curfptr[49] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1292:/ clear"); - /*clear*/ /*_.PRIMIT__V51*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1292:/ clear"); - /*clear*/ /*_.PBIND__V53*/ curfptr[52] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1292:/ clear"); - /*clear*/ /*_.WARN_IF_REDEFINED__V55*/ curfptr[54] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1292:/ clear"); - /*clear*/ /*_.PUT_ENV__V56*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1292:/ clear"); - /*clear*/ /*_.IFCPP___V57*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1292:/ clear"); - /*clear*/ /*_.RETURN___V59*/ curfptr[57] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ curfnum[8] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_.SUBSTMAP__V48*/ curfptr[42] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_.SDEFPRI__V49*/ curfptr[48] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_.NAMED_NAME__V51*/ curfptr[50] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_.PRIMIT__V52*/ curfptr[51] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_.PBIND__V54*/ curfptr[53] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_.IFCPP___V60*/ curfptr[59] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_.CHECK_C_EXPANSION__V62*/ curfptr[60] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_.WARN_IF_REDEFINED__V63*/ curfptr[62] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_.PUT_ENV__V64*/ curfptr[63] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_.IFCPP___V65*/ curfptr[64] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + /*clear*/ /*_.RETURN___V67*/ curfptr[65] = 0 ;} ; /*_.LET___V27*/ curfptr[26] = /*_.LET___V46*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1275:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1345:/ clear"); /*clear*/ /*_.CTY__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1275:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1345:/ clear"); /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1275:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1345:/ clear"); /*clear*/ /*_.IF___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1275:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1345:/ clear"); /*clear*/ /*_.CTYPE_KEYWORD__V36*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1275:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1345:/ clear"); /*clear*/ /*_#__L8*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1275:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1345:/ clear"); /*clear*/ /*_.IF___V37*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1275:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1345:/ clear"); /*clear*/ /*_.PAIR_TAIL__V44*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1275:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1345:/ clear"); /*clear*/ /*_.SETQ___V45*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1275:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1345:/ clear"); /*clear*/ /*_.LET___V46*/ curfptr[33] = 0 ;} ; /*_.LET___V25*/ curfptr[24] = /*_.LET___V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1342:/ clear"); /*clear*/ /*_.TYPKW__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1342:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1342:/ clear"); /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;} ; /*_.LET___V19*/ curfptr[18] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1269:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1339:/ clear"); /*clear*/ /*_.PAIR_HEAD__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1269:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1339:/ clear"); /*clear*/ /*_.THE_NULL__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1269:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1339:/ clear"); /*clear*/ /*_.BTUP__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1269:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1339:/ clear"); /*clear*/ /*_.PAIR_TAIL__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1269:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1339:/ clear"); /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1269:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1339:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1260:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1260:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1260:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1260:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1260:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); /*clear*/ /*_.SYMB__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1260:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1260:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1260:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); /*clear*/ /*_.SETQ___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1260:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -11897,14 +12885,14 @@ basilys_trace_end("MEXPAND_DEFPRIMITIVE", callcount); basilys_topframe = (struc #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_25_MEXPAND_DEFPRIMITIVE*/ +} /*end rout_27_MEXPAND_DEFPRIMITIVE*/ static basilys_ptr_t -rout_26_MEXPAND_DEFCITERATOR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_28_MEXPAND_DEFCITERATOR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -11915,17 +12903,17 @@ rout_26_MEXPAND_DEFCITERATOR(basilysclosure_ptr_t closp_, basilys_ptr_t firstarg #define callcount 0L #endif - struct frame_rout_26_MEXPAND_DEFCITERATOR_st { unsigned nbvar; + struct frame_rout_28_MEXPAND_DEFCITERATOR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; -#define CURFRAM_NBVARPTR 75 - void* varptr[75]; -#define CURFRAM_NBVARNUM 8 - long varnum[8]; +#define CURFRAM_NBVARPTR 94 + void* varptr[94]; +#define CURFRAM_NBVARNUM 22 + long varnum[22]; /*others*/ long _spare_; } *framptr_=0, curfram__; @@ -11933,13 +12921,13 @@ rout_26_MEXPAND_DEFCITERATOR(basilysclosure_ptr_t closp_, basilys_ptr_t firstarg int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); - for(ix=0; ix<75; ix++) + for(ix=0; ix<94; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 75; + curfram__.nbvar = 94; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; @@ -11947,18 +12935,18 @@ basilys_trace_start("MEXPAND_DEFCITERATOR", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1326:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1326:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ 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.bysl:1326:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ 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); @@ -11967,60 +12955,60 @@ basilys_trace_start("MEXPAND_DEFCITERATOR", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:1326:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:1408:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1327:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1327:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1409:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1409:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1327:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1409:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1327:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1409:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defciterator sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:1327:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1409:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1327:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1409:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1327:/ apply.arg"); - argtab[3].bp_long = 1327; + BASILYS_LOCATION("warmelt-macro.bysl:1409:/ apply.arg"); + argtab[3].bp_long = 1409; /*_.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.bysl:1327:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1409:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1327:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1409:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1327:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1409:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1328:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1328:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1410:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1410:/ 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.bysl:1328:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1410:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1328:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1410:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1328:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1410:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1328:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1410:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1328)?(1328):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1410)?(1410):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -12029,34 +13017,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:1326:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1328:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1410:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1328:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1410:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1328:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1410:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1329:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1329:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1411:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1411:/ 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.bysl:1329:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1411:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1329:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1411:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1329:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1411:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1329:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1411:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1329)?(1329):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1411)?(1411):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} @@ -12065,23 +13053,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:1326:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1329:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1411:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1329:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1411:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1329:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1411:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ 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.bysl:1331:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1413:/ 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; }; ; @@ -12098,510 +13086,850 @@ BASILYS_LOCATION("warmelt-macro.bysl:1326:/ 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.bysl:1341:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1423:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1341:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1341:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1423:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1423:/ block"); /*block*/{ 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.bysl:1345:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1427:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1345:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1427:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1342:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1424:/ block"); /*block*/{ /*_.PROGN___V24*/ curfptr[23] = /*_.RETURN___V23*/ curfptr[22];;} ; /*_.IF___V22*/ curfptr[21] = /*_.PROGN___V24*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1341:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1423:/ clear"); /*clear*/ /*_.RETURN___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1341:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1423:/ clear"); /*clear*/ /*_.PROGN___V24*/ curfptr[23] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1341:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1423:/ 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.bysl:1347:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1429:/ 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.bysl:1349:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1431:/ 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.bysl:1349:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1431:/ 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.bysl:1350:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1432:/ 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.bysl:1351:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1433:/ 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.bysl:1352:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1434:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1352:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1352:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1434:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1434:/ block"); /*block*/{ 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.bysl:1356:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1438:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1356:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1438:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1353:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1435:/ block"); /*block*/{ /*_.PROGN___V36*/ curfptr[35] = /*_.RETURN___V35*/ curfptr[34];;} ; /*_.IF___V34*/ curfptr[33] = /*_.PROGN___V36*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1352:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1434:/ clear"); /*clear*/ /*_.RETURN___V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1352:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1434:/ clear"); /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1352:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1434:/ 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.bysl:1357:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1439:/ 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.bysl:1358:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1440:/ 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.bysl:1358:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1440:/ 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.bysl:1359:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1441:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V43*/ curfptr[42] = /*_.PAIR_TAIL__V42*/ curfptr[41];; - BASILYS_LOCATION("warmelt-macro.bysl:1361:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1443:/ 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.bysl:1362:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1444:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1362:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1362:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1444:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1444:/ block"); /*block*/{ 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.bysl:1365:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1447:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1365:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1447:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1363:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1445:/ block"); /*block*/{ /*_.PROGN___V48*/ curfptr[47] = /*_.RETURN___V47*/ curfptr[46];;} ; /*_.IF___V46*/ curfptr[45] = /*_.PROGN___V48*/ curfptr[47];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1444:/ clear"); /*clear*/ /*_.RETURN___V47*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1362:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1444:/ clear"); /*clear*/ /*_.PROGN___V48*/ curfptr[47] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1362:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1444:/ cond.else"); /*_.IF___V46*/ curfptr[45] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1366:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1448:/ 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.bysl:1366:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1448:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1366:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1448:/ 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.bysl:1366:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1448:/ 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.bysl:1361:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1443:/ clear"); /*clear*/ /*_.SEXPBEF__V45*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1361:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1443:/ clear"); /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1361:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1443:/ clear"); /*clear*/ /*_.IF___V46*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1361:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1443:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V49*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1361:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1443:/ clear"); /*clear*/ /*_.LIST_FIRST__V50*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1361:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1443:/ clear"); /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V51*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1361:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1443:/ 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.bysl:1368:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1450:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V54*/ curfptr[45] = /*_.PAIR_TAIL__V53*/ curfptr[44];; - BASILYS_LOCATION("warmelt-macro.bysl:1370:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1452:/ 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.bysl:1371:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1453:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L7*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1371:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1371:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1453:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1453:/ block"); /*block*/{ 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.bysl:1374:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1456:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1374:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1456:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1372:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1454:/ block"); /*block*/{ /*_.PROGN___V59*/ curfptr[58] = /*_.RETURN___V58*/ curfptr[51];;} ; /*_.IF___V57*/ curfptr[50] = /*_.PROGN___V59*/ curfptr[58];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1371:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1453:/ clear"); /*clear*/ /*_.RETURN___V58*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1371:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1453:/ clear"); /*clear*/ /*_.PROGN___V59*/ curfptr[58] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1371:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1453:/ cond.else"); /*_.IF___V57*/ curfptr[50] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1375:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1457:/ 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.bysl:1375:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1457:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1375:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1457:/ 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.bysl:1375:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1457:/ 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.bysl:1370:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1452:/ clear"); /*clear*/ /*_.SEXPAFT__V56*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1370:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1452:/ clear"); /*clear*/ /*_#IS_NOT_A__L7*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1370:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1452:/ clear"); /*clear*/ /*_.IF___V57*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1370:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1452:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V60*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1370:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1452:/ clear"); /*clear*/ /*_.LIST_FIRST__V61*/ curfptr[58] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1370:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1452:/ clear"); /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V62*/ curfptr[61] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1370:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1452:/ clear"); /*clear*/ /*_.SETQ___V63*/ curfptr[62] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1378:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1379:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1461:/ 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.bysl:1378:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1378:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ 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.bysl:1378:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ 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.bysl:1378:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ 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.bysl:1378:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ 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.bysl:1378:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ 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.bysl:1378:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ 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.bysl:1378:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ 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.bysl:1386:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1468:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1386:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1468:/ 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.bysl:1386:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1468:/ 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.bysl:1386:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1468:/ 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.bysl:1391:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1473:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1391:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1473:/ 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.bysl:1391:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1473:/ 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.bysl:1391:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1473:/ 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.bysl:1391:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1473:/ 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.bysl:1391:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1473:/ 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"); ; /*_.SRCIT__V70*/ curfptr[69] = /*_.INST__V71*/ curfptr[70];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1397:/ block"); + /*_#MULTIPLE_LENGTH__L8*/ curfnum[5] = + (basilys_multiple_length((basilys_ptr_t)(/*_.BSTARTUP__V17*/ curfptr[16])));; + /*_#I__L9*/ curfnum[8] = + ((2) * (/*_#MULTIPLE_LENGTH__L8*/ curfnum[5]));; + /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = + (basilys_multiple_length((basilys_ptr_t)(/*_.BLOCVTUP__V19*/ curfptr[18])));; + /*_#I__L11*/ curfnum[10] = + ((2) * (/*_#MULTIPLE_LENGTH__L10*/ curfnum[9]));; + /*_#I__L12*/ curfnum[11] = + ((/*_#I__L9*/ curfnum[8]) + (/*_#I__L11*/ curfnum[10]));; + /*_#I__L13*/ curfnum[12] = + ((7) + (/*_#I__L12*/ curfnum[11]));; + /*_.SUBSTMAP__V72*/ curfptr[71] = + (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[9])), (/*_#I__L13*/ curfnum[12])));; + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1484:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1484:/ block"); + /*block*/{ + /*_#THE_CALLCOUNT__L14*/ curfnum[13] = + callcount;; + BASILYS_LOCATION("warmelt-macro.bysl:1484:/ apply"); + /*apply*/{ + union basilysparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1484:/ apply.arg"); + argtab[0].bp_cstring = "srcit citer"; + BASILYS_LOCATION("warmelt-macro.bysl:1484:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13]; + BASILYS_LOCATION("warmelt-macro.bysl:1484:/ apply.arg"); + argtab[2].bp_cstring = "warmelt-macro.bysl"; + BASILYS_LOCATION("warmelt-macro.bysl:1484:/ apply.arg"); + argtab[3].bp_long = 1484; + /*_.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.bysl:1484:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1484:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1484:/ cppif.else"); + /*_.IFCPP___V73*/ curfptr[72] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + 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.bysl:1486:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1486:/ block"); + /*block*/{ + /*_#THE_CALLCOUNT__L15*/ curfnum[13] = + callcount;; + BASILYS_LOCATION("warmelt-macro.bysl:1486:/ apply"); + /*apply*/{ + union basilysparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1486:/ apply.arg"); + argtab[0].bp_cstring = "bstartup citer"; + BASILYS_LOCATION("warmelt-macro.bysl:1486:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; + BASILYS_LOCATION("warmelt-macro.bysl:1486:/ apply.arg"); + argtab[2].bp_cstring = "warmelt-macro.bysl"; + BASILYS_LOCATION("warmelt-macro.bysl:1486:/ apply.arg"); + argtab[3].bp_long = 1486; + /*_.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.bysl:1486:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1486:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V76*/ curfptr[75] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1486:/ cppif.else"); + /*_.IFCPP___V75*/ curfptr[73] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + long cit1__EACHTUP_ln = basilys_multiple_length((basilys_ptr_t)/*_.BSTARTUP__V17*/ curfptr[16]); +int cit1__EACHTUP_ix = 0; +for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix ++) { +/*_.CURSBIND__V77*/ curfptr[75] = basilys_multiple_nth((basilys_ptr_t)(/*_.BSTARTUP__V17*/ curfptr[16]), cit1__EACHTUP_ix); +/*_#BSIX__L16*/ curfnum[13] = cit1__EACHTUP_ix; + + + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1490:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1490:/ 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.bysl:1490:/ cond"); + /*cond*/ if (/*_#IS_A__L17*/ curfnum[16]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1490:/ cond.then"); + /*_.IFELSE___V79*/ curfptr[78] = (/*nil*/NULL);; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1490:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1490:/ block"); + /*block*/{ + /*block*/{ + + basilys_assert_failed(( "check start cursbind"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1490)?(1490):__LINE__, __FUNCTION__); + /*clear*/ /*_.IFELSE___V79*/ curfptr[78] = 0 ;} + ; + /*epilog*/} + ; + } + ; + /*_.IFCPP___V78*/ curfptr[77] = /*_.IFELSE___V79*/ curfptr[78];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1490:/ clear"); + /*clear*/ /*_#IS_A__L17*/ curfnum[16] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1490:/ clear"); + /*clear*/ /*_.IFELSE___V79*/ curfptr[78] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1490:/ cppif.else"); + /*_.IFCPP___V78*/ curfptr[77] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + BASILYS_LOCATION("warmelt-macro.bysl:1491:/ 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.bysl:1491:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1491:/ 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.bysl:1491:/ cond.else"); + + /*_.BINDER__V80*/ curfptr[78] = NULL;; + } + ; + + 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.bysl:1487:/ clear"); + /*clear*/ /*_.CURSBIND__V77*/ curfptr[75] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1487:/ clear"); + /*clear*/ /*_#BSIX__L16*/ curfnum[13] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1487:/ clear"); + /*clear*/ /*_.IFCPP___V78*/ curfptr[77] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1487:/ clear"); + /*clear*/ /*_.BINDER__V80*/ curfptr[78] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1492:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1492:/ block"); + /*block*/{ + /*_#THE_CALLCOUNT__L18*/ curfnum[16] = + callcount;; + BASILYS_LOCATION("warmelt-macro.bysl:1492:/ apply"); + /*apply*/{ + union basilysparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1492:/ apply.arg"); + argtab[0].bp_cstring = "blocvtup citer"; + BASILYS_LOCATION("warmelt-macro.bysl:1492:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[16]; + BASILYS_LOCATION("warmelt-macro.bysl:1492:/ apply.arg"); + argtab[2].bp_cstring = "warmelt-macro.bysl"; + BASILYS_LOCATION("warmelt-macro.bysl:1492:/ apply.arg"); + argtab[3].bp_long = 1492; + /*_.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.bysl:1492:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[16] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1492:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V82*/ curfptr[81] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1492:/ cppif.else"); + /*_.IFCPP___V81*/ curfptr[80] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + long cit2__EACHTUP_ln = basilys_multiple_length((basilys_ptr_t)/*_.BLOCVTUP__V19*/ curfptr[18]); +int cit2__EACHTUP_ix = 0; +for (cit2__EACHTUP_ix = 0; cit2__EACHTUP_ix < cit2__EACHTUP_ln; cit2__EACHTUP_ix ++) { +/*_.CURLBIND__V83*/ curfptr[81] = basilys_multiple_nth((basilys_ptr_t)(/*_.BLOCVTUP__V19*/ curfptr[18]), cit2__EACHTUP_ix); +/*_#BLIX__L19*/ curfnum[16] = cit2__EACHTUP_ix; + + + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1496:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1496:/ block"); + /*block*/{ + /*_#THE_CALLCOUNT__L20*/ curfnum[19] = + callcount;; + BASILYS_LOCATION("warmelt-macro.bysl:1496:/ apply"); + /*apply*/{ + union basilysparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1496:/ apply.arg"); + argtab[0].bp_cstring = "curlbind local citer"; + BASILYS_LOCATION("warmelt-macro.bysl:1496:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19]; + BASILYS_LOCATION("warmelt-macro.bysl:1496:/ apply.arg"); + argtab[2].bp_cstring = "warmelt-macro.bysl"; + BASILYS_LOCATION("warmelt-macro.bysl:1496:/ apply.arg"); + argtab[3].bp_long = 1496; + /*_.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.bysl:1496:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1496:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V85*/ curfptr[84] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1496:/ cppif.else"); + /*_.IFCPP___V84*/ curfptr[83] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1497:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1497:/ 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.bysl:1497:/ cond"); + /*cond*/ if (/*_#IS_A__L21*/ curfnum[19]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1497:/ cond.then"); + /*_.IFELSE___V87*/ curfptr[86] = (/*nil*/NULL);; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1497:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1497:/ block"); + /*block*/{ + /*block*/{ + + basilys_assert_failed(( "check local curlbind"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1497)?(1497):__LINE__, __FUNCTION__); + /*clear*/ /*_.IFELSE___V87*/ curfptr[86] = 0 ;} + ; + /*epilog*/} + ; + } + ; + /*_.IFCPP___V86*/ curfptr[84] = /*_.IFELSE___V87*/ curfptr[86];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1497:/ clear"); + /*clear*/ /*_#IS_A__L21*/ curfnum[19] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1497:/ clear"); + /*clear*/ /*_.IFELSE___V87*/ curfptr[86] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1497:/ cppif.else"); + /*_.IFCPP___V86*/ curfptr[84] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + BASILYS_LOCATION("warmelt-macro.bysl:1498:/ 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.bysl:1498:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1498:/ 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.bysl:1498:/ cond.else"); + + /*_.BINDER__V88*/ curfptr[86] = NULL;; + } + ; + + 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.bysl:1493:/ clear"); + /*clear*/ /*_.CURLBIND__V83*/ curfptr[81] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1493:/ clear"); + /*clear*/ /*_#BLIX__L19*/ curfnum[16] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1493:/ clear"); + /*clear*/ /*_.IFCPP___V84*/ curfptr[83] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1493:/ clear"); + /*clear*/ /*_.IFCPP___V86*/ curfptr[84] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1493:/ clear"); + /*clear*/ /*_.BINDER__V88*/ curfptr[86] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + BASILYS_LOCATION("warmelt-macro.bysl:1500:/ apply"); + /*apply*/{ + union basilysparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1500:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; + BASILYS_LOCATION("warmelt-macro.bysl:1500:/ 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.bysl:1501:/ apply"); + /*apply*/{ + union basilysparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1501:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; + BASILYS_LOCATION("warmelt-macro.bysl:1501:/ 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.bysl:1503:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1397:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1503:/ 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.bysl:1397:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:1503:/ touch"); basilysgc_touch(/*_.CITBIND__V68*/ curfptr[61]); ; /*epilog*/} ; - BASILYS_LOCATION("warmelt-macro.bysl:1398:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1504:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1398:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1504:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CITBIND__V68*/ curfptr[61]; - /*_.PUT_ENV__V72*/ curfptr[71] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.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.bysl:1399:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1399:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1505:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1505:/ block"); /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[5] = + /*_#THE_CALLCOUNT__L22*/ curfnum[19] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1399:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1505:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1399:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1505:/ apply.arg"); argtab[0].bp_cstring = "parsed citerator citer"; - BASILYS_LOCATION("warmelt-macro.bysl:1399:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5]; - BASILYS_LOCATION("warmelt-macro.bysl:1399:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1505:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[19]; + BASILYS_LOCATION("warmelt-macro.bysl:1505:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1399:/ apply.arg"); - argtab[3].bp_long = 1399; - /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] = 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); + BASILYS_LOCATION("warmelt-macro.bysl:1505:/ apply.arg"); + argtab[3].bp_long = 1505; + /*_.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___V73*/ curfptr[72] = /*_.DEBUG_MSG_FUN__V74*/ curfptr[73];; + /*_.IFCPP___V92*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[92];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1399:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1399:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:1505:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1505:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1399:/ cppif.else"); - /*_.IFCPP___V73*/ curfptr[72] = (/*nil*/NULL); + BASILYS_LOCATION("warmelt-macro.bysl:1505:/ cppif.else"); + /*_.IFCPP___V92*/ curfptr[91] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1400:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1506:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SRCIT__V70*/ curfptr[69];; - BASILYS_LOCATION("warmelt-macro.bysl:1400:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1506:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - /*_.LET___V64*/ curfptr[47] = /*_.RETURN___V75*/ curfptr[73];; + /*_.LET___V64*/ curfptr[47] = /*_.RETURN___V94*/ curfptr[92];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1378:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); /*clear*/ /*_.NAMED_NAME__V65*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1378:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); /*clear*/ /*_.CITER__V66*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1378:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); /*clear*/ /*_.CITBIND__V68*/ curfptr[61] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1378:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); /*clear*/ /*_.SRCIT__V70*/ curfptr[69] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1378:/ clear"); - /*clear*/ /*_.PUT_ENV__V72*/ curfptr[71] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1378:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ curfnum[5] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_.SUBSTMAP__V72*/ curfptr[71] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); /*clear*/ /*_.IFCPP___V73*/ curfptr[72] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1378:/ clear"); - /*clear*/ /*_.RETURN___V75*/ curfptr[73] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_.IFCPP___V75*/ curfptr[73] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_.IFCPP___V81*/ curfptr[80] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_.CHECK_C_EXPANSION__V89*/ curfptr[88] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_.CHECK_C_EXPANSION__V90*/ curfptr[89] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_.PUT_ENV__V91*/ curfptr[90] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_.IFCPP___V92*/ curfptr[91] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1460:/ clear"); + /*clear*/ /*_.RETURN___V94*/ curfptr[92] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V64*/ curfptr[47];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.SYMB__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.BSTARTUP__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.STATSYMB__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.BLOCVTUP__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.EXPBEF__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.EXPAFT__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.IF___V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.PAIR_HEAD__V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.PAIR_HEAD__V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.SETQ___V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.IF___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.PAIR_TAIL__V37*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.SETQ___V38*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.PAIR_HEAD__V39*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.SETQ___V41*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.PAIR_TAIL__V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.SETQ___V43*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.LET___V44*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.PAIR_TAIL__V53*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.SETQ___V54*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.LET___V55*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1330:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); /*clear*/ /*_.LET___V64*/ curfptr[47] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1326:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:1326:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1326:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1326:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1326:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1326:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -12612,14 +13940,14 @@ basilys_trace_end("MEXPAND_DEFCITERATOR", callcount); basilys_topframe = (struc #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_26_MEXPAND_DEFCITERATOR*/ +} /*end rout_28_MEXPAND_DEFCITERATOR*/ static basilys_ptr_t -rout_27_MEXPAND_DEFCMATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_29_MEXPAND_DEFCMATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -12630,17 +13958,17 @@ rout_27_MEXPAND_DEFCMATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp #define callcount 0L #endif - struct frame_rout_27_MEXPAND_DEFCMATCHER_st { unsigned nbvar; + struct frame_rout_29_MEXPAND_DEFCMATCHER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; -#define CURFRAM_NBVARPTR 128 - void* varptr[128]; -#define CURFRAM_NBVARNUM 27 - long varnum[27]; +#define CURFRAM_NBVARPTR 141 + void* varptr[141]; +#define CURFRAM_NBVARNUM 36 + long varnum[36]; /*others*/ long _spare_; } *framptr_=0, curfram__; @@ -12648,13 +13976,13 @@ rout_27_MEXPAND_DEFCMATCHER(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<128; ix++) + for(ix=0; ix<141; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 128; + curfram__.nbvar = 141; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; @@ -12662,18 +13990,18 @@ basilys_trace_start("MEXPAND_DEFCMATCHER", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ 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.bysl:1409:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ 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); @@ -12682,60 +14010,60 @@ basilys_trace_start("MEXPAND_DEFCMATCHER", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:1409:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:1515:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1410:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1410:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1516:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1516:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1410:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1516:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1410:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1516:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:1410:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1516:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1410:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1516:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1410:/ apply.arg"); - argtab[3].bp_long = 1410; + BASILYS_LOCATION("warmelt-macro.bysl:1516:/ apply.arg"); + argtab[3].bp_long = 1516; /*_.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.bysl:1410:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1516:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1410:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1516:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1410:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1516:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1411:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1411:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1517:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1517:/ 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.bysl:1411:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1517:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1411:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1517:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1411:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1517:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1411:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1517:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1411)?(1411):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1517)?(1517):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -12744,34 +14072,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:1409:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1411:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1517:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1411:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1517:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1411:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1517:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1412:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1412:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1518:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1518:/ 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.bysl:1412:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1518:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1412:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1518:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1412:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1518:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1412:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1518:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1412)?(1412):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1518)?(1518):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} @@ -12780,23 +14108,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:1409:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1518:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1412:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1518:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1412:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1518:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ 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.bysl:1414:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1520:/ 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; }; ; @@ -12816,79 +14144,79 @@ BASILYS_LOCATION("warmelt-macro.bysl:1409:/ block"); /*_.EXPOPER__V24*/ curfptr[23] = (/*nil*/NULL);; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1428:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1428:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1534:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1534:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1428:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1534:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1428:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1534:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher symb"; - BASILYS_LOCATION("warmelt-macro.bysl:1428:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1534:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1428:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1534:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1428:/ apply.arg"); - argtab[3].bp_long = 1428; + BASILYS_LOCATION("warmelt-macro.bysl:1534:/ apply.arg"); + argtab[3].bp_long = 1534; /*_.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.bysl:1428:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1534:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1428:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1534:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1428:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1534:/ 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.bysl:1429:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1535:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1429:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1429:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1535:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1535:/ block"); /*block*/{ 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.bysl:1434:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1540:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1434:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1540:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1430:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1536:/ block"); /*block*/{ /*_.PROGN___V29*/ curfptr[28] = /*_.RETURN___V28*/ curfptr[27];;} ; /*_.IF___V27*/ curfptr[25] = /*_.PROGN___V29*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1429:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1535:/ clear"); /*clear*/ /*_.RETURN___V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1429:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1535:/ clear"); /*clear*/ /*_.PROGN___V29*/ curfptr[28] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1429:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1535:/ 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.bysl:1435:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1541:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V31*/ curfptr[28] = /*_.PAIR_TAIL__V30*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ block"); /*block*/{ /*_.PAIR_HEAD__V33*/ curfptr[32] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ 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); } @@ -12897,94 +14225,94 @@ BASILYS_LOCATION("warmelt-macro.bysl:1409:/ block"); (basilys_multiple_length((basilys_ptr_t)(/*_.MATINFORMALS__V34*/ curfptr[33])));; /*_#I__L7*/ curfnum[6] = ((/*_#NBMATINFORMALS__L6*/ curfnum[5]) < (1));; - BASILYS_LOCATION("warmelt-macro.bysl:1440:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1546:/ cond"); /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1440:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1440:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1546:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1546:/ block"); /*block*/{ 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.bysl:1443:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1549:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1443:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1549:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1441:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1547:/ block"); /*block*/{ /*_.PROGN___V37*/ curfptr[36] = /*_.RETURN___V36*/ curfptr[35];;} ; /*_.IF___V35*/ curfptr[34] = /*_.PROGN___V37*/ curfptr[36];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1440:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1546:/ clear"); /*clear*/ /*_.RETURN___V36*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1440:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1546:/ clear"); /*clear*/ /*_.PROGN___V37*/ curfptr[36] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1440:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1546:/ cond.else"); /*_.IF___V35*/ curfptr[34] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1444:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1550:/ 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.bysl:1445:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1551:/ compute"); /*_.MATCHFORMAL__V18*/ curfptr[17] = /*_.SETQ___V40*/ curfptr[39] = /*_.MULTIPLE_NTH__V39*/ curfptr[36];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1446:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1446:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1552:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1552:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1446:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1552:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1446:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1552:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher matchformal"; - BASILYS_LOCATION("warmelt-macro.bysl:1446:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1552:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.bysl:1446:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1552:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1446:/ apply.arg"); - argtab[3].bp_long = 1446; + BASILYS_LOCATION("warmelt-macro.bysl:1552:/ apply.arg"); + argtab[3].bp_long = 1552; /*_.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.bysl:1446:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1552:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1446:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1552:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1446:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1552:/ cppif.else"); /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1447:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1447:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1553:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1553:/ 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.bysl:1447:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1553:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1447:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1553:/ cond.then"); /*_.IFELSE___V44*/ curfptr[43] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1447:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1553:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1447:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1553:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check matchformal"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1447)?(1447):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check matchformal"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1553)?(1553):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} ; /*epilog*/} @@ -12993,13 +14321,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:1409:/ block"); ; /*_.IFCPP___V43*/ curfptr[41] = /*_.IFELSE___V44*/ curfptr[43];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1447:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1553:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1447:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1553:/ clear"); /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1447:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1553:/ cppif.else"); /*_.IFCPP___V43*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -13007,15 +14335,15 @@ BASILYS_LOCATION("warmelt-macro.bysl:1409:/ 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.bysl:1448:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1554:/ compute"); /*_.INFORMALS__V19*/ curfptr[18] = /*_.SETQ___V46*/ curfptr[45] = /*_.MAKE_MULTIPLE__V45*/ curfptr[43];; - BASILYS_LOCATION("warmelt-macro.bysl:1451:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1557:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1451:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:1557:/ 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.bysl:1451:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:1557:/ 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]))); @@ -13023,128 +14351,128 @@ BASILYS_LOCATION("warmelt-macro.bysl:1409:/ block"); ; /*_.LAMBDA___V47*/ curfptr[46] = /*_.LAMBDA___V48*/ curfptr[47];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1449:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1555:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1449:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1555:/ 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.bysl:1452:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1452:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1558:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1558:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1452:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1558:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1452:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1558:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher informals"; - BASILYS_LOCATION("warmelt-macro.bysl:1452:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1558:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10]; - BASILYS_LOCATION("warmelt-macro.bysl:1452:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1558:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1452:/ apply.arg"); - argtab[3].bp_long = 1452; + BASILYS_LOCATION("warmelt-macro.bysl:1558:/ apply.arg"); + argtab[3].bp_long = 1558; /*_.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.bysl:1452:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1558:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1452:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1558:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1452:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1558:/ cppif.else"); /*_.IFCPP___V50*/ curfptr[49] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V32*/ curfptr[31] = /*_.IFCPP___V50*/ curfptr[49];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_.PAIR_HEAD__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_.MATINFORMALS__V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_#NBMATINFORMALS__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_.IF___V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_.SETQ___V38*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_.MULTIPLE_NTH__V39*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_.SETQ___V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_.IFCPP___V43*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_.MAKE_MULTIPLE__V45*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_.SETQ___V46*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_.LAMBDA___V47*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V49*/ curfptr[48] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1437:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1543:/ 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.bysl:1455:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1561:/ 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.bysl:1456:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1562:/ 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.bysl:1456:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1562:/ compute"); /*_.OUTFORMALS__V20*/ curfptr[19] = /*_.SETQ___V56*/ curfptr[35] = /*_.LAMBDA_ARG_BINDINGS__V55*/ curfptr[34];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1457:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1457:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1563:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1563:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1457:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1563:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1457:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1563:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher outformals"; - BASILYS_LOCATION("warmelt-macro.bysl:1457:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1563:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10]; - BASILYS_LOCATION("warmelt-macro.bysl:1457:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1563:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1457:/ apply.arg"); - argtab[3].bp_long = 1457; + BASILYS_LOCATION("warmelt-macro.bysl:1563:/ apply.arg"); + argtab[3].bp_long = 1563; /*_.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.bysl:1457:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1563:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1457:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1563:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V58*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1457:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1563:/ cppif.else"); /*_.IFCPP___V57*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -13152,544 +14480,544 @@ BASILYS_LOCATION("warmelt-macro.bysl:1409:/ 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.bysl:1458:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1564:/ cond"); /*cond*/ if (/*_#NOT__L14*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1458:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1458:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1564:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1564:/ block"); /*block*/{ 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.bysl:1461:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1567:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1461:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1567:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1459:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1565:/ block"); /*block*/{ /*_.PROGN___V61*/ curfptr[43] = /*_.RETURN___V60*/ curfptr[41];;} ; /*_.IF___V59*/ curfptr[40] = /*_.PROGN___V61*/ curfptr[43];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1458:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1564:/ clear"); /*clear*/ /*_.RETURN___V60*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1458:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1564:/ clear"); /*clear*/ /*_.PROGN___V61*/ curfptr[43] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1458:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1564:/ 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.bysl:1463:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1569:/ 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.bysl:1464:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1570:/ 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.bysl:1465:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1571:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L15*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1465:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1465:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1571:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1571:/ block"); /*block*/{ 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.bysl:1468:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1574:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1468:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1574:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1466:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1572:/ block"); /*block*/{ /*_.PROGN___V68*/ curfptr[43] = /*_.RETURN___V67*/ curfptr[41];;} ; /*_.IF___V66*/ curfptr[39] = /*_.PROGN___V68*/ curfptr[43];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1465:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); /*clear*/ /*_.RETURN___V67*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1465:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); /*clear*/ /*_.PROGN___V68*/ curfptr[43] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1465:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1571:/ cond.else"); /*_.IF___V66*/ curfptr[39] = NULL;; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1469:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1469:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1575:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1575:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[10] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1469:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1575:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1469:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1575:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher statesym"; - BASILYS_LOCATION("warmelt-macro.bysl:1469:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1575:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[10]; - BASILYS_LOCATION("warmelt-macro.bysl:1469:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1575:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1469:/ apply.arg"); - argtab[3].bp_long = 1469; + BASILYS_LOCATION("warmelt-macro.bysl:1575:/ apply.arg"); + argtab[3].bp_long = 1575; /*_.DEBUG_MSG_FUN__V70*/ 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___V69*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[43];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1469:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1575:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1469:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1575:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1469:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1575:/ cppif.else"); /*_.IFCPP___V69*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V71*/ curfptr[43] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1471:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1577:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V72*/ curfptr[71] = /*_.PAIR_TAIL__V71*/ curfptr[43];; - BASILYS_LOCATION("warmelt-macro.bysl:1472:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1578:/ block"); /*block*/{ /*_.SEXPTEST__V74*/ curfptr[73] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1473:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1579:/ cond"); /*cond*/ if (/*_.SEXPTEST__V74*/ curfptr[73]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1473:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1473:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1579:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1579:/ block"); /*block*/{ /*_#IS_NOT_A__L18*/ curfnum[17] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPTEST__V74*/ curfptr[73]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; /*_#IF___L17*/ curfnum[10] = /*_#IS_NOT_A__L18*/ curfnum[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1473:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1579:/ clear"); /*clear*/ /*_#IS_NOT_A__L18*/ curfnum[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1473:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1579:/ cond.else"); /*_#IF___L17*/ curfnum[10] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1473:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1579:/ cond"); /*cond*/ if (/*_#IF___L17*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1473:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1473:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1579:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1579:/ block"); /*block*/{ 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.bysl:1476:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1582:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1476:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1582:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1474:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1580:/ block"); /*block*/{ /*_.PROGN___V77*/ curfptr[76] = /*_.RETURN___V76*/ curfptr[75];;} ; /*_.IFELSE___V75*/ curfptr[74] = /*_.PROGN___V77*/ curfptr[76];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1473:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1579:/ clear"); /*clear*/ /*_.RETURN___V76*/ curfptr[75] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1473:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1579:/ clear"); /*clear*/ /*_.PROGN___V77*/ curfptr[76] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1473:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1579:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1473:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1579:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1477:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1583:/ cond"); /*cond*/ if (/*_.SEXPTEST__V74*/ curfptr[73]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1477:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1477:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1583:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1583:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1481:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1587:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPTEST__V74*/ curfptr[73]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V79*/ curfptr[76] = slot; }; ; /*_.LIST_FIRST__V80*/ curfptr[79] = (basilys_list_first((basilys_ptr_t)(/*_.SEXP_CONTENTS__V79*/ curfptr[76])));; - BASILYS_LOCATION("warmelt-macro.bysl:1479:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1585:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1479:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1585:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LIST_FIRST__V80*/ curfptr[79]; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V81*/ curfptr[80] = 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.bysl:1478:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1584:/ compute"); /*_.EXPTEST__V22*/ curfptr[21] = /*_.SETQ___V82*/ curfptr[81] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V81*/ curfptr[80];; /*_.IF___V78*/ curfptr[75] = /*_.SETQ___V82*/ curfptr[81];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1477:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1583:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V79*/ curfptr[76] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1477:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1583:/ clear"); /*clear*/ /*_.LIST_FIRST__V80*/ curfptr[79] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1477:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1583:/ clear"); /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V81*/ curfptr[80] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1477:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1583:/ clear"); /*clear*/ /*_.SETQ___V82*/ curfptr[81] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1477:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1583:/ cond.else"); /*_.IF___V78*/ curfptr[75] = NULL;; } ; /*_.IFELSE___V75*/ curfptr[74] = /*_.IF___V78*/ curfptr[75];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1473:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1579:/ clear"); /*clear*/ /*_.IF___V78*/ curfptr[75] = 0 ;} ; } ; /*_.LET___V73*/ curfptr[72] = /*_.IFELSE___V75*/ curfptr[74];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1472:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1578:/ clear"); /*clear*/ /*_.SEXPTEST__V74*/ curfptr[73] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1472:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1578:/ clear"); /*clear*/ /*_#IF___L17*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1472:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1578:/ clear"); /*clear*/ /*_.IFELSE___V75*/ curfptr[74] = 0 ;} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1483:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1483:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1589:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1589:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L19*/ curfnum[17] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1483:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1589:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1483:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1589:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher exptest"; - BASILYS_LOCATION("warmelt-macro.bysl:1483:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1589:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[17]; - BASILYS_LOCATION("warmelt-macro.bysl:1483:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1589:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1483:/ apply.arg"); - argtab[3].bp_long = 1483; + BASILYS_LOCATION("warmelt-macro.bysl:1589:/ apply.arg"); + argtab[3].bp_long = 1589; /*_.DEBUG_MSG_FUN__V84*/ curfptr[79] = 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___V83*/ curfptr[76] = /*_.DEBUG_MSG_FUN__V84*/ curfptr[79];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1483:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1589:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1483:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1589:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V84*/ curfptr[79] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1483:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1589:/ cppif.else"); /*_.IFCPP___V83*/ curfptr[76] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V85*/ curfptr[80] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1485:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1591:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V86*/ curfptr[81] = /*_.PAIR_TAIL__V85*/ curfptr[80];; - BASILYS_LOCATION("warmelt-macro.bysl:1486:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1592:/ block"); /*block*/{ /*_.SEXPFILL__V88*/ curfptr[73] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1487:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1593:/ cond"); /*cond*/ if (/*_.SEXPFILL__V88*/ curfptr[73]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1487:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1487:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1593:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1593:/ block"); /*block*/{ /*_#IS_NOT_A__L21*/ curfnum[17] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPFILL__V88*/ curfptr[73]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; /*_#IF___L20*/ curfnum[10] = /*_#IS_NOT_A__L21*/ curfnum[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1487:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1593:/ clear"); /*clear*/ /*_#IS_NOT_A__L21*/ curfnum[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1487:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1593:/ cond.else"); /*_#IF___L20*/ curfnum[10] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1487:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1593:/ cond"); /*cond*/ if (/*_#IF___L20*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1487:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1487:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1593:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1593:/ block"); /*block*/{ 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.bysl:1490:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1596:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1490:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1596:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1488:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1594:/ block"); /*block*/{ /*_.PROGN___V91*/ curfptr[90] = /*_.RETURN___V90*/ curfptr[79];;} ; /*_.IFELSE___V89*/ curfptr[74] = /*_.PROGN___V91*/ curfptr[90];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1487:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1593:/ clear"); /*clear*/ /*_.RETURN___V90*/ curfptr[79] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1487:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1593:/ clear"); /*clear*/ /*_.PROGN___V91*/ curfptr[90] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1487:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1593:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1487:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1593:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1491:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1597:/ cond"); /*cond*/ if (/*_.SEXPFILL__V88*/ curfptr[73]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1491:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1491:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1597:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1597:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1494:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1600:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPFILL__V88*/ curfptr[73]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V93*/ curfptr[90] = slot; }; ; /*_.LIST_FIRST__V94*/ curfptr[93] = (basilys_list_first((basilys_ptr_t)(/*_.SEXP_CONTENTS__V93*/ curfptr[90])));; - BASILYS_LOCATION("warmelt-macro.bysl:1493:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1599:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1493:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1599:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LIST_FIRST__V94*/ curfptr[93]; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V95*/ curfptr[94] = 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.bysl:1492:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1598:/ compute"); /*_.EXPFILL__V23*/ curfptr[22] = /*_.SETQ___V96*/ curfptr[95] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V95*/ curfptr[94];; /*_.IF___V92*/ curfptr[79] = /*_.SETQ___V96*/ curfptr[95];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1597:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V93*/ curfptr[90] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1597:/ clear"); /*clear*/ /*_.LIST_FIRST__V94*/ curfptr[93] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1597:/ clear"); /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V95*/ curfptr[94] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1597:/ clear"); /*clear*/ /*_.SETQ___V96*/ curfptr[95] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1491:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1597:/ cond.else"); /*_.IF___V92*/ curfptr[79] = NULL;; } ; /*_.IFELSE___V89*/ curfptr[74] = /*_.IF___V92*/ curfptr[79];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1487:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1593:/ clear"); /*clear*/ /*_.IF___V92*/ curfptr[79] = 0 ;} ; } ; /*_.LET___V87*/ curfptr[75] = /*_.IFELSE___V89*/ curfptr[74];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1486:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1592:/ clear"); /*clear*/ /*_.SEXPFILL__V88*/ curfptr[73] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1486:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1592:/ clear"); /*clear*/ /*_#IF___L20*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1486:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1592:/ clear"); /*clear*/ /*_.IFELSE___V89*/ curfptr[74] = 0 ;} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1496:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1496:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1602:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1602:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L22*/ curfnum[17] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1496:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1602:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1496:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1602:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher expfill"; - BASILYS_LOCATION("warmelt-macro.bysl:1496:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1602:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[17]; - BASILYS_LOCATION("warmelt-macro.bysl:1496:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1602:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1496:/ apply.arg"); - argtab[3].bp_long = 1496; + BASILYS_LOCATION("warmelt-macro.bysl:1602:/ apply.arg"); + argtab[3].bp_long = 1602; /*_.DEBUG_MSG_FUN__V98*/ curfptr[93] = 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___V97*/ curfptr[90] = /*_.DEBUG_MSG_FUN__V98*/ curfptr[93];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1496:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1602:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1496:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1602:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V98*/ curfptr[93] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1496:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1602:/ cppif.else"); /*_.IFCPP___V97*/ curfptr[90] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V99*/ curfptr[94] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1498:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1604:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V100*/ curfptr[95] = /*_.PAIR_TAIL__V99*/ curfptr[94];; - BASILYS_LOCATION("warmelt-macro.bysl:1499:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1605:/ block"); /*block*/{ /*_.SEXPOPER__V102*/ curfptr[73] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1500:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1606:/ cond"); /*cond*/ if (/*_.SEXPOPER__V102*/ curfptr[73]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1500:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1500:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1606:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1606:/ block"); /*block*/{ /*_#IS_NOT_A__L24*/ curfnum[17] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPOPER__V102*/ curfptr[73]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; /*_#IF___L23*/ curfnum[10] = /*_#IS_NOT_A__L24*/ curfnum[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1500:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1606:/ clear"); /*clear*/ /*_#IS_NOT_A__L24*/ curfnum[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1500:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1606:/ cond.else"); /*_#IF___L23*/ curfnum[10] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1500:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1606:/ cond"); /*cond*/ if (/*_#IF___L23*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1500:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1500:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1606:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1606:/ block"); /*block*/{ 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.bysl:1503:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1609:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1503:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1609:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1501:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1607:/ block"); /*block*/{ /*_.PROGN___V105*/ curfptr[104] = /*_.RETURN___V104*/ curfptr[93];;} ; /*_.IFELSE___V103*/ curfptr[74] = /*_.PROGN___V105*/ curfptr[104];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1500:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1606:/ clear"); /*clear*/ /*_.RETURN___V104*/ curfptr[93] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1500:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1606:/ clear"); /*clear*/ /*_.PROGN___V105*/ curfptr[104] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1500:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1606:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1500:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1606:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1505:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1611:/ cond"); /*cond*/ if (/*_.SEXPOPER__V102*/ curfptr[73]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1505:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1505:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1611:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1611:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1506:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1612:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPOPER__V102*/ curfptr[73]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V107*/ curfptr[104] = slot; }; ; /*_.LIST_FIRST__V108*/ curfptr[107] = (basilys_list_first((basilys_ptr_t)(/*_.SEXP_CONTENTS__V107*/ curfptr[104])));; - BASILYS_LOCATION("warmelt-macro.bysl:1506:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1612:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1506:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1612:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LIST_FIRST__V108*/ curfptr[107]; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V109*/ curfptr[108] = 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___V106*/ curfptr[93] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V109*/ curfptr[108];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1505:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1611:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V107*/ curfptr[104] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1505:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1611:/ clear"); /*clear*/ /*_.LIST_FIRST__V108*/ curfptr[107] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1505:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1611:/ clear"); /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V109*/ curfptr[108] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1505:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1611:/ cond.else"); /*_.IF___V106*/ curfptr[93] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1504:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1610:/ compute"); /*_.EXPOPER__V24*/ curfptr[23] = /*_.SETQ___V110*/ curfptr[104] = /*_.IF___V106*/ curfptr[93];; /*_.IFELSE___V103*/ curfptr[74] = /*_.SETQ___V110*/ curfptr[104];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1500:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1606:/ clear"); /*clear*/ /*_.IF___V106*/ curfptr[93] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1500:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1606:/ clear"); /*clear*/ /*_.SETQ___V110*/ curfptr[104] = 0 ;} ; } ; /*_.LET___V101*/ curfptr[79] = /*_.IFELSE___V103*/ curfptr[74];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1499:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1605:/ clear"); /*clear*/ /*_.SEXPOPER__V102*/ curfptr[73] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1499:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1605:/ clear"); /*clear*/ /*_#IF___L23*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1499:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1605:/ clear"); /*clear*/ /*_.IFELSE___V103*/ curfptr[74] = 0 ;} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1508:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1508:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1614:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1614:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L25*/ curfnum[17] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1508:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1614:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1508:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1614:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher expfill"; - BASILYS_LOCATION("warmelt-macro.bysl:1508:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1614:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[17]; - BASILYS_LOCATION("warmelt-macro.bysl:1508:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1614:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1508:/ apply.arg"); - argtab[3].bp_long = 1508; + BASILYS_LOCATION("warmelt-macro.bysl:1614:/ apply.arg"); + argtab[3].bp_long = 1614; /*_.DEBUG_MSG_FUN__V112*/ curfptr[108] = 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___V111*/ curfptr[107] = /*_.DEBUG_MSG_FUN__V112*/ curfptr[108];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1508:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1614:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1508:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1614:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V112*/ curfptr[108] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1508:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1614:/ cppif.else"); /*_.IFCPP___V111*/ curfptr[107] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V113*/ curfptr[93] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1510:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1616:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V114*/ curfptr[104] = /*_.PAIR_TAIL__V113*/ curfptr[93];; - BASILYS_LOCATION("warmelt-macro.bysl:1511:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1617:/ cond"); /*cond*/ if (/*_.CURPAIR__V15*/ curfptr[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1511:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1511:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1617:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1617:/ block"); /*block*/{ 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); @@ -13699,22 +15027,22 @@ BASILYS_LOCATION("warmelt-macro.bysl:1409:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1513:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1513:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1619:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1619:/ block"); /*block*/{ /*_#IS_A__L26*/ 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.bysl:1513:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1619:/ cond"); /*cond*/ if (/*_#IS_A__L26*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1513:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1619:/ cond.then"); /*_.IFELSE___V116*/ curfptr[74] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1513:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1619:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1513:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1619:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check matchformal again"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1513)?(1513):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check matchformal again"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1619)?(1619):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V116*/ curfptr[74] = 0 ;} ; /*epilog*/} @@ -13723,306 +15051,527 @@ BASILYS_LOCATION("warmelt-macro.bysl:1409:/ block"); ; /*_.IFCPP___V115*/ curfptr[73] = /*_.IFELSE___V116*/ curfptr[74];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1513:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1619:/ clear"); /*clear*/ /*_#IS_A__L26*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1513:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1619:/ clear"); /*clear*/ /*_.IFELSE___V116*/ curfptr[74] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1513:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1619:/ cppif.else"); /*_.IFCPP___V115*/ curfptr[73] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1515:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1517:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1623:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V118*/ curfptr[74] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:1516:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1622:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1516:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1622:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[10])), (9), "CLASS_CMATCHER");/*_.INST__V120*/ curfptr[119] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:1516:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1622:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119]))));basilys_putfield_object((/*_.INST__V120*/ curfptr[119]), (1), (/*_.NAMED_NAME__V118*/ curfptr[74]), "NAMED_NAME"); ; - BASILYS_LOCATION("warmelt-macro.bysl:1516:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1622:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119]))));basilys_putfield_object((/*_.INST__V120*/ curfptr[119]), (2), (/*_.INFORMALS__V19*/ curfptr[18]), "AMATCH_IN"); ; - BASILYS_LOCATION("warmelt-macro.bysl:1516:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1622:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119]))));basilys_putfield_object((/*_.INST__V120*/ curfptr[119]), (3), (/*_.MATCHFORMAL__V18*/ curfptr[17]), "AMATCH_MATCHBIND"); ; - BASILYS_LOCATION("warmelt-macro.bysl:1516:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1622:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119]))));basilys_putfield_object((/*_.INST__V120*/ curfptr[119]), (4), (/*_.OUTFORMALS__V20*/ curfptr[19]), "AMATCH_OUT"); ; - BASILYS_LOCATION("warmelt-macro.bysl:1516:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1622:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119]))));basilys_putfield_object((/*_.INST__V120*/ curfptr[119]), (5), (/*_.STATESYM__V21*/ curfptr[20]), "CMATCH_STATE"); ; - BASILYS_LOCATION("warmelt-macro.bysl:1516:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1622:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119]))));basilys_putfield_object((/*_.INST__V120*/ curfptr[119]), (6), (/*_.EXPTEST__V22*/ curfptr[21]), "CMATCH_EXPTEST"); ; - BASILYS_LOCATION("warmelt-macro.bysl:1516:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1622:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119]))));basilys_putfield_object((/*_.INST__V120*/ curfptr[119]), (7), (/*_.EXPFILL__V23*/ curfptr[22]), "CMATCH_EXPFILL"); ; - BASILYS_LOCATION("warmelt-macro.bysl:1516:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1622:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V120*/ curfptr[119]))));basilys_putfield_object((/*_.INST__V120*/ curfptr[119]), (8), (/*_.EXPOPER__V24*/ curfptr[23]), "CMATCH_EXPOPER"); ; /*_.CMATCH__V119*/ curfptr[118] = /*_.INST__V120*/ curfptr[119];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1526:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1632:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1526:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1632:/ 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__V122*/ curfptr[121] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:1526:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1632:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121]))));basilys_putfield_object((/*_.INST__V122*/ curfptr[121]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.bysl:1526:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1632:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121]))));basilys_putfield_object((/*_.INST__V122*/ curfptr[121]), (1), (/*_.SYMB__V16*/ curfptr[15]), "SDEF_NAME"); ; - BASILYS_LOCATION("warmelt-macro.bysl:1526:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1632:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121]))));basilys_putfield_object((/*_.INST__V122*/ curfptr[121]), (2), (/*_.SFORMALS__V17*/ curfptr[16]), "SFORMAL_ARGS"); ; - BASILYS_LOCATION("warmelt-macro.bysl:1526:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1632:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121]))));basilys_putfield_object((/*_.INST__V122*/ curfptr[121]), (3), (/*_.CMATCH__V119*/ curfptr[118]), "SCMATDEF_CMATCHER"); ; /*_.SDEFCMATCH__V121*/ curfptr[120] = /*_.INST__V122*/ curfptr[121];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1531:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1637:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1531:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1637:/ 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__V124*/ curfptr[123] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:1531:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1637:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123]))));basilys_putfield_object((/*_.INST__V124*/ curfptr[123]), (0), (/*_.SYMB__V16*/ curfptr[15]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.bysl:1531:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1637:/ 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), (/*_.CMATCH__V119*/ curfptr[118]), "CMBIND_MATCHER"); ; /*_.CMBIND__V123*/ curfptr[122] = /*_.INST__V124*/ curfptr[123];;} ; + /*_#MULTIPLE_LENGTH__L27*/ curfnum[17] = + (basilys_multiple_length((basilys_ptr_t)(/*_.INFORMALS__V19*/ curfptr[18])));; + /*_#MULTIPLE_LENGTH__L28*/ curfnum[10] = + (basilys_multiple_length((basilys_ptr_t)(/*_.OUTFORMALS__V20*/ curfptr[19])));; + /*_#I__L29*/ curfnum[28] = + ((/*_#MULTIPLE_LENGTH__L27*/ curfnum[17]) + (/*_#MULTIPLE_LENGTH__L28*/ curfnum[10]));; + /*_#I__L30*/ curfnum[29] = + ((2) * (/*_#I__L29*/ curfnum[28]));; + /*_#I__L31*/ curfnum[30] = + ((7) + (/*_#I__L30*/ curfnum[29]));; + /*_.SUBSTMAP__V125*/ curfptr[124] = + (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[13])), (/*_#I__L31*/ curfnum[30])));; + + basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V125*/ curfptr[124]), (basilysobject_ptr_t) (/*_.STATESYM__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.STATESYM__V21*/ curfptr[20])); + BASILYS_LOCATION("warmelt-macro.bysl:1648:/ 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.bysl:1648:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1648:/ getslot"); + { basilys_ptr_t slot=0; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MATCHFORMAL__V18*/ curfptr[17]), 0, "BINDER");/*_.BINDER__V126*/ curfptr[125] = slot; }; + ; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1648:/ cond.else"); + + /*_.BINDER__V126*/ curfptr[125] = NULL;; + } + ; + + basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V125*/ curfptr[124]), (basilysobject_ptr_t) (/*_.BINDER__V126*/ curfptr[125]), (basilys_ptr_t)(/*_.MATCHFORMAL__V18*/ curfptr[17])); + /*citerblock FOREACH_IN_MULTIPLE*/ { + long cit1__EACHTUP_ln = basilys_multiple_length((basilys_ptr_t)/*_.INFORMALS__V19*/ curfptr[18]); +int cit1__EACHTUP_ix = 0; +for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix ++) { +/*_.CURIBIND__V127*/ curfptr[126] = basilys_multiple_nth((basilys_ptr_t)(/*_.INFORMALS__V19*/ curfptr[18]), cit1__EACHTUP_ix); +/*_#IBIX__L32*/ curfnum[31] = cit1__EACHTUP_ix; + + + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1652:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1652:/ block"); + /*block*/{ + /*_#IS_A__L33*/ curfnum[32] = + basilys_is_instance_of((basilys_ptr_t)(/*_.CURIBIND__V127*/ curfptr[126]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[5])));; + BASILYS_LOCATION("warmelt-macro.bysl:1652:/ cond"); + /*cond*/ if (/*_#IS_A__L33*/ curfnum[32]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1652:/ cond.then"); + /*_.IFELSE___V129*/ curfptr[128] = (/*nil*/NULL);; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1652:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1652:/ block"); + /*block*/{ + /*block*/{ + + basilys_assert_failed(( "check input curibind"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1652)?(1652):__LINE__, __FUNCTION__); + /*clear*/ /*_.IFELSE___V129*/ curfptr[128] = 0 ;} + ; + /*epilog*/} + ; + } + ; + /*_.IFCPP___V128*/ curfptr[127] = /*_.IFELSE___V129*/ curfptr[128];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1652:/ clear"); + /*clear*/ /*_#IS_A__L33*/ curfnum[32] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1652:/ clear"); + /*clear*/ /*_.IFELSE___V129*/ curfptr[128] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1652:/ cppif.else"); + /*_.IFCPP___V128*/ curfptr[127] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + BASILYS_LOCATION("warmelt-macro.bysl:1653:/ cond"); + /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.CURIBIND__V127*/ curfptr[126]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[14])))) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1653:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1653:/ getslot"); + { basilys_ptr_t slot=0; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURIBIND__V127*/ curfptr[126]), 0, "BINDER");/*_.BINDER__V130*/ curfptr[128] = slot; }; + ; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1653:/ cond.else"); + + /*_.BINDER__V130*/ curfptr[128] = NULL;; + } + ; + + basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V125*/ curfptr[124]), (basilysobject_ptr_t) (/*_.BINDER__V130*/ curfptr[128]), (basilys_ptr_t)(/*_.CURIBIND__V127*/ curfptr[126])); + } /* end cit1__EACHTUP*/ + + /*citerepilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1649:/ clear"); + /*clear*/ /*_.CURIBIND__V127*/ curfptr[126] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1649:/ clear"); + /*clear*/ /*_#IBIX__L32*/ curfnum[31] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1649:/ clear"); + /*clear*/ /*_.IFCPP___V128*/ curfptr[127] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1649:/ clear"); + /*clear*/ /*_.BINDER__V130*/ curfptr[128] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + long cit2__EACHTUP_ln = basilys_multiple_length((basilys_ptr_t)/*_.OUTFORMALS__V20*/ curfptr[19]); +int cit2__EACHTUP_ix = 0; +for (cit2__EACHTUP_ix = 0; cit2__EACHTUP_ix < cit2__EACHTUP_ln; cit2__EACHTUP_ix ++) { +/*_.CUROBIND__V131*/ curfptr[130] = basilys_multiple_nth((basilys_ptr_t)(/*_.OUTFORMALS__V20*/ curfptr[19]), cit2__EACHTUP_ix); +/*_#OBIX__L34*/ curfnum[32] = cit2__EACHTUP_ix; + + + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.bysl:1657:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1657:/ block"); + /*block*/{ + /*_#IS_A__L35*/ curfnum[34] = + basilys_is_instance_of((basilys_ptr_t)(/*_.CUROBIND__V131*/ curfptr[130]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[5])));; + BASILYS_LOCATION("warmelt-macro.bysl:1657:/ cond"); + /*cond*/ if (/*_#IS_A__L35*/ curfnum[34]) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1657:/ cond.then"); + /*_.IFELSE___V133*/ curfptr[132] = (/*nil*/NULL);; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1657:/ cond.else"); + + BASILYS_LOCATION("warmelt-macro.bysl:1657:/ block"); + /*block*/{ + /*block*/{ + + basilys_assert_failed(( "check output curbind"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1657)?(1657):__LINE__, __FUNCTION__); + /*clear*/ /*_.IFELSE___V133*/ curfptr[132] = 0 ;} + ; + /*epilog*/} + ; + } + ; + /*_.IFCPP___V132*/ curfptr[131] = /*_.IFELSE___V133*/ curfptr[132];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1657:/ clear"); + /*clear*/ /*_#IS_A__L35*/ curfnum[34] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1657:/ clear"); + /*clear*/ /*_.IFELSE___V133*/ curfptr[132] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.bysl:1657:/ cppif.else"); + /*_.IFCPP___V132*/ curfptr[131] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + BASILYS_LOCATION("warmelt-macro.bysl:1658:/ cond"); + /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.CUROBIND__V131*/ curfptr[130]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[14])))) /*then*/ { + BASILYS_LOCATION("warmelt-macro.bysl:1658:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1658:/ getslot"); + { basilys_ptr_t slot=0; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CUROBIND__V131*/ curfptr[130]), 0, "BINDER");/*_.BINDER__V134*/ curfptr[132] = slot; }; + ; + } else {BASILYS_LOCATION("warmelt-macro.bysl:1658:/ cond.else"); + + /*_.BINDER__V134*/ curfptr[132] = NULL;; + } + ; + + basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V125*/ curfptr[124]), (basilysobject_ptr_t) (/*_.BINDER__V134*/ curfptr[132]), (basilys_ptr_t)(/*_.CUROBIND__V131*/ curfptr[130])); + } /* end cit2__EACHTUP*/ + + /*citerepilog*/ + BASILYS_LOCATION("warmelt-macro.bysl:1654:/ clear"); + /*clear*/ /*_.CUROBIND__V131*/ curfptr[130] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1654:/ clear"); + /*clear*/ /*_#OBIX__L34*/ curfnum[32] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1654:/ clear"); + /*clear*/ /*_.IFCPP___V132*/ curfptr[131] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1654:/ clear"); + /*clear*/ /*_.BINDER__V134*/ curfptr[132] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + BASILYS_LOCATION("warmelt-macro.bysl:1660:/ apply"); + /*apply*/{ + union basilysparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1660:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; + BASILYS_LOCATION("warmelt-macro.bysl:1660:/ apply.arg"); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SUBSTMAP__V125*/ curfptr[124]; + /*_.CHECK_C_EXPANSION__V135*/ curfptr[134] = 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.bysl:1661:/ apply"); + /*apply*/{ + union basilysparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1661:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; + BASILYS_LOCATION("warmelt-macro.bysl:1661:/ apply.arg"); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SUBSTMAP__V125*/ curfptr[124]; + /*_.CHECK_C_EXPANSION__V136*/ curfptr[135] = 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.bysl:1662:/ apply"); + /*apply*/{ + union basilysparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.bysl:1662:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; + BASILYS_LOCATION("warmelt-macro.bysl:1662:/ apply.arg"); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SUBSTMAP__V125*/ curfptr[124]; + /*_.CHECK_C_EXPANSION__V137*/ curfptr[136] = 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.bysl:1535:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1535:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1663:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1663:/ block"); /*block*/{ - /*_#THE_CALLCOUNT__L27*/ curfnum[17] = + /*_#THE_CALLCOUNT__L36*/ curfnum[34] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1535:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1663:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1535:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1663:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher sdefcmatch"; - BASILYS_LOCATION("warmelt-macro.bysl:1535:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[17]; - BASILYS_LOCATION("warmelt-macro.bysl:1535:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1663:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L36*/ curfnum[34]; + BASILYS_LOCATION("warmelt-macro.bysl:1663:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1535:/ apply.arg"); - argtab[3].bp_long = 1535; - /*_.DEBUG_MSG_FUN__V126*/ curfptr[125] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SDEFCMATCH__V121*/ curfptr[120]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:1663:/ apply.arg"); + argtab[3].bp_long = 1663; + /*_.DEBUG_MSG_FUN__V139*/ curfptr[138] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SDEFCMATCH__V121*/ curfptr[120]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V125*/ curfptr[124] = /*_.DEBUG_MSG_FUN__V126*/ curfptr[125];; + /*_.IFCPP___V138*/ curfptr[137] = /*_.DEBUG_MSG_FUN__V139*/ curfptr[138];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1535:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1535:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V126*/ curfptr[125] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:1663:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L36*/ curfnum[34] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1663:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V139*/ curfptr[138] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1535:/ cppif.else"); - /*_.IFCPP___V125*/ curfptr[124] = (/*nil*/NULL); + BASILYS_LOCATION("warmelt-macro.bysl:1663:/ cppif.else"); + /*_.IFCPP___V138*/ curfptr[137] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1536:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1664:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1536:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1664:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CMBIND__V123*/ curfptr[122]; - /*_.PUT_ENV__V127*/ curfptr[125] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.PUT_ENV__V140*/ curfptr[138] = 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.bysl:1537:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1665:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SDEFCMATCH__V121*/ curfptr[120];; - BASILYS_LOCATION("warmelt-macro.bysl:1537:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1665:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - /*_.LET___V117*/ curfptr[108] = /*_.RETURN___V128*/ curfptr[127];; + /*_.LET___V117*/ curfptr[108] = /*_.RETURN___V141*/ curfptr[140];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1515:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); /*clear*/ /*_.NAMED_NAME__V118*/ curfptr[74] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1515:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); /*clear*/ /*_.CMATCH__V119*/ curfptr[118] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1515:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); /*clear*/ /*_.SDEFCMATCH__V121*/ curfptr[120] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1515:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); /*clear*/ /*_.CMBIND__V123*/ curfptr[122] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1515:/ clear"); - /*clear*/ /*_.IFCPP___V125*/ curfptr[124] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1515:/ clear"); - /*clear*/ /*_.PUT_ENV__V127*/ curfptr[125] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1515:/ clear"); - /*clear*/ /*_.RETURN___V128*/ curfptr[127] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); + /*clear*/ /*_#MULTIPLE_LENGTH__L27*/ curfnum[17] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); + /*clear*/ /*_#MULTIPLE_LENGTH__L28*/ curfnum[10] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); + /*clear*/ /*_#I__L29*/ curfnum[28] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); + /*clear*/ /*_#I__L30*/ curfnum[29] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); + /*clear*/ /*_#I__L31*/ curfnum[30] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); + /*clear*/ /*_.SUBSTMAP__V125*/ curfptr[124] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); + /*clear*/ /*_.BINDER__V126*/ curfptr[125] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); + /*clear*/ /*_.CHECK_C_EXPANSION__V135*/ curfptr[134] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); + /*clear*/ /*_.CHECK_C_EXPANSION__V136*/ curfptr[135] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); + /*clear*/ /*_.CHECK_C_EXPANSION__V137*/ curfptr[136] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); + /*clear*/ /*_.IFCPP___V138*/ curfptr[137] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); + /*clear*/ /*_.PUT_ENV__V140*/ curfptr[138] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:1621:/ clear"); + /*clear*/ /*_.RETURN___V141*/ curfptr[140] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V117*/ curfptr[108];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.SYMB__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.SFORMALS__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.MATCHFORMAL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.INFORMALS__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.OUTFORMALS__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.STATESYM__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.EXPTEST__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.EXPFILL__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.EXPOPER__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.IF___V27*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.PAIR_TAIL__V52*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.SETQ___V53*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.PAIR_HEAD__V54*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V55*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.SETQ___V56*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.IFCPP___V57*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L13*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_#NOT__L14*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.IF___V59*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.PAIR_TAIL__V62*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.SETQ___V63*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.PAIR_HEAD__V64*/ curfptr[48] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.SETQ___V65*/ curfptr[49] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_#IS_NOT_A__L15*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.IF___V66*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.IFCPP___V69*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.PAIR_TAIL__V71*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.SETQ___V72*/ curfptr[71] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.LET___V73*/ curfptr[72] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.IFCPP___V83*/ curfptr[76] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.PAIR_TAIL__V85*/ curfptr[80] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.SETQ___V86*/ curfptr[81] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.LET___V87*/ curfptr[75] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.IFCPP___V97*/ curfptr[90] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.PAIR_TAIL__V99*/ curfptr[94] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.SETQ___V100*/ curfptr[95] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.LET___V101*/ curfptr[79] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.IFCPP___V111*/ curfptr[107] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.PAIR_TAIL__V113*/ curfptr[93] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.SETQ___V114*/ curfptr[104] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.IFCPP___V115*/ curfptr[73] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1519:/ clear"); /*clear*/ /*_.LET___V117*/ curfptr[108] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -14033,14 +15582,14 @@ basilys_trace_end("MEXPAND_DEFCMATCHER", callcount); basilys_topframe = (struct #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_27_MEXPAND_DEFCMATCHER*/ +} /*end rout_29_MEXPAND_DEFCMATCHER*/ static basilys_ptr_t -rout_28_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_30_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -14051,7 +15600,7 @@ rout_28_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_28_LAMBDA__st { unsigned nbvar; + struct frame_rout_30_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -14083,38 +15632,38 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1451:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1557:/ getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1451:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1557:/ 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.bysl:1451:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:1557:/ block"); /*block*/{ /*_#I__L2*/ curfnum[1] = ((/*_#IX__L1*/ curfnum[0]) > (0));; - BASILYS_LOCATION("warmelt-macro.bysl:1451:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1557:/ cond"); /*cond*/ if (/*_#I__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1451:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1451:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1557:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1557:/ block"); /*block*/{ /*_#I__L3*/ curfnum[2] = ((/*_#IX__L1*/ curfnum[0]) - (1));; 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.bysl:1451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1557:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1557:/ clear"); /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;} ; @@ -14125,14 +15674,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_28_LAMBDA_*/ +} /*end rout_30_LAMBDA_*/ static basilys_ptr_t -rout_29_MEXPAND_DEFUNMATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_31_MEXPAND_DEFUNMATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -14143,7 +15692,7 @@ rout_29_MEXPAND_DEFUNMATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstarg #define callcount 0L #endif - struct frame_rout_29_MEXPAND_DEFUNMATCHER_st { unsigned nbvar; + struct frame_rout_31_MEXPAND_DEFUNMATCHER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -14175,18 +15724,18 @@ basilys_trace_start("MEXPAND_DEFUNMATCHER", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ 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.bysl:1544:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ 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); @@ -14195,60 +15744,60 @@ basilys_trace_start("MEXPAND_DEFUNMATCHER", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:1544:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:1672:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1545:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1545:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1673:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1673:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1545:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1673:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1545:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1673:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:1545:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1673:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1545:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1673:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1545:/ apply.arg"); - argtab[3].bp_long = 1545; + BASILYS_LOCATION("warmelt-macro.bysl:1673:/ apply.arg"); + argtab[3].bp_long = 1673; /*_.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.bysl:1545:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1673:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1545:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1673:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1545:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1673:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1546:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1546:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1674:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1674:/ 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.bysl:1546:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1674:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1546:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1674:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1546:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1674:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1546:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1674:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1546)?(1546):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1674)?(1674):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -14257,34 +15806,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:1544:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1546:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1674:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1546:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1674:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1546:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1674:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1547:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1547:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1675:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1675:/ 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.bysl:1547:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1675:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1547:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1675:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1547:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1675:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1547:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1675:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1547)?(1547):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1675)?(1675):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} @@ -14293,23 +15842,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:1544:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1547:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1675:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1547:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1675:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1547:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1675:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ 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.bysl:1549:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1677:/ 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; }; ; @@ -14328,79 +15877,79 @@ BASILYS_LOCATION("warmelt-macro.bysl:1544:/ block"); /*_.DATAX__V23*/ curfptr[22] = (/*nil*/NULL);; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1562:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1562:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1690:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1690:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1562:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1690:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1562:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1690:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher symb"; - BASILYS_LOCATION("warmelt-macro.bysl:1562:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1690:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1562:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1690:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1562:/ apply.arg"); - argtab[3].bp_long = 1562; + BASILYS_LOCATION("warmelt-macro.bysl:1690:/ apply.arg"); + argtab[3].bp_long = 1690; /*_.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.bysl:1562:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1690:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1562:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1690:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1562:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1690:/ 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.bysl:1563:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1691:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1563:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1563:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1691:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1691:/ block"); /*block*/{ 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.bysl:1568:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1696:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1568:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1696:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1564:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1692:/ block"); /*block*/{ /*_.PROGN___V28*/ curfptr[27] = /*_.RETURN___V27*/ curfptr[26];;} ; /*_.IF___V26*/ curfptr[24] = /*_.PROGN___V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1563:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1691:/ clear"); /*clear*/ /*_.RETURN___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1563:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1691:/ clear"); /*clear*/ /*_.PROGN___V28*/ curfptr[27] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1563:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1691:/ 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.bysl:1569:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1697:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V30*/ curfptr[27] = /*_.PAIR_TAIL__V29*/ curfptr[26];; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ block"); /*block*/{ /*_.PAIR_HEAD__V32*/ curfptr[31] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ 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); } @@ -14409,73 +15958,73 @@ BASILYS_LOCATION("warmelt-macro.bysl:1544:/ block"); (basilys_multiple_length((basilys_ptr_t)(/*_.MATINFORMALS__V33*/ curfptr[32])));; /*_#I__L7*/ curfnum[6] = ((/*_#NBMATINFORMALS__L6*/ curfnum[5]) < (1));; - BASILYS_LOCATION("warmelt-macro.bysl:1574:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1702:/ cond"); /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1574:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1574:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1702:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1702:/ block"); /*block*/{ 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.bysl:1577:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1705:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1577:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1705:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1575:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1703:/ block"); /*block*/{ /*_.PROGN___V36*/ curfptr[35] = /*_.RETURN___V35*/ curfptr[34];;} ; /*_.IF___V34*/ curfptr[33] = /*_.PROGN___V36*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1702:/ clear"); /*clear*/ /*_.RETURN___V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1702:/ clear"); /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1574:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1702:/ cond.else"); /*_.IF___V34*/ curfptr[33] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1578:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1706:/ 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.bysl:1579:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1707:/ compute"); /*_.MATCHFORMAL__V18*/ curfptr[17] = /*_.SETQ___V39*/ curfptr[38] = /*_.MULTIPLE_NTH__V38*/ curfptr[35];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1580:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1580:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1708:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1708:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1580:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1708:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1580:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1708:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher matchformal"; - BASILYS_LOCATION("warmelt-macro.bysl:1580:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1708:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.bysl:1580:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1708:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1580:/ apply.arg"); - argtab[3].bp_long = 1580; + BASILYS_LOCATION("warmelt-macro.bysl:1708:/ apply.arg"); + argtab[3].bp_long = 1708; /*_.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.bysl:1580:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1708:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1580:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1708:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1580:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1708:/ cppif.else"); /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -14483,15 +16032,15 @@ BASILYS_LOCATION("warmelt-macro.bysl:1544:/ 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.bysl:1581:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1709:/ compute"); /*_.INFORMALS__V19*/ curfptr[18] = /*_.SETQ___V43*/ curfptr[42] = /*_.MAKE_MULTIPLE__V42*/ curfptr[40];; - BASILYS_LOCATION("warmelt-macro.bysl:1584:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1712:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1584:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:1712:/ 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.bysl:1584:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:1712:/ 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]))); @@ -14499,165 +16048,165 @@ BASILYS_LOCATION("warmelt-macro.bysl:1544:/ block"); ; /*_.LAMBDA___V44*/ curfptr[43] = /*_.LAMBDA___V45*/ curfptr[44];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1582:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1710:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1582:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1710:/ 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.bysl:1585:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1585:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1713:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1713:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1585:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1713:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1585:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1713:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher informals"; - BASILYS_LOCATION("warmelt-macro.bysl:1585:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1713:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9]; - BASILYS_LOCATION("warmelt-macro.bysl:1585:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1713:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1585:/ apply.arg"); - argtab[3].bp_long = 1585; + BASILYS_LOCATION("warmelt-macro.bysl:1713:/ apply.arg"); + argtab[3].bp_long = 1713; /*_.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.bysl:1585:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1713:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1585:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1713:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1585:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1713:/ cppif.else"); /*_.IFCPP___V47*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V31*/ curfptr[30] = /*_.IFCPP___V47*/ curfptr[46];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_.PAIR_HEAD__V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_.MATINFORMALS__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_#NBMATINFORMALS__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_.IF___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_.SETQ___V37*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_.MULTIPLE_NTH__V38*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_.SETQ___V39*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_.MAKE_MULTIPLE__V42*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_.SETQ___V43*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_.LAMBDA___V44*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V46*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1571:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1699:/ 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.bysl:1588:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1716:/ 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.bysl:1589:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1717:/ 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.bysl:1589:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1717:/ 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.bysl:1590:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1718:/ cond"); /*cond*/ if (/*_#NOT__L12*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1590:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1590:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1718:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1718:/ block"); /*block*/{ 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.bysl:1593:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1721:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:1593:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1721:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1591:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1719:/ block"); /*block*/{ /*_.PROGN___V56*/ curfptr[39] = /*_.RETURN___V55*/ curfptr[38];;} ; /*_.IF___V54*/ curfptr[35] = /*_.PROGN___V56*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1590:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1718:/ clear"); /*clear*/ /*_.RETURN___V55*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1590:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1718:/ clear"); /*clear*/ /*_.PROGN___V56*/ curfptr[39] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1590:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1718:/ 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.bysl:1595:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1723:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V58*/ curfptr[42] = /*_.PAIR_TAIL__V57*/ curfptr[40];; - BASILYS_LOCATION("warmelt-macro.bysl:1596:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1724:/ block"); /*block*/{ /*_.MFA__V60*/ curfptr[45] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1597:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1725:/ cond"); /*cond*/ if (/*_.MFA__V60*/ curfptr[45]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1597:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1597:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1725:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1725:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1598:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1726:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1598:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1726:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:1598:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1726:/ 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.bysl:1598:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1726:/ 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.bysl:1597:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1725:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V62*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1597:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1725:/ clear"); /*clear*/ /*_.SETQ___V63*/ curfptr[39] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1597:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1725:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1597:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1725:/ block"); /*block*/{ /*block*/{ @@ -14670,81 +16219,81 @@ BASILYS_LOCATION("warmelt-macro.bysl:1544:/ block"); ; /*_.LET___V59*/ curfptr[43] = /*_.IFELSE___V61*/ curfptr[46];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1596:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1724:/ clear"); /*clear*/ /*_.MFA__V60*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1596:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1724:/ clear"); /*clear*/ /*_.IFELSE___V61*/ curfptr[46] = 0 ;} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1601:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1601:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1729:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1729:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1601:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1729:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1601:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1729:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher matchfunx"; - BASILYS_LOCATION("warmelt-macro.bysl:1601:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1729:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.bysl:1601:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1729:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1601:/ apply.arg"); - argtab[3].bp_long = 1601; + BASILYS_LOCATION("warmelt-macro.bysl:1729:/ apply.arg"); + argtab[3].bp_long = 1729; /*_.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.bysl:1601:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1729:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1601:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1729:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1601:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1729:/ 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.bysl:1603:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1731:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V67*/ curfptr[46] = /*_.PAIR_TAIL__V66*/ curfptr[45];; - BASILYS_LOCATION("warmelt-macro.bysl:1604:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1732:/ block"); /*block*/{ /*_.AFA__V69*/ curfptr[68] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1605:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1733:/ cond"); /*cond*/ if (/*_.AFA__V69*/ curfptr[68]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1605:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1605:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1733:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1733:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1606:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1734:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1606:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1734:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:1606:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1734:/ 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.bysl:1606:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1734:/ 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.bysl:1605:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1733:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V71*/ curfptr[70] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1605:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1733:/ clear"); /*clear*/ /*_.SETQ___V72*/ curfptr[71] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1605:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1733:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1605:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1733:/ block"); /*block*/{ /*block*/{ @@ -14757,132 +16306,132 @@ BASILYS_LOCATION("warmelt-macro.bysl:1544:/ block"); ; /*_.LET___V68*/ curfptr[39] = /*_.IFELSE___V70*/ curfptr[69];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1604:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1732:/ clear"); /*clear*/ /*_.AFA__V69*/ curfptr[68] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1604:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1732:/ clear"); /*clear*/ /*_.IFELSE___V70*/ curfptr[69] = 0 ;} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1609:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1609:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1737:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1737:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1609:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1737:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1609:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1737:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher applyfunx"; - BASILYS_LOCATION("warmelt-macro.bysl:1609:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1737:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.bysl:1609:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1737:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1609:/ apply.arg"); - argtab[3].bp_long = 1609; + BASILYS_LOCATION("warmelt-macro.bysl:1737:/ apply.arg"); + argtab[3].bp_long = 1737; /*_.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.bysl:1609:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1737:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1609:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1737:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ curfptr[71] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1609:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1737:/ 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.bysl:1611:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1739:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V76*/ curfptr[69] = /*_.PAIR_TAIL__V75*/ curfptr[68];; - BASILYS_LOCATION("warmelt-macro.bysl:1612:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1740:/ block"); /*block*/{ /*_.DTA__V78*/ curfptr[77] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1613:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1741:/ cond"); /*cond*/ if (/*_.DTA__V78*/ curfptr[77]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1613:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1613:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1741:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1741:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1614:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1742:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1614:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1742:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:1614:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1742:/ 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.bysl:1614:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1742:/ 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.bysl:1613:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1741:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V80*/ curfptr[79] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1613:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1741:/ clear"); /*clear*/ /*_.SETQ___V81*/ curfptr[80] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1613:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1741:/ cond.else"); /*_.IF___V79*/ curfptr[78] = NULL;; } ; /*_.LET___V77*/ curfptr[71] = /*_.IF___V79*/ curfptr[78];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1612:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1740:/ clear"); /*clear*/ /*_.DTA__V78*/ curfptr[77] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1612:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1740:/ clear"); /*clear*/ /*_.IF___V79*/ curfptr[78] = 0 ;} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1617:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1617:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1745:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1745:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1617:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1745:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1617:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1745:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher datax"; - BASILYS_LOCATION("warmelt-macro.bysl:1617:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1745:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.bysl:1617:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1745:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1617:/ apply.arg"); - argtab[3].bp_long = 1617; + BASILYS_LOCATION("warmelt-macro.bysl:1745:/ apply.arg"); + argtab[3].bp_long = 1745; /*_.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.bysl:1617:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1745:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1617:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1745:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V83*/ curfptr[80] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1617:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1745:/ 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.bysl:1619:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1747:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V85*/ curfptr[78] = /*_.PAIR_TAIL__V84*/ curfptr[77];; - BASILYS_LOCATION("warmelt-macro.bysl:1620:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1748:/ cond"); /*cond*/ if (/*_.CURPAIR__V15*/ curfptr[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1620:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1620:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1748:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1748:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "extra for (DEFUNMATCHER <symb> <ins> <outs> <matchfun> <applyfun> [<data>])"), (basilys_ptr_t)0); @@ -14890,332 +16439,332 @@ BASILYS_LOCATION("warmelt-macro.bysl:1544:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1622:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1750:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1626:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1754:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1626:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1754:/ 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.bysl:1626:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1754:/ 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.bysl:1626:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1754:/ 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.bysl:1626:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1754:/ 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.bysl:1626:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1754:/ 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.bysl:1626:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1754:/ 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.bysl:1626:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1754:/ 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.bysl:1626:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1754:/ 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.bysl:1626:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1754:/ 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.bysl:1637:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1765:/ 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.bysl:1636:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1764:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1636:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1764:/ 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.bysl:1636:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1764:/ 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.bysl:1636:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1764:/ 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.bysl:1636:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1764:/ 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.bysl:1636:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1764:/ 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.bysl:1636:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1764:/ 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.bysl:1636:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1764:/ 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.bysl:1636:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1764:/ 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.bysl:1646:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1774:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1646:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1774:/ 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.bysl:1646:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1774:/ 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.bysl:1646:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1774:/ 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.bysl:1646:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1774:/ 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.bysl:1652:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1780:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1652:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1780:/ 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.bysl:1653:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1653:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1781:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1781:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1653:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1781:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1653:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1781:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher fmbind"; - BASILYS_LOCATION("warmelt-macro.bysl:1653:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1781:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.bysl:1653:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1781:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1653:/ apply.arg"); - argtab[3].bp_long = 1653; + BASILYS_LOCATION("warmelt-macro.bysl:1781:/ apply.arg"); + argtab[3].bp_long = 1781; /*_.DEBUG_MSG_FUN__V96*/ curfptr[95] = 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___V95*/ curfptr[94] = /*_.DEBUG_MSG_FUN__V96*/ curfptr[95];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1653:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1781:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1653:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1781:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V96*/ curfptr[95] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1653:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1781:/ cppif.else"); /*_.IFCPP___V95*/ curfptr[94] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1654:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1654:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1782:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1782:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1654:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1782:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1654:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1782:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher return sdfum"; - BASILYS_LOCATION("warmelt-macro.bysl:1654:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1782:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.bysl:1654:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1782:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1654:/ apply.arg"); - argtab[3].bp_long = 1654; + BASILYS_LOCATION("warmelt-macro.bysl:1782:/ apply.arg"); + argtab[3].bp_long = 1782; /*_.DEBUG_MSG_FUN__V98*/ curfptr[97] = 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___V97*/ curfptr[95] = /*_.DEBUG_MSG_FUN__V98*/ curfptr[97];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1654:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1782:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1654:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1782:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V98*/ curfptr[97] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1654:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1782:/ cppif.else"); /*_.IFCPP___V97*/ curfptr[95] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1655:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1783:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SDFUM__V87*/ curfptr[86];; - BASILYS_LOCATION("warmelt-macro.bysl:1655:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1783:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V86*/ curfptr[80] = /*_.RETURN___V99*/ curfptr[97];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1622:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1750:/ clear"); /*clear*/ /*_.SDFUM__V87*/ curfptr[86] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1622:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1750:/ clear"); /*clear*/ /*_.NAMED_NAME__V89*/ curfptr[88] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1622:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1750:/ clear"); /*clear*/ /*_.FUMA__V90*/ curfptr[89] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1622:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1750:/ clear"); /*clear*/ /*_.FMBIND__V92*/ curfptr[91] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1622:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1750:/ clear"); /*clear*/ /*_.PUT_ENV__V94*/ curfptr[93] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1622:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1750:/ clear"); /*clear*/ /*_.IFCPP___V95*/ curfptr[94] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1622:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1750:/ clear"); /*clear*/ /*_.IFCPP___V97*/ curfptr[95] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1622:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1750:/ clear"); /*clear*/ /*_.RETURN___V99*/ curfptr[97] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V86*/ curfptr[80];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.SYMB__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.SFORMALS__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.MATCHFORMAL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.INFORMALS__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.OUTFORMALS__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.MATCHFUNX__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.APPLYFUNX__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.DATAX__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.IF___V26*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.PAIR_TAIL__V29*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.SETQ___V30*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.LET___V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.PAIR_TAIL__V49*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.SETQ___V50*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.PAIR_HEAD__V51*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V52*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.SETQ___V53*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L11*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_#NOT__L12*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.IF___V54*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.PAIR_TAIL__V57*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.SETQ___V58*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.LET___V59*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.IFCPP___V64*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.PAIR_TAIL__V66*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.SETQ___V67*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.LET___V68*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.IFCPP___V73*/ curfptr[70] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.PAIR_TAIL__V75*/ curfptr[68] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.SETQ___V76*/ curfptr[69] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.LET___V77*/ curfptr[71] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.IFCPP___V82*/ curfptr[79] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.PAIR_TAIL__V84*/ curfptr[77] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.SETQ___V85*/ curfptr[78] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1676:/ clear"); /*clear*/ /*_.LET___V86*/ curfptr[80] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -15226,14 +16775,14 @@ basilys_trace_end("MEXPAND_DEFUNMATCHER", callcount); basilys_topframe = (struc #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_29_MEXPAND_DEFUNMATCHER*/ +} /*end rout_31_MEXPAND_DEFUNMATCHER*/ static basilys_ptr_t -rout_30_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_32_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -15244,7 +16793,7 @@ rout_30_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_30_LAMBDA__st { unsigned nbvar; + struct frame_rout_32_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -15276,38 +16825,38 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1584:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1712:/ getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1584:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1712:/ 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.bysl:1584:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:1712:/ block"); /*block*/{ /*_#I__L2*/ curfnum[1] = ((/*_#IX__L1*/ curfnum[0]) > (0));; - BASILYS_LOCATION("warmelt-macro.bysl:1584:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1712:/ cond"); /*cond*/ if (/*_#I__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1584:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1584:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1712:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1712:/ block"); /*block*/{ /*_#I__L3*/ curfnum[2] = ((/*_#IX__L1*/ curfnum[0]) - (1));; 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.bysl:1584:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1712:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1584:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1712:/ clear"); /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;} ; @@ -15318,14 +16867,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_30_LAMBDA_*/ +} /*end rout_32_LAMBDA_*/ static basilys_ptr_t -rout_31_MEXPAND_DEFUN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_33_MEXPAND_DEFUN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -15336,7 +16885,7 @@ rout_31_MEXPAND_DEFUN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, con #define callcount 0L #endif - struct frame_rout_31_MEXPAND_DEFUN_st { unsigned nbvar; + struct frame_rout_33_MEXPAND_DEFUN_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -15368,18 +16917,18 @@ basilys_trace_start("MEXPAND_DEFUN", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ 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.bysl:1663:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ 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); @@ -15388,26 +16937,26 @@ basilys_trace_start("MEXPAND_DEFUN", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:1663:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:1791:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1664:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1664:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1792:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1792:/ 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.bysl:1664:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1792:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1664:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1792:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1664:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1792:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1664:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1792:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1664)?(1664):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1792)?(1792):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -15416,34 +16965,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:1663:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1664:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1792:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1664:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1792:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1664:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1792:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1665:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1665:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1793:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1793:/ 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.bysl:1665:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1793:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1665:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1793:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1665:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1793:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1665:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1793:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1665)?(1665):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1793)?(1793):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -15452,57 +17001,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:1663:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1665:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1793:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1665:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1793:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1665:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1793:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1666:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1666:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1794:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1794:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1666:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1794:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1666:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1794:/ apply.arg"); argtab[0].bp_cstring = "mexp.defun sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:1666:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1794:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1666:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1794:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1666:/ apply.arg"); - argtab[3].bp_long = 1666; + BASILYS_LOCATION("warmelt-macro.bysl:1794:/ apply.arg"); + argtab[3].bp_long = 1794; /*_.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.bysl:1666:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1794:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1666:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1794:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1666:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1794:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1667:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1795:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1667:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1795:/ 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.bysl:1668:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1796:/ 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; }; ; @@ -15512,17 +17061,17 @@ BASILYS_LOCATION("warmelt-macro.bysl:1663:/ 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.bysl:1671:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1799:/ 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.bysl:1673:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1801:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1673:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1673:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1801:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1801:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing symbol for DEFUN"), (basilys_ptr_t)0); @@ -15532,90 +17081,90 @@ BASILYS_LOCATION("warmelt-macro.bysl:1663:/ block"); ; /*_.PAIR_TAIL__V18*/ curfptr[17] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1675:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1803:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_TAIL__V18*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.bysl:1677:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1805:/ 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.bysl:1679:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1807:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1679:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1679:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1807:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1807:/ 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.bysl:1679:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1807:/ clear"); /*clear*/ /*_.MAKE_MULTIPLE__V23*/ curfptr[22] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1679:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1807:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1679:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1807:/ 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.bysl:1681:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1809:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1681:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1681:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1809:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1809:/ block"); /*block*/{ /*_.PAIR_HEAD__V25*/ curfptr[24] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:1682:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1810:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1682:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1810:/ 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.bysl:1681:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1809:/ clear"); /*clear*/ /*_.PAIR_HEAD__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1681:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1809:/ clear"); /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V26*/ curfptr[25] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1681:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1809:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1681:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1809:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1684:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1684:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1812:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1812:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1684:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1812:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1684:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1812:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defun strange arglist curpairhead"; - BASILYS_LOCATION("warmelt-macro.bysl:1684:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1812:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.bysl:1684:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1812:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1684:/ apply.arg"); - argtab[3].bp_long = 1684; + BASILYS_LOCATION("warmelt-macro.bysl:1812:/ apply.arg"); + argtab[3].bp_long = 1812; /*_.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.bysl:1684:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1812:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1684:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1812:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1684:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1812:/ cppif.else"); /*_.IFCPP___V27*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -15623,26 +17172,26 @@ BASILYS_LOCATION("warmelt-macro.bysl:1663:/ block"); 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.bysl:1683:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1811:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.THE_NULL__V29*/ curfptr[25];;} ; /*_.IFELSE___V24*/ curfptr[22] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1681:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1809:/ clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1681:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1809:/ clear"); /*clear*/ /*_.THE_NULL__V29*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1681:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1809:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; } ; /*_.BTUP__V22*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1679:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1807:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1679:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1807:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[22] = 0 ;} ; } @@ -15651,63 +17200,63 @@ BASILYS_LOCATION("warmelt-macro.bysl:1663:/ 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.bysl:1689:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1817:/ cond"); /*cond*/ if (/*_#NOT__L9*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1689:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1689:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1817:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1817:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1691:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1691:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1819:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1819:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1691:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1819:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1691:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1819:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defun strange btup"; - BASILYS_LOCATION("warmelt-macro.bysl:1691:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1819:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9]; - BASILYS_LOCATION("warmelt-macro.bysl:1691:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1819:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1691:/ apply.arg"); - argtab[3].bp_long = 1691; + BASILYS_LOCATION("warmelt-macro.bysl:1819:/ apply.arg"); + argtab[3].bp_long = 1819; /*_.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.bysl:1691:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1819:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1691:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1819:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1691:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1819:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing formal arguments for DEFUN"), (basilys_ptr_t)0); - BASILYS_LOCATION("warmelt-macro.bysl:1690:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1818:/ block"); /*block*/{} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1689:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1817:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[24] = 0 ;} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1693:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1821:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1693:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:1821:/ 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.bysl:1693:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:1821:/ 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]))); @@ -15715,174 +17264,174 @@ BASILYS_LOCATION("warmelt-macro.bysl:1663:/ block"); ; /*_.LAMBDA___V33*/ curfptr[29] = /*_.LAMBDA___V34*/ curfptr[22];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1693:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1821:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1693:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1821:/ 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.bysl:1694:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1822:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V37*/ curfptr[36] = /*_.PAIR_TAIL__V36*/ curfptr[24];; - BASILYS_LOCATION("warmelt-macro.bysl:1695:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1823:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1695:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1823:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1695:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1823:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWENV__V17*/ curfptr[16]; - BASILYS_LOCATION("warmelt-macro.bysl:1695:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1823:/ 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.bysl:1697:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1825:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1697:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1825:/ 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.bysl:1697:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1825:/ 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.bysl:1697:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1825:/ 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.bysl:1697:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1825:/ 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.bysl:1697:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1825:/ 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.bysl:1704:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1832:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1704:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:1832:/ 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.bysl:1704:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1832:/ 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.bysl:1704:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1832:/ 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.bysl:1709:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1837:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1709:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1837:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:1709:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1837:/ 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.bysl:1710:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1838:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1710:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1838:/ 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.bysl:1695:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1823:/ clear"); /*clear*/ /*_.BODYTUP__V39*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1695:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1823:/ clear"); /*clear*/ /*_.SDEFUN__V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1695:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1823:/ clear"); /*clear*/ /*_.FBIND__V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1695:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1823:/ clear"); /*clear*/ /*_.WARN_IF_REDEFINED__V44*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1695:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1823:/ clear"); /*clear*/ /*_.PUT_ENV__V45*/ curfptr[44] = 0 ;} ; /*_.LET___V20*/ curfptr[19] = /*_.LET___V38*/ curfptr[37];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1677:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1805:/ clear"); /*clear*/ /*_.CURPAIRHEAD__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1677:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1805:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1677:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1805:/ clear"); /*clear*/ /*_.BTUP__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1677:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1805:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L8*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1677:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1805:/ clear"); /*clear*/ /*_#NOT__L9*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1677:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1805:/ clear"); /*clear*/ /*_.LAMBDA___V33*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1677:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1805:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V35*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1677:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1805:/ clear"); /*clear*/ /*_.PAIR_TAIL__V36*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1677:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1805:/ clear"); /*clear*/ /*_.SETQ___V37*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1677:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1805:/ clear"); /*clear*/ /*_.LET___V38*/ curfptr[37] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1667:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1795:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1667:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1795:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1667:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1795:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1667:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1795:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1667:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1795:/ clear"); /*clear*/ /*_.SYMB__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1667:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1795:/ clear"); /*clear*/ /*_.NEWENV__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1667:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1795:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1667:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1795:/ clear"); /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1667:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1795:/ clear"); /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1667:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1795:/ clear"); /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -15893,14 +17442,14 @@ basilys_trace_end("MEXPAND_DEFUN", callcount); basilys_topframe = (struct callf #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_31_MEXPAND_DEFUN*/ +} /*end rout_33_MEXPAND_DEFUN*/ static basilys_ptr_t -rout_32_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_34_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -15911,7 +17460,7 @@ rout_32_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_32_LAMBDA__st { unsigned nbvar; + struct frame_rout_34_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -15943,32 +17492,32 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1693:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1821:/ getarg"); /*_.FB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:1693:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:1821:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1693:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1821:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1693:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1821:/ 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.bysl:1693:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1821:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:1693:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1821:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1693:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1821:/ clear"); /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;} ; @@ -15979,14 +17528,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_32_LAMBDA_*/ +} /*end rout_34_LAMBDA_*/ static basilys_ptr_t -rout_33_SCAN_DEFCLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_35_SCAN_DEFCLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -15997,7 +17546,7 @@ rout_33_SCAN_DEFCLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, con #define callcount 0L #endif - struct frame_rout_33_SCAN_DEFCLASS_st { unsigned nbvar; + struct frame_rout_35_SCAN_DEFCLASS_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -16029,18 +17578,18 @@ basilys_trace_start("SCAN_DEFCLASS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ 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.bysl:1720:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ 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); @@ -16049,9 +17598,9 @@ basilys_trace_start("SCAN_DEFCLASS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:1848:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ block"); /*block*/{ /*_.PREDEF__V6*/ curfptr[5] = (/*nil*/NULL);; /*_.SUPERNAM__V7*/ curfptr[6] = (/*nil*/NULL);; @@ -16059,11 +17608,11 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); /*_.SUPERCLASS__V9*/ curfptr[8] = (/*nil*/NULL);; /*_.FIELDNAMS__V10*/ curfptr[9] = (/*nil*/NULL);; /*_.DOCSTR__V11*/ curfptr[10] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:1727:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1855:/ 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.bysl:1728:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1856:/ 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; }; ; @@ -16076,44 +17625,44 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1733:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1733:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1861:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1861:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1733:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1861:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1733:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1861:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:1733:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1861:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1733:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1861:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1733:/ apply.arg"); - argtab[3].bp_long = 1733; + BASILYS_LOCATION("warmelt-macro.bysl:1861:/ apply.arg"); + argtab[3].bp_long = 1861; /*_.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.bysl:1733:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1861:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1733:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1861:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1733:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1861:/ 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.bysl:1734:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1862:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1734:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1734:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1862:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1862:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing symbol for DEFCLASS"), (basilys_ptr_t)0); @@ -16123,28 +17672,28 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); ; /*_.PAIR_TAIL__V20*/ curfptr[18] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; - BASILYS_LOCATION("warmelt-macro.bysl:1736:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1864:/ compute"); /*_.CURPAIR__V16*/ curfptr[15] = /*_.SETQ___V21*/ curfptr[20] = /*_.PAIR_TAIL__V20*/ curfptr[18];; - BASILYS_LOCATION("warmelt-macro.bysl:1737:/ loop"); - /*loop*/{ labloop_SCANLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1737:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.bysl:1865:/ loop"); + /*loop*/{ labloop_SCANLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1865:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:1737:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1865:/ 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.bysl:1738:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1866:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1738:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1738:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1866:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1866:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1738:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1866:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1738:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1866:/ compute"); /*_.SCANLOOP__V23*/ curfptr[22] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1738:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:1866:/ exit"); /*exit*/{ goto labexit_SCANLOOP_1;} ;} @@ -16153,7 +17702,7 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1739:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1867:/ block"); /*block*/{ /*_.CURKW__V25*/ curfptr[24] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; @@ -16161,10 +17710,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ 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.bysl:1740:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1868:/ cond"); /*cond*/ if (/*_#NOT__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1740:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1740:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1868:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1868:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting keyword in DEFCLASS"), (basilys_ptr_t)0); @@ -16174,27 +17723,27 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); ; /*_.PAIR_TAIL__V26*/ curfptr[25] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; - BASILYS_LOCATION("warmelt-macro.bysl:1742:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1870:/ compute"); /*_.CURPAIR__V16*/ curfptr[15] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];; - BASILYS_LOCATION("warmelt-macro.bysl:1743:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1871:/ 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.bysl:1744:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1872:/ 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.bysl:1746:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1874:/ cond"); /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1746:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1746:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1874:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1874:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1747:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1875:/ cond"); /*cond*/ if (/*_.SUPERNAM__V7*/ curfptr[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1747:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1747:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1875:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1875:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "duplicate super in DEFCLASS"), (basilys_ptr_t)0); @@ -16206,10 +17755,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ 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.bysl:1748:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1876:/ cond"); /*cond*/ if (/*_#NOT__L9*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1748:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1748:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1876:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1876:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad super in DEFCLASS"), (basilys_ptr_t)0); @@ -16217,129 +17766,129 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1750:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1878:/ compute"); /*_.SUPERNAM__V7*/ curfptr[6] = /*_.SETQ___V33*/ curfptr[32] = /*_.CURVAL__V29*/ curfptr[28];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1751:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1751:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1879:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1879:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1751:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1879:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1751:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1879:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass supernam"; - BASILYS_LOCATION("warmelt-macro.bysl:1751:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1879:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9]; - BASILYS_LOCATION("warmelt-macro.bysl:1751:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1879:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1751:/ apply.arg"); - argtab[3].bp_long = 1751; + BASILYS_LOCATION("warmelt-macro.bysl:1879:/ apply.arg"); + argtab[3].bp_long = 1879; /*_.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.bysl:1751:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1879:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1751:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1879:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1751:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1879:/ cppif.else"); /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1752:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1880:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1752:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1880:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1752:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1880:/ 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.bysl:1755:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1883:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ curfnum[9]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1755:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1755:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1883:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1883:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1756:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1884:/ compute"); /*_.SUPERBIND__V8*/ curfptr[7] = /*_.SETQ___V39*/ curfptr[38] = /*_.SUPERB__V37*/ curfptr[36];; - BASILYS_LOCATION("warmelt-macro.bysl:1757:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1885:/ 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.bysl:1757:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1885:/ compute"); /*_.SUPERCLASS__V9*/ curfptr[8] = /*_.SETQ___V41*/ curfptr[40] = /*_.CBIND_CLASS__V40*/ curfptr[39];; - BASILYS_LOCATION("warmelt-macro.bysl:1755:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1883:/ block"); /*block*/{ /*_.PROGN___V42*/ curfptr[41] = /*_.SETQ___V41*/ curfptr[40];;} ; /*_.IFELSE___V38*/ curfptr[37] = /*_.PROGN___V42*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1755:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1883:/ clear"); /*clear*/ /*_.SETQ___V39*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1755:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1883:/ clear"); /*clear*/ /*_.CBIND_CLASS__V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1755:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1883:/ clear"); /*clear*/ /*_.SETQ___V41*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1755:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1883:/ clear"); /*clear*/ /*_.PROGN___V42*/ curfptr[41] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1755:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1883:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1755:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1883:/ 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.bysl:1759:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1887:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1759:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1759:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1887:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1887:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1760:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1888:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1760:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1888:/ 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.bysl:1761:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1889:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1761:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1761:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1889:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1889:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1763:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1891:/ compute"); /*_.SUPERBIND__V8*/ curfptr[7] = /*_.SETQ___V47*/ curfptr[46] = /*_.SUPERB__V37*/ curfptr[36];; - BASILYS_LOCATION("warmelt-macro.bysl:1764:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1892:/ compute"); /*_.SUPERCLASS__V9*/ curfptr[8] = /*_.SETQ___V48*/ curfptr[47] = /*_.SUPERVAL__V45*/ curfptr[40];; - BASILYS_LOCATION("warmelt-macro.bysl:1762:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1890:/ block"); /*block*/{ /*_.PROGN___V49*/ curfptr[48] = /*_.SETQ___V48*/ curfptr[47];;} ; /*_.IFELSE___V46*/ curfptr[41] = /*_.PROGN___V49*/ curfptr[48];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1761:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1889:/ clear"); /*clear*/ /*_.SETQ___V47*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1761:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1889:/ clear"); /*clear*/ /*_.SETQ___V48*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1761:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1889:/ clear"); /*clear*/ /*_.PROGN___V49*/ curfptr[48] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1761:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1889:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1761:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1889:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1767:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1895:/ 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; }; ; @@ -16349,168 +17898,168 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); /*clear*/ /*_.IFELSE___V46*/ curfptr[41] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1761:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1889:/ clear"); /*clear*/ /*_.NAMED_NAME__V50*/ curfptr[46] = 0 ;} ; } ; /*_.LET___V44*/ curfptr[39] = /*_.IFELSE___V46*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1760:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1888:/ clear"); /*clear*/ /*_.SUPERVAL__V45*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1760:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1888:/ clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1760:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1888:/ clear"); /*clear*/ /*_.IFELSE___V46*/ curfptr[41] = 0 ;} ; /*_.IFELSE___V43*/ curfptr[38] = /*_.LET___V44*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1759:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1887:/ clear"); /*clear*/ /*_.LET___V44*/ curfptr[39] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1759:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1887:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1759:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1887:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1770:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1770:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1898:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1898:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1770:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1898:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1770:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1898:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass superb"; - BASILYS_LOCATION("warmelt-macro.bysl:1770:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1898:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.bysl:1770:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1898:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1770:/ apply.arg"); - argtab[3].bp_long = 1770; + BASILYS_LOCATION("warmelt-macro.bysl:1898:/ apply.arg"); + argtab[3].bp_long = 1898; /*_.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.bysl:1770:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1898:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1770:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1898:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1770:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1898:/ cppif.else"); /*_.IFCPP___V51*/ curfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1771:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1771:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1899:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1899:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1771:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1899:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1771:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1899:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass env"; - BASILYS_LOCATION("warmelt-macro.bysl:1771:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1899:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.bysl:1771:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1899:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1771:/ apply.arg"); - argtab[3].bp_long = 1771; + BASILYS_LOCATION("warmelt-macro.bysl:1899:/ apply.arg"); + argtab[3].bp_long = 1899; /*_.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.bysl:1771:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1899:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1771:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1899:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1771:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1899:/ cppif.else"); /*_.IFCPP___V53*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1773:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1901:/ 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_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.bysl:1769:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1897:/ block"); /*block*/{} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1759:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1887:/ clear"); /*clear*/ /*_.IFCPP___V51*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1759:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1887:/ clear"); /*clear*/ /*_.IFCPP___V53*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1759:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1887:/ clear"); /*clear*/ /*_.NAMED_NAME__V55*/ curfptr[41] = 0 ;} ; } ; /*_.IFELSE___V38*/ curfptr[37] = /*_.IFELSE___V43*/ curfptr[38];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1755:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1883:/ clear"); /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1755:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1883:/ clear"); /*clear*/ /*_.IFELSE___V43*/ curfptr[38] = 0 ;} ; } ; /*_.LET___V36*/ curfptr[34] = /*_.IFELSE___V38*/ curfptr[37];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1752:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1880:/ clear"); /*clear*/ /*_.SUPERB__V37*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1752:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1880:/ clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1752:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1880:/ clear"); /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1746:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1874:/ block"); /*block*/{ /*_.PROGN___V56*/ curfptr[39] = /*_.LET___V36*/ curfptr[34];;} ; /*_.IFELSE___V32*/ curfptr[31] = /*_.PROGN___V56*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1746:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1874:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1746:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1874:/ clear"); /*clear*/ /*_#NOT__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1746:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1874:/ clear"); /*clear*/ /*_.SETQ___V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1746:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1874:/ clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1746:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1874:/ clear"); /*clear*/ /*_.LET___V36*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1746:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1874:/ clear"); /*clear*/ /*_.PROGN___V56*/ curfptr[39] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1746:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1874:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1746:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1874:/ block"); /*block*/{ /*_#__L16*/ curfnum[12] = ((/*_.CURKW__V25*/ curfptr[24]) == ((/*!konst_8_FIELDS*/ curfrout->tabval[8])));; - BASILYS_LOCATION("warmelt-macro.bysl:1777:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1905:/ cond"); /*cond*/ if (/*_#__L16*/ curfnum[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1777:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1777:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1905:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1905:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1778:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1906:/ cond"); /*cond*/ if (/*_.FIELDNAMS__V10*/ curfptr[9]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1778:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1778:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1906:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1906:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "duplicate fields in defclass"), (basilys_ptr_t)0); @@ -16518,17 +18067,17 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1779:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1907:/ cond"); /*cond*/ if (/*_.CURVAL__V29*/ curfptr[28]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1779:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1779:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1907:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1907:/ 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.bysl:1780:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1908:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L17*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1780:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1780:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1908:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1908:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad fields in defclass"), (basilys_ptr_t)0); @@ -16537,47 +18086,47 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1779:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1907:/ clear"); /*clear*/ /*_#IS_NOT_A__L17*/ curfnum[11] = 0 ;} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1782:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1782:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ cond"); /*cond*/ if (/*_.CURVAL__V29*/ curfptr[28]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1782:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1782:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1782:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ 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.bysl:1782:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V60*/ curfptr[46] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1782:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1910:/ cond.else"); /*_.NAMLIST__V59*/ curfptr[47] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1783:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1911:/ cond"); /*cond*/ if (/*_.CURVAL__V29*/ curfptr[28]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1783:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1783:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1911:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1911:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1783:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1911:/ 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.bysl:1783:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1911:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V62*/ curfptr[38] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1783:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1911:/ cond.else"); /*_.NAMLOC__V61*/ curfptr[41] = NULL;; } @@ -16589,28 +18138,28 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ 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.bysl:1788:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1916:/ compute"); /*_.FIELDSLOC__V14*/ curfptr[13] = /*_.SETQ___V65*/ curfptr[32] = /*_.NAMLOC__V61*/ curfptr[41];; - BASILYS_LOCATION("warmelt-macro.bysl:1789:/ loop"); - /*loop*/{ labloop_NAMLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1789:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.bysl:1917:/ loop"); + /*loop*/{ labloop_NAMLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1917:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:1789:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1917:/ 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.bysl:1790:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1918:/ cond"); /*cond*/ if (/*_#NOT__L21*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1790:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1790:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1918:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1918:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1790:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1918:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1790:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1918:/ compute"); /*_.NAMLOOP__V67*/ curfptr[34] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1790:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:1918:/ exit"); /*exit*/{ goto labexit_NAMLOOP_1;} ;} @@ -16619,7 +18168,7 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1791:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1919:/ block"); /*block*/{ /*_.CURNAM__V68*/ curfptr[39] = (basilys_pair_head((basilys_ptr_t)(/*_.NAMPAIR__V63*/ curfptr[36])));; @@ -16627,10 +18176,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ 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.bysl:1792:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1920:/ cond"); /*cond*/ if (/*_#NOT__L23*/ curfnum[22]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1792:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1792:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1920:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1920:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.NAMLOC__V61*/ curfptr[41]), ( "non name field in DEFCLASS"), (basilys_ptr_t)0); @@ -16641,91 +18190,91 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); 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.bysl:1791:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1919:/ clear"); /*clear*/ /*_.CURNAM__V68*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1791:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1919:/ clear"); /*clear*/ /*_#IS_A__L22*/ curfnum[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1791:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1919:/ 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.bysl:1796:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1924:/ 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.bysl:1797:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1925:/ compute"); /*_#IX__L19*/ curfnum[7] = /*_#SETQ___L25*/ curfnum[22] = /*_#I__L24*/ curfnum[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1789:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1917:/ clear"); /*clear*/ /*_#IS_PAIR__L20*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1789:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1917:/ clear"); /*clear*/ /*_#NOT__L21*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1789:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1917:/ clear"); /*clear*/ /*_.PAIR_TAIL__V69*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1789:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1917:/ clear"); /*clear*/ /*_.SETQ___V70*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1789:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1917:/ clear"); /*clear*/ /*_#I__L24*/ curfnum[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1789:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1917:/ clear"); /*clear*/ /*_#SETQ___L25*/ curfnum[22] = 0 ;} ; ; goto labloop_NAMLOOP_1; - labexit_NAMLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1789:/ loopepilog"); + labexit_NAMLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1917:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V66*/ curfptr[33] = /*_.NAMLOOP__V67*/ curfptr[34];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1799:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1927:/ 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.bysl:1782:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ clear"); /*clear*/ /*_.NAMLIST__V59*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1782:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ clear"); /*clear*/ /*_.NAMLOC__V61*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1782:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ clear"); /*clear*/ /*_#NBNAM__L18*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1782:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ clear"); /*clear*/ /*_#IX__L19*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1782:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ clear"); /*clear*/ /*_.NAMPAIR__V63*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1782:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ clear"); /*clear*/ /*_.NAMTUPL__V64*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1782:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ clear"); /*clear*/ /*_.SETQ___V65*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1782:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ clear"); /*clear*/ /*_.FOREVER___V66*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1782:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1910:/ clear"); /*clear*/ /*_.SETQ___V71*/ curfptr[39] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1777:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1905:/ block"); /*block*/{ /*_.PROGN___V72*/ curfptr[46] = /*_.LET___V58*/ curfptr[40];;} ; /*_.IFELSE___V57*/ curfptr[48] = /*_.PROGN___V72*/ curfptr[46];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1905:/ clear"); /*clear*/ /*_.LET___V58*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1905:/ clear"); /*clear*/ /*_.PROGN___V72*/ curfptr[46] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1777:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1905:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1777:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1905:/ block"); /*block*/{ /*_#__L26*/ curfnum[8] = ((/*_.CURKW__V25*/ curfptr[24]) == ((/*!konst_11_PREDEF*/ curfrout->tabval[11])));; - BASILYS_LOCATION("warmelt-macro.bysl:1801:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1929:/ cond"); /*cond*/ if (/*_#__L26*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1801:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1801:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1929:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1929:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1802:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1930:/ cond"); /*cond*/ if (/*_.PREDEF__V6*/ curfptr[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1802:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1802:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1930:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1930:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "duplicate predef in DEFCLASS"), (basilys_ptr_t)0); @@ -16733,42 +18282,42 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1803:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1931:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1803:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1931:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:1803:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1931:/ 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.bysl:1803:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1931:/ 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.bysl:1805:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1933:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L27*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1805:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1933:/ cond.then"); /*_.IFELSE___V76*/ curfptr[36] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1805:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1933:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1805:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1933:/ 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.bysl:1808:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1936:/ cond"); /*cond*/ if (/*_#IS_A__L28*/ curfnum[21]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1808:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1936:/ cond.then"); /*_.IFELSE___V77*/ curfptr[37] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1808:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1936:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1808:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1936:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad predef in DEFCLASS"), (basilys_ptr_t)0); - BASILYS_LOCATION("warmelt-macro.bysl:1811:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1939:/ block"); /*block*/{} ; /*epilog*/} @@ -16777,45 +18326,45 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); ; /*_.IFELSE___V76*/ curfptr[36] = /*_.IFELSE___V77*/ curfptr[37];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1805:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1933:/ clear"); /*clear*/ /*_#IS_A__L28*/ curfnum[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1805:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1933:/ clear"); /*clear*/ /*_.IFELSE___V77*/ curfptr[37] = 0 ;} ; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1801:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1929:/ block"); /*block*/{ /*_.PROGN___V78*/ curfptr[32] = /*_.IFELSE___V76*/ curfptr[36];;} ; /*_.IFELSE___V73*/ curfptr[38] = /*_.PROGN___V78*/ curfptr[32];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1801:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1929:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V74*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1801:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1929:/ clear"); /*clear*/ /*_.SETQ___V75*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1801:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1929:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L27*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1801:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1929:/ clear"); /*clear*/ /*_.IFELSE___V76*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1801:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1929:/ clear"); /*clear*/ /*_.PROGN___V78*/ curfptr[32] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1801:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1929:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1801:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1929:/ block"); /*block*/{ /*_#__L29*/ curfnum[22] = ((/*_.CURKW__V25*/ curfptr[24]) == ((/*!konst_13_DOCSTR*/ curfrout->tabval[13])));; - BASILYS_LOCATION("warmelt-macro.bysl:1816:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1944:/ cond"); /*cond*/ if (/*_#__L29*/ curfnum[22]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1816:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1816:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1944:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1944:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1817:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1945:/ cond"); /*cond*/ if (/*_.DOCSTR__V11*/ curfptr[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1817:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1817:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1945:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1945:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "duplicate docstr in DEFCLASS"), (basilys_ptr_t)0); @@ -16823,27 +18372,27 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1818:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1946:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1818:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1946:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:1818:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1946:/ 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.bysl:1818:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1946:/ 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.bysl:1819:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1947:/ cond"); /*cond*/ if (/*_#NOT__L31*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1819:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1819:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1947:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1947:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad docstr in DEFCLASS"), (basilys_ptr_t)0); @@ -16851,537 +18400,537 @@ BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1816:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1944:/ block"); /*block*/{} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1816:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1944:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V79*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1816:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1944:/ clear"); /*clear*/ /*_.SETQ___V80*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1816:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1944:/ clear"); /*clear*/ /*_#IS_STRING__L30*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1816:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1944:/ clear"); /*clear*/ /*_#NOT__L31*/ curfnum[7] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1816:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1944:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1816:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1944:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1824:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1952:/ 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_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.bysl:1822:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1950:/ block"); /*block*/{} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1816:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1944:/ clear"); /*clear*/ /*_.NAMED_NAME__V81*/ curfptr[40] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1801:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1929:/ clear"); /*clear*/ /*_#__L29*/ curfnum[22] = 0 ;} ; } ; /*_.IFELSE___V57*/ curfptr[48] = /*_.IFELSE___V73*/ curfptr[38];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1905:/ clear"); /*clear*/ /*_#__L26*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1905:/ clear"); /*clear*/ /*_.IFELSE___V73*/ curfptr[38] = 0 ;} ; } ; /*_.IFELSE___V32*/ curfptr[31] = /*_.IFELSE___V57*/ curfptr[48];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1746:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1874:/ clear"); /*clear*/ /*_#__L16*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1746:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1874:/ clear"); /*clear*/ /*_.IFELSE___V57*/ curfptr[48] = 0 ;} ; } ; /*_.LET___V28*/ curfptr[27] = /*_.IFELSE___V32*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1743:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1871:/ clear"); /*clear*/ /*_.CURVAL__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1743:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1871:/ clear"); /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1743:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1871:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1743:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1871:/ clear"); /*clear*/ /*_#__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1743:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1871:/ clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;} ; /*_.LET___V24*/ curfptr[23] = /*_.LET___V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1739:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1867:/ clear"); /*clear*/ /*_.CURKW__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1739:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1867:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1739:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1867:/ clear"); /*clear*/ /*_#NOT__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1739:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1867:/ clear"); /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1739:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1867:/ clear"); /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1739:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1867:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1865:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1865:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1865:/ clear"); /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;} ; ; goto labloop_SCANLOOP_1; - labexit_SCANLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1737:/ loopepilog"); + labexit_SCANLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1865:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V22*/ curfptr[21] = /*_.SCANLOOP__V23*/ curfptr[22];; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1827:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1827:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1955:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1955:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L32*/ curfnum[21] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1827:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1955:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1827:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1955:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns symb"; - BASILYS_LOCATION("warmelt-macro.bysl:1827:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1955:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[21]; - BASILYS_LOCATION("warmelt-macro.bysl:1827:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1955:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1827:/ apply.arg"); - argtab[3].bp_long = 1827; + BASILYS_LOCATION("warmelt-macro.bysl:1955:/ apply.arg"); + argtab[3].bp_long = 1955; /*_.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.bysl:1827:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1955:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1827:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1955:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V83*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1827:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1955:/ cppif.else"); /*_.IFCPP___V82*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1828:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1828:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1956:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1956:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L33*/ curfnum[11] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1828:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1956:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1828:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1956:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns loc"; - BASILYS_LOCATION("warmelt-macro.bysl:1828:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1956:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L33*/ curfnum[11]; - BASILYS_LOCATION("warmelt-macro.bysl:1828:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1956:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1828:/ apply.arg"); - argtab[3].bp_long = 1828; + BASILYS_LOCATION("warmelt-macro.bysl:1956:/ apply.arg"); + argtab[3].bp_long = 1956; /*_.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.bysl:1828:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1956:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1828:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1956:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V85*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1828:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1956:/ cppif.else"); /*_.IFCPP___V84*/ curfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1829:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1829:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1957:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1957:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L34*/ curfnum[9] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1829:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1957:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1829:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1957:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns supernam"; - BASILYS_LOCATION("warmelt-macro.bysl:1829:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1957:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L34*/ curfnum[9]; - BASILYS_LOCATION("warmelt-macro.bysl:1829:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1957:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1829:/ apply.arg"); - argtab[3].bp_long = 1829; + BASILYS_LOCATION("warmelt-macro.bysl:1957:/ apply.arg"); + argtab[3].bp_long = 1957; /*_.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.bysl:1829:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1957:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L34*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1829:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1957:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V87*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1829:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1957:/ cppif.else"); /*_.IFCPP___V86*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1830:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1830:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1958:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1958:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L35*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1830:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1958:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1830:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1958:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns superbinds"; - BASILYS_LOCATION("warmelt-macro.bysl:1830:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1958:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L35*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.bysl:1830:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1958:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1830:/ apply.arg"); - argtab[3].bp_long = 1830; + BASILYS_LOCATION("warmelt-macro.bysl:1958:/ apply.arg"); + argtab[3].bp_long = 1958; /*_.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.bysl:1830:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1958:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L35*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1830:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1958:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V89*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1830:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1958:/ cppif.else"); /*_.IFCPP___V88*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1831:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1831:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1959:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1959:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L36*/ curfnum[22] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1831:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1959:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1831:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1959:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns superclass"; - BASILYS_LOCATION("warmelt-macro.bysl:1831:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1959:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L36*/ curfnum[22]; - BASILYS_LOCATION("warmelt-macro.bysl:1831:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1959:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1831:/ apply.arg"); - argtab[3].bp_long = 1831; + BASILYS_LOCATION("warmelt-macro.bysl:1959:/ apply.arg"); + argtab[3].bp_long = 1959; /*_.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.bysl:1831:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1959:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L36*/ curfnum[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1831:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1959:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ curfptr[38] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1831:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1959:/ cppif.else"); /*_.IFCPP___V90*/ curfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1832:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1832:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1960:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1960:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L37*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1832:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1960:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1832:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1960:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns predef"; - BASILYS_LOCATION("warmelt-macro.bysl:1832:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1960:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L37*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.bysl:1832:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1960:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1832:/ apply.arg"); - argtab[3].bp_long = 1832; + BASILYS_LOCATION("warmelt-macro.bysl:1960:/ apply.arg"); + argtab[3].bp_long = 1960; /*_.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.bysl:1832:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1960:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L37*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1832:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1960:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1832:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1960:/ cppif.else"); /*_.IFCPP___V92*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1833:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1833:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1961:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1961:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L38*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1833:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1961:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1833:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1961:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns fieldnams"; - BASILYS_LOCATION("warmelt-macro.bysl:1833:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1961:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L38*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.bysl:1833:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1961:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1833:/ apply.arg"); - argtab[3].bp_long = 1833; + BASILYS_LOCATION("warmelt-macro.bysl:1961:/ apply.arg"); + argtab[3].bp_long = 1961; /*_.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.bysl:1833:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1961:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L38*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1833:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1961:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1833:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1961:/ cppif.else"); /*_.IFCPP___V94*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1834:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1834:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1962:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1962:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L39*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1834:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1962:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1834:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1962:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns fieldsloc"; - BASILYS_LOCATION("warmelt-macro.bysl:1834:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1962:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L39*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.bysl:1834:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1962:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1834:/ apply.arg"); - argtab[3].bp_long = 1834; + BASILYS_LOCATION("warmelt-macro.bysl:1962:/ apply.arg"); + argtab[3].bp_long = 1962; /*_.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.bysl:1834:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1962:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L39*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1834:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1962:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1834:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1962:/ cppif.else"); /*_.IFCPP___V96*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1835:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1835:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1963:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1963:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L40*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1835:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1963:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1835:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1963:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns docstr"; - BASILYS_LOCATION("warmelt-macro.bysl:1835:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1963:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L40*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.bysl:1835:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1963:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1835:/ apply.arg"); - argtab[3].bp_long = 1835; + BASILYS_LOCATION("warmelt-macro.bysl:1963:/ apply.arg"); + argtab[3].bp_long = 1963; /*_.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.bysl:1835:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1963:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L40*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1835:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1963:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V99*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1835:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1963:/ cppif.else"); /*_.IFCPP___V98*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1836:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1964:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1836:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1964:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:1836:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1964:/ 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.bysl:1837:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1965:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SYMB__V17*/ curfptr[16];; - BASILYS_LOCATION("warmelt-macro.bysl:1837:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.bysl:1965:/ 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.bysl:1837:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.bysl:1965:/ 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.bysl:1837:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.bysl:1965:/ 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.bysl:1837:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.bysl:1965:/ 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.bysl:1837:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.bysl:1965:/ 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.bysl:1837:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.bysl:1965:/ 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.bysl:1837:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.bysl:1965:/ 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.bysl:1837:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.bysl:1965:/ 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.bysl:1837:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1965:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V5*/ curfptr[4] = /*_.RETURN___V101*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.PREDEF__V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.SUPERNAM__V7*/ curfptr[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.SUPERBIND__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.SUPERCLASS__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.FIELDNAMS__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.DOCSTR__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.FIELDSLOC__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.LIST_FIRST__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.CURPAIR__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.SYMB__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.FOREVER___V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.IFCPP___V82*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.IFCPP___V84*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.IFCPP___V86*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.IFCPP___V88*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.IFCPP___V90*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.IFCPP___V92*/ curfptr[48] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.IFCPP___V94*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.IFCPP___V96*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.IFCPP___V98*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.WARN_IF_REDEFINED__V100*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); /*clear*/ /*_.RETURN___V101*/ curfptr[23] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[4];; - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ clear"); /*clear*/ /*_.LET___V5*/ curfptr[4] = 0 ;} ; @@ -17392,14 +18941,14 @@ basilys_trace_end("SCAN_DEFCLASS", callcount); basilys_topframe = (struct callf #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_33_SCAN_DEFCLASS*/ +} /*end rout_35_SCAN_DEFCLASS*/ static basilys_ptr_t -rout_34_MEXPAND_DEFCLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_36_MEXPAND_DEFCLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -17410,7 +18959,7 @@ rout_34_MEXPAND_DEFCLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, #define callcount 0L #endif - struct frame_rout_34_MEXPAND_DEFCLASS_st { unsigned nbvar; + struct frame_rout_36_MEXPAND_DEFCLASS_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -17442,18 +18991,18 @@ basilys_trace_start("MEXPAND_DEFCLASS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ 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.bysl:1841:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ 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); @@ -17462,26 +19011,26 @@ basilys_trace_start("MEXPAND_DEFCLASS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:1969:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1842:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1842:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1970:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1970:/ 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.bysl:1842:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1970:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1842:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1970:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1842:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1970:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1842:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1970:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1842)?(1842):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1970)?(1970):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -17490,34 +19039,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1842:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1970:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1842:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1970:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1842:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1970:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1843:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1843:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1971:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1971:/ 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.bysl:1843:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1971:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1843:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1971:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1843:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1971:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1843:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1971:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1843)?(1843):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1971)?(1971):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -17526,408 +19075,408 @@ BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1843:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1971:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1843:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1971:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1843:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1971:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1844:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1844:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1972:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1972:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1844:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1972:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1844:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1972:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:1844:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1972:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1844:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1972:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1844:/ apply.arg"); - argtab[3].bp_long = 1844; + BASILYS_LOCATION("warmelt-macro.bysl:1972:/ apply.arg"); + argtab[3].bp_long = 1972; /*_.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.bysl:1844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1972:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1972:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1844:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1972:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ multiapply"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ 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.bysl:1845:/ multiapply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2];BASILYS_LOCATION("warmelt-macro.bysl:1845:/ multiapply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ multiapply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2];BASILYS_LOCATION("warmelt-macro.bysl:1973:/ multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ multiapply.xres"); restab[1].bp_aptr = (basilys_ptr_t*) &/*_.SUPERNAM__V14*/ curfptr[13]; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ multiapply.xres"); restab[2].bp_aptr = (basilys_ptr_t*) &/*_.SUPERBIND__V15*/ curfptr[14]; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ multiapply.xres"); restab[3].bp_aptr = (basilys_ptr_t*) &/*_.SUPERCLASS__V16*/ curfptr[15]; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ multiapply.xres"); restab[4].bp_aptr = (basilys_ptr_t*) &/*_.PREDEF__V17*/ curfptr[16]; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ multiapply.xres"); restab[5].bp_aptr = (basilys_ptr_t*) &/*_.FIELDNAMS__V18*/ curfptr[17]; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ multiapply.xres"); restab[6].bp_aptr = (basilys_ptr_t*) &/*_.FIELDSLOC__V19*/ curfptr[18]; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ multiapply.xres"); restab[7].bp_aptr = (basilys_ptr_t*) &/*_.DOCSTR__V20*/ curfptr[19]; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ multiapply.appl"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ 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.bysl:1845:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1848:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1848:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1976:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1976:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1848:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1976:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1848:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1976:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned symb"; - BASILYS_LOCATION("warmelt-macro.bysl:1848:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1976:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1848:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1976:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1848:/ apply.arg"); - argtab[3].bp_long = 1848; + BASILYS_LOCATION("warmelt-macro.bysl:1976:/ apply.arg"); + argtab[3].bp_long = 1976; /*_.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.bysl:1848:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1976:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1848:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1976:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1848:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1976:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1849:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1849:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1977:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1977:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1849:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1977:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1849:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1977:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned loc"; - BASILYS_LOCATION("warmelt-macro.bysl:1849:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1977:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1849:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1977:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1849:/ apply.arg"); - argtab[3].bp_long = 1849; + BASILYS_LOCATION("warmelt-macro.bysl:1977:/ apply.arg"); + argtab[3].bp_long = 1977; /*_.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.bysl:1849:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1977:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1849:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1977:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1849:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1977:/ cppif.else"); /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1850:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1850:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1978:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1978:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1850:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1978:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1850:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1978:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned supernam"; - BASILYS_LOCATION("warmelt-macro.bysl:1850:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1978:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1850:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1978:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1850:/ apply.arg"); - argtab[3].bp_long = 1850; + BASILYS_LOCATION("warmelt-macro.bysl:1978:/ apply.arg"); + argtab[3].bp_long = 1978; /*_.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.bysl:1850:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1978:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1850:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1978:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1850:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1978:/ cppif.else"); /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1851:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1851:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1979:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1979:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1851:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1979:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1851:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1979:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned superbind"; - BASILYS_LOCATION("warmelt-macro.bysl:1851:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1979:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1851:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1979:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1851:/ apply.arg"); - argtab[3].bp_long = 1851; + BASILYS_LOCATION("warmelt-macro.bysl:1979:/ apply.arg"); + argtab[3].bp_long = 1979; /*_.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.bysl:1851:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1979:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1851:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1979:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1851:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1979:/ cppif.else"); /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1852:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1852:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1980:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1980:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1852:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1980:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1852:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1980:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned superclass"; - BASILYS_LOCATION("warmelt-macro.bysl:1852:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1980:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1852:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1980:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1852:/ apply.arg"); - argtab[3].bp_long = 1852; + BASILYS_LOCATION("warmelt-macro.bysl:1980:/ apply.arg"); + argtab[3].bp_long = 1980; /*_.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.bysl:1852:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1980:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1852:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1980:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1852:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1980:/ cppif.else"); /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1853:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1853:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1981:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1981:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1853:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1981:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1853:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1981:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned predef"; - BASILYS_LOCATION("warmelt-macro.bysl:1853:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1981:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1853:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1981:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1853:/ apply.arg"); - argtab[3].bp_long = 1853; + BASILYS_LOCATION("warmelt-macro.bysl:1981:/ apply.arg"); + argtab[3].bp_long = 1981; /*_.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.bysl:1853:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1981:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1853:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1981:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1853:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1981:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1854:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1854:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1982:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1982:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1854:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1982:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1854:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1982:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned fieldnams"; - BASILYS_LOCATION("warmelt-macro.bysl:1854:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1982:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1854:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1982:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1854:/ apply.arg"); - argtab[3].bp_long = 1854; + BASILYS_LOCATION("warmelt-macro.bysl:1982:/ apply.arg"); + argtab[3].bp_long = 1982; /*_.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.bysl:1854:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1982:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1854:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1982:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1854:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1982:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1855:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1855:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1983:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1983:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1855:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1983:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1855:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1983:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned fieldsloc"; - BASILYS_LOCATION("warmelt-macro.bysl:1855:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1983:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1855:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1983:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1855:/ apply.arg"); - argtab[3].bp_long = 1855; + BASILYS_LOCATION("warmelt-macro.bysl:1983:/ apply.arg"); + argtab[3].bp_long = 1983; /*_.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.bysl:1855:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1983:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1855:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1983:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1855:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1983:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1856:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1856:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1984:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1984:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1856:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1984:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1856:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1984:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned docstr"; - BASILYS_LOCATION("warmelt-macro.bysl:1856:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1984:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:1856:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1984:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1856:/ apply.arg"); - argtab[3].bp_long = 1856; + BASILYS_LOCATION("warmelt-macro.bysl:1984:/ apply.arg"); + argtab[3].bp_long = 1984; /*_.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.bysl:1856:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1984:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1856:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1984:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1856:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1984:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1857:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1857:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1985:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1985:/ 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.bysl:1857:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1985:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1857:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1985:/ cond.then"); /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1857:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1985:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1857:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1985:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check symb"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1857)?(1857):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check symb"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1985)?(1985):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} ; /*epilog*/} @@ -17936,28 +19485,28 @@ BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); ; /*_.IFCPP___V39*/ curfptr[37] = /*_.IFELSE___V40*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1857:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1985:/ clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1857:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1985:/ clear"); /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1857:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1985:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ block"); /*block*/{ /*_#IS_OBJECT__L14*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.SUPERCLASS__V16*/ curfptr[15])) == OBMAG_OBJECT);; - BASILYS_LOCATION("warmelt-macro.bysl:1859:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1987:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L14*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1859:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1859:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1987:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1987:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1860:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1988:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1860:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1988:/ 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; }; ; @@ -17970,22 +19519,22 @@ BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); /*_#IX__L17*/ curfnum[16] = 0;; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1865:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1865:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1993:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1993:/ 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.bysl:1865:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1993:/ cond"); /*cond*/ if (/*_#IS_A__L18*/ curfnum[17]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1865:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1993:/ cond.then"); /*_.IFELSE___V47*/ curfptr[46] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1865:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1993:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1865:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1993:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check superclass"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1865)?(1865):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check superclass"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1993)?(1993):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;} ; /*epilog*/} @@ -17994,34 +19543,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); ; /*_.IFCPP___V46*/ curfptr[45] = /*_.IFELSE___V47*/ curfptr[46];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1865:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1993:/ clear"); /*clear*/ /*_#IS_A__L18*/ curfnum[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1865:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1993:/ clear"); /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1865:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1993:/ cppif.else"); /*_.IFCPP___V46*/ curfptr[45] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1866:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1866:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1994:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1994:/ block"); /*block*/{ /*_#IS_MULTIPLE__L19*/ curfnum[17] = (basilys_magic_discr((basilys_ptr_t)(/*_.SUPERANCESTORS__V44*/ curfptr[43])) == OBMAG_MULTIPLE);; - BASILYS_LOCATION("warmelt-macro.bysl:1866:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1994:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L19*/ curfnum[17]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1866:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1994:/ cond.then"); /*_.IFELSE___V49*/ curfptr[48] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1866:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1994:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1866:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1994:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check superancestors"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1866)?(1866):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check superancestors"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1994)?(1994):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V49*/ curfptr[48] = 0 ;} ; /*epilog*/} @@ -18030,34 +19579,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); ; /*_.IFCPP___V48*/ curfptr[46] = /*_.IFELSE___V49*/ curfptr[48];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1866:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1994:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L19*/ curfnum[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1866:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1994:/ clear"); /*clear*/ /*_.IFELSE___V49*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1866:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:1994:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1867:/ loop"); - /*loop*/{ labloop_ANCLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1867:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.bysl:1995:/ loop"); + /*loop*/{ labloop_ANCLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1995:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:1867:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1995:/ block"); /*block*/{ /*_#I__L20*/ curfnum[17] = ((/*_#IX__L17*/ curfnum[16]) >= (/*_#NBSUPERANC__L15*/ curfnum[14]));; - BASILYS_LOCATION("warmelt-macro.bysl:1868:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:1996:/ cond"); /*cond*/ if (/*_#I__L20*/ curfnum[17]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1868:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1868:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1996:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:1996:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1868:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1996:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1868:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1996:/ compute"); /*_.ANCLOOP__V51*/ curfptr[50] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1868:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:1996:/ exit"); /*exit*/{ goto labexit_ANCLOOP_1;} ;} @@ -18072,21 +19621,21 @@ BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); 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.bysl:1870:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:1998:/ compute"); /*_#IX__L17*/ curfnum[16] = /*_#SETQ___L22*/ curfnum[21] = /*_#I__L21*/ curfnum[20];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1867:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1995:/ clear"); /*clear*/ /*_#I__L20*/ curfnum[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1867:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1995:/ clear"); /*clear*/ /*_.MULTIPLE_NTH__V52*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1867:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1995:/ clear"); /*clear*/ /*_#I__L21*/ curfnum[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1867:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1995:/ clear"); /*clear*/ /*_#SETQ___L22*/ curfnum[21] = 0 ;} ; ; goto labloop_ANCLOOP_1; - labexit_ANCLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1867:/ loopepilog"); + labexit_ANCLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:1995:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V50*/ curfptr[48] = /*_.ANCLOOP__V51*/ curfptr[50];; } @@ -18095,58 +19644,58 @@ BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); 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.bysl:1860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1988:/ clear"); /*clear*/ /*_.SUPERANCESTORS__V44*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1988:/ clear"); /*clear*/ /*_#NBSUPERANC__L15*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1988:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1988:/ clear"); /*clear*/ /*_.ANCTUPLE__V45*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1988:/ clear"); /*clear*/ /*_#IX__L17*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1988:/ clear"); /*clear*/ /*_.IFCPP___V46*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1988:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1988:/ clear"); /*clear*/ /*_.FOREVER___V50*/ curfptr[48] = 0 ;} ; /*_.ANCESTORS__V42*/ curfptr[41] = /*_.LET___V43*/ curfptr[42];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1859:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1987:/ clear"); /*clear*/ /*_.LET___V43*/ curfptr[42] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1859:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:1987:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1859:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1987:/ 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.bysl:1859:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1987:/ 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.bysl:1876:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2004:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L23*/ curfnum[17]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1876:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1876:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2004:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2004:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1877:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2005:/ 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.bysl:1876:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2004:/ clear"); /*clear*/ /*_.CLASS_FIELDS__V55*/ curfptr[44] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1876:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2004:/ cond.else"); /*_.SUPERFIELDS__V54*/ curfptr[43] = NULL;; } @@ -18171,104 +19720,104 @@ BASILYS_LOCATION("warmelt-macro.bysl:1841:/ 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.bysl:1885:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2013:/ 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.bysl:1884:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2012:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1884:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2012:/ 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.bysl:1884:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2012:/ 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.bysl:1884:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2012:/ 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.bysl:1889:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2017:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1889:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2017:/ 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.bysl:1889:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2017:/ 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.bysl:1889:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2017:/ 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.bysl:1893:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2021:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1893:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2021:/ 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.bysl:1894:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1894:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2022:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2022:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L30*/ curfnum[29] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1894:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2022:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1894:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2022:/ apply.arg"); argtab[0].bp_cstring = "expdefclas superfields"; - BASILYS_LOCATION("warmelt-macro.bysl:1894:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2022:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L30*/ curfnum[29]; - BASILYS_LOCATION("warmelt-macro.bysl:1894:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2022:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1894:/ apply.arg"); - argtab[3].bp_long = 1894; + BASILYS_LOCATION("warmelt-macro.bysl:2022:/ apply.arg"); + argtab[3].bp_long = 2022; /*_.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.bysl:1894:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2022:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1894:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2022:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1894:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2022:/ cppif.else"); /*_.IFCPP___V66*/ curfptr[65] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1897:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2025:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1897:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:2025:/ 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.bysl:1897:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2025:/ 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.bysl:1897:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2025:/ 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]))); @@ -18276,70 +19825,70 @@ BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); ; /*_.LAMBDA___V68*/ curfptr[66] = /*_.LAMBDA___V69*/ curfptr[68];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1895:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2023:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1895:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2023:/ 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.bysl:1906:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1906:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ 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.bysl:1906:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ 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.bysl:1906:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ 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.bysl:1906:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ 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.bysl:1906:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ 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.bysl:1906:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ 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.bysl:1906:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ 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.bysl:1906:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ 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.bysl:1906:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ 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.bysl:1906:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ 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]))); @@ -18347,23 +19896,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); ; /*_.LAMBDA___V71*/ curfptr[70] = /*_.LAMBDA___V72*/ curfptr[71];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1904:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2032:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1904:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2032:/ 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.bysl:1931:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2059:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1931:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2059:/ 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.bysl:1931:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2059:/ touch"); basilysgc_touch(/*_.NEWCLASS__V61*/ curfptr[44]); ; /*epilog*/} @@ -18374,76 +19923,76 @@ BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); basilys_put_int((basilys_ptr_t)(/*_.NEWCLASS__V61*/ curfptr[44]), (/*_#OBJECT_MAGIC_OBJECT__L31*/ curfnum[29])); #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1935:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1935:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2063:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2063:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L32*/ curfnum[31] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:1935:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2063:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1935:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2063:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass newclass"; - BASILYS_LOCATION("warmelt-macro.bysl:1935:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2063:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[31]; - BASILYS_LOCATION("warmelt-macro.bysl:1935:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2063:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:1935:/ apply.arg"); - argtab[3].bp_long = 1935; + BASILYS_LOCATION("warmelt-macro.bysl:2063:/ apply.arg"); + argtab[3].bp_long = 2063; /*_.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.bysl:1935:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2063:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1935:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2063:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V75*/ curfptr[74] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1935:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2063:/ cppif.else"); /*_.IFCPP___V74*/ curfptr[73] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1936:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2064:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1936:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2064:/ 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.bysl:1936:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2064:/ 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.bysl:1936:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2064:/ 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.bysl:1936:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2064:/ 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.bysl:1936:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2064:/ 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.bysl:1936:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2064:/ 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.bysl:1936:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2064:/ 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.bysl:1936:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2064:/ 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"); @@ -18452,117 +20001,117 @@ BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); ; /*_.LET___V41*/ curfptr[39] = /*_.INST___V76*/ curfptr[74];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_#IS_OBJECT__L14*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.ANCESTORS__V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_#IS_OBJECT__L23*/ curfnum[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.SUPERFIELDS__V54*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_#NBSUPERFIELDS__L24*/ curfnum[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_#NBFIELDNAMES__L25*/ curfnum[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.BOXNBSUPERFIELDS__V56*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_#I__L26*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_#I__L27*/ curfnum[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_#I__L28*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.FIELDSTRMAP__V57*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_#I__L29*/ curfnum[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.FIELDTUP__V58*/ curfptr[48] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.OWNFIELDBINDINGS__V59*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.NAMED_NAME__V60*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.NEWCLASS__V61*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.CLABIND__V63*/ curfptr[62] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.PUT_ENV__V65*/ curfptr[64] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.IFCPP___V66*/ curfptr[65] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.LAMBDA___V68*/ curfptr[66] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V70*/ curfptr[69] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.LAMBDA___V71*/ curfptr[70] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V73*/ curfptr[72] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_#OBJECT_MAGIC_OBJECT__L31*/ curfnum[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.IFCPP___V74*/ curfptr[73] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1986:/ clear"); /*clear*/ /*_.INST___V76*/ curfptr[74] = 0 ;} ; /*_.MULTI___V11*/ curfptr[9] = /*_.LET___V41*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.LET___V41*/ curfptr[39] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.SUPERNAM__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.SUPERBIND__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.SUPERCLASS__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.PREDEF__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.FIELDNAMS__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.FIELDSLOC__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1973:/ clear"); /*clear*/ /*_.DOCSTR__V20*/ curfptr[19] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTI___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ clear"); /*clear*/ /*_.MULTI___V11*/ curfptr[9] = 0 ;} ; @@ -18573,14 +20122,14 @@ basilys_trace_end("MEXPAND_DEFCLASS", callcount); basilys_topframe = (struct ca #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_34_MEXPAND_DEFCLASS*/ +} /*end rout_36_MEXPAND_DEFCLASS*/ static basilys_ptr_t -rout_35_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_37_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -18591,7 +20140,7 @@ rout_35_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_35_LAMBDA__st { unsigned nbvar; + struct frame_rout_37_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -18623,18 +20172,18 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1897:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2025:/ getarg"); /*_.SFLD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1897:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2025:/ 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.bysl:1897:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2025:/ block"); /*block*/{ debugnum(( "expdefclasupflds ix"), (/*_#IX__L1*/ curfnum[0])); @@ -18642,22 +20191,22 @@ BASILYS_LOCATION("warmelt-macro.bysl:1897:/ block"); debugvalue(( "expdefclasupfldsval sfld"), ((void*)(/*_.SFLD__V2*/ curfptr[1]))); #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1900:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1900:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2028:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2028:/ 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.bysl:1900:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2028:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1900:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2028:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1900:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2028:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1900:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2028:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check superfield"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1900)?(1900):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check superfield"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2028)?(2028):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} @@ -18666,28 +20215,28 @@ BASILYS_LOCATION("warmelt-macro.bysl:1897:/ block"); ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1900:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2028:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1900:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2028:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1900:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2028:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; 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.bysl:1902:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2030:/ 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; }; ; 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.bysl:1897:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2025:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1897:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2025:/ clear"); /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ;} ; @@ -18698,14 +20247,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_35_LAMBDA_*/ +} /*end rout_37_LAMBDA_*/ static basilys_ptr_t -rout_36_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_38_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -18716,7 +20265,7 @@ rout_36_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_36_LAMBDA__st { unsigned nbvar; + struct frame_rout_38_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -18748,39 +20297,39 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1906:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ getarg"); /*_.FLDNAM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1906:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ 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.bysl:1906:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2034:/ block"); /*block*/{ debugnum(( "expdefclafldnam ix"), (/*_#IX__L1*/ curfnum[0])); #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1908:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1908:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2036:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2036:/ 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.bysl:1908:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2036:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1908:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2036:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1908:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2036:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1908:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2036:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check fldnam"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1908)?(1908):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check fldnam"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2036)?(2036):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} @@ -18789,28 +20338,28 @@ BASILYS_LOCATION("warmelt-macro.bysl:1906:/ block"); ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1908:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2036:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1908:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2036:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1908:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2036:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1909:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2037:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1909:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2037:/ 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.bysl:1911:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2039:/ cond"); /*cond*/ if (/*_.MAPSTRING_GETSTR__V6*/ curfptr[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1911:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1911:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2039:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2039:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)((/*~FIELDSLOC*/ curfclos->tabval[1])), ( "duplicate field in DEFLCLASS"), (basilys_ptr_t)(/*_.FLDSTR__V5*/ curfptr[3])); @@ -18818,25 +20367,25 @@ BASILYS_LOCATION("warmelt-macro.bysl:1906:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1913:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2041:/ 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.bysl:1914:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2042:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1914:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2042:/ 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.bysl:1914:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2042:/ 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.bysl:1914:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2042:/ 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"); @@ -18851,48 +20400,48 @@ BASILYS_LOCATION("warmelt-macro.bysl:1906:/ block"); basilysgc_multiple_put_nth((basilys_ptr_t)((/*~FIELDTUP*/ curfclos->tabval[4])), (/*_#FLDOFF__L4*/ curfnum[3]), (basilys_ptr_t)(/*_.NEWFLD__V7*/ curfptr[6])); 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.bysl:1922:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2050:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1922:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2050:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1922:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2050:/ 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.bysl:1922:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2050:/ 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.bysl:1922:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2050:/ 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.bysl:1922:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2050:/ 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.bysl:1926:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2054:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1926:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2054:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[6]); - BASILYS_LOCATION("warmelt-macro.bysl:1926:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2054:/ 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.bysl:1927:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2055:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1927:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2055:/ 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); } @@ -18900,29 +20449,29 @@ BASILYS_LOCATION("warmelt-macro.bysl:1906:/ block"); 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.bysl:1922:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2050:/ clear"); /*clear*/ /*_.NEWFLDBIND__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1922:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2050:/ clear"); /*clear*/ /*_.WARN_IF_REDEFINED__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1922:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2050:/ clear"); /*clear*/ /*_.PUT_ENV__V12*/ curfptr[11] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1913:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2041:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1913:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2041:/ clear"); /*clear*/ /*_#FLDOFF__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1913:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2041:/ clear"); /*clear*/ /*_.NEWFLD__V7*/ curfptr[6] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1909:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2037:/ clear"); /*clear*/ /*_.FLDSTR__V5*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1909:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2037:/ clear"); /*clear*/ /*_.MAPSTRING_GETSTR__V6*/ curfptr[5] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1906:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;} ; @@ -18933,14 +20482,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_36_LAMBDA_*/ +} /*end rout_38_LAMBDA_*/ static basilys_ptr_t -rout_37_PARSE_FIELD_ASSIGNMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_39_PARSE_FIELD_ASSIGNMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -18951,7 +20500,7 @@ rout_37_PARSE_FIELD_ASSIGNMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firsta #define callcount 0L #endif - struct frame_rout_37_PARSE_FIELD_ASSIGNMENT_st { unsigned nbvar; + struct frame_rout_39_PARSE_FIELD_ASSIGNMENT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -18983,39 +20532,39 @@ basilys_trace_start("PARSE_FIELD_ASSIGNMENT", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ getarg"); /*_.CLA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ 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.bysl:1951:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ 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.bysl:1951:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ 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.bysl:1951:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ 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.bysl:1951:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ 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); @@ -19024,16 +20573,16 @@ basilys_trace_start("PARSE_FIELD_ASSIGNMENT", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:1951:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2079:/ 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.bysl:1952:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2080:/ cond"); /*cond*/ if (/*_#NOT__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1952:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1952:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2080:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2080:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V3*/ curfptr[2]), ( "expecting :fieldname"), (basilys_ptr_t)0); @@ -19043,22 +20592,22 @@ BASILYS_LOCATION("warmelt-macro.bysl:1951:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1954:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1954:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2082:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2082:/ 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.bysl:1954:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2082:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1954:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2082:/ cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1954:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2082:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1954:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2082:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check fldkw"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1954)?(1954):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check fldkw"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2082)?(2082):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} @@ -19067,34 +20616,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:1951:/ block"); ; /*_.IFCPP___V8*/ curfptr[7] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1954:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2082:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1954:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2082:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1954:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2082:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1955:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1955:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2083:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2083:/ 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.bysl:1955:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2083:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1955:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2083:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1955:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2083:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1955:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2083:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1955)?(1955):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2083)?(2083):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} @@ -19103,34 +20652,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:1951:/ block"); ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1955:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2083:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1955:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2083:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1955:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2083:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1956:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1956:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2084:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2084:/ block"); /*block*/{ /*_#IS_CLOSURE__L5*/ curfnum[2] = (basilys_magic_discr((basilys_ptr_t)(/*_.MEXPANDER__V7*/ curfptr[6])) == OBMAG_CLOSURE);; - BASILYS_LOCATION("warmelt-macro.bysl:1956:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2084:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L5*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1956:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2084:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1956:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2084:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1956:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2084:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check mexpander"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1956)?(1956):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check mexpander"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2084)?(2084):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} @@ -19139,44 +20688,44 @@ BASILYS_LOCATION("warmelt-macro.bysl:1951:/ block"); ; /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1956:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2084:/ clear"); /*clear*/ /*_#IS_CLOSURE__L5*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1956:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2084:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1956:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2084:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1958:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2086:/ 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.bysl:1960:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2088:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1960:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1960:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2088:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2088:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1962:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2090:/ 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.bysl:1963:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1963:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ 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.bysl:1963:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ 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.bysl:1963:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ 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]))); @@ -19184,208 +20733,208 @@ BASILYS_LOCATION("warmelt-macro.bysl:1951:/ block"); ; /*_.LAMBDA___V18*/ curfptr[17] = /*_.LAMBDA___V19*/ curfptr[18];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1961:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2089:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1961:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2089:/ 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.bysl:1960:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2088:/ clear"); /*clear*/ /*_.CLASS_FIELDS__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1960:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2088:/ clear"); /*clear*/ /*_.LAMBDA___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1960:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2088:/ clear"); /*clear*/ /*_.MULTIPLE_ITERATE_TEST__V20*/ curfptr[19] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1960:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2088:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1960:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2088:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1974:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2102:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1974:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2102:/ 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.bysl:1975:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2103:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1975:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2103:/ 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.bysl:1977:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2105:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1977:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1977:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2105:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2105:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1978:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2106:/ 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.bysl:1977:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); /*clear*/ /*_.FLBIND_FIELD__V26*/ curfptr[25] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1977:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2105:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1977:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2105:/ 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.bysl:1979:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2107:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1979:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1979:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2107:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2107:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1980:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2108:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1980:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2108:/ 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.bysl:1981:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2109:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1981:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2109:/ cond.then"); /*_.IF___V30*/ curfptr[29] = /*_.VFLD__V29*/ curfptr[28];; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1981:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2109:/ cond.else"); /*_.IF___V30*/ curfptr[29] = NULL;; } ; /*_.LET___V28*/ curfptr[27] = /*_.IF___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1980:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2108:/ clear"); /*clear*/ /*_.VFLD__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1980:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2108:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1980:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2108:/ clear"); /*clear*/ /*_.IF___V30*/ curfptr[29] = 0 ;} ; /*_.IFELSE___V27*/ curfptr[25] = /*_.LET___V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1979:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2107:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1979:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2107:/ cond.else"); /*_.IFELSE___V27*/ curfptr[25] = NULL;; } ; /*_.FLD__V25*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1977:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1977:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2105:/ 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.bysl:1984:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2112:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1984:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1984:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2112:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2112:/ block"); /*block*/{ basilysgc_box_put((basilys_ptr_t)(/*_.FLDBOX__V15*/ curfptr[14]), (basilys_ptr_t)(/*_.FLD__V25*/ curfptr[24])); /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1984:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2112:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1984:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2112:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1987:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2115:/ 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_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.bysl:1984:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2112:/ clear"); /*clear*/ /*_.NAMED_NAME__V31*/ curfptr[28] = 0 ;} ; } ; /*_.LET___V21*/ curfptr[16] = (/*nil*/NULL);; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1974:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2102:/ clear"); /*clear*/ /*_.NAMED_NAME__V22*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1974:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2102:/ clear"); /*clear*/ /*_.FLDNAM__V23*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1974:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2102:/ clear"); /*clear*/ /*_.FLDBIND__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1974:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2102:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1974:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2102:/ clear"); /*clear*/ /*_.FLD__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1974:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2102:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;} ; /*_.IFELSE___V16*/ curfptr[15] = /*_.LET___V21*/ curfptr[16];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1960:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2088:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;} ; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1991:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2119:/ 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.bysl:1992:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2120:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1992:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1992:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2120:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2120:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1993:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2121:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1993:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2121:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1993:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2121:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V6*/ curfptr[5]; - BASILYS_LOCATION("warmelt-macro.bysl:1993:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2121:/ 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.bysl:1994:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2122:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1994:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2122:/ 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.bysl:1994:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2122:/ 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.bysl:1994:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2122:/ 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.bysl:1994:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2122:/ 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"); @@ -19394,21 +20943,21 @@ BASILYS_LOCATION("warmelt-macro.bysl:1951:/ block"); ; /*_.LET___V35*/ curfptr[28] = /*_.INST___V37*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1993:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2121:/ clear"); /*clear*/ /*_.XEX__V36*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1993:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2121:/ clear"); /*clear*/ /*_.INST___V37*/ curfptr[19] = 0 ;} ; /*_.IFELSE___V34*/ curfptr[25] = /*_.LET___V35*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1992:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2120:/ clear"); /*clear*/ /*_.LET___V35*/ curfptr[28] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1992:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2120:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1992:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2120:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2000:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2128:/ 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; }; ; @@ -19418,50 +20967,50 @@ BASILYS_LOCATION("warmelt-macro.bysl:1951:/ block"); /*clear*/ /*_.IFELSE___V34*/ curfptr[25] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1992:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2120:/ clear"); /*clear*/ /*_.NAMED_NAME__V39*/ curfptr[24] = 0 ;} ; } ; /*_.LET___V32*/ curfptr[29] = /*_.IFELSE___V34*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1991:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2119:/ clear"); /*clear*/ /*_.FLD__V33*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1991:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2119:/ clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1991:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2119:/ clear"); /*clear*/ /*_.IFELSE___V34*/ curfptr[25] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.LET___V32*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1958:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2086:/ clear"); /*clear*/ /*_.FLDBOX__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1958:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2086:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1958:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2086:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1958:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2086:/ clear"); /*clear*/ /*_.LET___V32*/ curfptr[29] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ clear"); /*clear*/ /*_#NOT__L2*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; @@ -19472,14 +21021,14 @@ basilys_trace_end("PARSE_FIELD_ASSIGNMENT", callcount); basilys_topframe = (str #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_37_PARSE_FIELD_ASSIGNMENT*/ +} /*end rout_39_PARSE_FIELD_ASSIGNMENT*/ static basilys_ptr_t -rout_38_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_40_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -19490,7 +21039,7 @@ rout_38_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_38_LAMBDA__st { unsigned nbvar; + struct frame_rout_40_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -19522,37 +21071,37 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:1963:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ getarg"); /*_.CFLD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:1963:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ 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.bysl:1963:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2091:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:1964:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1964:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2092:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2092:/ 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.bysl:1964:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2092:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1964:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2092:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1964:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2092:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:1964:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2092:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check fld"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(1964)?(1964):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check fld"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2092)?(2092):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} @@ -19561,64 +21110,64 @@ BASILYS_LOCATION("warmelt-macro.bysl:1963:/ block"); ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1964:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2092:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1964:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2092:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:1964:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2092:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:1965:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2093:/ 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.bysl:1966:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2094:/ 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.bysl:1965:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2093:/ cond"); /*cond*/ if (/*_#S__L3*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:1965:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:1965:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2093:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2093:/ block"); /*block*/{ basilysgc_box_put((basilys_ptr_t)((/*~FLDBOX*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.CFLD__V2*/ curfptr[1])); - BASILYS_LOCATION("warmelt-macro.bysl:1967:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2095:/ block"); /*block*/{ /*_.PROGN___V8*/ curfptr[7] = (/*nil*/NULL);;} ; /*_.IFELSE___V7*/ curfptr[6] = /*_.PROGN___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1965:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2093:/ clear"); /*clear*/ /*_.PROGN___V8*/ curfptr[7] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:1965:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2093:/ cond.else"); /*_.IFELSE___V7*/ curfptr[6] = /*_.CFLD__V2*/ curfptr[1];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:1963:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V7*/ curfptr[6];; - BASILYS_LOCATION("warmelt-macro.bysl:1963:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:1963:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1963:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ clear"); /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1963:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ clear"); /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1963:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ clear"); /*clear*/ /*_#S__L3*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:1963:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; @@ -19629,14 +21178,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_38_LAMBDA_*/ +} /*end rout_40_LAMBDA_*/ static basilys_ptr_t -rout_39_MEXPAND_DEFINSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_41_MEXPAND_DEFINSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -19647,7 +21196,7 @@ rout_39_MEXPAND_DEFINSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp #define callcount 0L #endif - struct frame_rout_39_MEXPAND_DEFINSTANCE_st { unsigned nbvar; + struct frame_rout_41_MEXPAND_DEFINSTANCE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -19679,18 +21228,18 @@ basilys_trace_start("MEXPAND_DEFINSTANCE", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ 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.bysl:2004:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ 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); @@ -19699,26 +21248,26 @@ basilys_trace_start("MEXPAND_DEFINSTANCE", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2004:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2132:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2005:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2005:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2133:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2133:/ 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.bysl:2005:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2133:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2005:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2133:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2005:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2133:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2005:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2133:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2005)?(2005):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2133)?(2133):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -19727,34 +21276,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2005:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2133:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2005:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2133:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2005:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2133:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2006:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2006:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2134:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2134:/ 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.bysl:2006:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2134:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2006:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2134:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2006:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2134:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2006:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2134:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2006)?(2006):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2134)?(2134):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -19763,61 +21312,61 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2006:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2134:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2006:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2134:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2006:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2134:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2007:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2007:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2135:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2135:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2007:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2135:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2007:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2135:/ apply.arg"); argtab[0].bp_cstring = "mexp.definstance sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2007:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2135:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2007:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2135:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2007:/ apply.arg"); - argtab[3].bp_long = 2007; + BASILYS_LOCATION("warmelt-macro.bysl:2135:/ apply.arg"); + argtab[3].bp_long = 2135; /*_.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.bysl:2007:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2135:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2007:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2135:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2007:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2135:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ 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.bysl:2012:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2140:/ 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.bysl:2013:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2141:/ 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; }; ; @@ -19832,10 +21381,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ 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.bysl:2020:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2148:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2020:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2020:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2148:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2148:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "missing symbol for DEFINSTANCE"), (basilys_ptr_t)0); @@ -19845,18 +21394,18 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ block"); ; /*_.PAIR_TAIL__V24*/ curfptr[23] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.bysl:2022:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2150:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V25*/ curfptr[24] = /*_.PAIR_TAIL__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.bysl:2023:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2151:/ 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.bysl:2024:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2152:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2024:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2024:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2152:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2152:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "missing class name for DEFINSTANCE"), (basilys_ptr_t)0); @@ -19864,13 +21413,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2026:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2154:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2026:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2154:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2026:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2154:/ 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); } @@ -19879,46 +21428,46 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ 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.bysl:2030:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2158:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2030:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2030:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2158:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2158:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2031:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2159:/ compute"); /*_.CLABIND__V23*/ curfptr[22] = /*_.SETQ___V32*/ curfptr[31] = /*_.BND__V29*/ curfptr[28];; - BASILYS_LOCATION("warmelt-macro.bysl:2032:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2160:/ 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.bysl:2032:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2160:/ compute"); /*_.CLA__V22*/ curfptr[21] = /*_.SETQ___V34*/ curfptr[33] = /*_.CBIND_CLASS__V33*/ curfptr[32];; - BASILYS_LOCATION("warmelt-macro.bysl:2030:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2158:/ block"); /*block*/{ /*_.PROGN___V35*/ curfptr[34] = /*_.SETQ___V34*/ curfptr[33];;} ; /*_.IFELSE___V31*/ curfptr[30] = /*_.PROGN___V35*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2030:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2158:/ clear"); /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2030:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2158:/ clear"); /*clear*/ /*_.CBIND_CLASS__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2030:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2158:/ clear"); /*clear*/ /*_.SETQ___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2030:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2158:/ clear"); /*clear*/ /*_.PROGN___V35*/ curfptr[34] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2030:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2158:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2030:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2158:/ 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.bysl:2033:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2034:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2162:/ 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; }; ; @@ -19926,49 +21475,49 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ 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.bysl:2033:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ clear"); /*clear*/ /*_.VBIND_VALUE__V36*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2033:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2161:/ cond.else"); /*_#IF___L8*/ curfnum[7] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ cond"); /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2035:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2163:/ compute"); /*_.CLABIND__V23*/ curfptr[22] = /*_.SETQ___V38*/ curfptr[33] = /*_.BND__V29*/ curfptr[28];; - BASILYS_LOCATION("warmelt-macro.bysl:2036:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2164:/ 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.bysl:2036:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2164:/ compute"); /*_.CLA__V22*/ curfptr[21] = /*_.SETQ___V40*/ curfptr[31] = /*_.VBIND_VALUE__V39*/ curfptr[34];; - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ block"); /*block*/{ /*_.PROGN___V41*/ curfptr[40] = /*_.SETQ___V40*/ curfptr[31];;} ; /*_.IFELSE___V37*/ curfptr[32] = /*_.PROGN___V41*/ curfptr[40];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ clear"); /*clear*/ /*_.SETQ___V38*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ clear"); /*clear*/ /*_.VBIND_VALUE__V39*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ clear"); /*clear*/ /*_.SETQ___V40*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ clear"); /*clear*/ /*_.PROGN___V41*/ curfptr[40] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2033:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2161:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2039:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2167:/ 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; }; ; @@ -19976,61 +21525,61 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ block"); 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.bysl:2040:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2168:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V43*/ curfptr[34];; - BASILYS_LOCATION("warmelt-macro.bysl:2040:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2168:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2037:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2165:/ block"); /*block*/{ /*_.PROGN___V45*/ curfptr[40] = /*_.RETURN___V44*/ curfptr[31];;} ; /*_.IFELSE___V37*/ curfptr[32] = /*_.PROGN___V45*/ curfptr[40];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ clear"); /*clear*/ /*_.NAMED_NAME__V42*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ clear"); /*clear*/ /*_.THE_NULL__V43*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ clear"); /*clear*/ /*_.RETURN___V44*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2033:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2161:/ clear"); /*clear*/ /*_.PROGN___V45*/ curfptr[40] = 0 ;} ; } ; /*_.IFELSE___V31*/ curfptr[30] = /*_.IFELSE___V37*/ curfptr[32];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2030:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2158:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2030:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2158:/ clear"); /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2030:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2158:/ clear"); /*clear*/ /*_.IFELSE___V37*/ curfptr[32] = 0 ;} ; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2042:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2170:/ compute"); /*_.CLANAME__V21*/ curfptr[20] = /*_.SETQ___V46*/ curfptr[33] = /*_.NAM__V27*/ curfptr[26];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2043:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2043:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2171:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2171:/ 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.bysl:2043:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2171:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2043:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2171:/ cond.then"); /*_.IFELSE___V48*/ curfptr[31] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2043:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2171:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2043:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2171:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check cla"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2043)?(2043):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check cla"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2171)?(2171):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V48*/ curfptr[31] = 0 ;} ; /*epilog*/} @@ -20039,40 +21588,40 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ block"); ; /*_.IFCPP___V47*/ curfptr[34] = /*_.IFELSE___V48*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2043:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2171:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2043:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2171:/ clear"); /*clear*/ /*_.IFELSE___V48*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2043:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2171:/ 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.bysl:2044:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2172:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V50*/ curfptr[32] = /*_.PAIR_TAIL__V49*/ curfptr[40];; - BASILYS_LOCATION("warmelt-macro.bysl:2045:/ loop"); - /*loop*/{ labloop_INSLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:2045:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.bysl:2173:/ loop"); + /*loop*/{ labloop_INSLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:2173:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:2045:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2173:/ 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.bysl:2046:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2174:/ cond"); /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2046:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2046:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2174:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2174:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2046:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2174:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2046:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2174:/ compute"); /*_.INSLOOP__V52*/ curfptr[51] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2046:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:2174:/ exit"); /*exit*/{ goto labexit_INSLOOP_1;} ;} @@ -20081,16 +21630,16 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2047:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2175:/ 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.bysl:2048:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2176:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2048:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2048:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2176:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2176:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "expecting keyword in DEFINSTANCE"), (basilys_ptr_t)0); @@ -20100,23 +21649,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ block"); ; /*_.PAIR_TAIL__V55*/ curfptr[54] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.bysl:2050:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2178:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V56*/ curfptr[55] = /*_.PAIR_TAIL__V55*/ curfptr[54];; - BASILYS_LOCATION("warmelt-macro.bysl:2051:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2179:/ 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.bysl:2052:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2180:/ cond"); /*cond*/ if (/*_#__L14*/ curfnum[13]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2052:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2052:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2180:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2180:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2053:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2181:/ cond"); /*cond*/ if (/*_.OBJNUM__V13*/ curfptr[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2053:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2053:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2181:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2181:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :obj_num in DEFINSTANCE"), (basilys_ptr_t)0); @@ -20126,64 +21675,64 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ 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.bysl:2055:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2183:/ cond"); /*cond*/ if (/*_#IS_A__L15*/ curfnum[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2055:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2055:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2183:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2183:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2056:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2184:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2056:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2184:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2056:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2184:/ 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.bysl:2055:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2183:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V61*/ curfptr[60] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2055:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2183:/ cond.else"); /*_.IFELSE___V60*/ curfptr[59] = /*_.CUREXP__V58*/ curfptr[57];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2054:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2182:/ compute"); /*_.OBJNUM__V13*/ curfptr[12] = /*_.SETQ___V62*/ curfptr[60] = /*_.IFELSE___V60*/ curfptr[59];; - BASILYS_LOCATION("warmelt-macro.bysl:2052:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2180:/ block"); /*block*/{ /*_.PROGN___V63*/ curfptr[62] = /*_.SETQ___V62*/ curfptr[60];;} ; /*_.IFELSE___V59*/ curfptr[58] = /*_.PROGN___V63*/ curfptr[62];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2052:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2180:/ clear"); /*clear*/ /*_#IS_A__L15*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2052:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2180:/ clear"); /*clear*/ /*_.IFELSE___V60*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2052:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2180:/ clear"); /*clear*/ /*_.SETQ___V62*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2052:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2180:/ clear"); /*clear*/ /*_.PROGN___V63*/ curfptr[62] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2052:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2180:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2052:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2180:/ block"); /*block*/{ /*_#__L16*/ curfnum[14] = ((/*_.CURFKW__V54*/ curfptr[53]) == ((/*!konst_12_PREDEF*/ curfrout->tabval[12])));; - BASILYS_LOCATION("warmelt-macro.bysl:2059:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2187:/ cond"); /*cond*/ if (/*_#__L16*/ curfnum[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2059:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2059:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2187:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2187:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2060:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2188:/ cond"); /*cond*/ if (/*_.PREDEF__V12*/ curfptr[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2060:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2060:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2188:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2188:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :predef in DEFINSTANCE"), (basilys_ptr_t)0); @@ -20193,76 +21742,76 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ 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.bysl:2062:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2190:/ cond"); /*cond*/ if (/*_#IS_A__L17*/ curfnum[16]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2062:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2062:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2190:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2190:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2063:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2191:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2063:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2191:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2063:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2191:/ 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.bysl:2062:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2190:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V66*/ curfptr[62] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2062:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2190:/ cond.else"); /*_.IFELSE___V65*/ curfptr[60] = /*_.CUREXP__V58*/ curfptr[57];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2061:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2189:/ compute"); /*_.PREDEF__V12*/ curfptr[11] = /*_.SETQ___V67*/ curfptr[62] = /*_.IFELSE___V65*/ curfptr[60];; - BASILYS_LOCATION("warmelt-macro.bysl:2059:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2187:/ block"); /*block*/{ /*_.PROGN___V68*/ curfptr[67] = /*_.SETQ___V67*/ curfptr[62];;} ; /*_.IFELSE___V64*/ curfptr[59] = /*_.PROGN___V68*/ curfptr[67];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2059:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2187:/ clear"); /*clear*/ /*_#IS_A__L17*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2059:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2187:/ clear"); /*clear*/ /*_.IFELSE___V65*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2059:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2187:/ clear"); /*clear*/ /*_.SETQ___V67*/ curfptr[62] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2059:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2187:/ clear"); /*clear*/ /*_.PROGN___V68*/ curfptr[67] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2059:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2187:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2059:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2187:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2067:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2195:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2067:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2195:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2067:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2195:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V17*/ curfptr[16]; - BASILYS_LOCATION("warmelt-macro.bysl:2067:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2195:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V54*/ curfptr[53]; - BASILYS_LOCATION("warmelt-macro.bysl:2067:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2195:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V58*/ curfptr[57]; - BASILYS_LOCATION("warmelt-macro.bysl:2067:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2195:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2067:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2195:/ 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.bysl:2068:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2196:/ cond"); /*cond*/ if (/*_.FLDA__V69*/ curfptr[60]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2068:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2068:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2196:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2196:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V30*/ curfptr[29]), (basilys_ptr_t)(/*_.FLDA__V69*/ curfptr[60])); @@ -20271,10 +21820,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ block"); } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2067:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2195:/ clear"); /*clear*/ /*_.FLDA__V69*/ curfptr[60] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2066:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2194:/ block"); /*block*/{} ; /*epilog*/} @@ -20283,292 +21832,292 @@ BASILYS_LOCATION("warmelt-macro.bysl:2004:/ block"); ; /*_.IFELSE___V59*/ curfptr[58] = /*_.IFELSE___V64*/ curfptr[59];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2052:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2180:/ clear"); /*clear*/ /*_#__L16*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2052:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2180:/ clear"); /*clear*/ /*_.IFELSE___V64*/ curfptr[59] = 0 ;} ; } ; /*_.LET___V57*/ curfptr[56] = /*_.IFELSE___V59*/ curfptr[58];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2051:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2179:/ clear"); /*clear*/ /*_.CUREXP__V58*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2051:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2179:/ clear"); /*clear*/ /*_#__L14*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2051:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2179:/ 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.bysl:2072:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2200:/ 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.bysl:2047:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2175:/ clear"); /*clear*/ /*_.CURFKW__V54*/ curfptr[53] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2047:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2175:/ clear"); /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2047:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2175:/ clear"); /*clear*/ /*_.PAIR_TAIL__V55*/ curfptr[54] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2047:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2175:/ clear"); /*clear*/ /*_.SETQ___V56*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2047:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2175:/ clear"); /*clear*/ /*_.LET___V57*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2047:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2175:/ clear"); /*clear*/ /*_.PAIR_TAIL__V70*/ curfptr[62] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2047:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2175:/ clear"); /*clear*/ /*_.SETQ___V71*/ curfptr[67] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2045:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2173:/ clear"); /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2045:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2173:/ clear"); /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2045:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2173:/ clear"); /*clear*/ /*_.LET___V53*/ curfptr[52] = 0 ;} ; ; goto labloop_INSLOOP_1; - labexit_INSLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:2045:/ loopepilog"); + labexit_INSLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:2173:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V51*/ curfptr[31] = /*_.INSLOOP__V52*/ curfptr[51];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2074:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2202:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2074:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2202:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2074:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2202:/ 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.bysl:2076:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2204:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2076:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2204:/ 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.bysl:2076:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2204:/ 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.bysl:2076:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2204:/ 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.bysl:2076:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2204:/ 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.bysl:2076:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2204:/ 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.bysl:2076:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2204:/ 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.bysl:2076:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2204:/ 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.bysl:2076:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2204:/ 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.bysl:2086:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2214:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2086:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2214:/ 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.bysl:2086:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2214:/ 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.bysl:2086:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2214:/ 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.bysl:2091:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2219:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2091:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2219:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2091:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2219:/ 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.bysl:2092:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2220:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2092:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2220:/ 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.bysl:2093:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2093:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2221:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2221:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[16] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2093:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2221:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2093:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2221:/ apply.arg"); argtab[0].bp_cstring = "mexp.definstance sinst"; - BASILYS_LOCATION("warmelt-macro.bysl:2093:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2221:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[16]; - BASILYS_LOCATION("warmelt-macro.bysl:2093:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2221:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2093:/ apply.arg"); - argtab[3].bp_long = 2093; + BASILYS_LOCATION("warmelt-macro.bysl:2221:/ apply.arg"); + argtab[3].bp_long = 2221; /*_.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.bysl:2093:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2221:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2093:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2221:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[67] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2093:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2221:/ cppif.else"); /*_.IFCPP___V80*/ curfptr[62] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2094:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2222:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SINST__V74*/ curfptr[57];; - BASILYS_LOCATION("warmelt-macro.bysl:2094:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2222:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V72*/ curfptr[60] = /*_.RETURN___V82*/ curfptr[52];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2074:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2202:/ clear"); /*clear*/ /*_.FASTUP__V73*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2074:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2202:/ clear"); /*clear*/ /*_.SINST__V74*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2074:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2202:/ clear"); /*clear*/ /*_.IBIND__V76*/ curfptr[53] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2074:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2202:/ clear"); /*clear*/ /*_.WARN_IF_REDEFINED__V78*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2074:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2202:/ clear"); /*clear*/ /*_.PUT_ENV__V79*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2074:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2202:/ clear"); /*clear*/ /*_.IFCPP___V80*/ curfptr[62] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2074:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2202:/ clear"); /*clear*/ /*_.RETURN___V82*/ curfptr[52] = 0 ;} ; /*_.LET___V28*/ curfptr[27] = /*_.LET___V72*/ curfptr[60];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2026:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2154:/ clear"); /*clear*/ /*_.BND__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2026:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2154:/ clear"); /*clear*/ /*_.FLDLIST__V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2026:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2154:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2026:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2154:/ clear"); /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2026:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2154:/ clear"); /*clear*/ /*_.SETQ___V46*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2026:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2154:/ clear"); /*clear*/ /*_.IFCPP___V47*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2026:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2154:/ clear"); /*clear*/ /*_.PAIR_TAIL__V49*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2026:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2154:/ clear"); /*clear*/ /*_.SETQ___V50*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2026:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2154:/ clear"); /*clear*/ /*_.FOREVER___V51*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2026:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2154:/ clear"); /*clear*/ /*_.LET___V72*/ curfptr[60] = 0 ;} ; /*_.LET___V26*/ curfptr[25] = /*_.LET___V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2023:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2151:/ clear"); /*clear*/ /*_.NAM__V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2023:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2151:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2023:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2151:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.PREDEF__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.OBJNUM__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.FIELDS__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.FIELDNAMS__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.CONT__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.LOC__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.SYMB__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.CLANAME__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.CLA__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.CLABIND__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2008:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2136:/ clear"); /*clear*/ /*_.LET___V26*/ curfptr[25] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -20579,14 +22128,14 @@ basilys_trace_end("MEXPAND_DEFINSTANCE", callcount); basilys_topframe = (struct #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_39_MEXPAND_DEFINSTANCE*/ +} /*end rout_41_MEXPAND_DEFINSTANCE*/ static basilys_ptr_t -rout_40_MEXPAND_DEFSELECTOR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_42_MEXPAND_DEFSELECTOR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -20597,7 +22146,7 @@ rout_40_MEXPAND_DEFSELECTOR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp #define callcount 0L #endif - struct frame_rout_40_MEXPAND_DEFSELECTOR_st { unsigned nbvar; + struct frame_rout_42_MEXPAND_DEFSELECTOR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -20629,18 +22178,18 @@ basilys_trace_start("MEXPAND_DEFSELECTOR", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ 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.bysl:2101:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ 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); @@ -20649,26 +22198,26 @@ basilys_trace_start("MEXPAND_DEFSELECTOR", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2101:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2229:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2102:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2102:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2230:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2230:/ 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.bysl:2102:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2230:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2102:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2230:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2102:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2230:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2102:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2230:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2102)?(2102):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2230)?(2230):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -20677,34 +22226,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2102:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2230:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2102:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2230:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2102:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2230:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2103:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2103:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2231:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2231:/ 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.bysl:2103:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2231:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2103:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2231:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2103:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2231:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2103:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2231:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2103)?(2103):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2231)?(2231):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -20713,61 +22262,61 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2231:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2231:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2103:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2231:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2104:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2104:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2232:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2232:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2104:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2232:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2104:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2232:/ apply.arg"); argtab[0].bp_cstring = "mexp.definstance sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2104:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2232:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2104:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2232:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2104:/ apply.arg"); - argtab[3].bp_long = 2104; + BASILYS_LOCATION("warmelt-macro.bysl:2232:/ apply.arg"); + argtab[3].bp_long = 2232; /*_.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.bysl:2104:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2232:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2104:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2232:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2104:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2232:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ 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.bysl:2109:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2237:/ 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.bysl:2110:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2238:/ 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; }; ; @@ -20782,10 +22331,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ 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.bysl:2117:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2245:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2117:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2117:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2245:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2245:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "missing symbol for DEFINSTANCE"), (basilys_ptr_t)0); @@ -20795,18 +22344,18 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ block"); ; /*_.PAIR_TAIL__V24*/ curfptr[23] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.bysl:2119:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2247:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V25*/ curfptr[24] = /*_.PAIR_TAIL__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.bysl:2120:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2248:/ 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.bysl:2121:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2249:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2121:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2121:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2249:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2249:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "missing class name for DEFINSTANCE"), (basilys_ptr_t)0); @@ -20814,13 +22363,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2123:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2251:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2123:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2251:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2123:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2251:/ 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); } @@ -20829,46 +22378,46 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ 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.bysl:2127:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2255:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2127:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2127:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2255:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2255:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2128:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2256:/ compute"); /*_.CLABIND__V23*/ curfptr[22] = /*_.SETQ___V32*/ curfptr[31] = /*_.BND__V29*/ curfptr[28];; - BASILYS_LOCATION("warmelt-macro.bysl:2129:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2257:/ 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.bysl:2129:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2257:/ compute"); /*_.CLA__V22*/ curfptr[21] = /*_.SETQ___V34*/ curfptr[33] = /*_.CBIND_CLASS__V33*/ curfptr[32];; - BASILYS_LOCATION("warmelt-macro.bysl:2127:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2255:/ block"); /*block*/{ /*_.PROGN___V35*/ curfptr[34] = /*_.SETQ___V34*/ curfptr[33];;} ; /*_.IFELSE___V31*/ curfptr[30] = /*_.PROGN___V35*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2127:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2255:/ clear"); /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2127:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2255:/ clear"); /*clear*/ /*_.CBIND_CLASS__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2127:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2255:/ clear"); /*clear*/ /*_.SETQ___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2127:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2255:/ clear"); /*clear*/ /*_.PROGN___V35*/ curfptr[34] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2127:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2255:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2127:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2255:/ 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.bysl:2130:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2131:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2259:/ 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; }; ; @@ -20876,49 +22425,49 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ 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.bysl:2130:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); /*clear*/ /*_.VBIND_VALUE__V36*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2130:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2258:/ cond.else"); /*_#IF___L8*/ curfnum[7] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ cond"); /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2132:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2260:/ compute"); /*_.CLABIND__V23*/ curfptr[22] = /*_.SETQ___V38*/ curfptr[33] = /*_.BND__V29*/ curfptr[28];; - BASILYS_LOCATION("warmelt-macro.bysl:2133:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2261:/ 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.bysl:2133:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2261:/ compute"); /*_.CLA__V22*/ curfptr[21] = /*_.SETQ___V40*/ curfptr[31] = /*_.VBIND_VALUE__V39*/ curfptr[34];; - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ block"); /*block*/{ /*_.PROGN___V41*/ curfptr[40] = /*_.SETQ___V40*/ curfptr[31];;} ; /*_.IFELSE___V37*/ curfptr[32] = /*_.PROGN___V41*/ curfptr[40];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); /*clear*/ /*_.SETQ___V38*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); /*clear*/ /*_.VBIND_VALUE__V39*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); /*clear*/ /*_.SETQ___V40*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); /*clear*/ /*_.PROGN___V41*/ curfptr[40] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2130:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2258:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2136:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2264:/ 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; }; ; @@ -20926,61 +22475,61 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ block"); 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.bysl:2137:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2265:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V43*/ curfptr[34];; - BASILYS_LOCATION("warmelt-macro.bysl:2137:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2265:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2134:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2262:/ block"); /*block*/{ /*_.PROGN___V45*/ curfptr[40] = /*_.RETURN___V44*/ curfptr[31];;} ; /*_.IFELSE___V37*/ curfptr[32] = /*_.PROGN___V45*/ curfptr[40];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); /*clear*/ /*_.NAMED_NAME__V42*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); /*clear*/ /*_.THE_NULL__V43*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); /*clear*/ /*_.RETURN___V44*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2130:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); /*clear*/ /*_.PROGN___V45*/ curfptr[40] = 0 ;} ; } ; /*_.IFELSE___V31*/ curfptr[30] = /*_.IFELSE___V37*/ curfptr[32];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2127:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2255:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2127:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2255:/ clear"); /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2127:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2255:/ clear"); /*clear*/ /*_.IFELSE___V37*/ curfptr[32] = 0 ;} ; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2139:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2267:/ compute"); /*_.CLANAME__V21*/ curfptr[20] = /*_.SETQ___V46*/ curfptr[33] = /*_.NAM__V27*/ curfptr[26];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2140:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2140:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2268:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2268:/ 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.bysl:2140:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2268:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2140:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2268:/ cond.then"); /*_.IFELSE___V48*/ curfptr[31] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2140:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2268:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2140:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2268:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check cla"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2140)?(2140):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check cla"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2268)?(2268):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V48*/ curfptr[31] = 0 ;} ; /*epilog*/} @@ -20989,40 +22538,40 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ block"); ; /*_.IFCPP___V47*/ curfptr[34] = /*_.IFELSE___V48*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2140:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2268:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2140:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2268:/ clear"); /*clear*/ /*_.IFELSE___V48*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2140:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2268:/ 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.bysl:2141:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2269:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V50*/ curfptr[32] = /*_.PAIR_TAIL__V49*/ curfptr[40];; - BASILYS_LOCATION("warmelt-macro.bysl:2142:/ loop"); - /*loop*/{ labloop_INSLOOP_2:;BASILYS_LOCATION("warmelt-macro.bysl:2142:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.bysl:2270:/ loop"); + /*loop*/{ labloop_INSLOOP_2:;BASILYS_LOCATION("warmelt-macro.bysl:2270:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:2142:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2270:/ 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.bysl:2143:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2271:/ cond"); /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2143:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2143:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2271:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2271:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2143:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2271:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2143:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2271:/ compute"); /*_.INSLOOP__V52*/ curfptr[51] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2143:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:2271:/ exit"); /*exit*/{ goto labexit_INSLOOP_2;} ;} @@ -21031,16 +22580,16 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2144:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2272:/ 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.bysl:2145:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2273:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2145:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2145:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2273:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2273:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "expecting keyword in DEFINSTANCE"), (basilys_ptr_t)0); @@ -21050,23 +22599,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ block"); ; /*_.PAIR_TAIL__V55*/ curfptr[54] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.bysl:2147:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2275:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V56*/ curfptr[55] = /*_.PAIR_TAIL__V55*/ curfptr[54];; - BASILYS_LOCATION("warmelt-macro.bysl:2148:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2276:/ 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.bysl:2149:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2277:/ cond"); /*cond*/ if (/*_#__L14*/ curfnum[13]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2149:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2149:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2277:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2277:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2150:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2278:/ cond"); /*cond*/ if (/*_.CUREXP__V58*/ curfptr[57]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2150:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2150:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2278:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2278:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :obj_num in DEFINSTANCE"), (basilys_ptr_t)0); @@ -21076,64 +22625,64 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ 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.bysl:2152:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2280:/ cond"); /*cond*/ if (/*_#IS_A__L15*/ curfnum[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2152:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2152:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2280:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2280:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2153:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2281:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2153:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2281:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2153:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2281:/ 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.bysl:2152:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2280:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V61*/ curfptr[60] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2152:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2280:/ cond.else"); /*_.IFELSE___V60*/ curfptr[59] = /*_.CUREXP__V58*/ curfptr[57];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2151:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2279:/ compute"); /*_.OBJNUM__V13*/ curfptr[12] = /*_.SETQ___V62*/ curfptr[60] = /*_.IFELSE___V60*/ curfptr[59];; - BASILYS_LOCATION("warmelt-macro.bysl:2149:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2277:/ block"); /*block*/{ /*_.PROGN___V63*/ curfptr[62] = /*_.SETQ___V62*/ curfptr[60];;} ; /*_.IFELSE___V59*/ curfptr[58] = /*_.PROGN___V63*/ curfptr[62];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2149:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2277:/ clear"); /*clear*/ /*_#IS_A__L15*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2149:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2277:/ clear"); /*clear*/ /*_.IFELSE___V60*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2149:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2277:/ clear"); /*clear*/ /*_.SETQ___V62*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2149:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2277:/ clear"); /*clear*/ /*_.PROGN___V63*/ curfptr[62] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2149:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2277:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2149:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2277:/ block"); /*block*/{ /*_#__L16*/ curfnum[14] = ((/*_.CURFKW__V54*/ curfptr[53]) == ((/*!konst_12_PREDEF*/ curfrout->tabval[12])));; - BASILYS_LOCATION("warmelt-macro.bysl:2156:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2284:/ cond"); /*cond*/ if (/*_#__L16*/ curfnum[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2156:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2156:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2284:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2284:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2157:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2285:/ cond"); /*cond*/ if (/*_.CUREXP__V58*/ curfptr[57]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2157:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2157:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2285:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2285:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :predef in DEFINSTANCE"), (basilys_ptr_t)0); @@ -21143,76 +22692,76 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ 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.bysl:2159:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2287:/ cond"); /*cond*/ if (/*_#IS_A__L17*/ curfnum[16]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2159:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2159:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2287:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2287:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2160:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2288:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2160:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2288:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2160:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2288:/ 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.bysl:2159:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2287:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V66*/ curfptr[62] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2159:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2287:/ cond.else"); /*_.IFELSE___V65*/ curfptr[60] = /*_.CUREXP__V58*/ curfptr[57];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2158:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2286:/ compute"); /*_.PREDEF__V12*/ curfptr[11] = /*_.SETQ___V67*/ curfptr[62] = /*_.IFELSE___V65*/ curfptr[60];; - BASILYS_LOCATION("warmelt-macro.bysl:2156:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2284:/ block"); /*block*/{ /*_.PROGN___V68*/ curfptr[67] = /*_.SETQ___V67*/ curfptr[62];;} ; /*_.IFELSE___V64*/ curfptr[59] = /*_.PROGN___V68*/ curfptr[67];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2156:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2284:/ clear"); /*clear*/ /*_#IS_A__L17*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2156:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2284:/ clear"); /*clear*/ /*_.IFELSE___V65*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2156:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2284:/ clear"); /*clear*/ /*_.SETQ___V67*/ curfptr[62] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2156:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2284:/ clear"); /*clear*/ /*_.PROGN___V68*/ curfptr[67] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2156:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2284:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2156:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2284:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2164:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2292:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2164:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2292:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2164:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2292:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V17*/ curfptr[16]; - BASILYS_LOCATION("warmelt-macro.bysl:2164:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2292:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V54*/ curfptr[53]; - BASILYS_LOCATION("warmelt-macro.bysl:2164:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2292:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V58*/ curfptr[57]; - BASILYS_LOCATION("warmelt-macro.bysl:2164:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2292:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2164:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2292:/ 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.bysl:2165:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2293:/ cond"); /*cond*/ if (/*_.FLDA__V69*/ curfptr[60]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2165:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2165:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2293:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2293:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V30*/ curfptr[29]), (basilys_ptr_t)(/*_.FLDA__V69*/ curfptr[60])); @@ -21221,10 +22770,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ block"); } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2164:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2292:/ clear"); /*clear*/ /*_.FLDA__V69*/ curfptr[60] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2163:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2291:/ block"); /*block*/{} ; /*epilog*/} @@ -21233,247 +22782,247 @@ BASILYS_LOCATION("warmelt-macro.bysl:2101:/ block"); ; /*_.IFELSE___V59*/ curfptr[58] = /*_.IFELSE___V64*/ curfptr[59];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2149:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2277:/ clear"); /*clear*/ /*_#__L16*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2149:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2277:/ clear"); /*clear*/ /*_.IFELSE___V64*/ curfptr[59] = 0 ;} ; } ; /*_.LET___V57*/ curfptr[56] = /*_.IFELSE___V59*/ curfptr[58];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2148:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2276:/ clear"); /*clear*/ /*_.CUREXP__V58*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2148:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2276:/ clear"); /*clear*/ /*_#__L14*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2148:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2276:/ 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.bysl:2169:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2297:/ 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.bysl:2144:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2272:/ clear"); /*clear*/ /*_.CURFKW__V54*/ curfptr[53] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2144:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2272:/ clear"); /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2144:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2272:/ clear"); /*clear*/ /*_.PAIR_TAIL__V55*/ curfptr[54] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2144:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2272:/ clear"); /*clear*/ /*_.SETQ___V56*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2144:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2272:/ clear"); /*clear*/ /*_.LET___V57*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2144:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2272:/ clear"); /*clear*/ /*_.PAIR_TAIL__V70*/ curfptr[62] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2144:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2272:/ clear"); /*clear*/ /*_.SETQ___V71*/ curfptr[67] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2142:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2270:/ clear"); /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2142:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2270:/ clear"); /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2142:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2270:/ clear"); /*clear*/ /*_.LET___V53*/ curfptr[52] = 0 ;} ; ; goto labloop_INSLOOP_2; - labexit_INSLOOP_2:;BASILYS_LOCATION("warmelt-macro.bysl:2142:/ loopepilog"); + labexit_INSLOOP_2:;BASILYS_LOCATION("warmelt-macro.bysl:2270:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V51*/ curfptr[31] = /*_.INSLOOP__V52*/ curfptr[51];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2171:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2299:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2171:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2299:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2171:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2299:/ 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.bysl:2172:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2300:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2172:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2300:/ 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.bysl:2172:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2300:/ 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.bysl:2172:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2300:/ 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.bysl:2172:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2300:/ 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.bysl:2172:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2300:/ 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.bysl:2172:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2300:/ 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.bysl:2172:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2300:/ 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.bysl:2172:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2300:/ 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.bysl:2181:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2309:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2181:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2309:/ 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.bysl:2181:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2309:/ 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.bysl:2181:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2309:/ 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.bysl:2186:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2314:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2186:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2314:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2186:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2314:/ 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.bysl:2187:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2315:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2315:/ 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.bysl:2171:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2299:/ clear"); /*clear*/ /*_.FASTUP__V73*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2171:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2299:/ clear"); /*clear*/ /*_.RES__V74*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2171:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2299:/ clear"); /*clear*/ /*_.SELBIND__V76*/ curfptr[53] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2171:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2299:/ clear"); /*clear*/ /*_.WARN_IF_REDEFINED__V78*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2171:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2299:/ clear"); /*clear*/ /*_.PUT_ENV__V79*/ curfptr[56] = 0 ;} ; /*_.LET___V28*/ curfptr[27] = /*_.LET___V72*/ curfptr[60];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2123:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2251:/ clear"); /*clear*/ /*_.BND__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2123:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2251:/ clear"); /*clear*/ /*_.FLDLIST__V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2123:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2251:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2123:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2251:/ clear"); /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2123:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2251:/ clear"); /*clear*/ /*_.SETQ___V46*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2123:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2251:/ clear"); /*clear*/ /*_.IFCPP___V47*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2123:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2251:/ clear"); /*clear*/ /*_.PAIR_TAIL__V49*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2123:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2251:/ clear"); /*clear*/ /*_.SETQ___V50*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2123:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2251:/ clear"); /*clear*/ /*_.FOREVER___V51*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2123:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2251:/ clear"); /*clear*/ /*_.LET___V72*/ curfptr[60] = 0 ;} ; /*_.LET___V26*/ curfptr[25] = /*_.LET___V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2120:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2248:/ clear"); /*clear*/ /*_.NAM__V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2120:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2248:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2120:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2248:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.PREDEF__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.OBJNUM__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.FIELDS__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.FIELDNAMS__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.CONT__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.LOC__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.SYMB__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.CLANAME__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.CLA__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.CLABIND__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2233:/ clear"); /*clear*/ /*_.LET___V26*/ curfptr[25] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -21484,14 +23033,14 @@ basilys_trace_end("MEXPAND_DEFSELECTOR", callcount); basilys_topframe = (struct #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_40_MEXPAND_DEFSELECTOR*/ +} /*end rout_42_MEXPAND_DEFSELECTOR*/ static basilys_ptr_t -rout_41_MEXPAND_INSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_43_MEXPAND_INSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -21502,7 +23051,7 @@ rout_41_MEXPAND_INSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, #define callcount 0L #endif - struct frame_rout_41_MEXPAND_INSTANCE_st { unsigned nbvar; + struct frame_rout_43_MEXPAND_INSTANCE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -21534,18 +23083,18 @@ basilys_trace_start("MEXPAND_INSTANCE", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ 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.bysl:2195:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ 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); @@ -21554,26 +23103,26 @@ basilys_trace_start("MEXPAND_INSTANCE", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2195:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2323:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2196:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2196:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2324:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2324:/ 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.bysl:2196:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2324:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2196:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2324:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2196:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2324:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2196:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2324:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2196)?(2196):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2324)?(2324):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -21582,34 +23131,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2195:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2196:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2324:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2196:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2324:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2196:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2324:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2197:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2197:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2325:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2325:/ 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.bysl:2197:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2325:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2197:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2325:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2197:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2325:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2197:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2325:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2197)?(2197):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2325)?(2325):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -21618,25 +23167,25 @@ BASILYS_LOCATION("warmelt-macro.bysl:2195:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2197:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2325:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2197:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2325:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2197:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2325:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2198:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2326:/ block"); /*block*/{ /*_.FIELDS__V10*/ curfptr[9] = (/*nil*/NULL);; /*_.FIELDNAMS__V11*/ curfptr[10] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:2200:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2328:/ 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.bysl:2201:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2329:/ 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; }; ; @@ -21650,44 +23199,44 @@ BASILYS_LOCATION("warmelt-macro.bysl:2195:/ block"); /*_.CLABIND__V18*/ curfptr[17] = (/*nil*/NULL);; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2207:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2207:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2335:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2335:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2207:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2335:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2207:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2335:/ apply.arg"); argtab[0].bp_cstring = "mexpand_instance start sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2207:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2335:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2207:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2335:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2207:/ apply.arg"); - argtab[3].bp_long = 2207; + BASILYS_LOCATION("warmelt-macro.bysl:2335:/ apply.arg"); + argtab[3].bp_long = 2335; /*_.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.bysl:2207:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2335:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2207:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2335:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2207:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2335:/ 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.bysl:2208:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2336:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2208:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2208:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2336:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2336:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing class symbol for INSTANCE"), (basilys_ptr_t)0); @@ -21695,13 +23244,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:2195:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2210:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2338:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2210:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2338:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2210:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2338:/ 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); } @@ -21710,46 +23259,46 @@ BASILYS_LOCATION("warmelt-macro.bysl:2195:/ 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.bysl:2214:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2342:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2214:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2214:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2342:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2342:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2215:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2343:/ compute"); /*_.CLABIND__V18*/ curfptr[17] = /*_.SETQ___V25*/ curfptr[24] = /*_.BND__V22*/ curfptr[21];; - BASILYS_LOCATION("warmelt-macro.bysl:2216:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2344:/ 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.bysl:2216:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2344:/ compute"); /*_.CLA__V17*/ curfptr[16] = /*_.SETQ___V27*/ curfptr[26] = /*_.CBIND_CLASS__V26*/ curfptr[25];; - BASILYS_LOCATION("warmelt-macro.bysl:2214:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2342:/ block"); /*block*/{ /*_.PROGN___V28*/ curfptr[27] = /*_.SETQ___V27*/ curfptr[26];;} ; /*_.IFELSE___V24*/ curfptr[23] = /*_.PROGN___V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2214:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2342:/ clear"); /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2214:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2342:/ clear"); /*clear*/ /*_.CBIND_CLASS__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2214:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2342:/ clear"); /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2214:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2342:/ clear"); /*clear*/ /*_.PROGN___V28*/ curfptr[27] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2214:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2342:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2214:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2342:/ 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.bysl:2218:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2219:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2347:/ 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; }; ; @@ -21757,49 +23306,49 @@ BASILYS_LOCATION("warmelt-macro.bysl:2195:/ 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.bysl:2218:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ clear"); /*clear*/ /*_.VBIND_VALUE__V29*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2218:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2346:/ cond.else"); /*_#IF___L7*/ curfnum[6] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ cond"); /*cond*/ if (/*_#IF___L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2220:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2348:/ compute"); /*_.CLABIND__V18*/ curfptr[17] = /*_.SETQ___V31*/ curfptr[26] = /*_.BND__V22*/ curfptr[21];; - BASILYS_LOCATION("warmelt-macro.bysl:2221:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2349:/ 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.bysl:2221:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2349:/ compute"); /*_.CLA__V17*/ curfptr[16] = /*_.SETQ___V33*/ curfptr[24] = /*_.VBIND_VALUE__V32*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ block"); /*block*/{ /*_.PROGN___V34*/ curfptr[33] = /*_.SETQ___V33*/ curfptr[24];;} ; /*_.IFELSE___V30*/ curfptr[25] = /*_.PROGN___V34*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ clear"); /*clear*/ /*_.VBIND_VALUE__V32*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ clear"); /*clear*/ /*_.SETQ___V33*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ clear"); /*clear*/ /*_.PROGN___V34*/ curfptr[33] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2218:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2346:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2225:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2353:/ 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; }; ; @@ -21807,59 +23356,59 @@ BASILYS_LOCATION("warmelt-macro.bysl:2195:/ block"); 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.bysl:2226:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2354:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V36*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.bysl:2226:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2354:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2223:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2351:/ block"); /*block*/{ /*_.PROGN___V38*/ curfptr[33] = /*_.RETURN___V37*/ curfptr[24];;} ; /*_.IFELSE___V30*/ curfptr[25] = /*_.PROGN___V38*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ clear"); /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ clear"); /*clear*/ /*_.THE_NULL__V36*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ clear"); /*clear*/ /*_.RETURN___V37*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2218:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2346:/ clear"); /*clear*/ /*_.PROGN___V38*/ curfptr[33] = 0 ;} ; } ; /*_.IFELSE___V24*/ curfptr[23] = /*_.IFELSE___V30*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2214:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2342:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2214:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2342:/ clear"); /*clear*/ /*_#IF___L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2214:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2342:/ clear"); /*clear*/ /*_.IFELSE___V30*/ curfptr[25] = 0 ;} ; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2228:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2228:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2356:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2356:/ 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.bysl:2228:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2356:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2228:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2356:/ cond.then"); /*_.IFELSE___V40*/ curfptr[27] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2228:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2356:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2228:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2356:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check cla"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2228)?(2228):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check cla"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2356)?(2356):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V40*/ curfptr[27] = 0 ;} ; /*epilog*/} @@ -21868,40 +23417,40 @@ BASILYS_LOCATION("warmelt-macro.bysl:2195:/ block"); ; /*_.IFCPP___V39*/ curfptr[26] = /*_.IFELSE___V40*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2228:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2356:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2228:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2356:/ clear"); /*clear*/ /*_.IFELSE___V40*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2228:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2356:/ 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.bysl:2229:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2357:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V42*/ curfptr[33] = /*_.PAIR_TAIL__V41*/ curfptr[24];; - BASILYS_LOCATION("warmelt-macro.bysl:2230:/ loop"); - /*loop*/{ labloop_INSLOOP_3:;BASILYS_LOCATION("warmelt-macro.bysl:2230:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.bysl:2358:/ loop"); + /*loop*/{ labloop_INSLOOP_3:;BASILYS_LOCATION("warmelt-macro.bysl:2358:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:2230:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2358:/ 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.bysl:2231:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2359:/ cond"); /*cond*/ if (/*_#NOT__L11*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2231:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2231:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2359:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2359:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2231:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2359:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2231:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2359:/ compute"); /*_.INSLOOP__V44*/ curfptr[27] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2231:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:2359:/ exit"); /*exit*/{ goto labexit_INSLOOP_3;} ;} @@ -21910,16 +23459,16 @@ BASILYS_LOCATION("warmelt-macro.bysl:2195:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2232:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2360:/ 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.bysl:2233:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2361:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L12*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2233:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2233:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2361:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2361:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting keyword in INSTANCE"), (basilys_ptr_t)0); @@ -21929,129 +23478,129 @@ BASILYS_LOCATION("warmelt-macro.bysl:2195:/ block"); ; /*_.PAIR_TAIL__V46*/ curfptr[45] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:2235:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2363:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V47*/ curfptr[46] = /*_.PAIR_TAIL__V46*/ curfptr[45];; - BASILYS_LOCATION("warmelt-macro.bysl:2236:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2364:/ block"); /*block*/{ /*_.CUREXP__V48*/ curfptr[47] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:2237:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2365:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2237:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2365:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2237:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2365:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.bysl:2237:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2365:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V45*/ curfptr[44]; - BASILYS_LOCATION("warmelt-macro.bysl:2237:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2365:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V48*/ curfptr[47]; - BASILYS_LOCATION("warmelt-macro.bysl:2237:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2365:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2237:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2365:/ 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.bysl:2238:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2366:/ cond"); /*cond*/ if (/*_.FLDA__V49*/ curfptr[48]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2238:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2238:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2366:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2366:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V23*/ curfptr[22]), (basilys_ptr_t)(/*_.FLDA__V49*/ curfptr[48])); /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2238:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2366:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2238:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2366:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2241:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2369:/ 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_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.bysl:2238:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2366:/ clear"); /*clear*/ /*_.NAMED_NAME__V50*/ curfptr[49] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2237:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2365:/ clear"); /*clear*/ /*_.FLDA__V49*/ curfptr[48] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2236:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2364:/ clear"); /*clear*/ /*_.CUREXP__V48*/ curfptr[47] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2232:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2360:/ clear"); /*clear*/ /*_.CURFKW__V45*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2232:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2360:/ clear"); /*clear*/ /*_#IS_NOT_A__L12*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2232:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2360:/ clear"); /*clear*/ /*_.PAIR_TAIL__V46*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2232:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2360:/ 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.bysl:2243:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2371:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V52*/ curfptr[48] = /*_.PAIR_TAIL__V51*/ curfptr[49];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2230:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2358:/ clear"); /*clear*/ /*_#IS_PAIR__L10*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2230:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2358:/ clear"); /*clear*/ /*_#NOT__L11*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2230:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2358:/ clear"); /*clear*/ /*_.PAIR_TAIL__V51*/ curfptr[49] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2230:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2358:/ clear"); /*clear*/ /*_.SETQ___V52*/ curfptr[48] = 0 ;} ; ; goto labloop_INSLOOP_3; - labexit_INSLOOP_3:;BASILYS_LOCATION("warmelt-macro.bysl:2230:/ loopepilog"); + labexit_INSLOOP_3:;BASILYS_LOCATION("warmelt-macro.bysl:2358:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V43*/ curfptr[25] = /*_.INSLOOP__V44*/ curfptr[27];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2245:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2373:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2245:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2373:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2245:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2373:/ 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.bysl:2246:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2374:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2246:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2374:/ 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.bysl:2246:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2374:/ 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.bysl:2246:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2374:/ 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.bysl:2246:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2374:/ 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.bysl:2246:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2374:/ 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"); @@ -22060,72 +23609,72 @@ BASILYS_LOCATION("warmelt-macro.bysl:2195:/ block"); ; /*_.LET___V53*/ curfptr[47] = /*_.INST___V55*/ curfptr[45];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2245:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2373:/ clear"); /*clear*/ /*_.FASTUP__V54*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2245:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2373:/ clear"); /*clear*/ /*_.INST___V55*/ curfptr[45] = 0 ;} ; /*_.LET___V21*/ curfptr[19] = /*_.LET___V53*/ curfptr[47];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2210:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2338:/ clear"); /*clear*/ /*_.BND__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2210:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2338:/ clear"); /*clear*/ /*_.FLDLIST__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2210:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2338:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2210:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2338:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2210:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2338:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2210:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2338:/ clear"); /*clear*/ /*_.PAIR_TAIL__V41*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2210:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2338:/ clear"); /*clear*/ /*_.SETQ___V42*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2210:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2338:/ clear"); /*clear*/ /*_.FOREVER___V43*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2210:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2338:/ clear"); /*clear*/ /*_.LET___V53*/ curfptr[47] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2198:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2326:/ clear"); /*clear*/ /*_.FIELDS__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2198:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2326:/ clear"); /*clear*/ /*_.FIELDNAMS__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2198:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2326:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2198:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2326:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2198:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2326:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2198:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2326:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2198:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2326:/ clear"); /*clear*/ /*_.CLANAME__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2198:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2326:/ clear"); /*clear*/ /*_.CLA__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2198:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2326:/ clear"); /*clear*/ /*_.CLABIND__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2198:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2326:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2198:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2326:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2198:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2326:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -22136,14 +23685,14 @@ basilys_trace_end("MEXPAND_INSTANCE", callcount); basilys_topframe = (struct ca #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_41_MEXPAND_INSTANCE*/ +} /*end rout_43_MEXPAND_INSTANCE*/ static basilys_ptr_t -rout_42_PARSE_FIELD_PATTERN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_44_PARSE_FIELD_PATTERN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -22154,7 +23703,7 @@ rout_42_PARSE_FIELD_PATTERN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp #define callcount 0L #endif - struct frame_rout_42_PARSE_FIELD_PATTERN_st { unsigned nbvar; + struct frame_rout_44_PARSE_FIELD_PATTERN_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -22186,39 +23735,39 @@ basilys_trace_start("PARSE_FIELD_PATTERN", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ getarg"); /*_.FKEYW__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ 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.bysl:2258:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ 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.bysl:2258:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ 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.bysl:2258:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ 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.bysl:2258:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ 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); @@ -22227,60 +23776,60 @@ basilys_trace_start("PARSE_FIELD_PATTERN", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2258:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2386:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2259:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2259:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2387:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2387:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2259:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2387:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2259:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2387:/ apply.arg"); argtab[0].bp_cstring = "parse_field_pattern keyw"; - BASILYS_LOCATION("warmelt-macro.bysl:2259:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2387:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2259:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2387:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2259:/ apply.arg"); - argtab[3].bp_long = 2259; + BASILYS_LOCATION("warmelt-macro.bysl:2387:/ apply.arg"); + argtab[3].bp_long = 2387; /*_.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.bysl:2259:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2387:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2259:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2387:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2259:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2387:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2260:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2260:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2388:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2388:/ 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.bysl:2260:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2388:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2260:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2388:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2260:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2388:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2260:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2388:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check fkeyw"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2260)?(2260):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check fkeyw"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2388)?(2388):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} @@ -22289,34 +23838,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2258:/ block"); ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2260:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2388:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2260:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2388:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2260:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2388:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2261:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2261:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2389:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2389:/ 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.bysl:2261:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2389:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2261:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2389:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2261:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2389:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2261:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2389:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2261)?(2261):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2389)?(2389):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} @@ -22325,34 +23874,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2258:/ block"); ; /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2261:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2389:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2261:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2389:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2261:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2389:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2262:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2262:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2390:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2390:/ 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.bysl:2262:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2390:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2262:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2390:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2262:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2390:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2262:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2390:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check pctc"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2262)?(2262):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check pctc"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2390)?(2390):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} @@ -22361,34 +23910,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2258:/ block"); ; /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2262:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2390:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2262:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2390:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2262:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2390:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2263:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2263:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2391:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2391:/ 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.bysl:2263:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2391:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2263:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2391:/ cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2263:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2391:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2263:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2391:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check cla"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2263)?(2263):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check cla"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2391)?(2391):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; /*epilog*/} @@ -22397,48 +23946,48 @@ BASILYS_LOCATION("warmelt-macro.bysl:2258:/ block"); ; /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2263:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2391:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2263:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2391:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2263:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2391:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2264:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2392:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2265:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2393:/ 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.bysl:2267:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2395:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2267:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2395:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V5*/ curfptr[4]; - BASILYS_LOCATION("warmelt-macro.bysl:2267:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2395:/ 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.bysl:2272:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2272:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ 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.bysl:2272:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ 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.bysl:2272:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ 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]))); @@ -22446,77 +23995,77 @@ BASILYS_LOCATION("warmelt-macro.bysl:2258:/ block"); ; /*_.LAMBDA___V22*/ curfptr[21] = /*_.LAMBDA___V23*/ curfptr[22];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2270:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2398:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2270:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2398:/ 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.bysl:2282:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2410:/ 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.bysl:2284:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2412:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2284:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2284:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2412:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2412:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2287:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2415:/ 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_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.bysl:2288:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2416:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:2288:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2416:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2285:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2413:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[28];;} ; /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2284:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2412:/ clear"); /*clear*/ /*_.NAMED_NAME__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2284:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2412:/ clear"); /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2284:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2412:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2284:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2412:/ cond.else"); /*_.IF___V27*/ curfptr[26] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2289:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2417:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2290:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2418:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2290:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2418:/ 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.bysl:2290:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2418:/ 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.bysl:2290:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2418:/ 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.bysl:2290:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2418:/ 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"); @@ -22525,99 +24074,99 @@ BASILYS_LOCATION("warmelt-macro.bysl:2258:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2296:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2296:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2424:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2424:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2296:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2424:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2296:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2424:/ apply.arg"); argtab[0].bp_cstring = "parse_field_pattern return patf"; - BASILYS_LOCATION("warmelt-macro.bysl:2296:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2424:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.bysl:2296:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2424:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2296:/ apply.arg"); - argtab[3].bp_long = 2296; + BASILYS_LOCATION("warmelt-macro.bysl:2424:/ apply.arg"); + argtab[3].bp_long = 2424; /*_.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.bysl:2296:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2424:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2296:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2424:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2296:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2424:/ cppif.else"); /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2297:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2425:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PATF__V32*/ curfptr[28];; - BASILYS_LOCATION("warmelt-macro.bysl:2297:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2425:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V31*/ curfptr[27] = /*_.RETURN___V36*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2289:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2417:/ clear"); /*clear*/ /*_.PATF__V32*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2289:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2417:/ clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2289:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2417:/ clear"); /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;} ; /*_.LET___V25*/ curfptr[24] = /*_.LET___V31*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2282:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2410:/ clear"); /*clear*/ /*_.FLD__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2282:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2410:/ clear"); /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2282:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2410:/ clear"); /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2282:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2410:/ clear"); /*clear*/ /*_.LET___V31*/ curfptr[27] = 0 ;} ; /*_.LET___V18*/ curfptr[16] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2264:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); /*clear*/ /*_.CLAFIELDS__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2264:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); /*clear*/ /*_.FLDBOX__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2264:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); /*clear*/ /*_.FLPAT__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2264:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); /*clear*/ /*_.LAMBDA___V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2264:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); /*clear*/ /*_.MULTIPLE_ITERATE_TEST__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2264:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V18*/ curfptr[16];; - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ clear"); /*clear*/ /*_.LET___V18*/ curfptr[16] = 0 ;} ; @@ -22628,14 +24177,14 @@ basilys_trace_end("PARSE_FIELD_PATTERN", callcount); basilys_topframe = (struct #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_42_PARSE_FIELD_PATTERN*/ +} /*end rout_44_PARSE_FIELD_PATTERN*/ static basilys_ptr_t -rout_43_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_45_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -22646,7 +24195,7 @@ rout_43_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_43_LAMBDA__st { unsigned nbvar; + struct frame_rout_45_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -22678,37 +24227,37 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2272:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ getarg"); /*_.CFLD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2272:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ 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.bysl:2272:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2400:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2273:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2273:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2401:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2401:/ 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.bysl:2273:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2401:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2273:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2401:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2273:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2401:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2273:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2401:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check fld"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2273)?(2273):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check fld"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2401)?(2401):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} @@ -22717,64 +24266,64 @@ BASILYS_LOCATION("warmelt-macro.bysl:2272:/ block"); ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2273:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2401:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2273:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2401:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2273:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2401:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2274:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2402:/ 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.bysl:2275:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2403:/ 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.bysl:2274:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2402:/ cond"); /*cond*/ if (/*_#S__L3*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2274:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2274:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2402:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2402:/ block"); /*block*/{ basilysgc_box_put((basilys_ptr_t)((/*~FLDBOX*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.CFLD__V2*/ curfptr[1])); - BASILYS_LOCATION("warmelt-macro.bysl:2276:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2404:/ block"); /*block*/{ /*_.PROGN___V8*/ curfptr[7] = (/*nil*/NULL);;} ; /*_.IFELSE___V7*/ curfptr[6] = /*_.PROGN___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2274:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2402:/ clear"); /*clear*/ /*_.PROGN___V8*/ curfptr[7] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2274:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2402:/ cond.else"); /*_.IFELSE___V7*/ curfptr[6] = /*_.CFLD__V2*/ curfptr[1];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2272:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V7*/ curfptr[6];; - BASILYS_LOCATION("warmelt-macro.bysl:2272:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ clear"); /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ clear"); /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ clear"); /*clear*/ /*_#S__L3*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; @@ -22785,14 +24334,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_43_LAMBDA_*/ +} /*end rout_45_LAMBDA_*/ static basilys_ptr_t -rout_44_PATEXPAND_INSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_46_PATEXPAND_INSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -22803,7 +24352,7 @@ rout_44_PATEXPAND_INSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_ #define callcount 0L #endif - struct frame_rout_44_PATEXPAND_INSTANCE_st { unsigned nbvar; + struct frame_rout_46_PATEXPAND_INSTANCE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -22835,18 +24384,18 @@ basilys_trace_start("PATEXPAND_INSTANCE", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ 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.bysl:2300:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ 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); @@ -22855,26 +24404,26 @@ basilys_trace_start("PATEXPAND_INSTANCE", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2300:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2428:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2301:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2301:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2429:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2429:/ 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.bysl:2301:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2429:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2301:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2429:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2301:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2429:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2301:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2429:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2301)?(2301):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2429)?(2429):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -22883,34 +24432,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2300:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2301:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2429:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2301:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2429:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2301:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2429:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2302:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2302:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2430:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2430:/ 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.bysl:2302:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2430:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2302:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2430:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2302:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2430:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2302:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2430:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2302)?(2302):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2430)?(2430):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -22919,34 +24468,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2300:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2302:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2430:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2302:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2430:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2302:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2430:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2303:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2303:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2431:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2431:/ 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.bysl:2303:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2431:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2303:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2431:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2303:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2431:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2303:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2431:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check pctx"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2303)?(2303):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check pctx"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2431)?(2431):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} @@ -22955,57 +24504,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:2300:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2303:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2431:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2303:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2431:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2303:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2431:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2304:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2304:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2432:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2432:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2304:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2432:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2304:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2432:/ apply.arg"); argtab[0].bp_cstring = "patexpand_instance sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2304:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2432:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2304:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2432:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2304:/ apply.arg"); - argtab[3].bp_long = 2304; + BASILYS_LOCATION("warmelt-macro.bysl:2432:/ apply.arg"); + argtab[3].bp_long = 2432; /*_.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.bysl:2304:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2432:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2304:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2432:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2304:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2432:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2305:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2433:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2306:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2434:/ 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.bysl:2307:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2435:/ 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; }; ; @@ -23021,10 +24570,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:2300:/ 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.bysl:2315:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2443:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2315:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2315:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2443:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2443:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "missing class symbol for INSTANCE pattern"), (basilys_ptr_t)0); @@ -23032,13 +24581,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:2300:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2317:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2445:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2317:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2445:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2317:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2445:/ 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); } @@ -23047,46 +24596,46 @@ BASILYS_LOCATION("warmelt-macro.bysl:2300:/ 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.bysl:2321:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2449:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2321:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2321:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2449:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2449:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2322:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2450:/ compute"); /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V27*/ curfptr[26] = /*_.BND__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.bysl:2323:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2451:/ 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.bysl:2323:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2451:/ compute"); /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V29*/ curfptr[28] = /*_.CBIND_CLASS__V28*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.bysl:2321:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2449:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.SETQ___V29*/ curfptr[28];;} ; /*_.IFELSE___V26*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2321:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2449:/ clear"); /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2321:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2449:/ clear"); /*clear*/ /*_.CBIND_CLASS__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2321:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2449:/ clear"); /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2321:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2449:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2321:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2449:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2321:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2449:/ 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.bysl:2325:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2326:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2454:/ 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; }; ; @@ -23094,49 +24643,49 @@ BASILYS_LOCATION("warmelt-macro.bysl:2300:/ 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.bysl:2325:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ clear"); /*clear*/ /*_.VBIND_VALUE__V31*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2325:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2453:/ cond.else"); /*_#IF___L8*/ curfnum[7] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ cond"); /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2327:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2455:/ compute"); /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V33*/ curfptr[28] = /*_.BND__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.bysl:2328:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2456:/ 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.bysl:2328:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2456:/ compute"); /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V35*/ curfptr[26] = /*_.VBIND_VALUE__V34*/ curfptr[29];; - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ block"); /*block*/{ /*_.PROGN___V36*/ curfptr[35] = /*_.SETQ___V35*/ curfptr[26];;} ; /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V36*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ clear"); /*clear*/ /*_.SETQ___V33*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ clear"); /*clear*/ /*_.VBIND_VALUE__V34*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ clear"); /*clear*/ /*_.SETQ___V35*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ clear"); /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2325:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2453:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2332:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2460:/ 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; }; ; @@ -23144,59 +24693,59 @@ BASILYS_LOCATION("warmelt-macro.bysl:2300:/ block"); 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.bysl:2333:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2461:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V38*/ curfptr[29];; - BASILYS_LOCATION("warmelt-macro.bysl:2333:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2461:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2330:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2458:/ block"); /*block*/{ /*_.PROGN___V40*/ curfptr[35] = /*_.RETURN___V39*/ curfptr[26];;} ; /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V40*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ clear"); /*clear*/ /*_.NAMED_NAME__V37*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ clear"); /*clear*/ /*_.THE_NULL__V38*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ clear"); /*clear*/ /*_.RETURN___V39*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2325:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2453:/ clear"); /*clear*/ /*_.PROGN___V40*/ curfptr[35] = 0 ;} ; } ; /*_.IFELSE___V26*/ curfptr[25] = /*_.IFELSE___V32*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2321:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2449:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2321:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2449:/ clear"); /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2321:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2449:/ clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[27] = 0 ;} ; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2335:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2335:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2463:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2463:/ 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.bysl:2335:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2463:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2335:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2463:/ cond.then"); /*_.IFELSE___V42*/ curfptr[29] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2335:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2463:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2335:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2463:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check cla"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2335)?(2335):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check cla"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2463)?(2463):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V42*/ curfptr[29] = 0 ;} ; /*epilog*/} @@ -23205,40 +24754,40 @@ BASILYS_LOCATION("warmelt-macro.bysl:2300:/ block"); ; /*_.IFCPP___V41*/ curfptr[28] = /*_.IFELSE___V42*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2335:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2463:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2335:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2463:/ clear"); /*clear*/ /*_.IFELSE___V42*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2335:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2463:/ 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.bysl:2336:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2464:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V44*/ curfptr[35] = /*_.PAIR_TAIL__V43*/ curfptr[26];; - BASILYS_LOCATION("warmelt-macro.bysl:2338:/ loop"); - /*loop*/{ labloop_INSLOOP_4:;BASILYS_LOCATION("warmelt-macro.bysl:2338:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.bysl:2466:/ loop"); + /*loop*/{ labloop_INSLOOP_4:;BASILYS_LOCATION("warmelt-macro.bysl:2466:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:2338:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2466:/ 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.bysl:2340:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2468:/ cond"); /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2340:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2340:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2468:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2468:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2340:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2468:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2340:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2468:/ compute"); /*_.INSLOOP__V46*/ curfptr[29] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2340:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:2468:/ exit"); /*exit*/{ goto labexit_INSLOOP_4;} ;} @@ -23247,16 +24796,16 @@ BASILYS_LOCATION("warmelt-macro.bysl:2300:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2341:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2469:/ 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.bysl:2342:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2470:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2342:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2342:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2470:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2470:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "expecting keyword in INSTANCE"), (basilys_ptr_t)0); @@ -23266,160 +24815,160 @@ BASILYS_LOCATION("warmelt-macro.bysl:2300:/ block"); ; /*_.PAIR_TAIL__V48*/ curfptr[47] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.bysl:2344:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2472:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V49*/ curfptr[48] = /*_.PAIR_TAIL__V48*/ curfptr[47];; - BASILYS_LOCATION("warmelt-macro.bysl:2345:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2473:/ block"); /*block*/{ /*_.CUREXP__V50*/ curfptr[49] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.bysl:2346:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2474:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2346:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2474:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2346:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2474:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CLA__V21*/ curfptr[20]; - BASILYS_LOCATION("warmelt-macro.bysl:2346:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2474:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V50*/ curfptr[49]; - BASILYS_LOCATION("warmelt-macro.bysl:2346:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2474:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2346:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2474:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V4*/ curfptr[3]; - BASILYS_LOCATION("warmelt-macro.bysl:2346:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2474:/ 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.bysl:2347:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2347:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2475:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2475:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2347:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2475:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2347:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2475:/ apply.arg"); argtab[0].bp_cstring = "patexpand_instance fldp"; - BASILYS_LOCATION("warmelt-macro.bysl:2347:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2475:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.bysl:2347:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2475:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2347:/ apply.arg"); - argtab[3].bp_long = 2347; + BASILYS_LOCATION("warmelt-macro.bysl:2475:/ apply.arg"); + argtab[3].bp_long = 2475; /*_.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.bysl:2347:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2475:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2347:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2475:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2347:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2475:/ cppif.else"); /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2348:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2476:/ cond"); /*cond*/ if (/*_.FLDP__V51*/ curfptr[50]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2348:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2348:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2476:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2476:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (basilys_ptr_t)(/*_.FLDP__V51*/ curfptr[50])); /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2348:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2476:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2348:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2476:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2351:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2479:/ 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_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.bysl:2348:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2476:/ clear"); /*clear*/ /*_.NAMED_NAME__V54*/ curfptr[52] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2346:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2474:/ clear"); /*clear*/ /*_.FLDP__V51*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2346:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2474:/ clear"); /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2345:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2473:/ clear"); /*clear*/ /*_.CUREXP__V50*/ curfptr[49] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2341:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2469:/ clear"); /*clear*/ /*_.CURFKW__V47*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2341:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2469:/ clear"); /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2341:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2469:/ clear"); /*clear*/ /*_.PAIR_TAIL__V48*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2341:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2469:/ 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.bysl:2353:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2481:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V56*/ curfptr[50] = /*_.PAIR_TAIL__V55*/ curfptr[52];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2338:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2466:/ clear"); /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2338:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2466:/ clear"); /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2338:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2466:/ clear"); /*clear*/ /*_.PAIR_TAIL__V55*/ curfptr[52] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2338:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2466:/ clear"); /*clear*/ /*_.SETQ___V56*/ curfptr[50] = 0 ;} ; ; goto labloop_INSLOOP_4; - labexit_INSLOOP_4:;BASILYS_LOCATION("warmelt-macro.bysl:2338:/ loopepilog"); + labexit_INSLOOP_4:;BASILYS_LOCATION("warmelt-macro.bysl:2466:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V45*/ curfptr[27] = /*_.INSLOOP__V46*/ curfptr[29];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2355:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2483:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2358:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2486:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2358:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2486:/ 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.bysl:2355:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2483:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2355:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2483:/ 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.bysl:2355:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2483:/ 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.bysl:2355:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2483:/ 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.bysl:2355:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2483:/ 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"); @@ -23428,119 +24977,119 @@ BASILYS_LOCATION("warmelt-macro.bysl:2300:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2360:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2360:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2488:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2488:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2360:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2488:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2360:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2488:/ apply.arg"); argtab[0].bp_cstring = "patexpand_instance return spati"; - BASILYS_LOCATION("warmelt-macro.bysl:2360:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2488:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.bysl:2360:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2488:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2360:/ apply.arg"); - argtab[3].bp_long = 2360; + BASILYS_LOCATION("warmelt-macro.bysl:2488:/ apply.arg"); + argtab[3].bp_long = 2488; /*_.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.bysl:2360:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2488:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2360:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2488:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2360:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2488:/ cppif.else"); /*_.IFCPP___V61*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2361:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2489:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SPATI__V59*/ curfptr[46];; - BASILYS_LOCATION("warmelt-macro.bysl:2361:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2489:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V57*/ curfptr[51] = /*_.RETURN___V63*/ curfptr[50];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2355:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2483:/ clear"); /*clear*/ /*_.LIST_TO_MULTIPLE__V58*/ curfptr[49] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2355:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2483:/ clear"); /*clear*/ /*_.SPATI__V59*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2355:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2483:/ clear"); /*clear*/ /*_.IFCPP___V61*/ curfptr[48] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2355:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2483:/ clear"); /*clear*/ /*_.RETURN___V63*/ curfptr[50] = 0 ;} ; /*_.LET___V23*/ curfptr[22] = /*_.LET___V57*/ curfptr[51];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2317:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2445:/ clear"); /*clear*/ /*_.BND__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2317:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2445:/ clear"); /*clear*/ /*_.FLDLIST__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2317:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2445:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2317:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2445:/ clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2317:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2445:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2317:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2445:/ clear"); /*clear*/ /*_.PAIR_TAIL__V43*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2317:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2445:/ clear"); /*clear*/ /*_.SETQ___V44*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2317:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2445:/ clear"); /*clear*/ /*_.FOREVER___V45*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2317:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2445:/ clear"); /*clear*/ /*_.LET___V57*/ curfptr[51] = 0 ;} ; /*_.LET___V13*/ curfptr[11] = /*_.LET___V23*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2305:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2433:/ clear"); /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2305:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2433:/ clear"); /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2305:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2433:/ clear"); /*clear*/ /*_.FIELDS__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2305:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2433:/ clear"); /*clear*/ /*_.FIELDNAMS__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2305:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2433:/ clear"); /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2305:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2433:/ clear"); /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2305:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2433:/ clear"); /*clear*/ /*_.CLANAME__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2305:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2433:/ clear"); /*clear*/ /*_.CLA__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2305:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2433:/ clear"); /*clear*/ /*_.CLABIND__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2305:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2433:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2305:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2433:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; @@ -23551,14 +25100,14 @@ basilys_trace_end("PATEXPAND_INSTANCE", callcount); basilys_topframe = (struct #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_44_PATEXPAND_INSTANCE*/ +} /*end rout_46_PATEXPAND_INSTANCE*/ static basilys_ptr_t -rout_45_PATEXPAND_OBJECT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_47_PATEXPAND_OBJECT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -23569,7 +25118,7 @@ rout_45_PATEXPAND_OBJECT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, #define callcount 0L #endif - struct frame_rout_45_PATEXPAND_OBJECT_st { unsigned nbvar; + struct frame_rout_47_PATEXPAND_OBJECT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -23601,18 +25150,18 @@ basilys_trace_start("PATEXPAND_OBJECT", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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.bysl:2367:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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); @@ -23621,26 +25170,26 @@ basilys_trace_start("PATEXPAND_OBJECT", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2367:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2495:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2368:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2368:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2496:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2496:/ 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.bysl:2368:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2496:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2368:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2496:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2368:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2496:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2368:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2496:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2368)?(2368):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2496)?(2496):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -23649,34 +25198,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2367:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2368:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2496:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2368:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2496:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2368:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2496:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2369:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2369:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2497:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2497:/ 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.bysl:2369:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2497:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2369:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2497:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2369:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2497:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2369:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2497:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2369)?(2369):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2497)?(2497):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -23685,34 +25234,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2367:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2369:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2497:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2369:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2497:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2369:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2497:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2370:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2370:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2498:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2498:/ 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.bysl:2370:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2498:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2370:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2498:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2370:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2498:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2370:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2498:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check pctx"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2370)?(2370):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check pctx"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2498)?(2498):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} @@ -23721,57 +25270,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:2367:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2370:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2498:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2370:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2498:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2370:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2498:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2371:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2371:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2499:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2499:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2371:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2499:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2371:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2499:/ apply.arg"); argtab[0].bp_cstring = "patexpand_object sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2371:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2499:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2371:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2499:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2371:/ apply.arg"); - argtab[3].bp_long = 2371; + BASILYS_LOCATION("warmelt-macro.bysl:2499:/ apply.arg"); + argtab[3].bp_long = 2499; /*_.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.bysl:2371:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2499:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2371:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2499:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2371:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2499:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2372:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2500:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2373:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2501:/ 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.bysl:2374:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2502:/ 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; }; ; @@ -23787,10 +25336,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:2367:/ 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.bysl:2382:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2510:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2382:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2382:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2510:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2510:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "missing class symbol for OBJECT pattern"), (basilys_ptr_t)0); @@ -23798,13 +25347,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:2367:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2384:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2512:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2384:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2512:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2384:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2512:/ 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); } @@ -23813,46 +25362,46 @@ BASILYS_LOCATION("warmelt-macro.bysl:2367:/ 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.bysl:2388:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2516:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2388:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2388:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2516:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2516:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2389:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2517:/ compute"); /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V27*/ curfptr[26] = /*_.BND__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.bysl:2390:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2518:/ 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.bysl:2390:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2518:/ compute"); /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V29*/ curfptr[28] = /*_.CBIND_CLASS__V28*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.bysl:2388:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2516:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.SETQ___V29*/ curfptr[28];;} ; /*_.IFELSE___V26*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2388:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2516:/ clear"); /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2388:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2516:/ clear"); /*clear*/ /*_.CBIND_CLASS__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2388:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2516:/ clear"); /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2388:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2516:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2388:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2516:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2388:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2516:/ 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.bysl:2392:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2393:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2521:/ 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; }; ; @@ -23860,49 +25409,49 @@ BASILYS_LOCATION("warmelt-macro.bysl:2367:/ 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.bysl:2392:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ clear"); /*clear*/ /*_.VBIND_VALUE__V31*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2392:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2520:/ cond.else"); /*_#IF___L8*/ curfnum[7] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ cond"); /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2394:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2522:/ compute"); /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V33*/ curfptr[28] = /*_.BND__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.bysl:2395:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2523:/ 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.bysl:2395:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2523:/ compute"); /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V35*/ curfptr[26] = /*_.VBIND_VALUE__V34*/ curfptr[29];; - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ block"); /*block*/{ /*_.PROGN___V36*/ curfptr[35] = /*_.SETQ___V35*/ curfptr[26];;} ; /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V36*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ clear"); /*clear*/ /*_.SETQ___V33*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ clear"); /*clear*/ /*_.VBIND_VALUE__V34*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ clear"); /*clear*/ /*_.SETQ___V35*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ clear"); /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2392:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2520:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2399:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2527:/ 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; }; ; @@ -23910,59 +25459,59 @@ BASILYS_LOCATION("warmelt-macro.bysl:2367:/ block"); 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.bysl:2400:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2528:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V38*/ curfptr[29];; - BASILYS_LOCATION("warmelt-macro.bysl:2400:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2528:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2397:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2525:/ block"); /*block*/{ /*_.PROGN___V40*/ curfptr[35] = /*_.RETURN___V39*/ curfptr[26];;} ; /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V40*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ clear"); /*clear*/ /*_.NAMED_NAME__V37*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ clear"); /*clear*/ /*_.THE_NULL__V38*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ clear"); /*clear*/ /*_.RETURN___V39*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2392:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2520:/ clear"); /*clear*/ /*_.PROGN___V40*/ curfptr[35] = 0 ;} ; } ; /*_.IFELSE___V26*/ curfptr[25] = /*_.IFELSE___V32*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2388:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2516:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2388:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2516:/ clear"); /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2388:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2516:/ clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[27] = 0 ;} ; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2402:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2402:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2530:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2530:/ 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.bysl:2402:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2530:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2402:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2530:/ cond.then"); /*_.IFELSE___V42*/ curfptr[29] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2402:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2530:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2402:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2530:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check cla"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2402)?(2402):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check cla"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2530)?(2530):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V42*/ curfptr[29] = 0 ;} ; /*epilog*/} @@ -23971,40 +25520,40 @@ BASILYS_LOCATION("warmelt-macro.bysl:2367:/ block"); ; /*_.IFCPP___V41*/ curfptr[28] = /*_.IFELSE___V42*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2402:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2530:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2402:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2530:/ clear"); /*clear*/ /*_.IFELSE___V42*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2402:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2530:/ 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.bysl:2403:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2531:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V44*/ curfptr[35] = /*_.PAIR_TAIL__V43*/ curfptr[26];; - BASILYS_LOCATION("warmelt-macro.bysl:2405:/ loop"); - /*loop*/{ labloop_INSLOOP_5:;BASILYS_LOCATION("warmelt-macro.bysl:2405:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.bysl:2533:/ loop"); + /*loop*/{ labloop_INSLOOP_5:;BASILYS_LOCATION("warmelt-macro.bysl:2533:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:2405:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2533:/ 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.bysl:2407:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2535:/ cond"); /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2407:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2407:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2535:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2535:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2407:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2535:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2407:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2535:/ compute"); /*_.INSLOOP__V46*/ curfptr[29] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2407:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:2535:/ exit"); /*exit*/{ goto labexit_INSLOOP_5;} ;} @@ -24013,16 +25562,16 @@ BASILYS_LOCATION("warmelt-macro.bysl:2367:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2408:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2536:/ 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.bysl:2409:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2537:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2409:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2409:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2537:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2537:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "expecting keyword in OBJECT pattern"), (basilys_ptr_t)0); @@ -24032,160 +25581,160 @@ BASILYS_LOCATION("warmelt-macro.bysl:2367:/ block"); ; /*_.PAIR_TAIL__V48*/ curfptr[47] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.bysl:2411:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2539:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V49*/ curfptr[48] = /*_.PAIR_TAIL__V48*/ curfptr[47];; - BASILYS_LOCATION("warmelt-macro.bysl:2412:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2540:/ block"); /*block*/{ /*_.CUREXP__V50*/ curfptr[49] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.bysl:2413:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2541:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2413:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2541:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2413:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2541:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CLA__V21*/ curfptr[20]; - BASILYS_LOCATION("warmelt-macro.bysl:2413:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2541:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V50*/ curfptr[49]; - BASILYS_LOCATION("warmelt-macro.bysl:2413:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2541:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2413:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2541:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V4*/ curfptr[3]; - BASILYS_LOCATION("warmelt-macro.bysl:2413:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2541:/ 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.bysl:2414:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2414:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2542:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2542:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2414:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2542:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2414:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2542:/ apply.arg"); argtab[0].bp_cstring = "patexpand_object fldp"; - BASILYS_LOCATION("warmelt-macro.bysl:2414:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2542:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.bysl:2414:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2542:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2414:/ apply.arg"); - argtab[3].bp_long = 2414; + BASILYS_LOCATION("warmelt-macro.bysl:2542:/ apply.arg"); + argtab[3].bp_long = 2542; /*_.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.bysl:2414:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2542:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2414:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2542:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2414:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2542:/ cppif.else"); /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2415:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2543:/ cond"); /*cond*/ if (/*_.FLDP__V51*/ curfptr[50]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2415:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2415:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2543:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2543:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (basilys_ptr_t)(/*_.FLDP__V51*/ curfptr[50])); /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2415:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2543:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2415:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2543:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2418:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2546:/ 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_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.bysl:2415:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2543:/ clear"); /*clear*/ /*_.NAMED_NAME__V54*/ curfptr[52] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2541:/ clear"); /*clear*/ /*_.FLDP__V51*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2413:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2541:/ clear"); /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2412:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2540:/ clear"); /*clear*/ /*_.CUREXP__V50*/ curfptr[49] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2408:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2536:/ clear"); /*clear*/ /*_.CURFKW__V47*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2408:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2536:/ clear"); /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2408:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2536:/ clear"); /*clear*/ /*_.PAIR_TAIL__V48*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2408:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2536:/ 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.bysl:2420:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2548:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V56*/ curfptr[50] = /*_.PAIR_TAIL__V55*/ curfptr[52];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2405:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2533:/ clear"); /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2405:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2533:/ clear"); /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2405:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2533:/ clear"); /*clear*/ /*_.PAIR_TAIL__V55*/ curfptr[52] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2405:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2533:/ clear"); /*clear*/ /*_.SETQ___V56*/ curfptr[50] = 0 ;} ; ; goto labloop_INSLOOP_5; - labexit_INSLOOP_5:;BASILYS_LOCATION("warmelt-macro.bysl:2405:/ loopepilog"); + labexit_INSLOOP_5:;BASILYS_LOCATION("warmelt-macro.bysl:2533:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V45*/ curfptr[27] = /*_.INSLOOP__V46*/ curfptr[29];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2422:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2550:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2425:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2553:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2425:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2553:/ 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.bysl:2422:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2550:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2422:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2550:/ 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.bysl:2422:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2550:/ 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.bysl:2422:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2550:/ 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.bysl:2422:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2550:/ 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"); @@ -24194,119 +25743,119 @@ BASILYS_LOCATION("warmelt-macro.bysl:2367:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2427:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2427:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2555:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2555:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2427:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2555:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2427:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2555:/ apply.arg"); argtab[0].bp_cstring = "patexpand_object return spati"; - BASILYS_LOCATION("warmelt-macro.bysl:2427:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2555:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.bysl:2427:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2555:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2427:/ apply.arg"); - argtab[3].bp_long = 2427; + BASILYS_LOCATION("warmelt-macro.bysl:2555:/ apply.arg"); + argtab[3].bp_long = 2555; /*_.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.bysl:2427:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2555:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2427:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2555:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2427:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2555:/ cppif.else"); /*_.IFCPP___V61*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2428:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2556:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SPATI__V59*/ curfptr[46];; - BASILYS_LOCATION("warmelt-macro.bysl:2428:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2556:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V57*/ curfptr[51] = /*_.RETURN___V63*/ curfptr[50];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2422:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2550:/ clear"); /*clear*/ /*_.LIST_TO_MULTIPLE__V58*/ curfptr[49] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2422:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2550:/ clear"); /*clear*/ /*_.SPATI__V59*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2422:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2550:/ clear"); /*clear*/ /*_.IFCPP___V61*/ curfptr[48] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2422:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2550:/ clear"); /*clear*/ /*_.RETURN___V63*/ curfptr[50] = 0 ;} ; /*_.LET___V23*/ curfptr[22] = /*_.LET___V57*/ curfptr[51];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2384:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2512:/ clear"); /*clear*/ /*_.BND__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2384:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2512:/ clear"); /*clear*/ /*_.FLDLIST__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2384:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2512:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2384:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2512:/ clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2384:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2512:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2384:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2512:/ clear"); /*clear*/ /*_.PAIR_TAIL__V43*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2384:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2512:/ clear"); /*clear*/ /*_.SETQ___V44*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2384:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2512:/ clear"); /*clear*/ /*_.FOREVER___V45*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2384:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2512:/ clear"); /*clear*/ /*_.LET___V57*/ curfptr[51] = 0 ;} ; /*_.LET___V13*/ curfptr[11] = /*_.LET___V23*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2500:/ clear"); /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2500:/ clear"); /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2500:/ clear"); /*clear*/ /*_.FIELDS__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2500:/ clear"); /*clear*/ /*_.FIELDNAMS__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2500:/ clear"); /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2500:/ clear"); /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2500:/ clear"); /*clear*/ /*_.CLANAME__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2500:/ clear"); /*clear*/ /*_.CLA__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2500:/ clear"); /*clear*/ /*_.CLABIND__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2500:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2500:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; @@ -24317,14 +25866,14 @@ basilys_trace_end("PATEXPAND_OBJECT", callcount); basilys_topframe = (struct ca #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_45_PATEXPAND_OBJECT*/ +} /*end rout_47_PATEXPAND_OBJECT*/ static basilys_ptr_t -rout_46_MEXPAND_OBJECT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_48_MEXPAND_OBJECT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -24335,7 +25884,7 @@ rout_46_MEXPAND_OBJECT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, co #define callcount 0L #endif - struct frame_rout_46_MEXPAND_OBJECT_st { unsigned nbvar; + struct frame_rout_48_MEXPAND_OBJECT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -24367,18 +25916,18 @@ basilys_trace_start("MEXPAND_OBJECT", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2432:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2560:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2432:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2560:/ 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.bysl:2432:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2560:/ 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); @@ -24387,26 +25936,26 @@ basilys_trace_start("MEXPAND_OBJECT", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2432:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2560:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2433:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2433:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2561:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2561:/ 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.bysl:2433:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2561:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2433:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2561:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2433:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2561:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2433:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2561:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2433)?(2433):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2561)?(2561):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -24415,34 +25964,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2432:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2433:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2561:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2433:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2561:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2433:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2561:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2434:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2434:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2562:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2562:/ 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.bysl:2434:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2562:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2434:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2562:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2434:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2562:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2434:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2562:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2434)?(2434):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2562)?(2562):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -24451,87 +26000,87 @@ BASILYS_LOCATION("warmelt-macro.bysl:2432:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2434:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2562:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2434:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2562:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2434:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2562:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2435:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2435:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2563:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2563:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2435:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2563:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2435:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2563:/ apply.arg"); argtab[0].bp_cstring = "mexpand_object sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2435:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2563:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2435:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2563:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2435:/ apply.arg"); - argtab[3].bp_long = 2435; + BASILYS_LOCATION("warmelt-macro.bysl:2563:/ apply.arg"); + argtab[3].bp_long = 2563; /*_.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.bysl:2435:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2563:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2435:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2563:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2435:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2563:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2436:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2564:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2437:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2565:/ 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_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.bysl:2440:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2568:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:2440:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2568:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V13*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2564:/ clear"); /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2564:/ clear"); /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2432:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2560:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:2432:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2560:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2432:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2560:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2432:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2560:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2432:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2560:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2432:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2560:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -24542,14 +26091,14 @@ basilys_trace_end("MEXPAND_OBJECT", callcount); basilys_topframe = (struct call #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_46_MEXPAND_OBJECT*/ +} /*end rout_48_MEXPAND_OBJECT*/ static basilys_ptr_t -rout_47_MEXPAND_UNSAFE_PUT_FIELDS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_49_MEXPAND_UNSAFE_PUT_FIELDS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -24560,7 +26109,7 @@ rout_47_MEXPAND_UNSAFE_PUT_FIELDS(basilysclosure_ptr_t closp_, basilys_ptr_t fir #define callcount 0L #endif - struct frame_rout_47_MEXPAND_UNSAFE_PUT_FIELDS_st { unsigned nbvar; + struct frame_rout_49_MEXPAND_UNSAFE_PUT_FIELDS_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -24592,18 +26141,18 @@ basilys_trace_start("MEXPAND_UNSAFE_PUT_FIELDS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ 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.bysl:2448:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ 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); @@ -24612,26 +26161,26 @@ basilys_trace_start("MEXPAND_UNSAFE_PUT_FIELDS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2448:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2576:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2449:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2449:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2577:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2577:/ 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.bysl:2449:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2577:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2449:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2577:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2449:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2577:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2449:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2577:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2449)?(2449):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2577)?(2577):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -24640,34 +26189,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2448:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2449:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2577:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2449:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2577:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2449:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2577:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2450:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2450:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2578:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2578:/ 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.bysl:2450:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2578:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2450:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2578:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2450:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2578:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2450:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2578:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2450)?(2450):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2578)?(2578):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -24676,25 +26225,25 @@ BASILYS_LOCATION("warmelt-macro.bysl:2448:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2450:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2578:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2450:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2578:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2450:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2578:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2451:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2579:/ block"); /*block*/{ /*_.FIELDS__V10*/ curfptr[9] = (/*nil*/NULL);; /*_.FIELDNAMS__V11*/ curfptr[10] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:2453:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2581:/ 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.bysl:2454:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2582:/ 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; }; ; @@ -24706,60 +26255,60 @@ BASILYS_LOCATION("warmelt-macro.bysl:2448:/ 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.bysl:2458:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2586:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2458:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2458:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2586:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2586:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2459:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2587:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2459:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2587:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2459:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2587:/ 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.bysl:2458:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2586:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2458:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2586:/ 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.bysl:2462:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2590:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_TAIL__V19*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.bysl:2463:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2591:/ block"); /*block*/{ /*_.FLDLIST__V22*/ curfptr[21] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));; - BASILYS_LOCATION("warmelt-macro.bysl:2465:/ loop"); - /*loop*/{ labloop_INSLOOP_6:;BASILYS_LOCATION("warmelt-macro.bysl:2465:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.bysl:2593:/ loop"); + /*loop*/{ labloop_INSLOOP_6:;BASILYS_LOCATION("warmelt-macro.bysl:2593:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:2465:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2593:/ 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.bysl:2466:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2594:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2466:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2466:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2594:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2594:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2466:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2594:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2466:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2594:/ compute"); /*_.INSLOOP__V24*/ curfptr[23] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2466:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:2594:/ exit"); /*exit*/{ goto labexit_INSLOOP_6;} ;} @@ -24768,16 +26317,16 @@ BASILYS_LOCATION("warmelt-macro.bysl:2448:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2467:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2595:/ 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.bysl:2468:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2596:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2468:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2468:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2596:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2596:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting heyword in UNSAFE_PUT_FIELDS"), (basilys_ptr_t)0); @@ -24787,35 +26336,35 @@ BASILYS_LOCATION("warmelt-macro.bysl:2448:/ block"); ; /*_.PAIR_TAIL__V26*/ curfptr[25] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:2470:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2598:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];; - BASILYS_LOCATION("warmelt-macro.bysl:2471:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2599:/ block"); /*block*/{ /*_.CUREXP__V28*/ curfptr[27] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:2472:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2600:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2472:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2600:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2472:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2600:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.bysl:2472:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2600:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V25*/ curfptr[24]; - BASILYS_LOCATION("warmelt-macro.bysl:2472:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2600:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V28*/ curfptr[27]; - BASILYS_LOCATION("warmelt-macro.bysl:2472:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2600:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2472:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2600:/ 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.bysl:2473:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2601:/ cond"); /*cond*/ if (/*_.FLDA__V29*/ curfptr[28]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2473:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2473:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2601:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2601:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (basilys_ptr_t)(/*_.FLDA__V29*/ curfptr[28])); @@ -24824,73 +26373,73 @@ BASILYS_LOCATION("warmelt-macro.bysl:2448:/ block"); } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2472:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2600:/ clear"); /*clear*/ /*_.FLDA__V29*/ curfptr[28] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2471:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2599:/ clear"); /*clear*/ /*_.CUREXP__V28*/ curfptr[27] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2467:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2595:/ clear"); /*clear*/ /*_.CURFKW__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2467:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2595:/ clear"); /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2467:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2595:/ clear"); /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2467:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2595:/ 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.bysl:2476:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2604:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V31*/ curfptr[27] = /*_.PAIR_TAIL__V30*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2465:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2593:/ clear"); /*clear*/ /*_#IS_PAIR__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2465:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2593:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2465:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2593:/ clear"); /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2465:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2593:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[27] = 0 ;} ; ; goto labloop_INSLOOP_6; - labexit_INSLOOP_6:;BASILYS_LOCATION("warmelt-macro.bysl:2465:/ loopepilog"); + labexit_INSLOOP_6:;BASILYS_LOCATION("warmelt-macro.bysl:2593:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V23*/ curfptr[22] = /*_.INSLOOP__V24*/ curfptr[23];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2478:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2606:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2478:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2606:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2478:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2606:/ 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.bysl:2479:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2607:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2479:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2607:/ 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.bysl:2479:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2607:/ 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.bysl:2479:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2607:/ 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.bysl:2479:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2607:/ 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"); @@ -24899,60 +26448,60 @@ BASILYS_LOCATION("warmelt-macro.bysl:2448:/ block"); ; /*_.LET___V32*/ curfptr[24] = /*_.INST___V34*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2478:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2606:/ clear"); /*clear*/ /*_.FASTUP__V33*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2478:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2606:/ clear"); /*clear*/ /*_.INST___V34*/ curfptr[26] = 0 ;} ; /*_.LET___V21*/ curfptr[20] = /*_.LET___V32*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2463:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2591:/ clear"); /*clear*/ /*_.FLDLIST__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2463:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2591:/ clear"); /*clear*/ /*_.FOREVER___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2463:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2591:/ clear"); /*clear*/ /*_.LET___V32*/ curfptr[24] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[20];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2579:/ clear"); /*clear*/ /*_.FIELDS__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2579:/ clear"); /*clear*/ /*_.FIELDNAMS__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2579:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2579:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2579:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2579:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2579:/ clear"); /*clear*/ /*_.OBJSRC__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2579:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2579:/ clear"); /*clear*/ /*_.OBJEXP__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2579:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2579:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2451:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2579:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[20] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -24963,14 +26512,14 @@ basilys_trace_end("MEXPAND_UNSAFE_PUT_FIELDS", callcount); basilys_topframe = ( #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_47_MEXPAND_UNSAFE_PUT_FIELDS*/ +} /*end rout_49_MEXPAND_UNSAFE_PUT_FIELDS*/ static basilys_ptr_t -rout_48_MEXPAND_PUT_FIELDS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_50_MEXPAND_PUT_FIELDS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -24981,7 +26530,7 @@ rout_48_MEXPAND_PUT_FIELDS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_ #define callcount 0L #endif - struct frame_rout_48_MEXPAND_PUT_FIELDS_st { unsigned nbvar; + struct frame_rout_50_MEXPAND_PUT_FIELDS_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -25013,18 +26562,18 @@ basilys_trace_start("MEXPAND_PUT_FIELDS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ 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.bysl:2488:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ 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); @@ -25033,26 +26582,26 @@ basilys_trace_start("MEXPAND_PUT_FIELDS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2488:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2616:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2489:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2489:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2617:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2617:/ 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.bysl:2489:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2617:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2489:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2617:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2489:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2617:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2489:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2617:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2489)?(2489):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2617)?(2617):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -25061,34 +26610,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2488:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2489:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2617:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2489:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2617:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2489:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2617:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2490:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2490:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2618:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2618:/ 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.bysl:2490:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2618:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2490:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2618:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2490:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2618:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2490:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2618:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2490)?(2490):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2618)?(2618):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -25097,25 +26646,25 @@ BASILYS_LOCATION("warmelt-macro.bysl:2488:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2490:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2618:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2490:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2618:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2490:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2618:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2491:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2619:/ block"); /*block*/{ /*_.FIELDS__V10*/ curfptr[9] = (/*nil*/NULL);; /*_.FIELDNAMS__V11*/ curfptr[10] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:2493:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2621:/ 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.bysl:2494:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2622:/ 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; }; ; @@ -25127,60 +26676,60 @@ BASILYS_LOCATION("warmelt-macro.bysl:2488:/ 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.bysl:2498:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2626:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2498:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2498:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2626:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2626:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2499:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2627:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2499:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2627:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2499:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2627:/ 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.bysl:2498:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2626:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2498:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2626:/ 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.bysl:2502:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2630:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_TAIL__V19*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.bysl:2503:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2631:/ block"); /*block*/{ /*_.FLDLIST__V22*/ curfptr[21] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));; - BASILYS_LOCATION("warmelt-macro.bysl:2505:/ loop"); - /*loop*/{ labloop_INSLOOP_7:;BASILYS_LOCATION("warmelt-macro.bysl:2505:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.bysl:2633:/ loop"); + /*loop*/{ labloop_INSLOOP_7:;BASILYS_LOCATION("warmelt-macro.bysl:2633:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:2505:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2633:/ 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.bysl:2506:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2634:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2506:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2506:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2634:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2634:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2506:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2634:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2506:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2634:/ compute"); /*_.INSLOOP__V24*/ curfptr[23] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2506:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:2634:/ exit"); /*exit*/{ goto labexit_INSLOOP_7;} ;} @@ -25189,16 +26738,16 @@ BASILYS_LOCATION("warmelt-macro.bysl:2488:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2507:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2635:/ 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.bysl:2508:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2636:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2508:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2508:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2636:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2636:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting heyword in PUT_FIELDS"), (basilys_ptr_t)0); @@ -25208,35 +26757,35 @@ BASILYS_LOCATION("warmelt-macro.bysl:2488:/ block"); ; /*_.PAIR_TAIL__V26*/ curfptr[25] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:2510:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2638:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];; - BASILYS_LOCATION("warmelt-macro.bysl:2511:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2639:/ block"); /*block*/{ /*_.CUREXP__V28*/ curfptr[27] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:2512:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2640:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2512:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2640:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2512:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2640:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.bysl:2512:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2640:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V25*/ curfptr[24]; - BASILYS_LOCATION("warmelt-macro.bysl:2512:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2640:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V28*/ curfptr[27]; - BASILYS_LOCATION("warmelt-macro.bysl:2512:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2640:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2512:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2640:/ 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.bysl:2513:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2641:/ cond"); /*cond*/ if (/*_.FLDA__V29*/ curfptr[28]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2513:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2513:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2641:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2641:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (basilys_ptr_t)(/*_.FLDA__V29*/ curfptr[28])); @@ -25245,73 +26794,73 @@ BASILYS_LOCATION("warmelt-macro.bysl:2488:/ block"); } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2512:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2640:/ clear"); /*clear*/ /*_.FLDA__V29*/ curfptr[28] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2511:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2639:/ clear"); /*clear*/ /*_.CUREXP__V28*/ curfptr[27] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2507:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2635:/ clear"); /*clear*/ /*_.CURFKW__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2507:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2635:/ clear"); /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2507:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2635:/ clear"); /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2507:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2635:/ 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.bysl:2516:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2644:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V31*/ curfptr[27] = /*_.PAIR_TAIL__V30*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2505:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2633:/ clear"); /*clear*/ /*_#IS_PAIR__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2505:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2633:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2505:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2633:/ clear"); /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2505:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2633:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[27] = 0 ;} ; ; goto labloop_INSLOOP_7; - labexit_INSLOOP_7:;BASILYS_LOCATION("warmelt-macro.bysl:2505:/ loopepilog"); + labexit_INSLOOP_7:;BASILYS_LOCATION("warmelt-macro.bysl:2633:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V23*/ curfptr[22] = /*_.INSLOOP__V24*/ curfptr[23];; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2518:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2646:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2518:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2646:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2518:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2646:/ 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.bysl:2519:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2647:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2519:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2647:/ 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.bysl:2519:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2647:/ 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.bysl:2519:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2647:/ 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.bysl:2519:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2647:/ 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"); @@ -25320,60 +26869,60 @@ BASILYS_LOCATION("warmelt-macro.bysl:2488:/ block"); ; /*_.LET___V32*/ curfptr[24] = /*_.INST___V34*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2518:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2646:/ clear"); /*clear*/ /*_.FASTUP__V33*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2518:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2646:/ clear"); /*clear*/ /*_.INST___V34*/ curfptr[26] = 0 ;} ; /*_.LET___V21*/ curfptr[20] = /*_.LET___V32*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2503:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2631:/ clear"); /*clear*/ /*_.FLDLIST__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2503:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2631:/ clear"); /*clear*/ /*_.FOREVER___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2503:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2631:/ clear"); /*clear*/ /*_.LET___V32*/ curfptr[24] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[20];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2619:/ clear"); /*clear*/ /*_.FIELDS__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2619:/ clear"); /*clear*/ /*_.FIELDNAMS__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2619:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2619:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2619:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2619:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2619:/ clear"); /*clear*/ /*_.OBJSRC__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2619:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2619:/ clear"); /*clear*/ /*_.OBJEXP__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2619:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2619:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2491:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2619:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[20] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -25384,14 +26933,14 @@ basilys_trace_end("MEXPAND_PUT_FIELDS", callcount); basilys_topframe = (struct #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_48_MEXPAND_PUT_FIELDS*/ +} /*end rout_50_MEXPAND_PUT_FIELDS*/ static basilys_ptr_t -rout_49_MEXPAND_UNSAFE_GET_FIELD(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_51_MEXPAND_UNSAFE_GET_FIELD(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -25402,7 +26951,7 @@ rout_49_MEXPAND_UNSAFE_GET_FIELD(basilysclosure_ptr_t closp_, basilys_ptr_t firs #define callcount 0L #endif - struct frame_rout_49_MEXPAND_UNSAFE_GET_FIELD_st { unsigned nbvar; + struct frame_rout_51_MEXPAND_UNSAFE_GET_FIELD_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -25434,18 +26983,18 @@ basilys_trace_start("MEXPAND_UNSAFE_GET_FIELD", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2528:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2528:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ 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.bysl:2528:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ 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); @@ -25454,26 +27003,26 @@ basilys_trace_start("MEXPAND_UNSAFE_GET_FIELD", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2528:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2656:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2529:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2529:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2657:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2657:/ 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.bysl:2529:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2657:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2529:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2657:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2529:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2657:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2529:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2657:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2529)?(2529):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2657)?(2657):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -25482,34 +27031,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2528:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2529:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2657:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2529:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2657:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2529:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2657:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2530:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2530:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2658:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2658:/ 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.bysl:2530:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2658:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2530:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2658:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2530:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2658:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2530:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2658:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2530)?(2530):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2658)?(2658):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -25518,23 +27067,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:2528:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2530:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2658:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2530:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2658:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2530:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2658:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2531:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2659:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2531:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2659:/ 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.bysl:2532:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2660:/ 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; }; ; @@ -25546,56 +27095,56 @@ BASILYS_LOCATION("warmelt-macro.bysl:2528:/ 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.bysl:2536:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2664:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2536:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2536:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2664:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2664:/ block"); /*block*/{ 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.bysl:2539:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2667:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:2539:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2667:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2537:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2665:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[16];;} ; /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2536:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2664:/ clear"); /*clear*/ /*_.THE_NULL__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2536:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2664:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2536:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2664:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2536:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2664:/ 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.bysl:2540:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2668:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V20*/ curfptr[16] = /*_.PAIR_TAIL__V19*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:2541:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2669:/ 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.bysl:2542:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2670:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V24*/ curfptr[23] = /*_.PAIR_TAIL__V23*/ curfptr[22];; - BASILYS_LOCATION("warmelt-macro.bysl:2543:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2671:/ cond"); /*cond*/ if (/*_.CURPAIR__V13*/ curfptr[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2543:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2543:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2671:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2671:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "UNSAFE_GET_FIELD with more than two sons"), (basilys_ptr_t)0); @@ -25603,21 +27152,21 @@ BASILYS_LOCATION("warmelt-macro.bysl:2528:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2546:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2674:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2546:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2674:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2546:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2674:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V11*/ curfptr[10]; - BASILYS_LOCATION("warmelt-macro.bysl:2546:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2674:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V14*/ curfptr[13]; - BASILYS_LOCATION("warmelt-macro.bysl:2546:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2674:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V22*/ curfptr[21]; - BASILYS_LOCATION("warmelt-macro.bysl:2546:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2674:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2546:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2674:/ 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); } @@ -25626,68 +27175,68 @@ BASILYS_LOCATION("warmelt-macro.bysl:2528:/ 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.bysl:2547:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2675:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2547:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2547:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2675:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2675:/ block"); /*block*/{ 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.bysl:2550:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2678:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V28*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.bysl:2550:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2678:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2548:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2676:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[28];;} ; /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2547:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2675:/ clear"); /*clear*/ /*_.THE_NULL__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2547:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2675:/ clear"); /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2547:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2675:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2547:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2675:/ cond.else"); /*_.IF___V27*/ curfptr[26] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2551:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2679:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2551:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2679:/ 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.bysl:2552:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2680:/ 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.bysl:2553:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2681:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2553:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2681:/ 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.bysl:2553:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2681:/ 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.bysl:2553:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2681:/ 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.bysl:2553:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2681:/ 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"); @@ -25696,73 +27245,73 @@ BASILYS_LOCATION("warmelt-macro.bysl:2528:/ block"); ; /*_.LET___V31*/ curfptr[27] = /*_.INST___V34*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2551:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2679:/ clear"); /*clear*/ /*_.FLD__V32*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2551:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2679:/ clear"); /*clear*/ /*_.EXP__V33*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2551:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2679:/ clear"); /*clear*/ /*_.INST___V34*/ curfptr[33] = 0 ;} ; /*_.LET___V25*/ curfptr[24] = /*_.LET___V31*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2546:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); /*clear*/ /*_.FLDA__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2546:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2546:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2546:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2546:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); /*clear*/ /*_.LET___V31*/ curfptr[27] = 0 ;} ; /*_.LET___V21*/ curfptr[17] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2541:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2669:/ clear"); /*clear*/ /*_.CUREXP__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2541:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2669:/ clear"); /*clear*/ /*_.PAIR_TAIL__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2541:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2669:/ clear"); /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2541:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2669:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2531:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2659:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2531:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2659:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2531:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2659:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2531:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2659:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2531:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2659:/ clear"); /*clear*/ /*_.CURFKW__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2531:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2659:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2531:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2659:/ clear"); /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2531:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2659:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2531:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2659:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2531:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2659:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[17] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2528:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.bysl:2528:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2528:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2528:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2528:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -25773,14 +27322,14 @@ basilys_trace_end("MEXPAND_UNSAFE_GET_FIELD", callcount); basilys_topframe = (s #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_49_MEXPAND_UNSAFE_GET_FIELD*/ +} /*end rout_51_MEXPAND_UNSAFE_GET_FIELD*/ static basilys_ptr_t -rout_50_MEXPAND_GET_FIELD(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_52_MEXPAND_GET_FIELD(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -25791,7 +27340,7 @@ rout_50_MEXPAND_GET_FIELD(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, #define callcount 0L #endif - struct frame_rout_50_MEXPAND_GET_FIELD_st { unsigned nbvar; + struct frame_rout_52_MEXPAND_GET_FIELD_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -25823,18 +27372,18 @@ basilys_trace_start("MEXPAND_GET_FIELD", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ 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.bysl:2562:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ 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); @@ -25843,26 +27392,26 @@ basilys_trace_start("MEXPAND_GET_FIELD", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2562:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2690:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2563:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2563:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2691:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2691:/ 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.bysl:2563:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2691:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2563:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2691:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2563:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2691:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2563:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2691:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2563)?(2563):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2691)?(2691):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -25871,34 +27420,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2562:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2563:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2691:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2563:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2691:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2563:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2691:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2564:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2564:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2692:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2692:/ 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.bysl:2564:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2692:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2564:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2692:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2564:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2692:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2564:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2692:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2564)?(2564):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2692)?(2692):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -25907,23 +27456,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:2562:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2564:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2692:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2564:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2692:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2564:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2692:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2565:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2693:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2565:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2693:/ 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.bysl:2566:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2694:/ 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; }; ; @@ -25935,56 +27484,56 @@ BASILYS_LOCATION("warmelt-macro.bysl:2562:/ 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.bysl:2570:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2698:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2570:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2570:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2698:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2698:/ block"); /*block*/{ 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.bysl:2573:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2701:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:2573:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2701:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2571:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2699:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[16];;} ; /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2570:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2698:/ clear"); /*clear*/ /*_.THE_NULL__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2570:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2698:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2570:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2698:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2570:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2698:/ 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.bysl:2574:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2702:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V20*/ curfptr[16] = /*_.PAIR_TAIL__V19*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:2575:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2703:/ 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.bysl:2576:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2704:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V24*/ curfptr[23] = /*_.PAIR_TAIL__V23*/ curfptr[22];; - BASILYS_LOCATION("warmelt-macro.bysl:2577:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2705:/ cond"); /*cond*/ if (/*_.CURPAIR__V13*/ curfptr[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2577:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2577:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2705:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2705:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "UNSAFE_GET_FIELD with more than two sons"), (basilys_ptr_t)0); @@ -25992,21 +27541,21 @@ BASILYS_LOCATION("warmelt-macro.bysl:2562:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2580:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2708:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2580:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2708:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2580:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2708:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V11*/ curfptr[10]; - BASILYS_LOCATION("warmelt-macro.bysl:2580:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2708:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V14*/ curfptr[13]; - BASILYS_LOCATION("warmelt-macro.bysl:2580:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2708:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V22*/ curfptr[21]; - BASILYS_LOCATION("warmelt-macro.bysl:2580:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2708:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2580:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2708:/ 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); } @@ -26015,68 +27564,68 @@ BASILYS_LOCATION("warmelt-macro.bysl:2562:/ 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.bysl:2581:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2709:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2581:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2581:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2709:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2709:/ block"); /*block*/{ 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.bysl:2584:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2712:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V28*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.bysl:2584:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2712:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2582:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2710:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[28];;} ; /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2581:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2709:/ clear"); /*clear*/ /*_.THE_NULL__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2581:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2709:/ clear"); /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2581:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2709:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2581:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2709:/ cond.else"); /*_.IF___V27*/ curfptr[26] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2585:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2713:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2585:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2713:/ 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.bysl:2586:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2714:/ 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.bysl:2587:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2715:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2587:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2715:/ 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.bysl:2587:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2715:/ 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.bysl:2587:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2715:/ 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.bysl:2587:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2715:/ 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"); @@ -26085,73 +27634,73 @@ BASILYS_LOCATION("warmelt-macro.bysl:2562:/ block"); ; /*_.LET___V31*/ curfptr[27] = /*_.INST___V34*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2585:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2713:/ clear"); /*clear*/ /*_.FLD__V32*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2585:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2713:/ clear"); /*clear*/ /*_.EXP__V33*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2585:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2713:/ clear"); /*clear*/ /*_.INST___V34*/ curfptr[33] = 0 ;} ; /*_.LET___V25*/ curfptr[24] = /*_.LET___V31*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2580:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2708:/ clear"); /*clear*/ /*_.FLDA__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2580:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2708:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2580:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2708:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2580:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2708:/ clear"); /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2580:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2708:/ clear"); /*clear*/ /*_.LET___V31*/ curfptr[27] = 0 ;} ; /*_.LET___V21*/ curfptr[17] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2575:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2703:/ clear"); /*clear*/ /*_.CUREXP__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2575:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2703:/ clear"); /*clear*/ /*_.PAIR_TAIL__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2575:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2703:/ clear"); /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2575:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2703:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2565:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2693:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2565:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2693:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2565:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2693:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2565:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2693:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2565:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2693:/ clear"); /*clear*/ /*_.CURFKW__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2565:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2693:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2565:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2693:/ clear"); /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2565:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2693:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2565:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2693:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2565:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2693:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[17] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -26162,14 +27711,14 @@ basilys_trace_end("MEXPAND_GET_FIELD", callcount); basilys_topframe = (struct c #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_50_MEXPAND_GET_FIELD*/ +} /*end rout_52_MEXPAND_GET_FIELD*/ static basilys_ptr_t -rout_51_MEXPAND_SETQ(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_53_MEXPAND_SETQ(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -26180,7 +27729,7 @@ rout_51_MEXPAND_SETQ(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, cons #define callcount 0L #endif - struct frame_rout_51_MEXPAND_SETQ_st { unsigned nbvar; + struct frame_rout_53_MEXPAND_SETQ_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -26212,18 +27761,18 @@ basilys_trace_start("MEXPAND_SETQ", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2597:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2597:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ 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.bysl:2597:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ 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); @@ -26232,26 +27781,26 @@ basilys_trace_start("MEXPAND_SETQ", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2597:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2725:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2598:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2598:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2726:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2726:/ 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.bysl:2598:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2726:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2598:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2726:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2598:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2726:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2598:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2726:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2598)?(2598):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2726)?(2726):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -26260,34 +27809,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2597:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2598:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2598:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2598:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2726:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2599:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2599:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2727:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2727:/ 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.bysl:2599:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2727:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2599:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2727:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2599:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2727:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2599:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2727:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2599)?(2599):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2727)?(2727):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -26296,23 +27845,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:2597:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2599:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2727:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2599:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2727:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2599:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2727:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2600:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2728:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2600:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2728:/ 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.bysl:2601:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2729:/ 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; }; ; @@ -26324,56 +27873,56 @@ BASILYS_LOCATION("warmelt-macro.bysl:2597:/ 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.bysl:2605:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2733:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2605:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2605:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2733:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2733:/ block"); /*block*/{ 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.bysl:2608:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2736:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:2608:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2736:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2606:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2734:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[16];;} ; /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2605:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2733:/ clear"); /*clear*/ /*_.THE_NULL__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2605:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2733:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2605:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2733:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2605:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2733:/ 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.bysl:2609:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2737:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V20*/ curfptr[16] = /*_.PAIR_TAIL__V19*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:2610:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2738:/ 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.bysl:2611:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2739:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V24*/ curfptr[23] = /*_.PAIR_TAIL__V23*/ curfptr[22];; - BASILYS_LOCATION("warmelt-macro.bysl:2612:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2740:/ cond"); /*cond*/ if (/*_.CURPAIR__V13*/ curfptr[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2612:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2612:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2740:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2740:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "SETQ with more than two sons"), (basilys_ptr_t)0); @@ -26381,35 +27930,35 @@ BASILYS_LOCATION("warmelt-macro.bysl:2597:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2616:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2744:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2616:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2744:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2616:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2744:/ 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.bysl:2613:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2741:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2613:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2741:/ 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.bysl:2613:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2741:/ 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.bysl:2613:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2741:/ 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.bysl:2613:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2741:/ 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"); @@ -26418,53 +27967,53 @@ BASILYS_LOCATION("warmelt-macro.bysl:2597:/ block"); ; /*_.LET___V21*/ curfptr[17] = /*_.INST___V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2610:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2738:/ clear"); /*clear*/ /*_.CUREXP__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2610:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2738:/ clear"); /*clear*/ /*_.PAIR_TAIL__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2610:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2738:/ clear"); /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2610:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2738:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2610:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2738:/ clear"); /*clear*/ /*_.INST___V26*/ curfptr[25] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2728:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2728:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2728:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2728:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2728:/ clear"); /*clear*/ /*_.CURSYM__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2728:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2728:/ clear"); /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2728:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2728:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2728:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[17] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2597:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.bysl:2597:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2597:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2597:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2597:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -26475,14 +28024,14 @@ basilys_trace_end("MEXPAND_SETQ", callcount); basilys_topframe = (struct callfr #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_51_MEXPAND_SETQ*/ +} /*end rout_53_MEXPAND_SETQ*/ static basilys_ptr_t -rout_52_MEXPAND_IF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_54_MEXPAND_IF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -26493,7 +28042,7 @@ rout_52_MEXPAND_IF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const #define callcount 0L #endif - struct frame_rout_52_MEXPAND_IF_st { unsigned nbvar; + struct frame_rout_54_MEXPAND_IF_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -26525,18 +28074,18 @@ basilys_trace_start("MEXPAND_IF", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2623:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2623:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ 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.bysl:2623:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ 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); @@ -26545,26 +28094,26 @@ basilys_trace_start("MEXPAND_IF", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2623:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2751:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2624:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2624:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2752:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2752:/ 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.bysl:2624:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2752:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2624:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2752:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2624:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2752:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2624:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2752:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2624)?(2624):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2752)?(2752):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -26573,34 +28122,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2623:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2624:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2752:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2624:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2752:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2624:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2752:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2625:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2625:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2753:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2753:/ 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.bysl:2625:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2753:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2625:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2753:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2625:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2753:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2625:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2753:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2625)?(2625):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2753)?(2753):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -26609,57 +28158,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:2623:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2625:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2753:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2625:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2753:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2625:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2753:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2626:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2626:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2754:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2754:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2626:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2754:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2626:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2754:/ apply.arg"); argtab[0].bp_cstring = "mexpand_if sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2626:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2754:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2626:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2754:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2626:/ apply.arg"); - argtab[3].bp_long = 2626; + BASILYS_LOCATION("warmelt-macro.bysl:2754:/ apply.arg"); + argtab[3].bp_long = 2754; /*_.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.bysl:2626:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2754:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2626:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2754:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2626:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2754:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2627:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2755:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2628:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2756:/ 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.bysl:2629:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2757:/ 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; }; ; @@ -26673,10 +28222,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:2623:/ 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.bysl:2632:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2760:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2632:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2632:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2760:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2760:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing condition in IF"), (basilys_ptr_t)0); @@ -26686,16 +28235,16 @@ BASILYS_LOCATION("warmelt-macro.bysl:2623:/ block"); ; /*_.PAIR_TAIL__V17*/ curfptr[16] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:2634:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2762:/ 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.bysl:2635:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2763:/ cond"); /*cond*/ if (/*_#NOT__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2635:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2635:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2763:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2763:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing then in IF"), (basilys_ptr_t)0); @@ -26703,174 +28252,174 @@ BASILYS_LOCATION("warmelt-macro.bysl:2623:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2637:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2765:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2637:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2765:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2637:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2765:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2637:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2765:/ 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.bysl:2638:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2638:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2766:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2766:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2638:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2766:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2638:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2766:/ apply.arg"); argtab[0].bp_cstring = "mexpand_if xcond"; - BASILYS_LOCATION("warmelt-macro.bysl:2638:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2766:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.bysl:2638:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2766:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2638:/ apply.arg"); - argtab[3].bp_long = 2638; + BASILYS_LOCATION("warmelt-macro.bysl:2766:/ apply.arg"); + argtab[3].bp_long = 2766; /*_.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.bysl:2638:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2766:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2638:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2766:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2638:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2766:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2639:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2767:/ 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.bysl:2640:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2768:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V26*/ curfptr[25] = /*_.PAIR_TAIL__V25*/ curfptr[24];; - BASILYS_LOCATION("warmelt-macro.bysl:2641:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2769:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2641:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2769:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2641:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2769:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2641:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2769:/ 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.bysl:2642:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2642:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2770:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2770:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2642:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2770:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2642:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2770:/ apply.arg"); argtab[0].bp_cstring = "mexpand_if xthen"; - BASILYS_LOCATION("warmelt-macro.bysl:2642:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2770:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.bysl:2642:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2770:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2642:/ apply.arg"); - argtab[3].bp_long = 2642; + BASILYS_LOCATION("warmelt-macro.bysl:2770:/ apply.arg"); + argtab[3].bp_long = 2770; /*_.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.bysl:2642:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2770:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2642:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2770:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2642:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2770:/ 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.bysl:2643:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2771:/ cond"); /*cond*/ if (/*_#IS_PAIR__L10*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2643:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2643:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2771:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2771:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2644:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2772:/ block"); /*block*/{ /*_.CURELSE__V33*/ curfptr[32] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:2645:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2773:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2645:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2773:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2645:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2773:/ 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.bysl:2646:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2646:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2774:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2774:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2646:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2774:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2646:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2774:/ apply.arg"); argtab[0].bp_cstring = "mexpand_if xelse"; - BASILYS_LOCATION("warmelt-macro.bysl:2646:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2774:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10]; - BASILYS_LOCATION("warmelt-macro.bysl:2646:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2774:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2646:/ apply.arg"); - argtab[3].bp_long = 2646; + BASILYS_LOCATION("warmelt-macro.bysl:2774:/ apply.arg"); + argtab[3].bp_long = 2774; /*_.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.bysl:2646:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2774:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2646:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2774:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2646:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2774:/ 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.bysl:2647:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2775:/ 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.bysl:2648:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2776:/ cond"); /*cond*/ if (/*_#IS_PAIR__L12*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2648:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2648:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2776:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2776:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "IF with more than three sons"), (basilys_ptr_t)0); @@ -26878,31 +28427,31 @@ BASILYS_LOCATION("warmelt-macro.bysl:2623:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2650:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2778:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2651:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2779:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2651:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2779:/ 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.bysl:2651:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2779:/ 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.bysl:2651:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2779:/ 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.bysl:2651:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2779:/ 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.bysl:2651:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2779:/ 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"); @@ -26911,100 +28460,100 @@ BASILYS_LOCATION("warmelt-macro.bysl:2623:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2657:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2657:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2785:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2785:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2657:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2785:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2657:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2785:/ apply.arg"); argtab[0].bp_cstring = "mexpand_if with else return rese"; - BASILYS_LOCATION("warmelt-macro.bysl:2657:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2785:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.bysl:2657:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2785:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2657:/ apply.arg"); - argtab[3].bp_long = 2657; + BASILYS_LOCATION("warmelt-macro.bysl:2785:/ apply.arg"); + argtab[3].bp_long = 2785; /*_.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.bysl:2657:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2785:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2657:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2785:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2657:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2785:/ cppif.else"); /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2658:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2786:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RESE__V40*/ curfptr[39];; - BASILYS_LOCATION("warmelt-macro.bysl:2658:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2786:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V39*/ curfptr[38] = /*_.RETURN___V44*/ curfptr[42];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2650:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2778:/ clear"); /*clear*/ /*_.RESE__V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2650:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2778:/ clear"); /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2650:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2778:/ clear"); /*clear*/ /*_.RETURN___V44*/ curfptr[42] = 0 ;} ; /*_.LET___V32*/ curfptr[31] = /*_.LET___V39*/ curfptr[38];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2644:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2772:/ clear"); /*clear*/ /*_.CURELSE__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2644:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2772:/ clear"); /*clear*/ /*_.XELSE__V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2644:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2772:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2644:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2772:/ clear"); /*clear*/ /*_.PAIR_TAIL__V37*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2644:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2772:/ clear"); /*clear*/ /*_.SETQ___V38*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2644:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2772:/ clear"); /*clear*/ /*_#IS_PAIR__L12*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2644:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2772:/ clear"); /*clear*/ /*_.LET___V39*/ curfptr[38] = 0 ;} ; /*_.IFELSE___V31*/ curfptr[29] = /*_.LET___V32*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2643:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2771:/ clear"); /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2643:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2771:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2643:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2771:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2659:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2787:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2659:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2787:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2659:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2787:/ 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.bysl:2659:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2787:/ 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.bysl:2659:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2787:/ 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.bysl:2659:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2787:/ 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"); @@ -27013,134 +28562,134 @@ BASILYS_LOCATION("warmelt-macro.bysl:2623:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2663:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2663:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2791:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2791:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2663:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2791:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2663:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2791:/ apply.arg"); argtab[0].bp_cstring = "mexpand_if plain return resp"; - BASILYS_LOCATION("warmelt-macro.bysl:2663:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2791:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.bysl:2663:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2791:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2663:/ apply.arg"); - argtab[3].bp_long = 2663; + BASILYS_LOCATION("warmelt-macro.bysl:2791:/ apply.arg"); + argtab[3].bp_long = 2791; /*_.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.bysl:2663:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2791:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2663:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2791:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2663:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2791:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2664:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2792:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RESP__V46*/ curfptr[41];; - BASILYS_LOCATION("warmelt-macro.bysl:2664:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2792:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V45*/ curfptr[39] = /*_.RETURN___V50*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2659:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2787:/ clear"); /*clear*/ /*_.RESP__V46*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2659:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2787:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2659:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2787:/ clear"); /*clear*/ /*_.RETURN___V50*/ curfptr[34] = 0 ;} ; /*_.IFELSE___V31*/ curfptr[29] = /*_.LET___V45*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2643:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2771:/ clear"); /*clear*/ /*_.LET___V45*/ curfptr[39] = 0 ;} ; } ; /*_.LET___V27*/ curfptr[26] = /*_.IFELSE___V31*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2641:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2769:/ clear"); /*clear*/ /*_.XTHEN__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2641:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2769:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2641:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2769:/ clear"); /*clear*/ /*_#IS_PAIR__L10*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2641:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2769:/ clear"); /*clear*/ /*_.IFELSE___V31*/ curfptr[29] = 0 ;} ; /*_.LET___V23*/ curfptr[21] = /*_.LET___V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2639:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2767:/ clear"); /*clear*/ /*_.CURTHEN__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2639:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2767:/ clear"); /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2639:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2767:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2639:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2767:/ clear"); /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;} ; /*_.LET___V19*/ curfptr[18] = /*_.LET___V23*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2637:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2765:/ clear"); /*clear*/ /*_.XCOND__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2637:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2765:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2637:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2765:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[21] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2627:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2755:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2627:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2755:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2627:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2755:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2627:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2755:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2627:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2755:/ clear"); /*clear*/ /*_.CURIF__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2627:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2755:/ clear"); /*clear*/ /*_#IS_PAIR__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2627:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2755:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2627:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2755:/ clear"); /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2627:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2755:/ clear"); /*clear*/ /*_.SETQ___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2627:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2755:/ clear"); /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2627:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2755:/ clear"); /*clear*/ /*_#NOT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2627:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2755:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2623:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:2623:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2623:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2623:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2623:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2623:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -27151,14 +28700,14 @@ basilys_trace_end("MEXPAND_IF", callcount); basilys_topframe = (struct callfram #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_52_MEXPAND_IF*/ +} /*end rout_54_MEXPAND_IF*/ static basilys_ptr_t -rout_53_MEXPAND_CPPIF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_55_MEXPAND_CPPIF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -27169,7 +28718,7 @@ rout_53_MEXPAND_CPPIF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, con #define callcount 0L #endif - struct frame_rout_53_MEXPAND_CPPIF_st { unsigned nbvar; + struct frame_rout_55_MEXPAND_CPPIF_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -27201,18 +28750,18 @@ basilys_trace_start("MEXPAND_CPPIF", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ 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.bysl:2670:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ 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); @@ -27221,26 +28770,26 @@ basilys_trace_start("MEXPAND_CPPIF", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2670:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2798:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2671:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2671:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2799:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2799:/ 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.bysl:2671:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2799:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2671:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2799:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2671:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2799:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2671:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2799:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2671)?(2671):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2799)?(2799):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -27249,34 +28798,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2670:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2671:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2799:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2671:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2799:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2671:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2799:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2672:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2672:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2800:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2800:/ 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.bysl:2672:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2800:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2672:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2800:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2672:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2800:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2672:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2800:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2672)?(2672):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2800)?(2800):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -27285,57 +28834,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:2670:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2672:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2800:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2672:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2800:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2672:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2800:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2673:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2673:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2801:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2801:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2673:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2801:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2673:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2801:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cppif sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2673:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2801:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2673:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2801:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2673:/ apply.arg"); - argtab[3].bp_long = 2673; + BASILYS_LOCATION("warmelt-macro.bysl:2801:/ apply.arg"); + argtab[3].bp_long = 2801; /*_.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.bysl:2673:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2801:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2673:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2801:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2673:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2801:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2674:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2802:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2675:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2803:/ 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.bysl:2676:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2804:/ 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; }; ; @@ -27349,10 +28898,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:2670:/ 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.bysl:2679:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2807:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2679:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2679:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2807:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2807:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing condition in CPPIF"), (basilys_ptr_t)0); @@ -27362,16 +28911,16 @@ BASILYS_LOCATION("warmelt-macro.bysl:2670:/ block"); ; /*_.PAIR_TAIL__V17*/ curfptr[16] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:2681:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2809:/ 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.bysl:2682:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2810:/ cond"); /*cond*/ if (/*_#NOT__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2682:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2682:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2810:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2810:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing then in CPPIF"), (basilys_ptr_t)0); @@ -27379,121 +28928,121 @@ BASILYS_LOCATION("warmelt-macro.bysl:2670:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2684:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2812:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2684:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2812:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2684:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2812:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2684:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2812:/ 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.bysl:2685:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2685:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2813:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2813:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2685:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2813:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2685:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2813:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cppif xcond"; - BASILYS_LOCATION("warmelt-macro.bysl:2685:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2813:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.bysl:2685:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2813:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2685:/ apply.arg"); - argtab[3].bp_long = 2685; + BASILYS_LOCATION("warmelt-macro.bysl:2813:/ apply.arg"); + argtab[3].bp_long = 2813; /*_.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.bysl:2685:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2813:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2685:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2813:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2685:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2813:/ 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.bysl:2687:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2815:/ cond"); /*cond*/ if (/*_#IS_STRING__L9*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2687:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2815:/ cond.then"); /*_.IFELSE___V23*/ curfptr[21] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2687:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2815:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2687:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2815:/ 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.bysl:2688:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2816:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2688:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2816:/ cond.then"); /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2688:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2816:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2688:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2816:/ block"); /*block*/{ 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.bysl:2691:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2819:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:2691:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2819:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2689:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2817:/ block"); /*block*/{ /*_.PROGN___V26*/ curfptr[25] = /*_.RETURN___V25*/ curfptr[24];;} ; /*_.IFELSE___V24*/ curfptr[23] = /*_.PROGN___V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2688:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2816:/ clear"); /*clear*/ /*_.RETURN___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2688:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2816:/ clear"); /*clear*/ /*_.PROGN___V26*/ curfptr[25] = 0 ;} ; } ; /*_.IFELSE___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2687:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2815:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2687:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2815:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} ; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2692:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2820:/ 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.bysl:2693:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2821:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V30*/ curfptr[29] = /*_.PAIR_TAIL__V29*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.bysl:2694:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2822:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2694:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2822:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2694:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2822:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2694:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2822:/ 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); } @@ -27501,106 +29050,106 @@ BASILYS_LOCATION("warmelt-macro.bysl:2670:/ block"); /*_.XELSE__V33*/ curfptr[32] = (/*nil*/NULL);; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2697:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2697:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2825:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2825:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2697:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2825:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2697:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2825:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cppif xthen"; - BASILYS_LOCATION("warmelt-macro.bysl:2697:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2825:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[9]; - BASILYS_LOCATION("warmelt-macro.bysl:2697:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2825:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2697:/ apply.arg"); - argtab[3].bp_long = 2697; + BASILYS_LOCATION("warmelt-macro.bysl:2825:/ apply.arg"); + argtab[3].bp_long = 2825; /*_.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.bysl:2697:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2825:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2697:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2825:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2697:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2825:/ 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.bysl:2698:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2826:/ cond"); /*cond*/ if (/*_#IS_PAIR__L12*/ curfnum[9]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2698:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2698:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2826:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2826:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2699:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2827:/ block"); /*block*/{ /*_.CURELSE__V36*/ curfptr[34] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:2700:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2828:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2700:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2828:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2700:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2828:/ 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.bysl:2701:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2701:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2829:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2829:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2701:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2829:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2701:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2829:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cppif gotxelse"; - BASILYS_LOCATION("warmelt-macro.bysl:2701:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2829:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.bysl:2701:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2829:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2701:/ apply.arg"); - argtab[3].bp_long = 2701; + BASILYS_LOCATION("warmelt-macro.bysl:2829:/ apply.arg"); + argtab[3].bp_long = 2829; /*_.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.bysl:2701:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2829:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2701:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2829:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2701:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2829:/ 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.bysl:2702:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2830:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V41*/ curfptr[40] = /*_.PAIR_TAIL__V40*/ curfptr[38];; - BASILYS_LOCATION("warmelt-macro.bysl:2703:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2831:/ 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.bysl:2704:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2832:/ cond"); /*cond*/ if (/*_#IS_PAIR__L14*/ curfnum[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2704:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2704:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2832:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2832:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "CPPIF with more than three sons"), (basilys_ptr_t)0); @@ -27609,50 +29158,50 @@ BASILYS_LOCATION("warmelt-macro.bysl:2670:/ block"); } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2699:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2827:/ clear"); /*clear*/ /*_.CURELSE__V36*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2699:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2827:/ clear"); /*clear*/ /*_.GOTXELSE__V37*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2699:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2827:/ clear"); /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2699:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2827:/ clear"); /*clear*/ /*_.PAIR_TAIL__V40*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2699:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2827:/ clear"); /*clear*/ /*_.SETQ___V41*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2699:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2827:/ clear"); /*clear*/ /*_.SETQ___V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2699:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2827:/ clear"); /*clear*/ /*_#IS_PAIR__L14*/ curfnum[12] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2706:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2834:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2706:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2834:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2706:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2834:/ 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.bysl:2706:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2834:/ 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.bysl:2706:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2834:/ 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.bysl:2706:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2834:/ 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.bysl:2706:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2834:/ 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"); @@ -27661,133 +29210,133 @@ BASILYS_LOCATION("warmelt-macro.bysl:2670:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2713:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2713:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2841:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2841:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2713:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2841:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2713:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2841:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cppif return resp"; - BASILYS_LOCATION("warmelt-macro.bysl:2713:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2841:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.bysl:2713:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2841:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2713:/ apply.arg"); - argtab[3].bp_long = 2713; + BASILYS_LOCATION("warmelt-macro.bysl:2841:/ apply.arg"); + argtab[3].bp_long = 2841; /*_.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.bysl:2713:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2841:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2713:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2841:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2713:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2841:/ cppif.else"); /*_.IFCPP___V46*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2714:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2842:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RESP__V44*/ curfptr[36];; - BASILYS_LOCATION("warmelt-macro.bysl:2714:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2842:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V43*/ curfptr[34] = /*_.RETURN___V48*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2706:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2834:/ clear"); /*clear*/ /*_.RESP__V44*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2706:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2834:/ clear"); /*clear*/ /*_.IFCPP___V46*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2706:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2834:/ clear"); /*clear*/ /*_.RETURN___V48*/ curfptr[41] = 0 ;} ; /*_.LET___V31*/ curfptr[30] = /*_.LET___V43*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2694:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2822:/ clear"); /*clear*/ /*_.XTHEN__V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2694:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2822:/ clear"); /*clear*/ /*_.XELSE__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2694:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2822:/ clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2694:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2822:/ clear"); /*clear*/ /*_#IS_PAIR__L12*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2694:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2822:/ clear"); /*clear*/ /*_.LET___V43*/ curfptr[34] = 0 ;} ; /*_.LET___V27*/ curfptr[24] = /*_.LET___V31*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2692:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2820:/ clear"); /*clear*/ /*_.CURTHEN__V28*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2692:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2820:/ clear"); /*clear*/ /*_.PAIR_TAIL__V29*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2692:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2820:/ clear"); /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2692:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2820:/ clear"); /*clear*/ /*_.LET___V31*/ curfptr[30] = 0 ;} ; /*_.LET___V19*/ curfptr[18] = /*_.LET___V27*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2684:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2812:/ clear"); /*clear*/ /*_.XCOND__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2684:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2812:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2684:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2812:/ clear"); /*clear*/ /*_#IS_STRING__L9*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2684:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2812:/ clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2684:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2812:/ clear"); /*clear*/ /*_.LET___V27*/ curfptr[24] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2802:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2802:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2802:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2802:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2802:/ clear"); /*clear*/ /*_.CURIF__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2802:/ clear"); /*clear*/ /*_#IS_PAIR__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2802:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2802:/ clear"); /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2802:/ clear"); /*clear*/ /*_.SETQ___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2802:/ clear"); /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2802:/ clear"); /*clear*/ /*_#NOT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2802:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -27798,14 +29347,14 @@ basilys_trace_end("MEXPAND_CPPIF", callcount); basilys_topframe = (struct callf #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_53_MEXPAND_CPPIF*/ +} /*end rout_55_MEXPAND_CPPIF*/ static basilys_ptr_t -rout_54_MEXPAND_COND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_56_MEXPAND_COND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -27816,7 +29365,7 @@ rout_54_MEXPAND_COND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, cons #define callcount 0L #endif - struct frame_rout_54_MEXPAND_COND_st { unsigned nbvar; + struct frame_rout_56_MEXPAND_COND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -27848,18 +29397,18 @@ basilys_trace_start("MEXPAND_COND", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ 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.bysl:2722:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ 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); @@ -27868,26 +29417,26 @@ basilys_trace_start("MEXPAND_COND", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2722:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2850:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2723:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2723:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2851:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2851:/ 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.bysl:2723:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2851:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2723:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2851:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2723:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2851:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2723:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2851:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2723)?(2723):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2851)?(2851):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -27896,34 +29445,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2722:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2723:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2851:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2723:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2851:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2723:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2851:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2724:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2724:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2852:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2852:/ 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.bysl:2724:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2852:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2724:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2852:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2724:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2852:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2724:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2852:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2724)?(2724):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2852)?(2852):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -27932,57 +29481,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:2722:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2724:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2852:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2724:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2852:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2724:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2852:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2725:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2725:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2853:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2853:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2725:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2853:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2725:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2853:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2725:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2853:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2725:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2853:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2725:/ apply.arg"); - argtab[3].bp_long = 2725; + BASILYS_LOCATION("warmelt-macro.bysl:2853:/ apply.arg"); + argtab[3].bp_long = 2853; /*_.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.bysl:2725:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2853:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2725:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2853:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2725:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2853:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2727:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2855:/ 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.bysl:2728:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2856:/ 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; }; ; @@ -27990,13 +29539,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:2722:/ 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.bysl:2732:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2860:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2732:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:2860:/ 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.bysl:2732:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2860:/ 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]))); @@ -28004,62 +29553,62 @@ BASILYS_LOCATION("warmelt-macro.bysl:2722:/ block"); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2729:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2857:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2729:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2857:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.bysl:2729:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2857:/ 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.bysl:2738:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2866:/ block"); /*block*/{ /*_.LX__V20*/ curfptr[19] = (basilys_multiple_nth((basilys_ptr_t)(/*_.CEXPTUPLE__V18*/ curfptr[17]), (-1)));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2739:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2739:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2867:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2867:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2739:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2867:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2739:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2867:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond lastcexp lx"; - BASILYS_LOCATION("warmelt-macro.bysl:2739:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2867:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.bysl:2739:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2867:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2739:/ apply.arg"); - argtab[3].bp_long = 2739; + BASILYS_LOCATION("warmelt-macro.bysl:2867:/ apply.arg"); + argtab[3].bp_long = 2867; /*_.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.bysl:2739:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2867:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2739:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2867:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2739:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2867:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V19*/ curfptr[18] = /*_.LX__V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2738:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2866:/ clear"); /*clear*/ /*_.LX__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2738:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2866:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;} ; /*_.LASTCEXP__V23*/ curfptr[21] = /*_.LET___V19*/ curfptr[18];; @@ -28068,56 +29617,56 @@ BASILYS_LOCATION("warmelt-macro.bysl:2722:/ block"); /*_.RES__V24*/ curfptr[19] = (/*nil*/NULL);; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2744:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2744:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2872:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2872:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2744:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2872:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2744:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2872:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond cexptuple"; - BASILYS_LOCATION("warmelt-macro.bysl:2744:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2872:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.bysl:2744:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2872:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2744:/ apply.arg"); - argtab[3].bp_long = 2744; + BASILYS_LOCATION("warmelt-macro.bysl:2872:/ apply.arg"); + argtab[3].bp_long = 2872; /*_.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.bysl:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2872:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2872:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2744:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2872:/ cppif.else"); /*_.IFCPP___V25*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2745:/ loop"); - /*loop*/{ labloop_CONDLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:2745:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.bysl:2873:/ loop"); + /*loop*/{ labloop_CONDLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:2873:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:2745:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2873:/ block"); /*block*/{ /*_#I__L8*/ curfnum[6] = ((/*_#IX__L6*/ curfnum[4]) < (0));; - BASILYS_LOCATION("warmelt-macro.bysl:2746:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2874:/ cond"); /*cond*/ if (/*_#I__L8*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2746:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2746:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2874:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2874:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2746:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2874:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2746:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2874:/ compute"); /*_.CONDLOOP__V28*/ curfptr[27] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2746:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:2874:/ exit"); /*exit*/{ goto labexit_CONDLOOP_1;} ;} @@ -28126,59 +29675,59 @@ BASILYS_LOCATION("warmelt-macro.bysl:2722:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2747:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2875:/ 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.bysl:2748:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2748:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2876:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2876:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2748:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2876:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2748:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2876:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond curcond"; - BASILYS_LOCATION("warmelt-macro.bysl:2748:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2876:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.bysl:2748:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2876:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2748:/ apply.arg"); - argtab[3].bp_long = 2748; + BASILYS_LOCATION("warmelt-macro.bysl:2876:/ apply.arg"); + argtab[3].bp_long = 2876; /*_.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.bysl:2748:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2876:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2748:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2876:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2748:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2876:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#NULL__L10*/ curfnum[8] = ((/*_.RES__V24*/ curfptr[19]) == NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ cond"); /*cond*/ if (/*_#NULL__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ 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.bysl:2750:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2753:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2881:/ 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; }; ; @@ -28190,40 +29739,40 @@ BASILYS_LOCATION("warmelt-macro.bysl:2722:/ block"); (((/*!konst_7_ELSE*/ curfrout->tabval[7])) == (/*_.PAIR_HEAD__V35*/ curfptr[34]));; /*_#IF___L13*/ curfnum[12] = /*_#__L14*/ curfnum[13];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V33*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ clear"); /*clear*/ /*_.LIST_FIRST__V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ clear"); /*clear*/ /*_.PAIR_HEAD__V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ clear"); /*clear*/ /*_#__L14*/ curfnum[13] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2750:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2878:/ cond.else"); /*_#IF___L13*/ curfnum[12] = 0;; } ; /*_#IF___L11*/ curfnum[10] = /*_#IF___L13*/ curfnum[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ clear"); /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ clear"); /*clear*/ /*_#IF___L13*/ curfnum[12] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2750:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2878:/ cond.else"); /*_#IF___L11*/ curfnum[10] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ cond"); /*cond*/ if (/*_#IF___L11*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2754:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2882:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2755:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2883:/ 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; }; ; @@ -28231,114 +29780,114 @@ BASILYS_LOCATION("warmelt-macro.bysl:2722:/ 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.bysl:2757:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2885:/ cond"); /*cond*/ if (/*_.RESTPAIRS__V40*/ curfptr[39]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2757:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2757:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2885:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2885:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2759:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2887:/ 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.bysl:2758:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2886:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2758:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2886:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOCA_LOCATION__V42*/ curfptr[41]; - BASILYS_LOCATION("warmelt-macro.bysl:2758:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2886:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2758:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2886:/ 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.bysl:2758:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2886:/ 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.bysl:2757:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2885:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2757:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2885:/ clear"); /*clear*/ /*_.PAIRLIST_TO_PROGN__V43*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2757:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2885:/ clear"); /*clear*/ /*_.SETQ___V44*/ curfptr[43] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2757:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2885:/ cond.else"); /*_.IF___V41*/ curfptr[40] = NULL;; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2761:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2761:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2889:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2889:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2761:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2889:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2761:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2889:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond res for :else"; - BASILYS_LOCATION("warmelt-macro.bysl:2761:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2889:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.bysl:2761:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2889:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2761:/ apply.arg"); - argtab[3].bp_long = 2761; + BASILYS_LOCATION("warmelt-macro.bysl:2889:/ apply.arg"); + argtab[3].bp_long = 2889; /*_.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.bysl:2761:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2889:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2761:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2889:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2761:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2889:/ cppif.else"); /*_.IFCPP___V45*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V37*/ curfptr[33] = /*_.IFCPP___V45*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2754:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2882:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V38*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2754:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2882:/ clear"); /*clear*/ /*_.LIST_FIRST__V39*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2754:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2882:/ clear"); /*clear*/ /*_.RESTPAIRS__V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2754:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2882:/ clear"); /*clear*/ /*_.IF___V41*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2754:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2882:/ clear"); /*clear*/ /*_.IFCPP___V45*/ curfptr[41] = 0 ;} ; /*_.IFELSE___V36*/ curfptr[31] = /*_.LET___V37*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ clear"); /*clear*/ /*_.LET___V37*/ curfptr[33] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2750:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2878:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ 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.bysl:2763:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2891:/ cond"); /*cond*/ if (/*_#IS_A__L16*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2763:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2763:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2891:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2891:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2764:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2892:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2764:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2892:/ 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.bysl:2765:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2893:/ 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; }; ; @@ -28352,582 +29901,582 @@ BASILYS_LOCATION("warmelt-macro.bysl:2722:/ 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.bysl:2769:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ cond"); /*cond*/ if (/*_#NULL__L17*/ curfnum[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2769:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2769:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2773:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2901:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2773:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2901:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2773:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2901:/ 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.bysl:2770:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2898:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2770:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2898:/ 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.bysl:2770:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2898:/ 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.bysl:2770:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2898:/ 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.bysl:2770:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2898:/ compute"); /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V60*/ curfptr[59] = /*_.INST___V58*/ curfptr[57];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2775:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2775:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2903:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2903:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2775:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2903:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2775:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2903:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond res for monoexp cond"; - BASILYS_LOCATION("warmelt-macro.bysl:2775:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2903:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.bysl:2775:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2903:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2775:/ apply.arg"); - argtab[3].bp_long = 2775; + BASILYS_LOCATION("warmelt-macro.bysl:2903:/ apply.arg"); + argtab[3].bp_long = 2903; /*_.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.bysl:2775:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2903:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2775:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2903:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2775:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2903:/ cppif.else"); /*_.IFCPP___V61*/ curfptr[60] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2769:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ block"); /*block*/{ /*_.PROGN___V63*/ curfptr[61] = /*_.IFCPP___V61*/ curfptr[60];;} ; /*_.IFELSE___V55*/ curfptr[54] = /*_.PROGN___V63*/ curfptr[61];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2769:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V56*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2769:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ clear"); /*clear*/ /*_.MAKE_TUPLE2__V57*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2769:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ clear"); /*clear*/ /*_.INST___V58*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2769:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ clear"); /*clear*/ /*_.SETQ___V60*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2769:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ clear"); /*clear*/ /*_.IFCPP___V61*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2769:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ clear"); /*clear*/ /*_.PROGN___V63*/ curfptr[61] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2769:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2897:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2769:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ 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.bysl:2777:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ cond"); /*cond*/ if (/*_#NULL__L19*/ curfnum[13]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2780:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2908:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2780:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2908:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2780:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2908:/ 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.bysl:2781:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2909:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2781:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2909:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2781:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2909:/ 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.bysl:2778:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2906:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2778:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2906:/ 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.bysl:2778:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2906:/ 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.bysl:2778:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2906:/ 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.bysl:2778:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2906:/ 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.bysl:2778:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2906:/ 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.bysl:2778:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2906:/ compute"); /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V71*/ curfptr[70] = /*_.INST___V69*/ curfptr[61];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2784:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2784:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2912:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2912:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2784:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2912:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2784:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2912:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond res for biexp cond"; - BASILYS_LOCATION("warmelt-macro.bysl:2784:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2912:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19]; - BASILYS_LOCATION("warmelt-macro.bysl:2784:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2912:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2784:/ apply.arg"); - argtab[3].bp_long = 2784; + BASILYS_LOCATION("warmelt-macro.bysl:2912:/ apply.arg"); + argtab[3].bp_long = 2912; /*_.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.bysl:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2912:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2912:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ curfptr[72] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2784:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2912:/ cppif.else"); /*_.IFCPP___V72*/ curfptr[71] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ block"); /*block*/{ /*_.PROGN___V74*/ curfptr[72] = /*_.IFCPP___V72*/ curfptr[71];;} ; /*_.IFELSE___V65*/ curfptr[56] = /*_.PROGN___V74*/ curfptr[72];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V66*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ clear"); /*clear*/ /*_.PAIR_HEAD__V67*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V68*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ clear"); /*clear*/ /*_.INST___V69*/ curfptr[61] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ clear"); /*clear*/ /*_.SETQ___V71*/ curfptr[70] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ clear"); /*clear*/ /*_.IFCPP___V72*/ curfptr[71] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ clear"); /*clear*/ /*_.PROGN___V74*/ curfptr[72] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2777:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2905:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2789:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2917:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2789:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2917:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2789:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2917:/ 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.bysl:2790:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2918:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2790:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2918:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURCONDLOC__V50*/ curfptr[38]; - BASILYS_LOCATION("warmelt-macro.bysl:2790:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2918:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2790:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2918:/ 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.bysl:2787:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2915:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2787:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2915:/ 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.bysl:2787:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2915:/ 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.bysl:2787:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2915:/ 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.bysl:2787:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2915:/ 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.bysl:2787:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2915:/ 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.bysl:2787:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2915:/ compute"); /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V79*/ curfptr[70] = /*_.INST___V77*/ curfptr[60];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2792:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2792:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2920:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2920:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L21*/ curfnum[19] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2792:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2920:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2792:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2920:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond res for manyexp cond"; - BASILYS_LOCATION("warmelt-macro.bysl:2792:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2920:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[19]; - BASILYS_LOCATION("warmelt-macro.bysl:2792:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2920:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2792:/ apply.arg"); - argtab[3].bp_long = 2792; + BASILYS_LOCATION("warmelt-macro.bysl:2920:/ apply.arg"); + argtab[3].bp_long = 2920; /*_.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.bysl:2792:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2920:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2792:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2920:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[72] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2792:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2920:/ cppif.else"); /*_.IFCPP___V80*/ curfptr[71] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2786:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2914:/ block"); /*block*/{ /*_.PROGN___V82*/ curfptr[72] = /*_.IFCPP___V80*/ curfptr[71];;} ; /*_.IFELSE___V65*/ curfptr[56] = /*_.PROGN___V82*/ curfptr[72];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V75*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ clear"); /*clear*/ /*_.PAIRLIST_TO_PROGN__V76*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ clear"); /*clear*/ /*_.INST___V77*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ clear"); /*clear*/ /*_.SETQ___V79*/ curfptr[70] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ clear"); /*clear*/ /*_.IFCPP___V80*/ curfptr[71] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2905:/ clear"); /*clear*/ /*_.PROGN___V82*/ curfptr[72] = 0 ;} ; } ; /*_.IFELSE___V55*/ curfptr[54] = /*_.IFELSE___V65*/ curfptr[56];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2769:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ clear"); /*clear*/ /*_.PAIR_TAIL__V64*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2769:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ clear"); /*clear*/ /*_#NULL__L19*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2769:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2897:/ clear"); /*clear*/ /*_.IFELSE___V65*/ curfptr[56] = 0 ;} ; } ; /*_.LET___V48*/ curfptr[42] = /*_.IFELSE___V55*/ curfptr[54];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2764:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2892:/ clear"); /*clear*/ /*_.CURCONDCONT__V49*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2764:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2892:/ clear"); /*clear*/ /*_.CURCONDLOC__V50*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2764:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2892:/ clear"); /*clear*/ /*_.LIST_FIRST__V51*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2764:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2892:/ clear"); /*clear*/ /*_.CURCONDTEST__V52*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2764:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2892:/ clear"); /*clear*/ /*_.LIST_FIRST__V53*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2764:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2892:/ clear"); /*clear*/ /*_.CURCONDRESTPAIRS__V54*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2764:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2892:/ clear"); /*clear*/ /*_#NULL__L17*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2764:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2892:/ clear"); /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;} ; /*_.IFELSE___V47*/ curfptr[43] = /*_.LET___V48*/ curfptr[42];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2763:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2891:/ clear"); /*clear*/ /*_.LET___V48*/ curfptr[42] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2763:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2891:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2763:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2891:/ 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.bysl:2796:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2924:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2796:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2924:/ 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.bysl:2796:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2924:/ 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.bysl:2796:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2924:/ 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.bysl:2796:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2924:/ compute"); /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V86*/ curfptr[70] = /*_.INST___V84*/ curfptr[59];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2799:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2799:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2927:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2927:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2799:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2927:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2799:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2927:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond res for nonsexp cond"; - BASILYS_LOCATION("warmelt-macro.bysl:2799:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2927:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[19]; - BASILYS_LOCATION("warmelt-macro.bysl:2799:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2927:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2799:/ apply.arg"); - argtab[3].bp_long = 2799; + BASILYS_LOCATION("warmelt-macro.bysl:2927:/ apply.arg"); + argtab[3].bp_long = 2927; /*_.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.bysl:2799:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2927:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2799:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2927:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ curfptr[72] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2799:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2927:/ cppif.else"); /*_.IFCPP___V87*/ curfptr[71] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2795:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2923:/ block"); /*block*/{ /*_.PROGN___V89*/ curfptr[55] = /*_.IFCPP___V87*/ curfptr[71];;} ; /*_.IFELSE___V47*/ curfptr[43] = /*_.PROGN___V89*/ curfptr[55];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2763:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2891:/ clear"); /*clear*/ /*_.MAKE_TUPLE2__V83*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2763:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2891:/ clear"); /*clear*/ /*_.INST___V84*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2763:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2891:/ clear"); /*clear*/ /*_.SETQ___V86*/ curfptr[70] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2763:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2891:/ clear"); /*clear*/ /*_.IFCPP___V87*/ curfptr[71] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2763:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2891:/ clear"); /*clear*/ /*_.PROGN___V89*/ curfptr[55] = 0 ;} ; } ; /*_.IFELSE___V36*/ curfptr[31] = /*_.IFELSE___V47*/ curfptr[43];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ clear"); /*clear*/ /*_#IS_A__L16*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2750:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2878:/ clear"); /*clear*/ /*_.IFELSE___V47*/ curfptr[43] = 0 ;} ; } ; /*_.LET___V29*/ curfptr[28] = /*_.IFELSE___V36*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2747:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2875:/ clear"); /*clear*/ /*_.CURCOND__V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2747:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2875:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2747:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2875:/ clear"); /*clear*/ /*_#NULL__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2747:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2875:/ clear"); /*clear*/ /*_#IF___L11*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2747:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2875:/ clear"); /*clear*/ /*_.IFELSE___V36*/ curfptr[31] = 0 ;} ; /*_#I__L23*/ curfnum[13] = ((/*_#IX__L6*/ curfnum[4]) - (1));; - BASILYS_LOCATION("warmelt-macro.bysl:2803:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2931:/ compute"); /*_#IX__L6*/ curfnum[4] = /*_#SETQ___L24*/ curfnum[12] = /*_#I__L23*/ curfnum[13];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2745:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2873:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2745:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2873:/ clear"); /*clear*/ /*_.LET___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2745:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2873:/ clear"); /*clear*/ /*_#I__L23*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2745:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2873:/ clear"); /*clear*/ /*_#SETQ___L24*/ curfnum[12] = 0 ;} ; ; goto labloop_CONDLOOP_1; - labexit_CONDLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:2745:/ loopepilog"); + labexit_CONDLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:2873:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V27*/ curfptr[25] = /*_.CONDLOOP__V28*/ curfptr[27];; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2805:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2805:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2933:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2933:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L25*/ curfnum[19] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2805:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2933:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2805:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2933:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond final res"; - BASILYS_LOCATION("warmelt-macro.bysl:2805:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2933:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[19]; - BASILYS_LOCATION("warmelt-macro.bysl:2805:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2933:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2805:/ apply.arg"); - argtab[3].bp_long = 2805; + BASILYS_LOCATION("warmelt-macro.bysl:2933:/ apply.arg"); + argtab[3].bp_long = 2933; /*_.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.bysl:2805:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2933:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2805:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2933:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2805:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2933:/ cppif.else"); /*_.IFCPP___V90*/ curfptr[56] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2806:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2934:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V24*/ curfptr[19];; - BASILYS_LOCATION("warmelt-macro.bysl:2806:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2934:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V92*/ curfptr[38];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_.CEXPTUPLE__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_#NBCOND__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_.LASTCEXP__V23*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_#IX__L6*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_.RES__V24*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_.FOREVER___V27*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_.IFCPP___V90*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2726:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2854:/ clear"); /*clear*/ /*_.RETURN___V92*/ curfptr[38] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -28938,14 +30487,14 @@ basilys_trace_end("MEXPAND_COND", callcount); basilys_topframe = (struct callfr #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_54_MEXPAND_COND*/ +} /*end rout_56_MEXPAND_COND*/ static basilys_ptr_t -rout_55_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_57_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -28956,7 +30505,7 @@ rout_55_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_55_LAMBDA__st { unsigned nbvar; + struct frame_rout_57_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -28988,20 +30537,20 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2732:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2860:/ getarg"); /*_.C__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2732:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2860:/ 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.bysl:2733:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2861:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2733:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2733:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2861:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2861:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "COND with non-sexpr"), (basilys_ptr_t)0); @@ -29009,15 +30558,15 @@ BASILYS_LOCATION("warmelt-macro.bysl:2732:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2732:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2860:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.C__V2*/ curfptr[1];; - BASILYS_LOCATION("warmelt-macro.bysl:2732:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2860:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2732:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2860:/ clear"); /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;} ; @@ -29028,14 +30577,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_55_LAMBDA_*/ +} /*end rout_57_LAMBDA_*/ static basilys_ptr_t -rout_56_MEXPAND_AND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_58_MEXPAND_AND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -29046,7 +30595,7 @@ rout_56_MEXPAND_AND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const #define callcount 0L #endif - struct frame_rout_56_MEXPAND_AND_st { unsigned nbvar; + struct frame_rout_58_MEXPAND_AND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -29078,18 +30627,18 @@ basilys_trace_start("MEXPAND_AND", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ 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.bysl:2817:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ 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); @@ -29098,26 +30647,26 @@ basilys_trace_start("MEXPAND_AND", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2817:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2945:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2818:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2818:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2946:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2946:/ 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.bysl:2818:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2946:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2818:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2946:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2818:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2946:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2818:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2946:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2818)?(2818):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2946)?(2946):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -29126,34 +30675,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2817:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2946:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2946:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2818:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2946:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2819:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2819:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2947:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2947:/ 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.bysl:2819:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2947:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2819:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2947:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2819:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2947:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2819:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2947:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2819)?(2819):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2947)?(2947):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -29162,57 +30711,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:2817:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2819:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2947:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2819:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2947:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2819:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2947:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2820:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2820:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2948:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2948:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2820:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2948:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2820:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2948:/ apply.arg"); argtab[0].bp_cstring = "mexpand_and sexpr:"; - BASILYS_LOCATION("warmelt-macro.bysl:2820:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2948:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2820:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2948:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2820:/ apply.arg"); - argtab[3].bp_long = 2820; + BASILYS_LOCATION("warmelt-macro.bysl:2948:/ apply.arg"); + argtab[3].bp_long = 2948; /*_.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.bysl:2820:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2948:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2820:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2948:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2820:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2948:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2821:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2949:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2822:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2950:/ 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.bysl:2823:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2951:/ 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; }; ; @@ -29220,19 +30769,19 @@ BASILYS_LOCATION("warmelt-macro.bysl:2817:/ 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.bysl:2828:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2956:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2828:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:2956:/ 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.bysl:2828:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2956:/ 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.bysl:2828:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:2956:/ 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]))); @@ -29240,13 +30789,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:2817:/ block"); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2825:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2953:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2825:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2953:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.bysl:2825:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2953:/ 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); } @@ -29255,70 +30804,70 @@ BASILYS_LOCATION("warmelt-macro.bysl:2817:/ block"); (basilys_multiple_length((basilys_ptr_t)(/*_.CXTUP__V18*/ curfptr[17])));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2832:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2832:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2960:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2960:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2832:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2960:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2832:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2960:/ apply.arg"); argtab[0].bp_cstring = "mexpand_and cxtup"; - BASILYS_LOCATION("warmelt-macro.bysl:2832:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2960:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.bysl:2832:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2960:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2832:/ apply.arg"); - argtab[3].bp_long = 2832; + BASILYS_LOCATION("warmelt-macro.bysl:2960:/ apply.arg"); + argtab[3].bp_long = 2960; /*_.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.bysl:2832:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2960:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2832:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2960:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2832:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2960:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#I__L6*/ curfnum[4] = ((/*_#NBCOMP__L4*/ curfnum[0]) < (1));; - BASILYS_LOCATION("warmelt-macro.bysl:2833:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2961:/ cond"); /*cond*/ if (/*_#I__L6*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2833:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2833:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2961:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2961:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "AND without sons"), (basilys_ptr_t)0); - BASILYS_LOCATION("warmelt-macro.bysl:2836:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2964:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:2836:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2964:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2834:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2962:/ block"); /*block*/{ /*_.PROGN___V23*/ curfptr[22] = /*_.RETURN___V22*/ curfptr[21];;} ; /*_.IFELSE___V21*/ curfptr[19] = /*_.PROGN___V23*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2833:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2961:/ clear"); /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2833:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2961:/ clear"); /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2833:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2961:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2833:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2961:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2837:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2965:/ block"); /*block*/{ /*_#I__L7*/ curfnum[6] = ((/*_#NBCOMP__L4*/ curfnum[0]) - (1));; @@ -29326,24 +30875,24 @@ BASILYS_LOCATION("warmelt-macro.bysl:2817:/ 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.bysl:2839:/ loop"); - /*loop*/{ labloop_REVLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:2839:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.bysl:2967:/ loop"); + /*loop*/{ labloop_REVLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:2967:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:2839:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2967:/ block"); /*block*/{ /*_#I__L9*/ curfnum[8] = ((/*_#IX__L8*/ curfnum[7]) < (0));; - BASILYS_LOCATION("warmelt-macro.bysl:2840:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2968:/ cond"); /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2840:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2840:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2968:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2968:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2840:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2968:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2840:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2968:/ compute"); /*_.REVLOOP__V27*/ curfptr[26] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2840:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:2968:/ exit"); /*exit*/{ goto labexit_REVLOOP_1;} ;} @@ -29352,167 +30901,167 @@ BASILYS_LOCATION("warmelt-macro.bysl:2817:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2841:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2969:/ block"); /*block*/{ /*_.CURC__V29*/ curfptr[28] = (basilys_multiple_nth((basilys_ptr_t)(/*_.CXTUP__V18*/ curfptr[17]), (/*_#IX__L8*/ curfnum[7])));; - BASILYS_LOCATION("warmelt-macro.bysl:2843:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2971:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2843:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:2971:/ 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.bysl:2843:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2971:/ 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.bysl:2843:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2971:/ 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.bysl:2843:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2971:/ 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.bysl:2842:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2970:/ 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.bysl:2841:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2969:/ clear"); /*clear*/ /*_.CURC__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2841:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2969:/ clear"); /*clear*/ /*_.INST___V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2841:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2969:/ clear"); /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;} ; /*_#I__L10*/ curfnum[9] = ((/*_#IX__L8*/ curfnum[7]) - (1));; - BASILYS_LOCATION("warmelt-macro.bysl:2848:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:2976:/ compute"); /*_#IX__L8*/ curfnum[7] = /*_#SETQ___L11*/ curfnum[10] = /*_#I__L10*/ curfnum[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2839:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2967:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2839:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2967:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2839:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2967:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2839:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2967:/ clear"); /*clear*/ /*_#SETQ___L11*/ curfnum[10] = 0 ;} ; ; goto labloop_REVLOOP_1; - labexit_REVLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:2839:/ loopepilog"); + labexit_REVLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:2967:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V26*/ curfptr[25] = /*_.REVLOOP__V27*/ curfptr[26];; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2850:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2850:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2978:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2978:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2850:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2978:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2850:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2978:/ apply.arg"); argtab[0].bp_cstring = "mexpand_and res:"; - BASILYS_LOCATION("warmelt-macro.bysl:2850:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2978:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.bysl:2850:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2978:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2850:/ apply.arg"); - argtab[3].bp_long = 2850; + BASILYS_LOCATION("warmelt-macro.bysl:2978:/ apply.arg"); + argtab[3].bp_long = 2978; /*_.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.bysl:2850:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2978:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2850:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2978:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2850:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2978:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2851:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2979:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V25*/ curfptr[22];; - BASILYS_LOCATION("warmelt-macro.bysl:2851:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2979:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V24*/ curfptr[21] = /*_.RETURN___V35*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2837:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2965:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2837:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2965:/ clear"); /*clear*/ /*_.RES__V25*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2837:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2965:/ clear"); /*clear*/ /*_#IX__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2837:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2965:/ clear"); /*clear*/ /*_.FOREVER___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2837:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2965:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2837:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2965:/ clear"); /*clear*/ /*_.RETURN___V35*/ curfptr[31] = 0 ;} ; /*_.IFELSE___V21*/ curfptr[19] = /*_.LET___V24*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2833:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2961:/ clear"); /*clear*/ /*_.LET___V24*/ curfptr[21] = 0 ;} ; } ; /*_.LET___V11*/ curfptr[9] = /*_.IFELSE___V21*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2821:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2949:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2821:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2949:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2821:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2949:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2821:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2949:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2821:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2949:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2821:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2949:/ clear"); /*clear*/ /*_.CXTUP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2821:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2949:/ clear"); /*clear*/ /*_#NBCOMP__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2821:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2949:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2821:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2949:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2821:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2949:/ clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[19] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -29523,14 +31072,14 @@ basilys_trace_end("MEXPAND_AND", callcount); basilys_topframe = (struct callfra #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_56_MEXPAND_AND*/ +} /*end rout_58_MEXPAND_AND*/ static basilys_ptr_t -rout_57_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_59_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -29541,7 +31090,7 @@ rout_57_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_57_LAMBDA__st { unsigned nbvar; + struct frame_rout_59_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -29573,34 +31122,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2828:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2956:/ getarg"); /*_.C__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2828:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2956:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2828:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2956:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2828:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2956:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.bysl:2828:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2956:/ 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.bysl:2828:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2956:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:2828:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2956:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2828:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2956:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -29611,14 +31160,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_57_LAMBDA_*/ +} /*end rout_59_LAMBDA_*/ static basilys_ptr_t -rout_58_PATEXPAND_AS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_60_PATEXPAND_AS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -29629,7 +31178,7 @@ rout_58_PATEXPAND_AS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, cons #define callcount 0L #endif - struct frame_rout_58_PATEXPAND_AS_st { unsigned nbvar; + struct frame_rout_60_PATEXPAND_AS_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -29661,18 +31210,18 @@ basilys_trace_start("PATEXPAND_AS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ 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.bysl:2855:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ 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); @@ -29681,26 +31230,26 @@ basilys_trace_start("PATEXPAND_AS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2855:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:2983:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2856:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2856:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2984:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2984:/ 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.bysl:2856:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2984:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2856:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2984:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2856:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2984:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2856:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2984:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2856)?(2856):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2984)?(2984):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -29709,34 +31258,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2855:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2856:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2984:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2856:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2984:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2856:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2984:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2857:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2857:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2985:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2985:/ 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.bysl:2857:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2985:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2857:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2985:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2857:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2985:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2857:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2985:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2857)?(2857):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2985)?(2985):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -29745,34 +31294,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2855:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2857:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2985:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2857:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2985:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2857:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2985:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2858:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2858:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2986:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2986:/ 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.bysl:2858:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2986:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2858:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2986:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2858:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2986:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2858:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2986:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check pctx"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2858)?(2858):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check pctx"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2986)?(2986):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} @@ -29781,57 +31330,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:2855:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2986:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2858:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2986:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2858:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2986:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2859:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2859:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2987:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2987:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2859:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2987:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2859:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2987:/ apply.arg"); argtab[0].bp_cstring = "patexpand_as sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2859:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2987:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2859:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2987:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2859:/ apply.arg"); - argtab[3].bp_long = 2859; + BASILYS_LOCATION("warmelt-macro.bysl:2987:/ apply.arg"); + argtab[3].bp_long = 2987; /*_.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.bysl:2859:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2987:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2859:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2987:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2859:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:2987:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2860:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2988:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2861:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2989:/ 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.bysl:2862:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2990:/ 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; }; ; @@ -29839,13 +31388,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:2855:/ 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.bysl:2864:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2992:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2864:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2992:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2864:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2992:/ 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); } @@ -29854,37 +31403,37 @@ BASILYS_LOCATION("warmelt-macro.bysl:2855:/ block"); (basilys_multiple_length((basilys_ptr_t)(/*_.ARGSP__V18*/ curfptr[17])));; /*_#I__L6*/ curfnum[5] = ((/*_#MULTIPLE_LENGTH__L5*/ curfnum[0]) != (2));; - BASILYS_LOCATION("warmelt-macro.bysl:2866:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:2994:/ cond"); /*cond*/ if (/*_#I__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2866:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2866:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2994:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:2994:/ block"); /*block*/{ 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.bysl:2869:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2997:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:2869:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2997:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2867:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2995:/ block"); /*block*/{ /*_.PROGN___V21*/ curfptr[20] = /*_.RETURN___V20*/ curfptr[19];;} ; /*_.IF___V19*/ curfptr[18] = /*_.PROGN___V21*/ curfptr[20];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2866:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2994:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2866:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2994:/ clear"); /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2866:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:2994:/ cond.else"); /*_.IF___V19*/ curfptr[18] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2870:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2998:/ block"); /*block*/{ /*_.ARGVAR__V23*/ curfptr[20] = (basilys_multiple_nth((basilys_ptr_t)(/*_.ARGSP__V18*/ curfptr[17]), (0)));; @@ -29892,88 +31441,88 @@ BASILYS_LOCATION("warmelt-macro.bysl:2855:/ 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.bysl:2873:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3001:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2873:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2873:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3001:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3001:/ block"); /*block*/{ basilys_warning_str(0, (basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "AS pattern with useless joker"), (basilys_ptr_t)0); - BASILYS_LOCATION("warmelt-macro.bysl:2876:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3004:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.ARGSUB__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.bysl:2876:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3004:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2874:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3002:/ block"); /*block*/{ /*_.PROGN___V27*/ curfptr[26] = /*_.RETURN___V26*/ curfptr[25];;} ; /*_.IF___V25*/ curfptr[24] = /*_.PROGN___V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2873:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3001:/ clear"); /*clear*/ /*_.RETURN___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2873:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3001:/ clear"); /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2873:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3001:/ 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.bysl:2877:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3005:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2877:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2877:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3005:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3005:/ block"); /*block*/{ 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.bysl:2880:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3008:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:2880:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3008:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2878:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3006:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[26];;} ; /*_.IF___V28*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2877:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3005:/ clear"); /*clear*/ /*_.RETURN___V29*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2877:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3005:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2877:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3005:/ cond.else"); /*_.IF___V28*/ curfptr[25] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:2881:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3009:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2882:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3010:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2882:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3010:/ 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.bysl:2882:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3010:/ 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.bysl:2882:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3010:/ 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.bysl:2882:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3010:/ 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"); @@ -29982,109 +31531,109 @@ BASILYS_LOCATION("warmelt-macro.bysl:2855:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2887:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2887:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3015:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3015:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2887:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3015:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2887:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3015:/ apply.arg"); argtab[0].bp_cstring = "patexpand_as returns res"; - BASILYS_LOCATION("warmelt-macro.bysl:2887:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3015:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.bysl:2887:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3015:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2887:/ apply.arg"); - argtab[3].bp_long = 2887; + BASILYS_LOCATION("warmelt-macro.bysl:3015:/ apply.arg"); + argtab[3].bp_long = 3015; /*_.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.bysl:2887:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3015:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2887:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3015:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2887:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3015:/ cppif.else"); /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2888:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3016:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V32*/ curfptr[29];; - BASILYS_LOCATION("warmelt-macro.bysl:2888:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3016:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V31*/ curfptr[26] = /*_.RETURN___V36*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2881:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3009:/ clear"); /*clear*/ /*_.RES__V32*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2881:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3009:/ clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2881:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3009:/ clear"); /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;} ; /*_.LET___V22*/ curfptr[19] = /*_.LET___V31*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2870:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2998:/ clear"); /*clear*/ /*_.ARGVAR__V23*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2870:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2998:/ clear"); /*clear*/ /*_.ARGSUB__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2870:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2998:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2870:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2998:/ clear"); /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2870:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2998:/ clear"); /*clear*/ /*_#IS_NOT_A__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2870:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2998:/ clear"); /*clear*/ /*_.IF___V28*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2870:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2998:/ clear"); /*clear*/ /*_.LET___V31*/ curfptr[26] = 0 ;} ; /*_.LET___V13*/ curfptr[11] = /*_.LET___V22*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2988:/ clear"); /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2988:/ clear"); /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2988:/ clear"); /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2988:/ clear"); /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2988:/ clear"); /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2988:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2988:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2988:/ clear"); /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2860:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2988:/ clear"); /*clear*/ /*_.LET___V22*/ curfptr[19] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; @@ -30095,14 +31644,14 @@ basilys_trace_end("PATEXPAND_AS", callcount); basilys_topframe = (struct callfr #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_58_PATEXPAND_AS*/ +} /*end rout_60_PATEXPAND_AS*/ static basilys_ptr_t -rout_59_MEXPAND_AS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_61_MEXPAND_AS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -30113,7 +31662,7 @@ rout_59_MEXPAND_AS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const #define callcount 0L #endif - struct frame_rout_59_MEXPAND_AS_st { unsigned nbvar; + struct frame_rout_61_MEXPAND_AS_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -30145,18 +31694,18 @@ basilys_trace_start("MEXPAND_AS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2891:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3019:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2891:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3019:/ 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.bysl:2891:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3019:/ 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); @@ -30165,26 +31714,26 @@ basilys_trace_start("MEXPAND_AS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2891:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3019:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2892:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2892:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3020:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3020:/ 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.bysl:2892:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3020:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2892:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3020:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2892:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3020:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2892:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3020:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2892)?(2892):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3020)?(3020):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -30193,34 +31742,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2891:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2892:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3020:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2892:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3020:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2892:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3020:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2893:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2893:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3021:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3021:/ 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.bysl:2893:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3021:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2893:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3021:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2893:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3021:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2893:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3021:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2893)?(2893):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3021)?(3021):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -30229,87 +31778,87 @@ BASILYS_LOCATION("warmelt-macro.bysl:2891:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2893:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3021:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2893:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3021:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2893:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3021:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2894:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2894:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3022:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3022:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2894:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3022:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2894:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3022:/ apply.arg"); argtab[0].bp_cstring = "mexpand_as sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2894:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3022:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2894:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3022:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2894:/ apply.arg"); - argtab[3].bp_long = 2894; + BASILYS_LOCATION("warmelt-macro.bysl:3022:/ apply.arg"); + argtab[3].bp_long = 3022; /*_.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.bysl:2894:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3022:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2894:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3022:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2894:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3022:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2895:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3023:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2896:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3024:/ 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_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.bysl:2899:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3027:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:2899:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3027:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V13*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2895:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3023:/ clear"); /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2895:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3023:/ clear"); /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2891:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3019:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:2891:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3019:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2891:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3019:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2891:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3019:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2891:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3019:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2891:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3019:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -30320,14 +31869,14 @@ basilys_trace_end("MEXPAND_AS", callcount); basilys_topframe = (struct callfram #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_59_MEXPAND_AS*/ +} /*end rout_61_MEXPAND_AS*/ static basilys_ptr_t -rout_60_PATEXPAND_AND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_62_PATEXPAND_AND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -30338,7 +31887,7 @@ rout_60_PATEXPAND_AND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, con #define callcount 0L #endif - struct frame_rout_60_PATEXPAND_AND_st { unsigned nbvar; + struct frame_rout_62_PATEXPAND_AND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -30370,18 +31919,18 @@ basilys_trace_start("PATEXPAND_AND", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ 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.bysl:2906:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ 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); @@ -30390,26 +31939,26 @@ basilys_trace_start("PATEXPAND_AND", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2906:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3034:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2907:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2907:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3035:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3035:/ 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.bysl:2907:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3035:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2907:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3035:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2907:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3035:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2907:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3035:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2907)?(2907):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3035)?(3035):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -30418,34 +31967,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2906:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2907:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3035:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2907:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3035:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2907:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3035:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2908:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2908:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3036:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3036:/ 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.bysl:2908:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3036:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2908:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3036:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2908:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3036:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2908:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3036:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2908)?(2908):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3036)?(3036):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -30454,34 +32003,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2906:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2908:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3036:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2908:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3036:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2908:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3036:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2909:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2909:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3037:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3037:/ 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.bysl:2909:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3037:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2909:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3037:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2909:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3037:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2909:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3037:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check pctx"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2909)?(2909):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check pctx"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3037)?(3037):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} @@ -30490,57 +32039,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:2906:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2909:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3037:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2909:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3037:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2909:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3037:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2910:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2910:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3038:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3038:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2910:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3038:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2910:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3038:/ apply.arg"); argtab[0].bp_cstring = "patexpand_and sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2910:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3038:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2910:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3038:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2910:/ apply.arg"); - argtab[3].bp_long = 2910; + BASILYS_LOCATION("warmelt-macro.bysl:3038:/ apply.arg"); + argtab[3].bp_long = 3038; /*_.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.bysl:2910:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3038:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2910:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3038:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2910:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3038:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2911:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3039:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2912:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3040:/ 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.bysl:2913:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3041:/ 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; }; ; @@ -30548,30 +32097,30 @@ BASILYS_LOCATION("warmelt-macro.bysl:2906:/ 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.bysl:2915:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3043:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2915:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3043:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2915:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3043:/ 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.bysl:2916:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3044:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2916:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3044:/ 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.bysl:2916:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3044:/ 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.bysl:2916:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3044:/ 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"); @@ -30580,81 +32129,81 @@ BASILYS_LOCATION("warmelt-macro.bysl:2906:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2920:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2920:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3048:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3048:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2920:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3048:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2920:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3048:/ apply.arg"); argtab[0].bp_cstring = "patexpand_and res"; - BASILYS_LOCATION("warmelt-macro.bysl:2920:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3048:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2920:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3048:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2920:/ apply.arg"); - argtab[3].bp_long = 2920; + BASILYS_LOCATION("warmelt-macro.bysl:3048:/ apply.arg"); + argtab[3].bp_long = 3048; /*_.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.bysl:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3048:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3048:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2920:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3048:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2921:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3049:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];; - BASILYS_LOCATION("warmelt-macro.bysl:2921:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3049:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V23*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2911:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3039:/ clear"); /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2911:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3039:/ clear"); /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2911:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3039:/ clear"); /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2911:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3039:/ clear"); /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2911:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3039:/ clear"); /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2911:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3039:/ clear"); /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2911:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3039:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2911:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3039:/ clear"); /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; @@ -30665,14 +32214,14 @@ basilys_trace_end("PATEXPAND_AND", callcount); basilys_topframe = (struct callf #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_60_PATEXPAND_AND*/ +} /*end rout_62_PATEXPAND_AND*/ static basilys_ptr_t -rout_61_MEXPAND_OR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_63_MEXPAND_OR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -30683,7 +32232,7 @@ rout_61_MEXPAND_OR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const #define callcount 0L #endif - struct frame_rout_61_MEXPAND_OR_st { unsigned nbvar; + struct frame_rout_63_MEXPAND_OR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -30715,18 +32264,18 @@ basilys_trace_start("MEXPAND_OR", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ 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.bysl:2929:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ 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); @@ -30735,60 +32284,60 @@ basilys_trace_start("MEXPAND_OR", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2929:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3057:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2930:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2930:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3058:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3058:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2930:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3058:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2930:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3058:/ apply.arg"); argtab[0].bp_cstring = "mexpand_or sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2930:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3058:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2930:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3058:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2930:/ apply.arg"); - argtab[3].bp_long = 2930; + BASILYS_LOCATION("warmelt-macro.bysl:3058:/ apply.arg"); + argtab[3].bp_long = 3058; /*_.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.bysl:2930:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3058:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2930:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3058:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2930:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3058:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2931:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2931:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3059:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3059:/ 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.bysl:2931:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3059:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2931:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3059:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2931:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3059:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2931:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3059:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2931)?(2931):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3059)?(3059):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -30797,34 +32346,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2929:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2931:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3059:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2931:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3059:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2931:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3059:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2932:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2932:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3060:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3060:/ 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.bysl:2932:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3060:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2932:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3060:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2932:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3060:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2932:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3060:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2932)?(2932):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3060)?(3060):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} @@ -30833,23 +32382,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:2929:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2932:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3060:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2932:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3060:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2932:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3060:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2933:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3061:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2934:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3062:/ 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.bysl:2935:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3063:/ 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; }; ; @@ -30857,19 +32406,19 @@ BASILYS_LOCATION("warmelt-macro.bysl:2929:/ 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.bysl:2939:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3067:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2939:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3067:/ 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.bysl:2939:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3067:/ 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.bysl:2939:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3067:/ 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]))); @@ -30877,13 +32426,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:2929:/ block"); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2936:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3064:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2936:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3064:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.bysl:2936:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3064:/ 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); } @@ -30892,54 +32441,54 @@ BASILYS_LOCATION("warmelt-macro.bysl:2929:/ block"); (basilys_multiple_length((basilys_ptr_t)(/*_.CXTUP__V18*/ curfptr[17])));; /*_#I__L5*/ curfnum[4] = ((/*_#NBCOMP__L4*/ curfnum[0]) < (1));; - BASILYS_LOCATION("warmelt-macro.bysl:2943:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3071:/ cond"); /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2943:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2943:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3071:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3071:/ block"); /*block*/{ 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.bysl:2946:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3074:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V20*/ curfptr[19];; - BASILYS_LOCATION("warmelt-macro.bysl:2946:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3074:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2944:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3072:/ block"); /*block*/{ /*_.PROGN___V22*/ curfptr[21] = /*_.RETURN___V21*/ curfptr[20];;} ; /*_.IFELSE___V19*/ curfptr[18] = /*_.PROGN___V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2943:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3071:/ clear"); /*clear*/ /*_.THE_NULL__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2943:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3071:/ clear"); /*clear*/ /*_.RETURN___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2943:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3071:/ clear"); /*clear*/ /*_.PROGN___V22*/ curfptr[21] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2943:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3071:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2943:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3071:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2947:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3075:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2948:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3076:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2948:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3076:/ 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.bysl:2948:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3076:/ 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.bysl:2948:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3076:/ 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"); @@ -30948,97 +32497,97 @@ BASILYS_LOCATION("warmelt-macro.bysl:2929:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2951:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2951:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3079:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3079:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2951:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3079:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2951:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3079:/ apply.arg"); argtab[0].bp_cstring = "mexpand_or res"; - BASILYS_LOCATION("warmelt-macro.bysl:2951:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3079:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; - BASILYS_LOCATION("warmelt-macro.bysl:2951:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3079:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2951:/ apply.arg"); - argtab[3].bp_long = 2951; + BASILYS_LOCATION("warmelt-macro.bysl:3079:/ apply.arg"); + argtab[3].bp_long = 3079; /*_.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.bysl:2951:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3079:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2951:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3079:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2951:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3079:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2952:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3080:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V24*/ curfptr[20];; - BASILYS_LOCATION("warmelt-macro.bysl:2952:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3080:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V23*/ curfptr[19] = /*_.RETURN___V28*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2947:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3075:/ clear"); /*clear*/ /*_.RES__V24*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2947:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3075:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2947:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3075:/ clear"); /*clear*/ /*_.RETURN___V28*/ curfptr[26] = 0 ;} ; /*_.IFELSE___V19*/ curfptr[18] = /*_.LET___V23*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2943:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3071:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[19] = 0 ;} ; } ; /*_.LET___V11*/ curfptr[9] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2933:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3061:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2933:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3061:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2933:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3061:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2933:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3061:/ clear"); /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2933:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3061:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2933:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3061:/ clear"); /*clear*/ /*_.CXTUP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2933:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3061:/ clear"); /*clear*/ /*_#NBCOMP__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2933:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3061:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2933:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3061:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -31049,14 +32598,14 @@ basilys_trace_end("MEXPAND_OR", callcount); basilys_topframe = (struct callfram #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_61_MEXPAND_OR*/ +} /*end rout_63_MEXPAND_OR*/ static basilys_ptr_t -rout_62_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_64_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -31067,7 +32616,7 @@ rout_62_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_62_LAMBDA__st { unsigned nbvar; + struct frame_rout_64_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -31099,34 +32648,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2939:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3067:/ getarg"); /*_.C__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2939:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3067:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2939:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3067:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2939:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3067:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.bysl:2939:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3067:/ 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.bysl:2939:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3067:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:2939:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3067:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2939:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3067:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -31137,14 +32686,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_62_LAMBDA_*/ +} /*end rout_64_LAMBDA_*/ static basilys_ptr_t -rout_63_PATEXPAND_OR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_65_PATEXPAND_OR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -31155,7 +32704,7 @@ rout_63_PATEXPAND_OR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, cons #define callcount 0L #endif - struct frame_rout_63_PATEXPAND_OR_st { unsigned nbvar; + struct frame_rout_65_PATEXPAND_OR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -31187,18 +32736,18 @@ basilys_trace_start("PATEXPAND_OR", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ 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.bysl:2956:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ 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); @@ -31207,26 +32756,26 @@ basilys_trace_start("PATEXPAND_OR", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2956:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3084:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2957:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2957:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3085:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3085:/ 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.bysl:2957:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3085:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2957:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3085:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2957:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3085:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2957:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3085:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2957)?(2957):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3085)?(3085):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -31235,34 +32784,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2956:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2957:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3085:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2957:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3085:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2957:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3085:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2958:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2958:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3086:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3086:/ 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.bysl:2958:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3086:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2958:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3086:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2958:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3086:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2958:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3086:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2958)?(2958):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3086)?(3086):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -31271,34 +32820,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2956:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2958:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3086:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2958:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3086:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2958:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3086:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2959:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2959:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3087:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3087:/ 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.bysl:2959:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3087:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2959:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3087:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2959:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3087:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2959:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3087:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check pctx"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2959)?(2959):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check pctx"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3087)?(3087):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} @@ -31307,57 +32856,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:2956:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2959:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3087:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2959:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3087:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2959:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3087:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2960:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2960:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3088:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3088:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2960:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3088:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2960:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3088:/ apply.arg"); argtab[0].bp_cstring = "patexpand_or sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2960:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3088:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2960:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3088:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2960:/ apply.arg"); - argtab[3].bp_long = 2960; + BASILYS_LOCATION("warmelt-macro.bysl:3088:/ apply.arg"); + argtab[3].bp_long = 3088; /*_.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.bysl:2960:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3088:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2960:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3088:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2960:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3088:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2961:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3089:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2962:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3090:/ 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.bysl:2963:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3091:/ 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; }; ; @@ -31365,30 +32914,30 @@ BASILYS_LOCATION("warmelt-macro.bysl:2956:/ 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.bysl:2965:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3093:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2965:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3093:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2965:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3093:/ 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.bysl:2966:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3094:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2966:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3094:/ 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.bysl:2966:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3094:/ 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.bysl:2966:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3094:/ 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"); @@ -31397,81 +32946,81 @@ BASILYS_LOCATION("warmelt-macro.bysl:2956:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2970:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2970:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3098:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3098:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2970:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3098:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2970:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3098:/ apply.arg"); argtab[0].bp_cstring = "patexpand_or res"; - BASILYS_LOCATION("warmelt-macro.bysl:2970:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3098:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2970:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3098:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2970:/ apply.arg"); - argtab[3].bp_long = 2970; + BASILYS_LOCATION("warmelt-macro.bysl:3098:/ apply.arg"); + argtab[3].bp_long = 3098; /*_.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.bysl:2970:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3098:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2970:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3098:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2970:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3098:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2971:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3099:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];; - BASILYS_LOCATION("warmelt-macro.bysl:2971:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3099:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V23*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2961:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3089:/ clear"); /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2961:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3089:/ clear"); /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2961:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3089:/ clear"); /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2961:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3089:/ clear"); /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2961:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3089:/ clear"); /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2961:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3089:/ clear"); /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2961:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3089:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2961:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3089:/ clear"); /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; @@ -31482,14 +33031,14 @@ basilys_trace_end("PATEXPAND_OR", callcount); basilys_topframe = (struct callfr #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_63_PATEXPAND_OR*/ +} /*end rout_65_PATEXPAND_OR*/ static basilys_ptr_t -rout_64_MEXPAND_MATCH(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_66_MEXPAND_MATCH(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -31500,7 +33049,7 @@ rout_64_MEXPAND_MATCH(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, con #define callcount 0L #endif - struct frame_rout_64_MEXPAND_MATCH_st { unsigned nbvar; + struct frame_rout_66_MEXPAND_MATCH_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -31532,18 +33081,18 @@ basilys_trace_start("MEXPAND_MATCH", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ 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.bysl:2979:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ 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); @@ -31552,26 +33101,26 @@ basilys_trace_start("MEXPAND_MATCH", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2979:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3107:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2980:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2980:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3108:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3108:/ 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.bysl:2980:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3108:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2980:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3108:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2980:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3108:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2980:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3108:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2980)?(2980):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3108)?(3108):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -31580,34 +33129,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2980:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3108:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2980:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3108:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2980:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3108:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2981:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2981:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3109:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3109:/ 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.bysl:2981:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3109:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2981:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3109:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:2981:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3109:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:2981:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3109:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(2981)?(2981):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3109)?(3109):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -31616,57 +33165,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2981:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3109:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2981:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3109:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2981:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3109:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2982:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2982:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3110:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3110:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2982:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3110:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2982:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3110:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:2982:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3110:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:2982:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3110:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2982:/ apply.arg"); - argtab[3].bp_long = 2982; + BASILYS_LOCATION("warmelt-macro.bysl:3110:/ apply.arg"); + argtab[3].bp_long = 3110; /*_.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.bysl:2982:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3110:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2982:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3110:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2982:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3110:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2984:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3112:/ 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.bysl:2985:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3113:/ 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; }; ; @@ -31676,13 +33225,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ 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.bysl:2987:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3115:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2987:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3115:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:2987:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3115:/ 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); } @@ -31693,13 +33242,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ 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.bysl:2991:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3119:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2991:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3119:/ 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.bysl:2991:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3119:/ 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]))); @@ -31707,62 +33256,62 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ block"); ; /*_.LAMBDA___V21*/ curfptr[20] = /*_.LAMBDA___V22*/ curfptr[21];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2988:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3116:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2988:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3116:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]); - BASILYS_LOCATION("warmelt-macro.bysl:2988:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3116:/ 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.bysl:2997:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3125:/ block"); /*block*/{ /*_.LX__V25*/ curfptr[24] = (basilys_multiple_nth((basilys_ptr_t)(/*_.MEXPTUPLE__V23*/ curfptr[22]), (-1)));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:2998:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2998:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3126:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3126:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:2998:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3126:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2998:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3126:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match lastmexp lx"; - BASILYS_LOCATION("warmelt-macro.bysl:2998:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3126:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.bysl:2998:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3126:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:2998:/ apply.arg"); - argtab[3].bp_long = 2998; + BASILYS_LOCATION("warmelt-macro.bysl:3126:/ apply.arg"); + argtab[3].bp_long = 3126; /*_.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.bysl:2998:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3126:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2998:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3126:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:2998:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3126:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V24*/ curfptr[23] = /*_.LX__V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2997:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3125:/ clear"); /*clear*/ /*_.LX__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2997:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3125:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;} ; /*_.LASTMEXP__V28*/ curfptr[26] = /*_.LET___V24*/ curfptr[23];; @@ -31772,56 +33321,56 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ block"); (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3003:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3003:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3131:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3131:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3003:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3131:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3003:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3131:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match mexptuple"; - BASILYS_LOCATION("warmelt-macro.bysl:3003:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3131:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.bysl:3003:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3131:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3003:/ apply.arg"); - argtab[3].bp_long = 3003; + BASILYS_LOCATION("warmelt-macro.bysl:3131:/ apply.arg"); + argtab[3].bp_long = 3131; /*_.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.bysl:3003:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3131:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3003:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3131:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3003:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3131:/ cppif.else"); /*_.IFCPP___V30*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3004:/ loop"); - /*loop*/{ labloop_MATCHLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:3004:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.bysl:3132:/ loop"); + /*loop*/{ labloop_MATCHLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:3132:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.bysl:3004:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3132:/ block"); /*block*/{ /*_#I__L8*/ curfnum[6] = ((/*_#IX__L6*/ curfnum[4]) < (0));; - BASILYS_LOCATION("warmelt-macro.bysl:3005:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3133:/ cond"); /*cond*/ if (/*_#I__L8*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3005:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3005:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3133:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3133:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3005:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3133:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3005:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3133:/ compute"); /*_.MATCHLOOP__V33*/ curfptr[32] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3005:/ exit"); + BASILYS_LOCATION("warmelt-macro.bysl:3133:/ exit"); /*exit*/{ goto labexit_MATCHLOOP_1;} ;} @@ -31830,52 +33379,52 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3006:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3134:/ 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.bysl:3007:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3007:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3135:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3135:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3007:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3135:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3007:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3135:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match curmatch"; - BASILYS_LOCATION("warmelt-macro.bysl:3007:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3135:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.bysl:3007:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3135:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3007:/ apply.arg"); - argtab[3].bp_long = 3007; + BASILYS_LOCATION("warmelt-macro.bysl:3135:/ apply.arg"); + argtab[3].bp_long = 3135; /*_.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.bysl:3007:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3135:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3007:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3135:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3007:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3135:/ 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.bysl:3010:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3138:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3010:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3010:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3138:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3138:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3013:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3141:/ 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; }; ; @@ -31887,28 +33436,28 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ block"); (((/*!konst_9_WHEN*/ curfrout->tabval[9])) == (/*_.PAIR_HEAD__V39*/ curfptr[38]));; /*_#IF___L11*/ curfnum[10] = /*_#__L12*/ curfnum[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3010:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3138:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V37*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3010:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3138:/ clear"); /*clear*/ /*_.LIST_FIRST__V38*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3010:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3138:/ clear"); /*clear*/ /*_.PAIR_HEAD__V39*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3010:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3138:/ clear"); /*clear*/ /*_#__L12*/ curfnum[11] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3010:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3138:/ cond.else"); /*_#IF___L11*/ curfnum[10] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:3010:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3138:/ cond"); /*cond*/ if (/*_#IF___L11*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3010:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3010:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3138:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3138:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3015:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3143:/ 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; }; ; @@ -31916,134 +33465,134 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ 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.bysl:3016:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3144:/ 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.bysl:3017:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3145:/ 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.bysl:3017:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3145:/ 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.bysl:3017:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3145:/ clear"); /*clear*/ /*_.SW__V45*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3017:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3145:/ clear"); /*clear*/ /*_.PAIR_TAIL__V46*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3017:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3145:/ clear"); /*clear*/ /*_.SETQ___V47*/ curfptr[46] = 0 ;} ; /*_.SWHENPAT__V48*/ curfptr[44] = /*_.LET___V44*/ curfptr[43];; - BASILYS_LOCATION("warmelt-macro.bysl:3018:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3146:/ 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.bysl:3018:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3146:/ 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.bysl:3018:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3146:/ clear"); /*clear*/ /*_.SC__V50*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3018:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3146:/ clear"); /*clear*/ /*_.PAIR_TAIL__V51*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3018:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3146:/ clear"); /*clear*/ /*_.SETQ___V52*/ curfptr[51] = 0 ;} ; /*_.SWHENCOND__V53*/ curfptr[46] = /*_.LET___V49*/ curfptr[45];; - BASILYS_LOCATION("warmelt-macro.bysl:3019:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3147:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3019:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3147:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3019:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3147:/ 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.bysl:3021:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3149:/ 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.bysl:3020:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3148:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3020:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3148:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOCA_LOCATION__V55*/ curfptr[51]; - BASILYS_LOCATION("warmelt-macro.bysl:3020:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3148:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3020:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3148:/ 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.bysl:3023:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3151:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3023:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3151:/ 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.bysl:3023:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3151:/ 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.bysl:3023:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3151:/ 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.bysl:3023:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3151:/ 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.bysl:3027:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3155:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3027:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3155:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3027:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3155:/ 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.bysl:3028:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3156:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3028:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3156:/ 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.bysl:3028:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3156:/ 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.bysl:3028:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3156:/ 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.bysl:3028:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3156:/ 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.bysl:3028:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3156:/ 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"); @@ -32052,94 +33601,94 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3034:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3034:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3162:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3162:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3034:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3162:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3034:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3162:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match when curcase"; - BASILYS_LOCATION("warmelt-macro.bysl:3034:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3162:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11]; - BASILYS_LOCATION("warmelt-macro.bysl:3034:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3162:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3034:/ apply.arg"); - argtab[3].bp_long = 3034; + BASILYS_LOCATION("warmelt-macro.bysl:3162:/ apply.arg"); + argtab[3].bp_long = 3162; /*_.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.bysl:3034:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3162:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3034:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3162:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3034:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3162:/ cppif.else"); /*_.IFCPP___V63*/ curfptr[62] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.CASELIST__V29*/ curfptr[24]), (basilys_ptr_t)(/*_.CURCASE__V61*/ curfptr[60])); /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V40*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.LIST_FIRST__V41*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.CURPAIR__V42*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.CURMATCHLOC__V43*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.LET___V44*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.SWHENPAT__V48*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.LET___V49*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.SWHENCOND__V53*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.WHENCONDX__V54*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V55*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.WHENBODY__V56*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V57*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.CURPATCTX__V58*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.CURPAT__V60*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.CURCASE__V61*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3014:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); /*clear*/ /*_.IFCPP___V63*/ curfptr[62] = 0 ;} ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3010:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3138:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3010:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3138:/ 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.bysl:3039:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3167:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3039:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3039:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3167:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3167:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ 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.bysl:3041:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3169:/ 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; }; ; @@ -32153,70 +33702,70 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ 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.bysl:3044:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3172:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3044:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3172:/ 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.bysl:3044:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3172:/ 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.bysl:3044:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3172:/ 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.bysl:3044:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3172:/ 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.bysl:3048:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3176:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3048:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3176:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3048:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3176:/ 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.bysl:3049:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3177:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3049:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3177:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3049:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3177:/ 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.bysl:3050:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3178:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3050:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3178:/ 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.bysl:3050:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3178:/ 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.bysl:3050:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3178:/ 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.bysl:3050:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3178:/ 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"); @@ -32225,75 +33774,75 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3055:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3055:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3183:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3183:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3055:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3183:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3055:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3183:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match curcase"; - BASILYS_LOCATION("warmelt-macro.bysl:3055:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3183:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14]; - BASILYS_LOCATION("warmelt-macro.bysl:3055:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3183:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3055:/ apply.arg"); - argtab[3].bp_long = 3055; + BASILYS_LOCATION("warmelt-macro.bysl:3183:/ apply.arg"); + argtab[3].bp_long = 3183; /*_.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.bysl:3055:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3183:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3055:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3183:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V79*/ curfptr[59] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3055:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3183:/ cppif.else"); /*_.IFCPP___V78*/ curfptr[57] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_prepend_list((basilys_ptr_t)(/*_.CASELIST__V29*/ curfptr[24]), (basilys_ptr_t)(/*_.CURCASE__V76*/ curfptr[55])); /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ clear"); /*clear*/ /*_.CURMATCHCONT__V65*/ curfptr[63] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ clear"); /*clear*/ /*_.CURMATCHLOC__V66*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ clear"); /*clear*/ /*_.LIST_FIRST__V67*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ clear"); /*clear*/ /*_.CURMATCHPATX__V68*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ clear"); /*clear*/ /*_.LIST_FIRST__V69*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ clear"); /*clear*/ /*_.CURMATCHRESTPAIRS__V70*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V71*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ clear"); /*clear*/ /*_.CURPATCTX__V72*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ clear"); /*clear*/ /*_.CURPAT__V74*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ clear"); /*clear*/ /*_.CURBODY__V75*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ clear"); /*clear*/ /*_.CURCASE__V76*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3168:/ clear"); /*clear*/ /*_.IFCPP___V78*/ curfptr[57] = 0 ;} ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3039:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3167:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3039:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3167:/ block"); /*block*/{ 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.bysl:3059:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3187:/ block"); /*block*/{} ; /*epilog*/} @@ -32301,103 +33850,103 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ block"); } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3010:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3138:/ clear"); /*clear*/ /*_#IS_A__L14*/ curfnum[11] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3006:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3134:/ clear"); /*clear*/ /*_.CURMATCH__V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3006:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3134:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3006:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3134:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3006:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3134:/ clear"); /*clear*/ /*_#IF___L11*/ curfnum[10] = 0 ;} ; /*_#I__L16*/ curfnum[14] = ((/*_#IX__L6*/ curfnum[4]) - (1));; - BASILYS_LOCATION("warmelt-macro.bysl:3062:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3190:/ compute"); /*_#IX__L6*/ curfnum[4] = /*_#SETQ___L17*/ curfnum[11] = /*_#I__L16*/ curfnum[14];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3004:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3004:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3004:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); /*clear*/ /*_#SETQ___L17*/ curfnum[11] = 0 ;} ; ; goto labloop_MATCHLOOP_1; - labexit_MATCHLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:3004:/ loopepilog"); + labexit_MATCHLOOP_1:;BASILYS_LOCATION("warmelt-macro.bysl:3132:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V32*/ curfptr[30] = /*_.MATCHLOOP__V33*/ curfptr[32];; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3063:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3063:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3191:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3191:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3063:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3191:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3063:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3191:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match caselist"; - BASILYS_LOCATION("warmelt-macro.bysl:3063:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3191:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.bysl:3063:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3191:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3063:/ apply.arg"); - argtab[3].bp_long = 3063; + BASILYS_LOCATION("warmelt-macro.bysl:3191:/ apply.arg"); + argtab[3].bp_long = 3191; /*_.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.bysl:3063:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3191:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3063:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3191:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[62] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3063:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3191:/ cppif.else"); /*_.IFCPP___V80*/ curfptr[60] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3064:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3192:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3067:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3195:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3067:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3195:/ 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.bysl:3064:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3192:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3064:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3192:/ 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.bysl:3064:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3192:/ 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.bysl:3064:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3192:/ 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.bysl:3064:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3192:/ 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"); @@ -32406,114 +33955,114 @@ BASILYS_LOCATION("warmelt-macro.bysl:2979:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3069:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3069:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3197:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3197:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L19*/ curfnum[10] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3069:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3197:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3069:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3197:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match result smat"; - BASILYS_LOCATION("warmelt-macro.bysl:3069:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3197:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[10]; - BASILYS_LOCATION("warmelt-macro.bysl:3069:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3197:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3069:/ apply.arg"); - argtab[3].bp_long = 3069; + BASILYS_LOCATION("warmelt-macro.bysl:3197:/ apply.arg"); + argtab[3].bp_long = 3197; /*_.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.bysl:3069:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3197:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3069:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3197:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V87*/ curfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3069:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3197:/ cppif.else"); /*_.IFCPP___V86*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3070:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3198:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SMAT__V84*/ curfptr[35];; - BASILYS_LOCATION("warmelt-macro.bysl:3070:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3198:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V82*/ curfptr[59] = /*_.RETURN___V88*/ curfptr[43];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3064:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3192:/ clear"); /*clear*/ /*_.LIST_TO_MULTIPLE__V83*/ curfptr[63] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3064:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3192:/ clear"); /*clear*/ /*_.SMAT__V84*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3064:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3192:/ clear"); /*clear*/ /*_.IFCPP___V86*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3064:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3192:/ clear"); /*clear*/ /*_.RETURN___V88*/ curfptr[43] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V82*/ curfptr[59];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.MSEXP__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.MATSX__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.LAMBDA___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.MEXPTUPLE__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_#NBMATCH__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.LASTMEXP__V28*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_#IX__L6*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.CASELIST__V29*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.FOREVER___V32*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.IFCPP___V80*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2983:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3111:/ clear"); /*clear*/ /*_.LET___V82*/ curfptr[59] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -32524,14 +34073,14 @@ basilys_trace_end("MEXPAND_MATCH", callcount); basilys_topframe = (struct callf #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_64_MEXPAND_MATCH*/ +} /*end rout_66_MEXPAND_MATCH*/ static basilys_ptr_t -rout_65_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_67_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -32542,7 +34091,7 @@ rout_65_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_65_LAMBDA__st { unsigned nbvar; + struct frame_rout_67_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -32574,20 +34123,20 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:2991:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3119:/ getarg"); /*_.C__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:2991:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3119:/ 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.bysl:2992:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3120:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:2992:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:2992:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3120:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3120:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "MATCH with non-sexpr"), (basilys_ptr_t)0); @@ -32595,15 +34144,15 @@ BASILYS_LOCATION("warmelt-macro.bysl:2991:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:2991:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3119:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.C__V2*/ curfptr[1];; - BASILYS_LOCATION("warmelt-macro.bysl:2991:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3119:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:2991:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3119:/ clear"); /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;} ; @@ -32614,14 +34163,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_65_LAMBDA_*/ +} /*end rout_67_LAMBDA_*/ static basilys_ptr_t -rout_66_MEXPAND_LETBINDING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_68_MEXPAND_LETBINDING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -32632,7 +34181,7 @@ rout_66_MEXPAND_LETBINDING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_ #define callcount 0L #endif - struct frame_rout_66_MEXPAND_LETBINDING_st { unsigned nbvar; + struct frame_rout_68_MEXPAND_LETBINDING_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -32664,18 +34213,18 @@ basilys_trace_start("MEXPAND_LETBINDING", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ 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.bysl:3078:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ 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); @@ -32684,60 +34233,60 @@ basilys_trace_start("MEXPAND_LETBINDING", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3078:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3206:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3079:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3079:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3207:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3207:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3079:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3207:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3079:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3207:/ apply.arg"); argtab[0].bp_cstring = "mexpand_letbinding sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:3079:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3207:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3079:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3207:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3079:/ apply.arg"); - argtab[3].bp_long = 3079; + BASILYS_LOCATION("warmelt-macro.bysl:3207:/ apply.arg"); + argtab[3].bp_long = 3207; /*_.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.bysl:3079:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3207:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3079:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3207:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3079:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3207:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3080:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3080:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3208:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3208:/ 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.bysl:3080:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3208:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3080:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3208:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3080:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3208:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3080:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3208:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3080)?(3080):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3208)?(3208):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -32746,34 +34295,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3078:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3080:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3208:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3080:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3208:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3080:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3208:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3081:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3081:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3209:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3209:/ 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.bysl:3081:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3209:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3081:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3209:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3081:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3209:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3081:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3209:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3081)?(3081):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3209)?(3209):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} @@ -32782,23 +34331,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:3078:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3081:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3209:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3081:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3209:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3081:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3209:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3083:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3211:/ 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.bysl:3084:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3212:/ 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; }; ; @@ -32810,29 +34359,29 @@ BASILYS_LOCATION("warmelt-macro.bysl:3078:/ 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.bysl:3091:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3219:/ 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.bysl:3092:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3220:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3092:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3092:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3220:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3220:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3093:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3221:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3093:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3221:/ 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.bysl:3094:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3222:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3094:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3094:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3222:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3222:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3095:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3223:/ 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; }; ; @@ -32840,33 +34389,33 @@ BASILYS_LOCATION("warmelt-macro.bysl:3078:/ block"); ((/*_.CTYPE_KEYWORD__V24*/ curfptr[23]) == (/*_.CURARG__V18*/ curfptr[17]));; /*_#IF___L6*/ curfnum[5] = /*_#__L7*/ curfnum[6];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3094:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3222:/ clear"); /*clear*/ /*_.CTYPE_KEYWORD__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3094:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3222:/ clear"); /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3094:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3222:/ cond.else"); /*_#IF___L6*/ curfnum[5] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:3094:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3222:/ cond"); /*cond*/ if (/*_#IF___L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3094:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3094:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3222:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3222:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3096:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3224:/ 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.bysl:3094:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3222:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3094:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3222:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3094:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3222:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3098:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3226:/ 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; }; ; @@ -32876,56 +34425,56 @@ BASILYS_LOCATION("warmelt-macro.bysl:3078:/ block"); /*clear*/ /*_.IFELSE___V25*/ curfptr[23] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3094:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3222:/ 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.bysl:3099:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3227:/ 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.bysl:3100:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3228:/ 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.bysl:3093:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); /*clear*/ /*_.CTY__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3093:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3093:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); /*clear*/ /*_#IF___L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3093:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); /*clear*/ /*_.IFELSE___V25*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3093:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); /*clear*/ /*_.PAIR_TAIL__V28*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3093:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3093:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); /*clear*/ /*_.PAIR_HEAD__V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3093:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[30] = 0 ;} ; /*_.IF___V21*/ curfptr[20] = /*_.LET___V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3092:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3220:/ clear"); /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3092:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3220:/ 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.bysl:3102:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3230:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3102:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3102:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3230:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3230:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3104:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3232:/ 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; }; ; @@ -32935,69 +34484,69 @@ BASILYS_LOCATION("warmelt-macro.bysl:3078:/ block"); /*clear*/ /*_.IFELSE___V32*/ curfptr[22] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3102:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3230:/ clear"); /*clear*/ /*_.NAMED_NAME__V33*/ curfptr[23] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3102:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3230:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3102:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3230:/ 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.bysl:3105:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3233:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3105:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3105:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3233:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3233:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3106:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3234:/ 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.bysl:3107:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3235:/ 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.bysl:3108:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3236:/ compute"); /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V39*/ curfptr[23] = /*_.PAIR_HEAD__V38*/ curfptr[21];; - BASILYS_LOCATION("warmelt-macro.bysl:3105:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3233:/ block"); /*block*/{ /*_.PROGN___V40*/ curfptr[39] = /*_.SETQ___V39*/ curfptr[23];;} ; /*_.IFELSE___V34*/ curfptr[25] = /*_.PROGN___V40*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3233:/ clear"); /*clear*/ /*_.SETQ___V35*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3233:/ clear"); /*clear*/ /*_.PAIR_TAIL__V36*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3233:/ clear"); /*clear*/ /*_.SETQ___V37*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3233:/ clear"); /*clear*/ /*_.PAIR_HEAD__V38*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3233:/ clear"); /*clear*/ /*_.SETQ___V39*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3105:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3233:/ clear"); /*clear*/ /*_.PROGN___V40*/ curfptr[39] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3105:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3233:/ cond.else"); /*_.IFELSE___V34*/ curfptr[25] = NULL;; } ; /*_.IFELSE___V32*/ curfptr[22] = /*_.IFELSE___V34*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3102:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3230:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3102:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3230:/ clear"); /*clear*/ /*_.IFELSE___V34*/ curfptr[25] = 0 ;} ; } ; /*_#NULL__L10*/ curfnum[5] = ((/*_.VAR__V15*/ curfptr[14]) == NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:3110:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3238:/ cond"); /*cond*/ if (/*_#NULL__L10*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3110:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3110:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3238:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3238:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing variable in letbinding"), (basilys_ptr_t)0); @@ -33005,36 +34554,36 @@ BASILYS_LOCATION("warmelt-macro.bysl:3078:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3112:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3240:/ cond"); /*cond*/ if (/*_.CURARG__V18*/ curfptr[17]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3112:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3112:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3240:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3240:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3114:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3242:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3114:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3242:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3114:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3242:/ 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.bysl:3114:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3242:/ 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.bysl:3115:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3243:/ 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.bysl:3116:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3244:/ compute"); /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V46*/ curfptr[39] = /*_.PAIR_HEAD__V45*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.bysl:3117:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3245:/ cond"); /*cond*/ if (/*_.CURARG__V18*/ curfptr[17]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3117:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3117:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3245:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3245:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "too long letbinding"), (basilys_ptr_t)0); @@ -33042,118 +34591,118 @@ BASILYS_LOCATION("warmelt-macro.bysl:3078:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3113:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3241:/ block"); /*block*/{} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3112:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3240:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V41*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3112:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3240:/ clear"); /*clear*/ /*_.SETQ___V42*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3112:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3240:/ clear"); /*clear*/ /*_.PAIR_TAIL__V43*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3112:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3240:/ clear"); /*clear*/ /*_.SETQ___V44*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3112:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3240:/ clear"); /*clear*/ /*_.PAIR_HEAD__V45*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3112:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3240:/ clear"); /*clear*/ /*_.SETQ___V46*/ curfptr[39] = 0 ;} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3119:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3247:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3120:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3248:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3120:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3248:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_LETBINDING*/ curfrout->tabval[8])), (4), "CLASS_SRC_LETBINDING");/*_.INST__V49*/ curfptr[29] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3120:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3248:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[29]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.bysl:3120:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3248:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[29]), (1), (/*_.CTYP__V14*/ curfptr[13]), "SLETB_TYPE"); ; - BASILYS_LOCATION("warmelt-macro.bysl:3120:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3248:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[29]), (2), (/*_.VAR__V15*/ curfptr[14]), "SLETB_BINDER"); ; - BASILYS_LOCATION("warmelt-macro.bysl:3120:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3248:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[29]), (3), (/*_.EXPR__V16*/ curfptr[15]), "SLETB_EXPR"); ; /*_.LETB__V48*/ curfptr[28] = /*_.INST__V49*/ curfptr[29];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3125:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3253:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LETB__V48*/ curfptr[28];; - BASILYS_LOCATION("warmelt-macro.bysl:3125:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3253:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V47*/ curfptr[25] = /*_.RETURN___V50*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3119:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3247:/ clear"); /*clear*/ /*_.LETB__V48*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3119:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3247:/ clear"); /*clear*/ /*_.RETURN___V50*/ curfptr[30] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V47*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_.CTYP__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_.VAR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_.EXPR__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_.CURARG__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_.PAIR_HEAD__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_.IF___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_#NULL__L10*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3082:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); /*clear*/ /*_.LET___V47*/ curfptr[25] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -33164,14 +34713,14 @@ basilys_trace_end("MEXPAND_LETBINDING", callcount); basilys_topframe = (struct #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_66_MEXPAND_LETBINDING*/ +} /*end rout_68_MEXPAND_LETBINDING*/ static basilys_ptr_t -rout_67_MEXPAND_LET(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_69_MEXPAND_LET(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -33182,7 +34731,7 @@ rout_67_MEXPAND_LET(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const #define callcount 0L #endif - struct frame_rout_67_MEXPAND_LET_st { unsigned nbvar; + struct frame_rout_69_MEXPAND_LET_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -33214,18 +34763,18 @@ basilys_trace_start("MEXPAND_LET", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ 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.bysl:3129:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ 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); @@ -33234,26 +34783,26 @@ basilys_trace_start("MEXPAND_LET", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3129:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3257:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3130:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3130:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3258:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3258:/ 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.bysl:3130:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3258:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3130:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3258:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3130:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3258:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3130:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3258:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3130)?(3130):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3258)?(3258):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -33262,34 +34811,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3129:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3130:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3258:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3130:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3258:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3130:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3258:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3131:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3131:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3259:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3259:/ 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.bysl:3131:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3259:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3131:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3259:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3131:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3259:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3131:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3259:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3131)?(3131):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3259)?(3259):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -33298,23 +34847,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:3129:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3131:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3259:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3131:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3259:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3131:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3259:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3133:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3261:/ 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.bysl:3134:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3262:/ 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; }; ; @@ -33326,50 +34875,50 @@ BASILYS_LOCATION("warmelt-macro.bysl:3129:/ 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.bysl:3138:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3266:/ 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.bysl:3142:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3270:/ cond"); /*cond*/ if (/*_.BINDEXPR__V15*/ curfptr[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3142:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3142:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3270:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3270:/ 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.bysl:3143:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3271:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3143:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3143:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3271:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3271:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3146:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3274:/ 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.bysl:3148:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3276:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3148:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3276:/ 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.bysl:3148:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3276:/ 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.bysl:3148:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3276:/ 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.bysl:3148:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3276:/ 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]))); @@ -33377,35 +34926,35 @@ BASILYS_LOCATION("warmelt-macro.bysl:3129:/ block"); ; /*_.LAMBDA___V23*/ curfptr[22] = /*_.LAMBDA___V24*/ curfptr[23];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3145:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3273:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3145:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3273:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.bysl:3145:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3273:/ 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.bysl:3144:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3272:/ 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.bysl:3143:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3271:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3143:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3271:/ clear"); /*clear*/ /*_.LIST_FIRST__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3143:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3271:/ clear"); /*clear*/ /*_.LAMBDA___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3143:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3271:/ clear"); /*clear*/ /*_.PAIRLIST_TO_MULTIPLE__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3143:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3271:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3143:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3271:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3143:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3271:/ block"); /*block*/{ /*block*/{ @@ -33418,23 +34967,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:3129:/ block"); ; /*_.IF___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3270:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3142:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3270:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3142:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3270:/ cond.else"); /*_.IF___V19*/ curfptr[18] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:3156:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3284:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3156:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3284:/ 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.bysl:3156:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3284:/ 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]))); @@ -33442,28 +34991,28 @@ BASILYS_LOCATION("warmelt-macro.bysl:3129:/ block"); ; /*_.LAMBDA___V27*/ curfptr[20] = /*_.LAMBDA___V28*/ curfptr[21];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3154:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3282:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3154:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3282:/ 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.bysl:3168:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3296:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3168:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3296:/ 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.bysl:3168:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3296:/ 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.bysl:3168:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3296:/ 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]))); @@ -33471,107 +35020,107 @@ BASILYS_LOCATION("warmelt-macro.bysl:3129:/ block"); ; /*_.LAMBDA___V30*/ curfptr[24] = /*_.LAMBDA___V31*/ curfptr[25];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3167:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3295:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3167:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3295:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.bysl:3167:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3295:/ 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.bysl:3167:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3295:/ compute"); /*_.BODYTUP__V18*/ curfptr[17] = /*_.SETQ___V33*/ curfptr[32] = /*_.PAIRLIST_TO_MULTIPLE__V32*/ curfptr[19];; - BASILYS_LOCATION("warmelt-macro.bysl:3169:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3297:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3170:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3298:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3170:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3298:/ 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.bysl:3170:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3298:/ 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.bysl:3170:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3298:/ 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.bysl:3170:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3298:/ 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.bysl:3174:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3302:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LETR__V35*/ curfptr[34];; - BASILYS_LOCATION("warmelt-macro.bysl:3174:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3302:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V34*/ curfptr[33] = /*_.RETURN___V37*/ curfptr[36];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3169:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3297:/ clear"); /*clear*/ /*_.LETR__V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3169:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3297:/ clear"); /*clear*/ /*_.RETURN___V37*/ curfptr[36] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V34*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.SECPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.RESTPAIR__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.BINDEXPR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.NEWENV__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.BINDTUP__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.BODYTUP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.LAMBDA___V27*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V29*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.LAMBDA___V30*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.PAIRLIST_TO_MULTIPLE__V32*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.SETQ___V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); /*clear*/ /*_.LET___V34*/ curfptr[33] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -33582,14 +35131,14 @@ basilys_trace_end("MEXPAND_LET", callcount); basilys_topframe = (struct callfra #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_67_MEXPAND_LET*/ +} /*end rout_69_MEXPAND_LET*/ static basilys_ptr_t -rout_68_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_70_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -33600,7 +35149,7 @@ rout_68_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_68_LAMBDA__st { unsigned nbvar; + struct frame_rout_70_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -33632,20 +35181,20 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3148:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3276:/ getarg"); /*_.B__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3148:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3276:/ 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.bysl:3149:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3277:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3149:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3149:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3277:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3277:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "sexpr expected in LET binding"), (basilys_ptr_t)0); @@ -33653,28 +35202,28 @@ BASILYS_LOCATION("warmelt-macro.bysl:3148:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3151:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3279:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3151:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3279:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]); - BASILYS_LOCATION("warmelt-macro.bysl:3151:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3279:/ 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.bysl:3148:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3276:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MEXPAND_LETBINDING__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:3148:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3276:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3148:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3276:/ clear"); /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3148:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3276:/ clear"); /*clear*/ /*_.MEXPAND_LETBINDING__V3*/ curfptr[2] = 0 ;} ; @@ -33685,14 +35234,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_68_LAMBDA_*/ +} /*end rout_70_LAMBDA_*/ static basilys_ptr_t -rout_69_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_71_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -33703,7 +35252,7 @@ rout_69_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_69_LAMBDA__st { unsigned nbvar; + struct frame_rout_71_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -33735,32 +35284,32 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3156:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3284:/ getarg"); /*_.SLB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3156:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3284:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3157:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3157:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3285:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3285:/ 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.bysl:3157:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3285:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3157:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3285:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3157:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3285:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3157:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3285:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "mexp.let. check slb"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3157)?(3157):__LINE__, __FUNCTION__); + basilys_assert_failed(( "mexp.let. check slb"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3285)?(3285):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} @@ -33769,48 +35318,48 @@ BASILYS_LOCATION("warmelt-macro.bysl:3156:/ block"); ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3157:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3285:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3157:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3285:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3157:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3285:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3158:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3286:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3159:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3287:/ 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.bysl:3161:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3289:/ 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.bysl:3162:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3290:/ 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.bysl:3160:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3288:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3160:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3288:/ 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.bysl:3160:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3288:/ 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.bysl:3160:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3288:/ 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.bysl:3160:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3288:/ 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"); @@ -33819,24 +35368,24 @@ BASILYS_LOCATION("warmelt-macro.bysl:3156:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3164:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3164:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3292:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3292:/ 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.bysl:3164:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3292:/ cond"); /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3164:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3292:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3164:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3292:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3164:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3292:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "mexp.let not list lb"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3164)?(3164):__LINE__, __FUNCTION__); + basilys_assert_failed(( "mexp.let not list lb"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3292)?(3292):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} @@ -33845,53 +35394,53 @@ BASILYS_LOCATION("warmelt-macro.bysl:3156:/ block"); ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3164:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3292:/ clear"); /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3164:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3292:/ clear"); /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3164:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3292:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3164:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3292:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3165:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3293:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3165:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3293:/ 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.bysl:3158:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3286:/ clear"); /*clear*/ /*_.SX__V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3158:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3286:/ clear"); /*clear*/ /*_.SLETB_BINDER__V7*/ curfptr[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3158:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3286:/ clear"); /*clear*/ /*_.SLETB_TYPE__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3158:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3286:/ clear"); /*clear*/ /*_.LB__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3158:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3286:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3158:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3286:/ clear"); /*clear*/ /*_.PUT_ENV__V13*/ curfptr[11] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3156:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3284:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; - BASILYS_LOCATION("warmelt-macro.bysl:3156:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3284:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3156:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3284:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3156:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3284:/ clear"); /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;} ; @@ -33902,14 +35451,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_69_LAMBDA_*/ +} /*end rout_71_LAMBDA_*/ static basilys_ptr_t -rout_70_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_72_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -33920,7 +35469,7 @@ rout_70_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_70_LAMBDA__st { unsigned nbvar; + struct frame_rout_72_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -33952,34 +35501,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3168:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3296:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3168:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3296:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3168:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3296:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3168:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3296:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.bysl:3168:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3296:/ 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.bysl:3168:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3296:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:3168:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3296:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3168:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3296:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -33990,14 +35539,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_70_LAMBDA_*/ +} /*end rout_72_LAMBDA_*/ static basilys_ptr_t -rout_71_MEXPAND_LAMBDA(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_73_MEXPAND_LAMBDA(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -34008,7 +35557,7 @@ rout_71_MEXPAND_LAMBDA(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, co #define callcount 0L #endif - struct frame_rout_71_MEXPAND_LAMBDA_st { unsigned nbvar; + struct frame_rout_73_MEXPAND_LAMBDA_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -34040,18 +35589,18 @@ basilys_trace_start("MEXPAND_LAMBDA", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ 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.bysl:3180:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ 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); @@ -34060,26 +35609,26 @@ basilys_trace_start("MEXPAND_LAMBDA", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3180:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3308:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3181:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3181:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3309:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3309:/ 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.bysl:3181:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3309:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3181:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3309:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3181:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3309:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3181:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3309:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3181)?(3181):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3309)?(3309):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -34088,34 +35637,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3180:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3181:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3309:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3181:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3309:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3181:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3309:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3182:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3182:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3310:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3310:/ 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.bysl:3182:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3310:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3182:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3310:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3182:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3310:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3182:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3310:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3182)?(3182):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3310)?(3310):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -34124,23 +35673,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:3180:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3182:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3310:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3182:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3310:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3182:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3310:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3183:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3311:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3183:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3311:/ 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.bysl:3184:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3312:/ 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; }; ; @@ -34148,7 +35697,7 @@ BASILYS_LOCATION("warmelt-macro.bysl:3180:/ 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.bysl:3186:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3314:/ 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); } @@ -34157,27 +35706,27 @@ BASILYS_LOCATION("warmelt-macro.bysl:3180:/ block"); (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; /*_#NOTNULL__L3*/ curfnum[0] = ((/*_.FORMALS__V15*/ curfptr[14]) != NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:3190:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3318:/ cond"); /*cond*/ if (/*_#NOTNULL__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3190:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3190:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3318:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3318:/ 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.bysl:3190:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3318:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3190:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3318:/ cond.else"); /*_#IF___L4*/ curfnum[3] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:3190:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3318:/ cond"); /*cond*/ if (/*_#IF___L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3190:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3190:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3318:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3318:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing formal argument list in (LAMBDA (arglist...) body...)"), (basilys_ptr_t)0); @@ -34185,28 +35734,28 @@ BASILYS_LOCATION("warmelt-macro.bysl:3180:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3192:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3320:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3192:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3320:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3192:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3320:/ 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.bysl:3193:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3321:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_TAIL__V18*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.bysl:3195:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3323:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3195:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3323:/ 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.bysl:3195:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3323:/ 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]))); @@ -34214,30 +35763,30 @@ BASILYS_LOCATION("warmelt-macro.bysl:3180:/ block"); ; /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3194:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3322:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3194:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3322:/ 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.bysl:3196:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3324:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3197:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3325:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3197:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3325:/ 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.bysl:3197:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3325:/ 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.bysl:3197:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3325:/ 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]))); @@ -34245,108 +35794,108 @@ BASILYS_LOCATION("warmelt-macro.bysl:3180:/ block"); ; /*_.LAMBDA___V24*/ curfptr[23] = /*_.LAMBDA___V25*/ curfptr[24];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3196:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3324:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3196:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3324:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3196:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3324:/ 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.bysl:3199:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3327:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3199:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3327:/ 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.bysl:3199:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3327:/ 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.bysl:3199:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3327:/ 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.bysl:3199:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3327:/ 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.bysl:3204:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3332:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LAMBR__V27*/ curfptr[26];; - BASILYS_LOCATION("warmelt-macro.bysl:3204:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3332:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V23*/ curfptr[22] = /*_.RETURN___V29*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3196:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3324:/ clear"); /*clear*/ /*_.LAMBDA___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3196:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3324:/ clear"); /*clear*/ /*_.BODYTUP__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3196:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3324:/ clear"); /*clear*/ /*_.LAMBR__V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3196:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3324:/ clear"); /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ;} ; /*_.LET___V16*/ curfptr[15] = /*_.LET___V23*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3192:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3320:/ clear"); /*clear*/ /*_.ARGTUP__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3192:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3320:/ clear"); /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3192:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3320:/ clear"); /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3192:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3320:/ clear"); /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3192:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3320:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3192:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3320:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V16*/ curfptr[15];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3183:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3311:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3183:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3311:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3183:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3311:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3183:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3311:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3183:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3311:/ clear"); /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3183:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3311:/ clear"); /*clear*/ /*_.FORMALS__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3183:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3311:/ clear"); /*clear*/ /*_#NOTNULL__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3183:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3311:/ clear"); /*clear*/ /*_#IF___L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3183:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3311:/ clear"); /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -34357,14 +35906,14 @@ basilys_trace_end("MEXPAND_LAMBDA", callcount); basilys_topframe = (struct call #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_71_MEXPAND_LAMBDA*/ +} /*end rout_73_MEXPAND_LAMBDA*/ static basilys_ptr_t -rout_72_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_74_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -34375,7 +35924,7 @@ rout_72_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_72_LAMBDA__st { unsigned nbvar; + struct frame_rout_74_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -34407,32 +35956,32 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3195:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3323:/ getarg"); /*_.LB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3195:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3323:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3195:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3323:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3195:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3323:/ 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.bysl:3195:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3323:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:3195:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3323:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3195:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3323:/ clear"); /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;} ; @@ -34443,14 +35992,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_72_LAMBDA_*/ +} /*end rout_74_LAMBDA_*/ static basilys_ptr_t -rout_73_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_75_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -34461,7 +36010,7 @@ rout_73_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_73_LAMBDA__st { unsigned nbvar; + struct frame_rout_75_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -34493,34 +36042,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3197:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3325:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3197:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3325:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3197:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3325:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3197:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3325:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.bysl:3197:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3325:/ 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.bysl:3197:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3325:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:3197:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3325:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3197:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3325:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -34531,14 +36080,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_73_LAMBDA_*/ +} /*end rout_75_LAMBDA_*/ static basilys_ptr_t -rout_74_MEXPAND_MULTICALL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_76_MEXPAND_MULTICALL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -34549,7 +36098,7 @@ rout_74_MEXPAND_MULTICALL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, #define callcount 0L #endif - struct frame_rout_74_MEXPAND_MULTICALL_st { unsigned nbvar; + struct frame_rout_76_MEXPAND_MULTICALL_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -34581,18 +36130,18 @@ basilys_trace_start("MEXPAND_MULTICALL", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ 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.bysl:3210:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ 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); @@ -34601,26 +36150,26 @@ basilys_trace_start("MEXPAND_MULTICALL", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3210:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3338:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3211:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3211:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3339:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3339:/ 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.bysl:3211:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3339:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3211:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3339:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3211:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3339:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3211:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3339:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3211)?(3211):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3339)?(3339):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -34629,34 +36178,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3210:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3211:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3339:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3211:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3339:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3211:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3339:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3212:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3212:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3340:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3340:/ 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.bysl:3212:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3340:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3212:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3340:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3212:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3340:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3212:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3340:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3212)?(3212):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3340)?(3340):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -34665,23 +36214,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:3210:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3212:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3340:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3212:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3340:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3212:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3340:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3213:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3341:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3213:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3341:/ 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.bysl:3214:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3342:/ 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; }; ; @@ -34689,29 +36238,29 @@ BASILYS_LOCATION("warmelt-macro.bysl:3210:/ 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.bysl:3216:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3344:/ 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.bysl:3219:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3347:/ block"); /*block*/{ /*_.PAIR_HEAD__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.bysl:3219:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3347:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3219:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3347:/ 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.bysl:3220:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3348:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_TAIL__V18*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.bysl:3221:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3349:/ block"); /*block*/{ /*_.CURCALLEXP__V21*/ curfptr[20] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; @@ -34719,10 +36268,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:3210:/ 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.bysl:3222:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3350:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3222:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3222:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3350:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3350:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing called expression in multicall"), (basilys_ptr_t)0); @@ -34732,28 +36281,28 @@ BASILYS_LOCATION("warmelt-macro.bysl:3210:/ block"); ; /*_.PAIR_TAIL__V22*/ curfptr[21] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.bysl:3224:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3352:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V23*/ curfptr[22] = /*_.PAIR_TAIL__V22*/ curfptr[21];; - BASILYS_LOCATION("warmelt-macro.bysl:3225:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3353:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3225:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3353:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3225:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3353:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3225:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3353:/ 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.bysl:3227:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3355:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3227:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3355:/ 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.bysl:3227:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3355:/ 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]))); @@ -34761,30 +36310,30 @@ BASILYS_LOCATION("warmelt-macro.bysl:3210:/ block"); ; /*_.LAMBDA___V26*/ curfptr[25] = /*_.LAMBDA___V27*/ curfptr[26];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3226:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3354:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3226:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3354:/ 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.bysl:3229:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3357:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3230:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3358:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3230:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3358:/ 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.bysl:3230:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3358:/ 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.bysl:3230:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3358:/ 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]))); @@ -34792,131 +36341,131 @@ BASILYS_LOCATION("warmelt-macro.bysl:3210:/ block"); ; /*_.LAMBDA___V30*/ curfptr[29] = /*_.LAMBDA___V31*/ curfptr[30];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3229:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3357:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3229:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3357:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[9]); - BASILYS_LOCATION("warmelt-macro.bysl:3229:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3357:/ 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.bysl:3232:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3360:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3232:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3360:/ 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.bysl:3232:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3360:/ 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.bysl:3232:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3360:/ 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.bysl:3232:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3360:/ 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.bysl:3232:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3360:/ 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.bysl:3239:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3367:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULCR__V33*/ curfptr[32];; - BASILYS_LOCATION("warmelt-macro.bysl:3239:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3367:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V29*/ curfptr[28] = /*_.RETURN___V35*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3229:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3357:/ clear"); /*clear*/ /*_.LAMBDA___V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3229:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3357:/ clear"); /*clear*/ /*_.BODYTUP__V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3229:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3357:/ clear"); /*clear*/ /*_.MULCR__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3229:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3357:/ clear"); /*clear*/ /*_.RETURN___V35*/ curfptr[34] = 0 ;} ; /*_.LET___V24*/ curfptr[23] = /*_.LET___V29*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3225:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3353:/ clear"); /*clear*/ /*_.CURCALL__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3225:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3353:/ clear"); /*clear*/ /*_.LAMBDA___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3225:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3353:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3225:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3353:/ clear"); /*clear*/ /*_.LET___V29*/ curfptr[28] = 0 ;} ; /*_.LET___V20*/ curfptr[19] = /*_.LET___V24*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3349:/ clear"); /*clear*/ /*_.CURCALLEXP__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3349:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3349:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3349:/ clear"); /*clear*/ /*_.PAIR_TAIL__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3349:/ clear"); /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3221:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3349:/ clear"); /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;} ; /*_.LET___V15*/ curfptr[14] = /*_.LET___V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3219:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3347:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3219:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3347:/ clear"); /*clear*/ /*_.RESTUP__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3219:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3347:/ clear"); /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3219:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3347:/ clear"); /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3219:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3347:/ clear"); /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V15*/ curfptr[14];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3213:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3341:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3213:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3341:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3213:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3341:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3213:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3341:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3213:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3341:/ clear"); /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3213:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3341:/ clear"); /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -34927,14 +36476,14 @@ basilys_trace_end("MEXPAND_MULTICALL", callcount); basilys_topframe = (struct c #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_74_MEXPAND_MULTICALL*/ +} /*end rout_76_MEXPAND_MULTICALL*/ static basilys_ptr_t -rout_75_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_77_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -34945,7 +36494,7 @@ rout_75_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_75_LAMBDA__st { unsigned nbvar; + struct frame_rout_77_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -34977,32 +36526,32 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3227:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3355:/ getarg"); /*_.LB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3227:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3355:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3227:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3355:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3227:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3355:/ 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.bysl:3227:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3355:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:3227:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3355:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3227:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3355:/ clear"); /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;} ; @@ -35013,14 +36562,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_75_LAMBDA_*/ +} /*end rout_77_LAMBDA_*/ static basilys_ptr_t -rout_76_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_78_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -35031,7 +36580,7 @@ rout_76_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_76_LAMBDA__st { unsigned nbvar; + struct frame_rout_78_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -35063,34 +36612,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3230:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3358:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3230:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3358:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3230:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3358:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3230:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3358:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.bysl:3230:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3358:/ 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.bysl:3230:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3358:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:3230:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3358:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3230:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3358:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -35101,14 +36650,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_76_LAMBDA_*/ +} /*end rout_78_LAMBDA_*/ static basilys_ptr_t -rout_77_MEXPAND_QUOTE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_79_MEXPAND_QUOTE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -35119,7 +36668,7 @@ rout_77_MEXPAND_QUOTE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, con #define callcount 0L #endif - struct frame_rout_77_MEXPAND_QUOTE_st { unsigned nbvar; + struct frame_rout_79_MEXPAND_QUOTE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -35151,18 +36700,18 @@ basilys_trace_start("MEXPAND_QUOTE", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3246:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3246:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ 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.bysl:3246:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ 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); @@ -35171,26 +36720,26 @@ basilys_trace_start("MEXPAND_QUOTE", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3246:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3374:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3247:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3247:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3375:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3375:/ 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.bysl:3247:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3375:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3247:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3375:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3247:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3375:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3247:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3375:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3247)?(3247):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3375)?(3375):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -35199,34 +36748,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3246:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3247:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3375:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3247:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3375:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3247:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3375:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3248:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3248:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3376:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3376:/ 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.bysl:3248:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3376:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3248:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3376:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3248:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3376:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3248:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3376:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3248)?(3248):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3376)?(3376):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -35235,23 +36784,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:3246:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3248:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3376:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3248:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3376:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3248:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3376:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3249:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3377:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3249:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3377:/ 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.bysl:3250:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3378:/ 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; }; ; @@ -35263,10 +36812,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:3246:/ 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.bysl:3254:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3382:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V15*/ curfptr[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3254:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3254:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3382:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3382:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "QUOTE should have only one symbol argument"), (basilys_ptr_t)0); @@ -35278,10 +36827,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:3246:/ 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.bysl:3256:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3384:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3256:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3256:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3384:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3384:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "QUOTE should have a symbol argument - composite quotations unsupported"), (basilys_ptr_t)0); @@ -35291,101 +36840,101 @@ BASILYS_LOCATION("warmelt-macro.bysl:3246:/ 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.bysl:3258:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3386:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3258:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3258:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3386:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3386:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3259:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3387:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.QUOTED__V14*/ curfptr[13];; - BASILYS_LOCATION("warmelt-macro.bysl:3259:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3387:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IF___V16*/ curfptr[15] = /*_.RETURN___V17*/ curfptr[16];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3258:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3386:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3258:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3386:/ cond.else"); /*_.IF___V16*/ curfptr[15] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:3260:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3388:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3260:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3388:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3260:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3388:/ 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.bysl:3260:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3388:/ 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.bysl:3260:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3388:/ 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.bysl:3263:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3391:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SQU__V19*/ curfptr[18];; - BASILYS_LOCATION("warmelt-macro.bysl:3263:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3391:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V18*/ curfptr[16] = /*_.RETURN___V21*/ curfptr[20];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3388:/ clear"); /*clear*/ /*_.SQU__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3260:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3388:/ clear"); /*clear*/ /*_.RETURN___V21*/ curfptr[20] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V18*/ curfptr[16];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3377:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3377:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3377:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3377:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3377:/ clear"); /*clear*/ /*_.QUOTED__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3377:/ clear"); /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3377:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3377:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3377:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3377:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3377:/ clear"); /*clear*/ /*_.LET___V18*/ curfptr[16] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3246:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.bysl:3246:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3246:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3246:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3246:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -35396,14 +36945,14 @@ basilys_trace_end("MEXPAND_QUOTE", callcount); basilys_topframe = (struct callf #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_77_MEXPAND_QUOTE*/ +} /*end rout_79_MEXPAND_QUOTE*/ static basilys_ptr_t -rout_78_MEXPAND_COMMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_80_MEXPAND_COMMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -35414,7 +36963,7 @@ rout_78_MEXPAND_COMMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, c #define callcount 0L #endif - struct frame_rout_78_MEXPAND_COMMENT_st { unsigned nbvar; + struct frame_rout_80_MEXPAND_COMMENT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -35446,18 +36995,18 @@ basilys_trace_start("MEXPAND_COMMENT", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3269:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3397:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3269:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3397:/ 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.bysl:3269:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3397:/ 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); @@ -35466,26 +37015,26 @@ basilys_trace_start("MEXPAND_COMMENT", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3269:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3397:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3270:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3270:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3398:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3398:/ 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.bysl:3270:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3398:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3270:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3398:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3270:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3398:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3270:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3398:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3270)?(3270):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3398)?(3398):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -35494,34 +37043,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3269:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3270:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3398:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3270:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3398:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3270:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3398:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3271:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3271:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3399:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3399:/ 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.bysl:3271:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3399:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3271:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3399:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3271:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3399:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3271:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3399:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3271)?(3271):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3399)?(3399):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -35530,23 +37079,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:3269:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3271:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3399:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3271:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3399:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3271:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3399:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3272:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3400:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3272:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3400:/ 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.bysl:3273:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3401:/ 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; }; ; @@ -35558,10 +37107,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:3269:/ 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.bysl:3277:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3405:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V15*/ curfptr[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3277:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3277:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3405:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3405:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "COMMENT should have only one string argument"), (basilys_ptr_t)0); @@ -35573,102 +37122,102 @@ BASILYS_LOCATION("warmelt-macro.bysl:3269:/ 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.bysl:3279:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3407:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3279:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3279:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3407:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3407:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "COMMENT should have a string"), (basilys_ptr_t)0); - BASILYS_LOCATION("warmelt-macro.bysl:3282:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3410:/ compute"); /*_.COMSTR__V14*/ curfptr[13] = /*_.SETQ___V17*/ curfptr[16] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:3280:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3408:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.SETQ___V17*/ curfptr[16];;} ; /*_.IF___V16*/ curfptr[15] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3279:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3407:/ clear"); /*clear*/ /*_.SETQ___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3279:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3407:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3279:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3407:/ cond.else"); /*_.IF___V16*/ curfptr[15] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:3284:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3412:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3284:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3412:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3284:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3412:/ 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.bysl:3284:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3412:/ 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.bysl:3284:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3412:/ 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.bysl:3287:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3415:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SCOM__V20*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.bysl:3287:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3415:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V19*/ curfptr[16] = /*_.RETURN___V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3284:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3412:/ clear"); /*clear*/ /*_.SCOM__V20*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3284:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3412:/ clear"); /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V19*/ curfptr[16];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3400:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3400:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3400:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3400:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3400:/ clear"); /*clear*/ /*_.COMSTR__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3400:/ clear"); /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3400:/ clear"); /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3400:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3400:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3400:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[16] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3269:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3397:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.bysl:3269:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3397:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3269:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3269:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3269:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -35679,14 +37228,14 @@ basilys_trace_end("MEXPAND_COMMENT", callcount); basilys_topframe = (struct cal #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_78_MEXPAND_COMMENT*/ +} /*end rout_80_MEXPAND_COMMENT*/ static basilys_ptr_t -rout_79_PAIRLIST_TO_PROGN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_81_PAIRLIST_TO_PROGN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -35697,7 +37246,7 @@ rout_79_PAIRLIST_TO_PROGN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, #define callcount 0L #endif - struct frame_rout_79_PAIRLIST_TO_PROGN_st { unsigned nbvar; + struct frame_rout_81_PAIRLIST_TO_PROGN_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -35729,25 +37278,25 @@ basilys_trace_start("PAIRLIST_TO_PROGN", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ getarg"); /*_.PAIR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ 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.bysl:3294:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ 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.bysl:3294:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ 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); @@ -35756,26 +37305,26 @@ basilys_trace_start("PAIRLIST_TO_PROGN", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3294:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3422:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3295:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3295:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3423:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3423:/ 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.bysl:3295:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3423:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3295:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3423:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3295:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3423:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3295:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3423:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3295)?(3295):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3423)?(3423):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} @@ -35784,68 +37333,68 @@ BASILYS_LOCATION("warmelt-macro.bysl:3294:/ block"); ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3295:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3423:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3295:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3423:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3295:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3423:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3296:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3296:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3424:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3424:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3296:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3424:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3296:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3424:/ apply.arg"); argtab[0].bp_cstring = "pairlist_to_progn pair"; - BASILYS_LOCATION("warmelt-macro.bysl:3296:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3424:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3296:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3424:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3296:/ apply.arg"); - argtab[3].bp_long = 3296; + BASILYS_LOCATION("warmelt-macro.bysl:3424:/ apply.arg"); + argtab[3].bp_long = 3424; /*_.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.bysl:3296:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3424:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3296:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3424:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3296:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3424:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3297:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3297:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3425:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3425:/ block"); /*block*/{ /*_#IS_PAIR__L3*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.PAIR__V2*/ curfptr[1])) == OBMAG_PAIR);; - BASILYS_LOCATION("warmelt-macro.bysl:3297:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3425:/ cond"); /*cond*/ if (/*_#IS_PAIR__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3297:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3425:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3297:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3425:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3297:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3425:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check_pair"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3297)?(3297):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check_pair"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3425)?(3425):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} @@ -35854,31 +37403,31 @@ BASILYS_LOCATION("warmelt-macro.bysl:3294:/ block"); ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3297:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3425:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3297:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3425:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3297:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3425:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3298:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3426:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3301:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3429:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3301:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3429:/ 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.bysl:3301:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3429:/ 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.bysl:3301:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3429:/ 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]))); @@ -35886,30 +37435,30 @@ BASILYS_LOCATION("warmelt-macro.bysl:3294:/ block"); ; /*_.LAMBDA___V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3298:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3426:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3298:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3426:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[3]); - BASILYS_LOCATION("warmelt-macro.bysl:3298:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3426:/ 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.bysl:3303:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3431:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3303:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3431:/ 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.bysl:3303:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3431:/ 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.bysl:3303:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3431:/ 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"); @@ -35918,73 +37467,73 @@ BASILYS_LOCATION("warmelt-macro.bysl:3294:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3307:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3307:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3435:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3435:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3307:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3435:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3307:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3435:/ apply.arg"); argtab[0].bp_cstring = "pairlist_to_progn sprogn"; - BASILYS_LOCATION("warmelt-macro.bysl:3307:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3435:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3307:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3435:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3307:/ apply.arg"); - argtab[3].bp_long = 3307; + BASILYS_LOCATION("warmelt-macro.bysl:3435:/ apply.arg"); + argtab[3].bp_long = 3435; /*_.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.bysl:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3435:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3435:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3307:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3435:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3308:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3436:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SPROGN__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:3308:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3436:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V20*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3298:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3426:/ clear"); /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3298:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3426:/ clear"); /*clear*/ /*_.BODYTUP__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3298:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3426:/ clear"); /*clear*/ /*_.SPROGN__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3298:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3426:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3298:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3426:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ clear"); /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} ; @@ -35995,14 +37544,14 @@ basilys_trace_end("PAIRLIST_TO_PROGN", callcount); basilys_topframe = (struct c #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_79_PAIRLIST_TO_PROGN*/ +} /*end rout_81_PAIRLIST_TO_PROGN*/ static basilys_ptr_t -rout_80_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_82_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -36013,7 +37562,7 @@ rout_80_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_80_LAMBDA__st { unsigned nbvar; + struct frame_rout_82_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -36045,34 +37594,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3301:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3429:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3301:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3429:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3301:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3429:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3301:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3429:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.bysl:3301:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3429:/ 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.bysl:3301:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3429:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:3301:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3429:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3301:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3429:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -36083,14 +37632,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_80_LAMBDA_*/ +} /*end rout_82_LAMBDA_*/ static basilys_ptr_t -rout_81_PAIRLIST_TO_RETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_83_PAIRLIST_TO_RETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -36101,7 +37650,7 @@ rout_81_PAIRLIST_TO_RETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_ #define callcount 0L #endif - struct frame_rout_81_PAIRLIST_TO_RETURN_st { unsigned nbvar; + struct frame_rout_83_PAIRLIST_TO_RETURN_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -36133,25 +37682,25 @@ basilys_trace_start("PAIRLIST_TO_RETURN", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3312:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ getarg"); /*_.PAIR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3312:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ 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.bysl:3312:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ 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.bysl:3312:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ 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); @@ -36160,26 +37709,26 @@ basilys_trace_start("PAIRLIST_TO_RETURN", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3312:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3440:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3313:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3313:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3441:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3441:/ 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.bysl:3313:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3441:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3313:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3441:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3313:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3441:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3313:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3441:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3313)?(3313):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3441)?(3441):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} @@ -36188,31 +37737,31 @@ BASILYS_LOCATION("warmelt-macro.bysl:3312:/ block"); ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3313:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3441:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3313:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3441:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3313:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3441:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3314:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3442:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3317:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3445:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3317:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3445:/ 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.bysl:3317:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3445:/ 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.bysl:3317:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3445:/ 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]))); @@ -36220,30 +37769,30 @@ BASILYS_LOCATION("warmelt-macro.bysl:3312:/ block"); ; /*_.LAMBDA___V9*/ curfptr[8] = /*_.LAMBDA___V10*/ curfptr[9];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3314:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3442:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3314:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3442:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]); - BASILYS_LOCATION("warmelt-macro.bysl:3314:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3442:/ 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.bysl:3318:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3446:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3318:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3446:/ 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.bysl:3318:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3446:/ 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.bysl:3318:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3446:/ 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"); @@ -36252,24 +37801,24 @@ BASILYS_LOCATION("warmelt-macro.bysl:3312:/ block"); ; /*_.LET___V8*/ curfptr[6] = /*_.INST___V12*/ curfptr[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3314:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3442:/ clear"); /*clear*/ /*_.LAMBDA___V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3314:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3442:/ clear"); /*clear*/ /*_.BODYTUP__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3314:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3442:/ clear"); /*clear*/ /*_.INST___V12*/ curfptr[11] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3312:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; - BASILYS_LOCATION("warmelt-macro.bysl:3312:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3312:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3312:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; @@ -36280,14 +37829,14 @@ basilys_trace_end("PAIRLIST_TO_RETURN", callcount); basilys_topframe = (struct #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_81_PAIRLIST_TO_RETURN*/ +} /*end rout_83_PAIRLIST_TO_RETURN*/ static basilys_ptr_t -rout_82_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_84_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -36298,7 +37847,7 @@ rout_82_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_82_LAMBDA__st { unsigned nbvar; + struct frame_rout_84_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -36330,34 +37879,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3317:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3445:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3317:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3445:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3317:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3445:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3317:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3445:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.bysl:3317:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3445:/ 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.bysl:3317:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3445:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:3317:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3445:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3317:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3445:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -36368,14 +37917,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_82_LAMBDA_*/ +} /*end rout_84_LAMBDA_*/ static basilys_ptr_t -rout_83_MEXPAND_PROGN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_85_MEXPAND_PROGN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -36386,7 +37935,7 @@ rout_83_MEXPAND_PROGN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, con #define callcount 0L #endif - struct frame_rout_83_MEXPAND_PROGN_st { unsigned nbvar; + struct frame_rout_85_MEXPAND_PROGN_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -36418,18 +37967,18 @@ basilys_trace_start("MEXPAND_PROGN", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3325:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3453:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3325:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3453:/ 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.bysl:3325:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3453:/ 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); @@ -36438,26 +37987,26 @@ basilys_trace_start("MEXPAND_PROGN", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3325:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3453:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3326:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3326:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3454:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3454:/ 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.bysl:3326:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3454:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3326:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3454:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3326:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3454:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3326:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3454:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3326)?(3326):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3454)?(3454):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -36466,23 +38015,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:3325:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3326:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3454:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3326:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3454:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3326:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3454:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3327:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3455:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3327:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3455:/ 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.bysl:3329:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3457:/ 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; }; ; @@ -36494,95 +38043,95 @@ BASILYS_LOCATION("warmelt-macro.bysl:3325:/ 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.bysl:3331:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3459:/ cond"); /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3331:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3331:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3459:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3459:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.SLOC__V8*/ curfptr[7]), ( "empty PROGN"), (basilys_ptr_t)0); - BASILYS_LOCATION("warmelt-macro.bysl:3334:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3462:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:3334:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3462:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3332:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3460:/ block"); /*block*/{ /*_.PROGN___V14*/ curfptr[13] = /*_.RETURN___V13*/ curfptr[12];;} ; /*_.IF___V12*/ curfptr[11] = /*_.PROGN___V14*/ curfptr[13];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3331:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3459:/ clear"); /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3331:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3459:/ clear"); /*clear*/ /*_.PROGN___V14*/ curfptr[13] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3331:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3459:/ cond.else"); /*_.IF___V12*/ curfptr[11] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:3335:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3463:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3336:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3464:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3336:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3464:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V8*/ curfptr[7]; - BASILYS_LOCATION("warmelt-macro.bysl:3336:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3464:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3336:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3464:/ 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.bysl:3340:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3468:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PROGR__V16*/ curfptr[13];; - BASILYS_LOCATION("warmelt-macro.bysl:3340:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3468:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V15*/ curfptr[12] = /*_.RETURN___V17*/ curfptr[16];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3335:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3463:/ clear"); /*clear*/ /*_.PROGR__V16*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3335:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3463:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;} ; /*_.LET___V7*/ curfptr[5] = /*_.LET___V15*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3327:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3455:/ clear"); /*clear*/ /*_.SLOC__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3327:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3455:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3327:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3455:/ clear"); /*clear*/ /*_.LIST_FIRST__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3327:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3455:/ clear"); /*clear*/ /*_.PAIRS__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3327:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3455:/ clear"); /*clear*/ /*_#IS_PAIR__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3327:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3455:/ clear"); /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3327:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3455:/ clear"); /*clear*/ /*_.IF___V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3327:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3455:/ clear"); /*clear*/ /*_.LET___V15*/ curfptr[12] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3325:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3453:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; - BASILYS_LOCATION("warmelt-macro.bysl:3325:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3453:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3325:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3453:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3325:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3453:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; @@ -36593,14 +38142,14 @@ basilys_trace_end("MEXPAND_PROGN", callcount); basilys_topframe = (struct callf #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_83_MEXPAND_PROGN*/ +} /*end rout_85_MEXPAND_PROGN*/ static basilys_ptr_t -rout_84_MEXPAND_RETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_86_MEXPAND_RETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -36611,7 +38160,7 @@ rout_84_MEXPAND_RETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, co #define callcount 0L #endif - struct frame_rout_84_MEXPAND_RETURN_st { unsigned nbvar; + struct frame_rout_86_MEXPAND_RETURN_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -36643,18 +38192,18 @@ basilys_trace_start("MEXPAND_RETURN", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3346:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3474:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3346:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3474:/ 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.bysl:3346:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3474:/ 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); @@ -36663,26 +38212,26 @@ basilys_trace_start("MEXPAND_RETURN", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3346:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3474:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3347:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3347:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3475:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3475:/ 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.bysl:3347:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3475:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3347:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3475:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3347:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3475:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3347:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3475:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3347)?(3347):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3475)?(3475):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -36691,19 +38240,19 @@ BASILYS_LOCATION("warmelt-macro.bysl:3346:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3347:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3475:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3347:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3475:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3347:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3475:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3348:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3476:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3349:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3477:/ 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; }; ; @@ -36711,56 +38260,56 @@ BASILYS_LOCATION("warmelt-macro.bysl:3346:/ 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.bysl:3350:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3478:/ 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.bysl:3349:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3477:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3349:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3477:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOCA_LOCATION__V11*/ curfptr[10]; - BASILYS_LOCATION("warmelt-macro.bysl:3349:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3477:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3349:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3477:/ 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.bysl:3354:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3482:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RETR__V12*/ curfptr[11];; - BASILYS_LOCATION("warmelt-macro.bysl:3354:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3482:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V7*/ curfptr[5] = /*_.RETURN___V13*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3348:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3348:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); /*clear*/ /*_.LIST_FIRST__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3348:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); /*clear*/ /*_.PAIR_TAIL__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3348:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3348:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); /*clear*/ /*_.RETR__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3348:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3346:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3474:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; - BASILYS_LOCATION("warmelt-macro.bysl:3346:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3474:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3346:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3474:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3346:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3474:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; @@ -36771,14 +38320,14 @@ basilys_trace_end("MEXPAND_RETURN", callcount); basilys_topframe = (struct call #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_84_MEXPAND_RETURN*/ +} /*end rout_86_MEXPAND_RETURN*/ static basilys_ptr_t -rout_85_MEXPAND_FOREVER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_87_MEXPAND_FOREVER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -36789,7 +38338,7 @@ rout_85_MEXPAND_FOREVER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, c #define callcount 0L #endif - struct frame_rout_85_MEXPAND_FOREVER_st { unsigned nbvar; + struct frame_rout_87_MEXPAND_FOREVER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -36821,18 +38370,18 @@ basilys_trace_start("MEXPAND_FOREVER", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ 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.bysl:3361:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ 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); @@ -36841,26 +38390,26 @@ basilys_trace_start("MEXPAND_FOREVER", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3361:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3489:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3362:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3362:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3490:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3490:/ 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.bysl:3362:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3490:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3362:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3490:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3362:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3490:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3362:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3490:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3362)?(3362):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3490)?(3490):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -36869,23 +38418,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:3361:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3362:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3490:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3362:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3490:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3362:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3490:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ 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.bysl:3364:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3492:/ 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; }; ; @@ -36895,107 +38444,107 @@ BASILYS_LOCATION("warmelt-macro.bysl:3361:/ 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.bysl:3367:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3495:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3367:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3495:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3367:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3495:/ 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.bysl:3368:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3496:/ 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.bysl:3370:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3498:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3370:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3370:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3498:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3498:/ block"); /*block*/{ 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.bysl:3373:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3501:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:3373:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3501:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3371:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3499:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[16];;} ; /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3370:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3498:/ clear"); /*clear*/ /*_.THE_NULL__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3370:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3498:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3370:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3498:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3370:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3498:/ 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.bysl:3374:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3502:/ compute"); /*_.CURPAIR__V11*/ curfptr[10] = /*_.SETQ___V20*/ curfptr[16] = /*_.PAIR_TAIL__V19*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:3375:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3503:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3375:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3503:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3375:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3503:/ 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.bysl:3375:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3503:/ 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.bysl:3375:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3503:/ 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.bysl:3378:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3506:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3378:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3506:/ 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.bysl:3379:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3507:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3382:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3510:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3382:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3510:/ 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.bysl:3382:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3510:/ 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.bysl:3382:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3510:/ 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]))); @@ -37003,106 +38552,106 @@ BASILYS_LOCATION("warmelt-macro.bysl:3361:/ block"); ; /*_.LAMBDA___V26*/ curfptr[25] = /*_.LAMBDA___V27*/ curfptr[26];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3379:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3507:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3379:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3507:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3379:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3507:/ 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.bysl:3384:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3512:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3384:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3512:/ 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.bysl:3384:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3512:/ 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.bysl:3384:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3512:/ 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.bysl:3384:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3512:/ 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.bysl:3389:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3517:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.FORR__V29*/ curfptr[28];; - BASILYS_LOCATION("warmelt-macro.bysl:3389:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3517:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V25*/ curfptr[24] = /*_.RETURN___V31*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3379:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3507:/ clear"); /*clear*/ /*_.LAMBDA___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3379:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3507:/ clear"); /*clear*/ /*_.BODYTUP__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3379:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3507:/ clear"); /*clear*/ /*_.FORR__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3379:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3507:/ clear"); /*clear*/ /*_.RETURN___V31*/ curfptr[30] = 0 ;} ; /*_.LET___V21*/ curfptr[17] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3503:/ clear"); /*clear*/ /*_.LABIND__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3503:/ clear"); /*clear*/ /*_.PUT_ENV__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3503:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; /*_.LET___V7*/ curfptr[5] = /*_.LET___V21*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ clear"); /*clear*/ /*_.CONT__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ clear"); /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ clear"); /*clear*/ /*_.LIST_FIRST__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ clear"); /*clear*/ /*_.CURPAIR__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ clear"); /*clear*/ /*_.SLABNAM__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ clear"); /*clear*/ /*_.XLABNAM__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ clear"); /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ clear"); /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ clear"); /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3363:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3491:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[17] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; @@ -37113,14 +38662,14 @@ basilys_trace_end("MEXPAND_FOREVER", callcount); basilys_topframe = (struct cal #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_85_MEXPAND_FOREVER*/ +} /*end rout_87_MEXPAND_FOREVER*/ static basilys_ptr_t -rout_86_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_88_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -37131,7 +38680,7 @@ rout_86_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_86_LAMBDA__st { unsigned nbvar; + struct frame_rout_88_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -37163,34 +38712,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3382:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3510:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3382:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3510:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3382:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3510:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3382:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3510:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.bysl:3382:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3510:/ 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.bysl:3382:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3510:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:3382:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3510:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3382:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3510:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -37201,14 +38750,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_86_LAMBDA_*/ +} /*end rout_88_LAMBDA_*/ static basilys_ptr_t -rout_87_MEXPAND_EXIT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_89_MEXPAND_EXIT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -37219,7 +38768,7 @@ rout_87_MEXPAND_EXIT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, cons #define callcount 0L #endif - struct frame_rout_87_MEXPAND_EXIT_st { unsigned nbvar; + struct frame_rout_89_MEXPAND_EXIT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -37251,18 +38800,18 @@ basilys_trace_start("MEXPAND_EXIT", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ 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.bysl:3395:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ 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); @@ -37271,26 +38820,26 @@ basilys_trace_start("MEXPAND_EXIT", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3395:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3523:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3396:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3396:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3524:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3524:/ 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.bysl:3396:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3524:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3396:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3524:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3396:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3524:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3396:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3524:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3396)?(3396):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3524)?(3524):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -37299,23 +38848,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:3395:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3396:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3524:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3396:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3524:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3396:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3524:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ 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.bysl:3398:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3526:/ 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; }; ; @@ -37325,81 +38874,81 @@ BASILYS_LOCATION("warmelt-macro.bysl:3395:/ 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.bysl:3401:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3529:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3401:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3529:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3401:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3529:/ 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.bysl:3402:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3530:/ 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.bysl:3404:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3532:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3404:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3404:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3532:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3532:/ block"); /*block*/{ 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.bysl:3407:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3535:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:3407:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3535:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3405:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3533:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[16];;} ; /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3404:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3532:/ clear"); /*clear*/ /*_.THE_NULL__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3404:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3532:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3404:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3532:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3404:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3532:/ 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.bysl:3408:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3536:/ compute"); /*_.CURPAIR__V11*/ curfptr[10] = /*_.SETQ___V20*/ curfptr[16] = /*_.PAIR_TAIL__V19*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:3409:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3537:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3409:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3537:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3409:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3537:/ 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.bysl:3410:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3538:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3410:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3410:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3538:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3538:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3413:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3541:/ 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; }; ; @@ -37407,48 +38956,48 @@ BASILYS_LOCATION("warmelt-macro.bysl:3395:/ block"); 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.bysl:3414:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3542:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V25*/ curfptr[24];; - BASILYS_LOCATION("warmelt-macro.bysl:3414:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3542:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3411:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3539:/ block"); /*block*/{ /*_.PROGN___V27*/ curfptr[26] = /*_.RETURN___V26*/ curfptr[25];;} ; /*_.IF___V23*/ curfptr[22] = /*_.PROGN___V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3410:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3538:/ clear"); /*clear*/ /*_.NAMED_NAME__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3410:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3538:/ clear"); /*clear*/ /*_.THE_NULL__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3410:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3538:/ clear"); /*clear*/ /*_.RETURN___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3410:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3538:/ clear"); /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3410:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3538:/ cond.else"); /*_.IF___V23*/ curfptr[22] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:3415:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3543:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3418:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3546:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3418:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3546:/ 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.bysl:3418:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3546:/ 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.bysl:3418:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3546:/ 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]))); @@ -37456,108 +39005,108 @@ BASILYS_LOCATION("warmelt-macro.bysl:3395:/ block"); ; /*_.LAMBDA___V29*/ curfptr[24] = /*_.LAMBDA___V30*/ curfptr[25];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3415:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3543:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3415:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3543:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3415:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3543:/ 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.bysl:3420:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3548:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3420:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3548:/ 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.bysl:3420:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3548:/ 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.bysl:3420:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3548:/ 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.bysl:3420:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3548:/ 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.bysl:3425:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3553:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.EXR__V32*/ curfptr[31];; - BASILYS_LOCATION("warmelt-macro.bysl:3425:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3553:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V28*/ curfptr[23] = /*_.RETURN___V34*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3415:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3543:/ clear"); /*clear*/ /*_.LAMBDA___V29*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3415:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3543:/ clear"); /*clear*/ /*_.BODYTUP__V31*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3415:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3543:/ clear"); /*clear*/ /*_.EXR__V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3415:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3543:/ clear"); /*clear*/ /*_.RETURN___V34*/ curfptr[33] = 0 ;} ; /*_.LET___V21*/ curfptr[17] = /*_.LET___V28*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3409:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3537:/ clear"); /*clear*/ /*_.LABIND__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3409:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3537:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3409:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3537:/ clear"); /*clear*/ /*_.IF___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3409:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3537:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[23] = 0 ;} ; /*_.LET___V7*/ curfptr[5] = /*_.LET___V21*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ clear"); /*clear*/ /*_.CONT__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ clear"); /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ clear"); /*clear*/ /*_.LIST_FIRST__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ clear"); /*clear*/ /*_.CURPAIR__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ clear"); /*clear*/ /*_.SLABNAM__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ clear"); /*clear*/ /*_.XLABNAM__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ clear"); /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ clear"); /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ clear"); /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3397:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3525:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[17] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; @@ -37568,14 +39117,14 @@ basilys_trace_end("MEXPAND_EXIT", callcount); basilys_topframe = (struct callfr #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_87_MEXPAND_EXIT*/ +} /*end rout_89_MEXPAND_EXIT*/ static basilys_ptr_t -rout_88_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_90_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -37586,7 +39135,7 @@ rout_88_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_88_LAMBDA__st { unsigned nbvar; + struct frame_rout_90_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -37618,34 +39167,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3418:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3546:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3418:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3546:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3418:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3546:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3418:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3546:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.bysl:3418:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3546:/ 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.bysl:3418:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3546:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:3418:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3546:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3418:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3546:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -37656,14 +39205,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_88_LAMBDA_*/ +} /*end rout_90_LAMBDA_*/ static basilys_ptr_t -rout_89_MEXPAND_COMPILE_WARNING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_91_MEXPAND_COMPILE_WARNING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -37674,7 +39223,7 @@ rout_89_MEXPAND_COMPILE_WARNING(basilysclosure_ptr_t closp_, basilys_ptr_t first #define callcount 0L #endif - struct frame_rout_89_MEXPAND_COMPILE_WARNING_st { unsigned nbvar; + struct frame_rout_91_MEXPAND_COMPILE_WARNING_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -37706,18 +39255,18 @@ basilys_trace_start("MEXPAND_COMPILE_WARNING", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3433:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3561:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3433:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3561:/ 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.bysl:3433:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3561:/ 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); @@ -37726,26 +39275,26 @@ basilys_trace_start("MEXPAND_COMPILE_WARNING", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3433:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3561:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3434:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3434:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3562:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3562:/ 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.bysl:3434:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3562:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3434:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3562:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3434:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3562:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3434:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3562:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3434)?(3434):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3562)?(3562):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -37754,57 +39303,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:3433:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3434:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3562:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3434:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3562:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3434:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3562:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3435:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3435:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3563:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3563:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3435:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3563:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3435:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3563:/ apply.arg"); argtab[0].bp_cstring = "mexpand_compile_warning sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:3435:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3563:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3435:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3563:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3435:/ apply.arg"); - argtab[3].bp_long = 3435; + BASILYS_LOCATION("warmelt-macro.bysl:3563:/ apply.arg"); + argtab[3].bp_long = 3563; /*_.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.bysl:3435:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3563:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3435:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3563:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3435:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3563:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ 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.bysl:3437:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3565:/ 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; }; ; @@ -37814,13 +39363,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:3433:/ 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.bysl:3440:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3568:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3440:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3568:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3440:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3568:/ 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); } @@ -37829,69 +39378,69 @@ BASILYS_LOCATION("warmelt-macro.bysl:3433:/ 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.bysl:3442:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3570:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3442:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3442:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3570:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3570:/ block"); /*block*/{ 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.bysl:3445:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3573:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V17*/ curfptr[16];; - BASILYS_LOCATION("warmelt-macro.bysl:3445:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3573:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3443:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3571:/ block"); /*block*/{ /*_.PROGN___V19*/ curfptr[18] = /*_.RETURN___V18*/ curfptr[17];;} ; /*_.IF___V16*/ curfptr[15] = /*_.PROGN___V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3442:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3570:/ clear"); /*clear*/ /*_.THE_NULL__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3442:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3570:/ clear"); /*clear*/ /*_.RETURN___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3442:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3570:/ clear"); /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3442:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3570:/ 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.bysl:3446:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3574:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V21*/ curfptr[17] = /*_.PAIR_TAIL__V20*/ curfptr[16];; - BASILYS_LOCATION("warmelt-macro.bysl:3447:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3575:/ block"); /*block*/{ /*_.SEXP__V23*/ curfptr[22] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.bysl:3448:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3576:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3448:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3576:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3448:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3576:/ 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.bysl:3450:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3578:/ 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.bysl:3451:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3579:/ cond"); /*cond*/ if (/*_#NOTNULL__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3451:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3451:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3579:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3579:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "too many arguments in (COMPILE_WARNING <msg> <exp>)"), (basilys_ptr_t)0); @@ -37899,26 +39448,26 @@ BASILYS_LOCATION("warmelt-macro.bysl:3433:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3453:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3581:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3453:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3581:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3453:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3581:/ 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.bysl:3453:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3581:/ 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.bysl:3453:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3581:/ 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.bysl:3453:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3581:/ 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"); @@ -37927,109 +39476,109 @@ BASILYS_LOCATION("warmelt-macro.bysl:3433:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3459:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3459:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3587:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3587:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3459:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3587:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3459:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3587:/ apply.arg"); argtab[0].bp_cstring = "mexpand_compile_warning result"; - BASILYS_LOCATION("warmelt-macro.bysl:3459:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3587:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; - BASILYS_LOCATION("warmelt-macro.bysl:3459:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3587:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3459:/ apply.arg"); - argtab[3].bp_long = 3459; + BASILYS_LOCATION("warmelt-macro.bysl:3587:/ apply.arg"); + argtab[3].bp_long = 3587; /*_.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.bysl:3459:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3587:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3459:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3587:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3459:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3587:/ cppif.else"); /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3460:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3588:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V28*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.bysl:3460:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3588:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V27*/ curfptr[26] = /*_.RETURN___V32*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3453:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3581:/ clear"); /*clear*/ /*_.RES__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3453:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3581:/ clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3453:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3581:/ clear"); /*clear*/ /*_.RETURN___V32*/ curfptr[30] = 0 ;} ; /*_.LET___V22*/ curfptr[18] = /*_.LET___V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3447:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3575:/ clear"); /*clear*/ /*_.SEXP__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3447:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3575:/ clear"); /*clear*/ /*_.XEXP__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3447:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3575:/ clear"); /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3447:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3575:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3447:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3575:/ clear"); /*clear*/ /*_#NOTNULL__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3447:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3575:/ clear"); /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V22*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ clear"); /*clear*/ /*_.SMSG__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ clear"); /*clear*/ /*_.XMSG__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ clear"); /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ clear"); /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ clear"); /*clear*/ /*_.SETQ___V21*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3436:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3564:/ clear"); /*clear*/ /*_.LET___V22*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3433:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3561:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.bysl:3433:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3561:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3433:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3561:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3433:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3561:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3433:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3561:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -38040,14 +39589,14 @@ basilys_trace_end("MEXPAND_COMPILE_WARNING", callcount); basilys_topframe = (st #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_89_MEXPAND_COMPILE_WARNING*/ +} /*end rout_91_MEXPAND_COMPILE_WARNING*/ static basilys_ptr_t -rout_90_MEXPAND_ASSERT_MSG(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_92_MEXPAND_ASSERT_MSG(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -38058,7 +39607,7 @@ rout_90_MEXPAND_ASSERT_MSG(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_ #define callcount 0L #endif - struct frame_rout_90_MEXPAND_ASSERT_MSG_st { unsigned nbvar; + struct frame_rout_92_MEXPAND_ASSERT_MSG_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -38090,18 +39639,18 @@ basilys_trace_start("MEXPAND_ASSERT_MSG", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ 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.bysl:3472:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ 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); @@ -38110,26 +39659,26 @@ basilys_trace_start("MEXPAND_ASSERT_MSG", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3472:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3600:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3473:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3473:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3601:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3601:/ 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.bysl:3473:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3601:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3473:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3601:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3473:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3601:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3473:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3601:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3473)?(3473):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3601)?(3601):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -38138,34 +39687,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3472:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3473:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3601:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3473:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3601:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3473:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3601:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3474:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3474:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3602:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3602:/ 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.bysl:3474:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3602:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3474:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3602:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3474:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3602:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3474:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3602:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3474)?(3474):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3602)?(3602):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -38174,57 +39723,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:3472:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3474:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3602:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3474:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3602:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3474:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3602:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3475:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3475:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3603:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3603:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3475:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3603:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3475:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3603:/ apply.arg"); argtab[0].bp_cstring = "mexpand_assert_msg sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:3475:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3603:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3475:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3603:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3475:/ apply.arg"); - argtab[3].bp_long = 3475; + BASILYS_LOCATION("warmelt-macro.bysl:3603:/ apply.arg"); + argtab[3].bp_long = 3603; /*_.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.bysl:3475:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3603:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3475:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3603:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3475:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3603:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3477:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3605:/ 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.bysl:3478:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3606:/ 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; }; ; @@ -38234,24 +39783,24 @@ BASILYS_LOCATION("warmelt-macro.bysl:3472:/ 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.bysl:3480:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3608:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3480:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3608:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3480:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3608:/ 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.bysl:3483:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3611:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3483:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3611:/ 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); } @@ -38260,10 +39809,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:3472:/ 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.bysl:3485:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3613:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3485:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3485:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3613:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3613:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "non string message in (ASSERT_MSG <msg> <test>)"), (basilys_ptr_t)0); @@ -38273,16 +39822,16 @@ BASILYS_LOCATION("warmelt-macro.bysl:3472:/ block"); ; /*_.PAIR_TAIL__V21*/ curfptr[20] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:3487:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3615:/ 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.bysl:3488:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3616:/ cond"); /*cond*/ if (/*_#NOT__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3488:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3488:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3616:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3616:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing test in (ASSERT_MSG <msg> <test>)"), (basilys_ptr_t)0); @@ -38292,25 +39841,25 @@ BASILYS_LOCATION("warmelt-macro.bysl:3472:/ block"); ; /*_.PAIR_HEAD__V23*/ curfptr[22] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:3490:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3618:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3490:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3618:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3490:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3618:/ 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.bysl:3490:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3618:/ 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.bysl:3491:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3619:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V26*/ curfptr[25]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3491:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3491:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3619:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3619:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "extra arg for (ASSERT_MSG <msg> <test>)"), (basilys_ptr_t)0); @@ -38318,184 +39867,184 @@ BASILYS_LOCATION("warmelt-macro.bysl:3472:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3493:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3621:/ block"); /*block*/{ /*_#NULL__L8*/ curfnum[7] = ((/*_.ASSFAIL_BINDING__V20*/ curfptr[19]) == NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ cond"); /*cond*/ if (/*_#NULL__L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ block"); /*block*/{ 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.bysl:3498:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3498:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3626:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3626:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3498:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3626:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3498:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3626:/ apply.arg"); argtab[0].bp_cstring = "mexpand_assert_msg env without assert_failed"; - BASILYS_LOCATION("warmelt-macro.bysl:3498:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3626:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.bysl:3498:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3626:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3498:/ apply.arg"); - argtab[3].bp_long = 3498; + BASILYS_LOCATION("warmelt-macro.bysl:3626:/ apply.arg"); + argtab[3].bp_long = 3626; /*_.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.bysl:3498:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3626:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3498:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3626:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3498:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3626:/ cppif.else"); /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3499:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3499:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3627:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3627:/ 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.bysl:3499:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3627:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3499:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3627:/ apply.arg"); argtab[0].bp_cstring = "mexpand_assert_msg env\'s class without assert_failed"; - BASILYS_LOCATION("warmelt-macro.bysl:3499:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3627:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.bysl:3499:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3627:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3499:/ apply.arg"); - argtab[3].bp_long = 3499; + BASILYS_LOCATION("warmelt-macro.bysl:3627:/ apply.arg"); + argtab[3].bp_long = 3627; /*_.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.bysl:3499:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3627:/ clear"); /*clear*/ /*_.DISCRIM__V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3499:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3627:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3499:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3627:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3499:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3627:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3500:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3500:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3628:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3628:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3500:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3628:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3500:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3628:/ 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.bysl:3500:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3628:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3500:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3628:/ apply.arg"); argtab[0].bp_cstring = "mexpand_assert_msg findenvdbg give"; - BASILYS_LOCATION("warmelt-macro.bysl:3500:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3628:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.bysl:3500:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3628:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3500:/ apply.arg"); - argtab[3].bp_long = 3500; + BASILYS_LOCATION("warmelt-macro.bysl:3628:/ apply.arg"); + argtab[3].bp_long = 3628; /*_.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.bysl:3500:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3628:/ clear"); /*clear*/ /*_.FIND_ENV_DEBUG__V35*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3500:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3628:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3500:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3628:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3500:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3628:/ cppif.else"); /*_.IFCPP___V34*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3501:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3501:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3629:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3629:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3501:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3629:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3501:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3629:/ apply.arg"); argtab[0].bp_cstring = "mexpand_assert_msg ASSERT_FAILED symbol"; - BASILYS_LOCATION("warmelt-macro.bysl:3501:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3629:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.bysl:3501:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3629:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3501:/ apply.arg"); - argtab[3].bp_long = 3501; + BASILYS_LOCATION("warmelt-macro.bysl:3629:/ apply.arg"); + argtab[3].bp_long = 3629; /*_.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.bysl:3501:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3629:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3501:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3629:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3501:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3629:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3502:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3502:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3630:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3630:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3502:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3630:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3502:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3630:/ cond.then"); /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3502:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3630:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3502:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3630:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "assfail_binding nul! @@"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3502)?(3502):__LINE__, __FUNCTION__); + basilys_assert_failed(( "assfail_binding nul! @@"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3630)?(3630):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} ; /*epilog*/} @@ -38504,74 +40053,74 @@ BASILYS_LOCATION("warmelt-macro.bysl:3472:/ block"); ; /*_.IFCPP___V39*/ curfptr[35] = /*_.IFELSE___V40*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3502:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3630:/ clear"); /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3502:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3630:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3503:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3631:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:3503:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3631:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ block"); /*block*/{ /*_.PROGN___V42*/ curfptr[41] = /*_.RETURN___V41*/ curfptr[39];;} ; /*_.AFPRIM__V28*/ curfptr[27] = /*_.PROGN___V42*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ clear"); /*clear*/ /*_.RETURN___V41*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ clear"); /*clear*/ /*_.PROGN___V42*/ curfptr[41] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3496:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3624:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ 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.bysl:3504:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3632:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3504:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3504:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3632:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3632:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3505:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3633:/ 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.bysl:3504:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3632:/ clear"); /*clear*/ /*_.PBIND_PRIMITIVE__V44*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3504:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3632:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3504:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3632:/ 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.bysl:3506:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3634:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ curfnum[13]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3506:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3506:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3634:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3634:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3507:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3635:/ 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; }; ; @@ -38579,154 +40128,154 @@ BASILYS_LOCATION("warmelt-macro.bysl:3472:/ 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.bysl:3506:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3634:/ clear"); /*clear*/ /*_.VBIND_VALUE__V45*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3506:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3634:/ clear"); /*clear*/ /*_#IS_A__L16*/ curfnum[15] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3506:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3634:/ cond.else"); /*_#IF___L15*/ curfnum[14] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:3506:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3634:/ cond"); /*cond*/ if (/*_#IF___L15*/ curfnum[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3506:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3506:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3634:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3634:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3509:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3637:/ 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.bysl:3506:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3634:/ clear"); /*clear*/ /*_.VBIND_VALUE__V47*/ curfptr[35] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3506:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3634:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3506:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3634:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3511:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3511:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3639:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3639:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[15] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3511:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3639:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3511:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3639:/ apply.arg"); argtab[0].bp_cstring = "bad assfail_binding"; - BASILYS_LOCATION("warmelt-macro.bysl:3511:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3639:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[15]; - BASILYS_LOCATION("warmelt-macro.bysl:3511:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3639:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3511:/ apply.arg"); - argtab[3].bp_long = 3511; + BASILYS_LOCATION("warmelt-macro.bysl:3639:/ apply.arg"); + argtab[3].bp_long = 3639; /*_.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.bysl:3511:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3639:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3511:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3639:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3511:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3639:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; 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.bysl:3513:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3641:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.bysl:3513:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3641:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3510:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3638:/ block"); /*block*/{ /*_.PROGN___V51*/ curfptr[31] = /*_.RETURN___V50*/ curfptr[29];;} ; /*_.IFELSE___V46*/ curfptr[32] = /*_.PROGN___V51*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3506:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3634:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3506:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3634:/ clear"); /*clear*/ /*_.RETURN___V50*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3506:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3634:/ clear"); /*clear*/ /*_.PROGN___V51*/ curfptr[31] = 0 ;} ; } ; /*_.IFELSE___V43*/ curfptr[28] = /*_.IFELSE___V46*/ curfptr[32];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3504:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3632:/ clear"); /*clear*/ /*_#IS_A__L14*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3504:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3632:/ clear"); /*clear*/ /*_#IF___L15*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3504:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3632:/ clear"); /*clear*/ /*_.IFELSE___V46*/ curfptr[32] = 0 ;} ; } ; /*_.AFPRIM__V28*/ curfptr[27] = /*_.IFELSE___V43*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3624:/ 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.bysl:3516:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3644:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L18*/ curfnum[15]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3516:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3516:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3644:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3644:/ 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.bysl:3516:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3644:/ clear"); /*clear*/ /*_.MIXINT_VAL__V53*/ curfptr[41] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3516:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3644:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3516:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3644:/ block"); /*block*/{ /*_#IS_MIXLOC__L19*/ curfnum[13] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXLOC);; - BASILYS_LOCATION("warmelt-macro.bysl:3517:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3645:/ cond"); /*cond*/ if (/*_#IS_MIXLOC__L19*/ curfnum[13]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3517:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3517:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3645:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3645:/ 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.bysl:3517:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3645:/ clear"); /*clear*/ /*_.MIXLOC_VAL__V55*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3517:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3645:/ cond.else"); /*_.IFELSE___V54*/ curfptr[39] = NULL;; } ; /*_.FILNAM__V52*/ curfptr[35] = /*_.IFELSE___V54*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3516:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3644:/ clear"); /*clear*/ /*_#IS_MIXLOC__L19*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3516:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3644:/ clear"); /*clear*/ /*_.IFELSE___V54*/ curfptr[39] = 0 ;} ; } @@ -38737,82 +40286,82 @@ BASILYS_LOCATION("warmelt-macro.bysl:3472:/ 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.bysl:3518:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3646:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3518:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3646:/ 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.bysl:3518:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3646:/ 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.bysl:3518:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3646:/ 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.bysl:3518:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3646:/ 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.bysl:3526:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3654:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3526:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3654:/ 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.bysl:3526:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3654:/ 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.bysl:3526:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3654:/ 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.bysl:3526:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3654:/ 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.bysl:3526:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3654:/ 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.bysl:3532:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3660:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3532:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3660:/ 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.bysl:3532:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3660:/ 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.bysl:3532:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3660:/ 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.bysl:3532:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3660:/ 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.bysl:3532:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3660:/ 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"); @@ -38821,130 +40370,130 @@ BASILYS_LOCATION("warmelt-macro.bysl:3472:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3539:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3539:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3667:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3667:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L21*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3539:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3667:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3539:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3667:/ apply.arg"); argtab[0].bp_cstring = "mexpand_assert_msg result acppif"; - BASILYS_LOCATION("warmelt-macro.bysl:3539:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3667:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.bysl:3539:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3667:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3539:/ apply.arg"); - argtab[3].bp_long = 3539; + BASILYS_LOCATION("warmelt-macro.bysl:3667:/ apply.arg"); + argtab[3].bp_long = 3667; /*_.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.bysl:3539:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3667:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3539:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3667:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3539:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3667:/ cppif.else"); /*_.IFCPP___V64*/ curfptr[63] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3540:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3668:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.ACPPIF__V62*/ curfptr[61];; - BASILYS_LOCATION("warmelt-macro.bysl:3540:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3668:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V27*/ curfptr[26] = /*_.RETURN___V66*/ curfptr[64];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3621:/ clear"); /*clear*/ /*_#NULL__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3621:/ clear"); /*clear*/ /*_.AFPRIM__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3621:/ clear"); /*clear*/ /*_#IS_MIXINT__L18*/ curfnum[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3621:/ clear"); /*clear*/ /*_.FILNAM__V52*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3621:/ clear"); /*clear*/ /*_#GET_INT__L20*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3621:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V56*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3621:/ clear"); /*clear*/ /*_.MAKE_TUPLE3__V57*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3621:/ clear"); /*clear*/ /*_.APRIM__V58*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3621:/ clear"); /*clear*/ /*_.ATEST__V60*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3621:/ clear"); /*clear*/ /*_.ACPPIF__V62*/ curfptr[61] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3621:/ clear"); /*clear*/ /*_.IFCPP___V64*/ curfptr[63] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3621:/ clear"); /*clear*/ /*_.RETURN___V66*/ curfptr[64] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.XMSG__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.XTEST__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.ASSFAIL_SYMB__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.ASSFAIL_BINDING__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.PAIR_TAIL__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.SETQ___V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_#NOT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.PAIR_HEAD__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3476:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3604:/ clear"); /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -38955,14 +40504,14 @@ basilys_trace_end("MEXPAND_ASSERT_MSG", callcount); basilys_topframe = (struct #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_90_MEXPAND_ASSERT_MSG*/ +} /*end rout_92_MEXPAND_ASSERT_MSG*/ static basilys_ptr_t -rout_91_MEXPAND_DEBUG_MSG(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_93_MEXPAND_DEBUG_MSG(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -38973,7 +40522,7 @@ rout_91_MEXPAND_DEBUG_MSG(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, #define callcount 0L #endif - struct frame_rout_91_MEXPAND_DEBUG_MSG_st { unsigned nbvar; + struct frame_rout_93_MEXPAND_DEBUG_MSG_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -39005,18 +40554,18 @@ basilys_trace_start("MEXPAND_DEBUG_MSG", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ 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.bysl:3552:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ 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); @@ -39025,26 +40574,26 @@ basilys_trace_start("MEXPAND_DEBUG_MSG", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3552:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3680:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3553:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3553:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3681:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3681:/ 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.bysl:3553:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3681:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3553:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3681:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3553:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3681:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3553:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3681:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3553)?(3553):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3681)?(3681):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -39053,34 +40602,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3552:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3553:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3681:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3553:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3681:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3553:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3681:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3554:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3554:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3682:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3682:/ 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.bysl:3554:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3682:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3554:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3682:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3554:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3682:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3554:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3682:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3554)?(3554):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3682)?(3682):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -39089,57 +40638,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:3552:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3554:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3682:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3554:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3682:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3554:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3682:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3555:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3555:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3683:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3683:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3555:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3683:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3555:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3683:/ apply.arg"); argtab[0].bp_cstring = "mexpand_debug_msg sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:3555:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3683:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3555:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3683:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3555:/ apply.arg"); - argtab[3].bp_long = 3555; + BASILYS_LOCATION("warmelt-macro.bysl:3683:/ apply.arg"); + argtab[3].bp_long = 3683; /*_.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.bysl:3555:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3683:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3555:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3683:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3555:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3683:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3557:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3685:/ 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.bysl:3558:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3686:/ 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; }; ; @@ -39149,13 +40698,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:3552:/ 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.bysl:3560:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3688:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3560:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3688:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3560:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3688:/ 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); } @@ -39164,16 +40713,16 @@ BASILYS_LOCATION("warmelt-macro.bysl:3552:/ 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.bysl:3564:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3692:/ 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.bysl:3565:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3693:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3565:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3565:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3693:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3693:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing message in DEBUG_MSG"), (basilys_ptr_t)0); @@ -39183,77 +40732,77 @@ BASILYS_LOCATION("warmelt-macro.bysl:3552:/ block"); ; /*_.PAIR_HEAD__V22*/ curfptr[21] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:3567:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3695:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3567:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3695:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3567:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3695:/ 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.bysl:3567:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3695:/ 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.bysl:3568:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3696:/ 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.bysl:3569:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3697:/ cond"); /*cond*/ if (/*_#IS_PAIR__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3569:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3569:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3697:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3697:/ block"); /*block*/{ /*_.PAIR_HEAD__V28*/ curfptr[27] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:3571:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3699:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3571:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3699:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3571:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3699:/ 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.bysl:3571:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3699:/ 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.bysl:3572:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3700:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V32*/ curfptr[31] = /*_.PAIR_TAIL__V31*/ curfptr[30];; - BASILYS_LOCATION("warmelt-macro.bysl:3570:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3698:/ block"); /*block*/{ /*_.PROGN___V33*/ curfptr[32] = /*_.SETQ___V32*/ curfptr[31];;} ; /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V33*/ curfptr[32];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3569:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3697:/ clear"); /*clear*/ /*_.PAIR_HEAD__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3569:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3697:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3569:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3697:/ clear"); /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3569:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3697:/ clear"); /*clear*/ /*_.PAIR_TAIL__V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3569:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3697:/ clear"); /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3569:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3697:/ clear"); /*clear*/ /*_.PROGN___V33*/ curfptr[32] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3569:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3697:/ cond.else"); /*_.IF___V27*/ curfptr[26] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:3573:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3701:/ cond"); /*cond*/ if (/*_.CURPAIR__V15*/ curfptr[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3573:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3573:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3701:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3701:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "too many arguments to DEBUG_MSG"), (basilys_ptr_t)0); @@ -39265,10 +40814,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:3552:/ 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.bysl:3575:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3703:/ cond"); /*cond*/ if (/*_#NOT__L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3575:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3575:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3703:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3703:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "message argument should be string in DEBUG_MSG"), (basilys_ptr_t)0); @@ -39278,114 +40827,114 @@ BASILYS_LOCATION("warmelt-macro.bysl:3552:/ block"); ; /*_#NULL__L9*/ curfnum[8] = ((/*_.XCOUNT__V19*/ curfptr[18]) == NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:3577:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3705:/ cond"); /*cond*/ if (/*_#NULL__L9*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3577:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3577:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3705:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3705:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3578:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3706:/ block"); /*block*/{ /*_.CONLIS__V36*/ curfptr[29] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; basilysgc_append_list((basilys_ptr_t)(/*_.CONLIS__V36*/ curfptr[29]), (basilys_ptr_t)((/*!konst_5_THE_CALLCOUNT*/ curfrout->tabval[5]))); - BASILYS_LOCATION("warmelt-macro.bysl:3580:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3708:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3580:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3708:/ 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.bysl:3580:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3708:/ 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.bysl:3580:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3708:/ 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.bysl:3580:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3708:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3580:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3708:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3580:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3708:/ 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.bysl:3580:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3708:/ 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.bysl:3578:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3706:/ clear"); /*clear*/ /*_.CONLIS__V36*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3578:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3706:/ clear"); /*clear*/ /*_.INST___V37*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3578:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3706:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V39*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3578:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3706:/ clear"); /*clear*/ /*_.SETQ___V40*/ curfptr[39] = 0 ;} ; /*_.IF___V34*/ curfptr[27] = /*_.LET___V35*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3577:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3705:/ clear"); /*clear*/ /*_.LET___V35*/ curfptr[28] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3577:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3705:/ cond.else"); /*_.IF___V34*/ curfptr[27] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.bysl:3584:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3712:/ block"); /*block*/{ /*_#IS_MIXINT__L10*/ curfnum[9] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXINT);; - BASILYS_LOCATION("warmelt-macro.bysl:3586:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3714:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L10*/ curfnum[9]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3586:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3586:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3714:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3714:/ 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.bysl:3586:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3714:/ clear"); /*clear*/ /*_.MIXINT_VAL__V43*/ curfptr[32] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3586:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3714:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3586:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3714:/ block"); /*block*/{ /*_#IS_MIXLOC__L11*/ curfnum[10] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXLOC);; - BASILYS_LOCATION("warmelt-macro.bysl:3587:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3715:/ cond"); /*cond*/ if (/*_#IS_MIXLOC__L11*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3587:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3587:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3715:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3715:/ 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.bysl:3587:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3715:/ clear"); /*clear*/ /*_.MIXLOC_VAL__V45*/ curfptr[28] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3587:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3715:/ cond.else"); /*_.IFELSE___V44*/ curfptr[39] = NULL;; } ; /*_.DFILNAM__V42*/ curfptr[30] = /*_.IFELSE___V44*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3586:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3714:/ clear"); /*clear*/ /*_#IS_MIXLOC__L11*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3586:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3714:/ clear"); /*clear*/ /*_.IFELSE___V44*/ curfptr[39] = 0 ;} ; } @@ -39396,53 +40945,53 @@ BASILYS_LOCATION("warmelt-macro.bysl:3552:/ 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.bysl:3588:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3716:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3588:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3716:/ 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.bysl:3588:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3716:/ 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.bysl:3588:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3716:/ 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.bysl:3588:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3716:/ 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.bysl:3598:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3726:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3598:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3726:/ 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.bysl:3598:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3726:/ 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.bysl:3598:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3726:/ 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.bysl:3598:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3726:/ 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.bysl:3598:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3726:/ 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"); @@ -39451,132 +41000,132 @@ BASILYS_LOCATION("warmelt-macro.bysl:3552:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3605:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3605:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3733:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3733:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3605:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3733:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3605:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3733:/ apply.arg"); argtab[0].bp_cstring = "mexpand_debug_msg result dcppif"; - BASILYS_LOCATION("warmelt-macro.bysl:3605:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3733:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.bysl:3605:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3733:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3605:/ apply.arg"); - argtab[3].bp_long = 3605; + BASILYS_LOCATION("warmelt-macro.bysl:3733:/ apply.arg"); + argtab[3].bp_long = 3733; /*_.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.bysl:3605:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3733:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3605:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3733:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3605:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3733:/ cppif.else"); /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3606:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3734:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.DCPPIF__V50*/ curfptr[49];; - BASILYS_LOCATION("warmelt-macro.bysl:3606:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3734:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V41*/ curfptr[29] = /*_.RETURN___V54*/ curfptr[52];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3584:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3712:/ clear"); /*clear*/ /*_#IS_MIXINT__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3584:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3712:/ clear"); /*clear*/ /*_.DFILNAM__V42*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3584:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3712:/ clear"); /*clear*/ /*_#GET_INT__L12*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3584:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3712:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V46*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3584:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3712:/ clear"); /*clear*/ /*_.MAKE_TUPLE5__V47*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3584:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3712:/ clear"); /*clear*/ /*_.DCALL__V48*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3584:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3712:/ clear"); /*clear*/ /*_.DCPPIF__V50*/ curfptr[49] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3584:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3712:/ clear"); /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3584:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3712:/ clear"); /*clear*/ /*_.RETURN___V54*/ curfptr[52] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V41*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.XVAL__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.XMSG__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.XCOUNT__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_#IS_PAIR__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.PAIR_HEAD__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_#IS_STRING__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_#NOT__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_#NULL__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.IF___V34*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3556:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3684:/ clear"); /*clear*/ /*_.LET___V41*/ curfptr[29] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -39587,14 +41136,14 @@ basilys_trace_end("MEXPAND_DEBUG_MSG", callcount); basilys_topframe = (struct c #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_91_MEXPAND_DEBUG_MSG*/ +} /*end rout_93_MEXPAND_DEBUG_MSG*/ static basilys_ptr_t -rout_92_MEXPAND_EXPORT_VALUES(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_94_MEXPAND_EXPORT_VALUES(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -39605,7 +41154,7 @@ rout_92_MEXPAND_EXPORT_VALUES(basilysclosure_ptr_t closp_, basilys_ptr_t firstar #define callcount 0L #endif - struct frame_rout_92_MEXPAND_EXPORT_VALUES_st { unsigned nbvar; + struct frame_rout_94_MEXPAND_EXPORT_VALUES_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -39637,18 +41186,18 @@ basilys_trace_start("MEXPAND_EXPORT_VALUES", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ 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.bysl:3613:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ 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); @@ -39657,26 +41206,26 @@ basilys_trace_start("MEXPAND_EXPORT_VALUES", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3613:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3741:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3614:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3614:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3742:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3742:/ 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.bysl:3614:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3742:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3614:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3742:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3614:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3742:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3614:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3742:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3614)?(3614):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3742)?(3742):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -39685,34 +41234,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3613:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3614:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3742:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3614:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3742:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3614:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3742:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3615:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3615:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3743:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3743:/ 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.bysl:3615:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3743:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3615:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3743:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3615:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3743:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3615:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3743:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3615)?(3615):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3743)?(3743):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -39721,57 +41270,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:3613:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3615:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3743:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3615:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3743:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3615:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3743:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3616:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3616:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3744:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3744:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3616:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3744:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3616:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3744:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_values sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:3616:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3744:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3616:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3744:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3616:/ apply.arg"); - argtab[3].bp_long = 3616; + BASILYS_LOCATION("warmelt-macro.bysl:3744:/ apply.arg"); + argtab[3].bp_long = 3744; /*_.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.bysl:3616:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3744:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3616:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3744:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3616:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3744:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3617:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3745:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3618:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3746:/ 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.bysl:3619:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3747:/ 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; }; ; @@ -39779,25 +41328,25 @@ BASILYS_LOCATION("warmelt-macro.bysl:3613:/ 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.bysl:3623:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3751:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3623:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3751:/ 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.bysl:3623:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3751:/ 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.bysl:3623:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3751:/ 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.bysl:3623:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3751:/ 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]))); @@ -39805,30 +41354,30 @@ BASILYS_LOCATION("warmelt-macro.bysl:3613:/ block"); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3621:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3749:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3621:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3749:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.bysl:3621:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3749:/ 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.bysl:3631:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3759:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3631:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3759:/ 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.bysl:3631:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3759:/ 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.bysl:3631:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3759:/ 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"); @@ -39837,81 +41386,81 @@ BASILYS_LOCATION("warmelt-macro.bysl:3613:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3635:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3635:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3763:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3763:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3635:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3763:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3635:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3763:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_values result res"; - BASILYS_LOCATION("warmelt-macro.bysl:3635:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3763:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3635:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3763:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3635:/ apply.arg"); - argtab[3].bp_long = 3635; + BASILYS_LOCATION("warmelt-macro.bysl:3763:/ apply.arg"); + argtab[3].bp_long = 3763; /*_.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.bysl:3635:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3763:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3635:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3763:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3635:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3763:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3636:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3764:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];; - BASILYS_LOCATION("warmelt-macro.bysl:3636:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3764:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V23*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3617:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3745:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3617:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3745:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3617:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3745:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3617:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3745:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3617:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3745:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3617:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3745:/ clear"); /*clear*/ /*_.SYMBTUP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3617:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3745:/ clear"); /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3617:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3745:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3617:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3745:/ clear"); /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -39922,14 +41471,14 @@ basilys_trace_end("MEXPAND_EXPORT_VALUES", callcount); basilys_topframe = (stru #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_92_MEXPAND_EXPORT_VALUES*/ +} /*end rout_94_MEXPAND_EXPORT_VALUES*/ static basilys_ptr_t -rout_93_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_95_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -39940,7 +41489,7 @@ rout_93_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_93_LAMBDA__st { unsigned nbvar; + struct frame_rout_95_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -39972,70 +41521,70 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3623:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3751:/ getarg"); /*_.S__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3623:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3751:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3624:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3752:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3624:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3752:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3624:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3752:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.bysl:3624:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3752:/ 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.bysl:3625:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3753:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3625:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3625:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3753:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3753:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3627:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3755:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3627:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3755:/ 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_error_str((basilys_ptr_t)((/*~LOC*/ curfclos->tabval[2])), ( "(EXPORT_VALUES <sym>...) expecting symbol"), (basilys_ptr_t)0); - BASILYS_LOCATION("warmelt-macro.bysl:3626:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3754:/ block"); /*block*/{} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3625:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3753:/ clear"); /*clear*/ /*_.DEBUGMSG__V5*/ curfptr[4] = 0 ;} ; } /*noelse*/ ; /*_.LET___V3*/ curfptr[2] = /*_.SYM__V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3624:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3752:/ clear"); /*clear*/ /*_.SYM__V4*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3624:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3752:/ clear"); /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3623:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3751:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:3623:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3751:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3623:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3751:/ clear"); /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;} ; @@ -40046,14 +41595,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_93_LAMBDA_*/ +} /*end rout_95_LAMBDA_*/ static basilys_ptr_t -rout_94_MEXPAND_EXPORT_MACRO(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_96_MEXPAND_EXPORT_MACRO(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -40064,7 +41613,7 @@ rout_94_MEXPAND_EXPORT_MACRO(basilysclosure_ptr_t closp_, basilys_ptr_t firstarg #define callcount 0L #endif - struct frame_rout_94_MEXPAND_EXPORT_MACRO_st { unsigned nbvar; + struct frame_rout_96_MEXPAND_EXPORT_MACRO_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -40096,18 +41645,18 @@ basilys_trace_start("MEXPAND_EXPORT_MACRO", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ 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.bysl:3643:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ 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); @@ -40116,26 +41665,26 @@ basilys_trace_start("MEXPAND_EXPORT_MACRO", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3643:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3771:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3644:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3644:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3772:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3772:/ 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.bysl:3644:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3772:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3644:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3772:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3644:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3772:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3644:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3772:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3644)?(3644):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3772)?(3772):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -40144,34 +41693,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3643:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3644:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3772:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3644:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3772:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3644:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3772:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3645:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3645:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3773:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3773:/ 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.bysl:3645:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3773:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3645:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3773:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3645:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3773:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3645:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3773:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3645)?(3645):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3773)?(3773):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -40180,57 +41729,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:3643:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3645:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3773:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3645:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3773:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3645:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3773:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3646:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3646:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3774:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3774:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3646:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3774:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3646:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3774:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_macro sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:3646:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3774:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3646:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3774:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3646:/ apply.arg"); - argtab[3].bp_long = 3646; + BASILYS_LOCATION("warmelt-macro.bysl:3774:/ apply.arg"); + argtab[3].bp_long = 3774; /*_.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.bysl:3646:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3774:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3646:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3774:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3646:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3774:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3647:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3775:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3648:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3776:/ 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.bysl:3649:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3777:/ 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; }; ; @@ -40240,23 +41789,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:3643:/ 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.bysl:3651:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3779:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3651:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3779:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3651:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3779:/ 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.bysl:3653:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3781:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3653:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3653:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3781:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3781:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_MACRO <sym> <expander>) expecting symbol"), (basilys_ptr_t)0); @@ -40266,29 +41815,29 @@ BASILYS_LOCATION("warmelt-macro.bysl:3643:/ block"); ; /*_.PAIR_TAIL__V18*/ curfptr[17] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:3655:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3783:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_TAIL__V18*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.bysl:3656:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3784:/ block"); /*block*/{ /*_.PAIR_HEAD__V21*/ curfptr[20] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:3656:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3784:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3656:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3784:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3656:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3784:/ 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.bysl:3658:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3786:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3658:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3658:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3786:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3786:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_MACRO <sym> <expander>) expecting expander"), (basilys_ptr_t)0); @@ -40296,26 +41845,26 @@ BASILYS_LOCATION("warmelt-macro.bysl:3643:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3660:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3788:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3660:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3788:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3660:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3788:/ 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.bysl:3660:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3788:/ 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.bysl:3660:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3788:/ 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.bysl:3660:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3788:/ 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"); @@ -40324,103 +41873,103 @@ BASILYS_LOCATION("warmelt-macro.bysl:3643:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3666:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3666:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3794:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3794:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3666:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3794:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3666:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3794:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_macro result res"; - BASILYS_LOCATION("warmelt-macro.bysl:3666:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3794:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; - BASILYS_LOCATION("warmelt-macro.bysl:3666:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3794:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3666:/ apply.arg"); - argtab[3].bp_long = 3666; + BASILYS_LOCATION("warmelt-macro.bysl:3794:/ apply.arg"); + argtab[3].bp_long = 3794; /*_.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.bysl:3666:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3794:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3666:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3794:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3666:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3794:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3667:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3795:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.bysl:3667:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3795:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V23*/ curfptr[22] = /*_.RETURN___V28*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3660:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3788:/ clear"); /*clear*/ /*_.RES__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3660:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3788:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3660:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3788:/ clear"); /*clear*/ /*_.RETURN___V28*/ curfptr[26] = 0 ;} ; /*_.LET___V20*/ curfptr[19] = /*_.LET___V23*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3656:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3784:/ clear"); /*clear*/ /*_.PAIR_HEAD__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3656:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3784:/ clear"); /*clear*/ /*_.EXPV__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3656:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3784:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3656:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3784:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3647:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3775:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3647:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3775:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3647:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3775:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3647:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3775:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3647:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3775:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3647:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3775:/ clear"); /*clear*/ /*_.SYMB__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3647:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3775:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3647:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3775:/ clear"); /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3647:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3775:/ clear"); /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3647:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3775:/ clear"); /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -40431,14 +41980,14 @@ basilys_trace_end("MEXPAND_EXPORT_MACRO", callcount); basilys_topframe = (struc #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_94_MEXPAND_EXPORT_MACRO*/ +} /*end rout_96_MEXPAND_EXPORT_MACRO*/ static basilys_ptr_t -rout_95_MEXPAND_EXPORT_PATMACRO(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_97_MEXPAND_EXPORT_PATMACRO(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -40449,7 +41998,7 @@ rout_95_MEXPAND_EXPORT_PATMACRO(basilysclosure_ptr_t closp_, basilys_ptr_t first #define callcount 0L #endif - struct frame_rout_95_MEXPAND_EXPORT_PATMACRO_st { unsigned nbvar; + struct frame_rout_97_MEXPAND_EXPORT_PATMACRO_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -40481,18 +42030,18 @@ basilys_trace_start("MEXPAND_EXPORT_PATMACRO", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ 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.bysl:3674:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ 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); @@ -40501,26 +42050,26 @@ basilys_trace_start("MEXPAND_EXPORT_PATMACRO", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3674:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3802:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3675:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3675:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3803:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3803:/ 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.bysl:3675:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3803:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3675:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3803:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3675:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3803:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3675:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3803:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3675)?(3675):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3803)?(3803):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -40529,34 +42078,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3674:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3675:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3803:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3675:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3803:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3675:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3803:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3676:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3676:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3804:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3804:/ 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.bysl:3676:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3804:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3676:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3804:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3676:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3804:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3676:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3804:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3676)?(3676):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3804)?(3804):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -40565,57 +42114,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:3674:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3804:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3804:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3676:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3804:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3677:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3677:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3805:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3805:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3677:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3805:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3677:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3805:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_patmacro sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:3677:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3805:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3677:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3805:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3677:/ apply.arg"); - argtab[3].bp_long = 3677; + BASILYS_LOCATION("warmelt-macro.bysl:3805:/ apply.arg"); + argtab[3].bp_long = 3805; /*_.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.bysl:3677:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3805:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3677:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3805:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3677:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3805:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3679:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3807:/ 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.bysl:3680:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3808:/ 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; }; ; @@ -40625,13 +42174,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:3674:/ 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.bysl:3682:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3810:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3682:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3810:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3682:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3810:/ 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); } @@ -40640,10 +42189,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:3674:/ 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.bysl:3686:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3814:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3686:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3686:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3814:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3814:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander>) expecting symbol"), (basilys_ptr_t)0); @@ -40653,29 +42202,29 @@ BASILYS_LOCATION("warmelt-macro.bysl:3674:/ block"); ; /*_.PAIR_TAIL__V20*/ curfptr[19] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:3688:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3816:/ 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.bysl:3689:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3817:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3689:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3817:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3689:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3817:/ 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.bysl:3689:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3817:/ 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.bysl:3690:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3818:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3690:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3690:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3818:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3818:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander>) expecting patexpander"), (basilys_ptr_t)0); @@ -40685,29 +42234,29 @@ BASILYS_LOCATION("warmelt-macro.bysl:3674:/ block"); ; /*_.PAIR_TAIL__V25*/ curfptr[24] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:3692:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3820:/ 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.bysl:3693:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3821:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3693:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3821:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3693:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3821:/ 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.bysl:3693:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3821:/ 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.bysl:3694:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3822:/ cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3694:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3694:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3822:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3822:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander>) expecting macexpander"), (basilys_ptr_t)0); @@ -40715,31 +42264,31 @@ BASILYS_LOCATION("warmelt-macro.bysl:3674:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3696:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3824:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3696:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3824:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3696:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3824:/ 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.bysl:3696:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3824:/ 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.bysl:3696:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3824:/ 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.bysl:3696:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3824:/ 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.bysl:3696:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3824:/ 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"); @@ -40748,116 +42297,116 @@ BASILYS_LOCATION("warmelt-macro.bysl:3674:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3703:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3703:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3831:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3831:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3703:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3831:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3703:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3831:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_patmacro result res"; - BASILYS_LOCATION("warmelt-macro.bysl:3703:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3831:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.bysl:3703:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3831:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3703:/ apply.arg"); - argtab[3].bp_long = 3703; + BASILYS_LOCATION("warmelt-macro.bysl:3831:/ apply.arg"); + argtab[3].bp_long = 3831; /*_.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.bysl:3703:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3831:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3703:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3831:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3703:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3831:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3704:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3832:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V31*/ curfptr[30];; - BASILYS_LOCATION("warmelt-macro.bysl:3704:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3832:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V30*/ curfptr[29] = /*_.RETURN___V35*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3696:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3824:/ clear"); /*clear*/ /*_.RES__V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3696:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3824:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3696:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3824:/ clear"); /*clear*/ /*_.RETURN___V35*/ curfptr[33] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.SYMB__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.PATEXPV__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.MACEXPV__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.PAIR_HEAD__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.PAIR_HEAD__V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3678:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3806:/ clear"); /*clear*/ /*_.LET___V30*/ curfptr[29] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -40868,14 +42417,14 @@ basilys_trace_end("MEXPAND_EXPORT_PATMACRO", callcount); basilys_topframe = (st #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_95_MEXPAND_EXPORT_PATMACRO*/ +} /*end rout_97_MEXPAND_EXPORT_PATMACRO*/ static basilys_ptr_t -rout_96_MEXPAND_EXPORT_CLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_98_MEXPAND_EXPORT_CLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -40886,7 +42435,7 @@ rout_96_MEXPAND_EXPORT_CLASS(basilysclosure_ptr_t closp_, basilys_ptr_t firstarg #define callcount 0L #endif - struct frame_rout_96_MEXPAND_EXPORT_CLASS_st { unsigned nbvar; + struct frame_rout_98_MEXPAND_EXPORT_CLASS_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -40918,18 +42467,18 @@ basilys_trace_start("MEXPAND_EXPORT_CLASS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ 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.bysl:3711:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ 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); @@ -40938,26 +42487,26 @@ basilys_trace_start("MEXPAND_EXPORT_CLASS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3711:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3839:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3712:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3712:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3840:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3840:/ 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.bysl:3712:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3840:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3712:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3840:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3712:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3840:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3712:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3840:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3712)?(3712):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3840)?(3840):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -40966,34 +42515,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3711:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3712:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3840:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3712:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3840:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3712:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3840:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3713:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3713:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3841:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3841:/ 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.bysl:3713:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3841:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3713:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3841:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3713:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3841:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3713:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3841:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3713)?(3713):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3841)?(3841):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -41002,57 +42551,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:3711:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3713:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3841:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3713:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3841:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3713:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3841:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3714:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3714:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3842:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3842:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3714:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3842:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3714:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3842:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_class sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:3714:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3842:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3714:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3842:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3714:/ apply.arg"); - argtab[3].bp_long = 3714; + BASILYS_LOCATION("warmelt-macro.bysl:3842:/ apply.arg"); + argtab[3].bp_long = 3842; /*_.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.bysl:3714:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3842:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3714:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3842:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3714:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3842:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3715:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3843:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3716:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3844:/ 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.bysl:3717:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3845:/ 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; }; ; @@ -41060,25 +42609,25 @@ BASILYS_LOCATION("warmelt-macro.bysl:3711:/ 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.bysl:3721:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3849:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3721:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.bysl:3849:/ 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.bysl:3721:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3849:/ 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.bysl:3721:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3849:/ 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.bysl:3721:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.bysl:3849:/ 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]))); @@ -41086,30 +42635,30 @@ BASILYS_LOCATION("warmelt-macro.bysl:3711:/ block"); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3719:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3847:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3719:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3847:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.bysl:3719:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3847:/ 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.bysl:3727:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3855:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3727:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3855:/ 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.bysl:3727:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3855:/ 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.bysl:3727:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3855:/ 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"); @@ -41118,81 +42667,81 @@ BASILYS_LOCATION("warmelt-macro.bysl:3711:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3731:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3731:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3859:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3859:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3731:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3859:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3731:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3859:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_class result res"; - BASILYS_LOCATION("warmelt-macro.bysl:3731:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3859:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3731:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3859:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3731:/ apply.arg"); - argtab[3].bp_long = 3731; + BASILYS_LOCATION("warmelt-macro.bysl:3859:/ apply.arg"); + argtab[3].bp_long = 3859; /*_.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.bysl:3731:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3859:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3731:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3859:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3731:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3859:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3732:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3860:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];; - BASILYS_LOCATION("warmelt-macro.bysl:3732:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3860:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V23*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3715:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3843:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3715:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3843:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3715:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3843:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3715:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3843:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3715:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3843:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3715:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3843:/ clear"); /*clear*/ /*_.SYMBTUP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3715:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3843:/ clear"); /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3715:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3843:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3715:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3843:/ clear"); /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -41203,14 +42752,14 @@ basilys_trace_end("MEXPAND_EXPORT_CLASS", callcount); basilys_topframe = (struc #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_96_MEXPAND_EXPORT_CLASS*/ +} /*end rout_98_MEXPAND_EXPORT_CLASS*/ static basilys_ptr_t -rout_97_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_99_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -41221,7 +42770,7 @@ rout_97_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const cha #define callcount 0L #endif - struct frame_rout_97_LAMBDA__st { unsigned nbvar; + struct frame_rout_99_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -41253,33 +42802,33 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3721:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3849:/ getarg"); /*_.S__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3721:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3849:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3722:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3850:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3722:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3850:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3722:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3850:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.bysl:3722:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3850:/ 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.bysl:3723:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3851:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3723:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3723:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3851:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3851:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)((/*~LOC*/ curfclos->tabval[2])), ( "(EXPORT_CLASS <sym>...) expecting symbol"), (basilys_ptr_t)0); @@ -41289,20 +42838,20 @@ BASILYS_LOCATION("warmelt-macro.bysl:3721:/ block"); ; /*_.LET___V3*/ curfptr[2] = /*_.SYM__V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3722:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3850:/ clear"); /*clear*/ /*_.SYM__V4*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3722:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3850:/ clear"); /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3721:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3849:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.bysl:3721:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3849:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3721:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3849:/ clear"); /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;} ; @@ -41313,14 +42862,14 @@ basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_97_LAMBDA_*/ +} /*end rout_99_LAMBDA_*/ static basilys_ptr_t -rout_98_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_100_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -41331,7 +42880,7 @@ rout_98_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_ #define callcount 0L #endif - struct frame_rout_98_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar; + struct frame_rout_100_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -41363,18 +42912,18 @@ basilys_trace_start("MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3739:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3739:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ 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.bysl:3739:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ 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); @@ -41383,26 +42932,26 @@ basilys_trace_start("MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3739:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3867:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3740:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3740:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3868:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3868:/ 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.bysl:3740:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3868:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3740:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3868:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3740:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3868:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3740:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3868:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3740)?(3740):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3868)?(3868):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -41411,34 +42960,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3739:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3740:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3868:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3740:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3868:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3740:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3868:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3741:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3741:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3869:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3869:/ 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.bysl:3741:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3869:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3741:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3869:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3741:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3869:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3741:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3869:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3741)?(3741):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3869)?(3869):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -41447,57 +42996,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:3739:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3741:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3869:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3741:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3869:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3741:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3869:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3742:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3742:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3870:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3870:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3742:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3870:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3742:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3870:/ apply.arg"); argtab[0].bp_cstring = "mexpand_current_module_environment_container sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:3742:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3870:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3742:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3870:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3742:/ apply.arg"); - argtab[3].bp_long = 3742; + BASILYS_LOCATION("warmelt-macro.bysl:3870:/ apply.arg"); + argtab[3].bp_long = 3870; /*_.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.bysl:3742:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3870:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3742:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3870:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3742:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3870:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3743:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3871:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3744:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3872:/ 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.bysl:3745:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3873:/ 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; }; ; @@ -41505,14 +43054,14 @@ BASILYS_LOCATION("warmelt-macro.bysl:3739:/ 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.bysl:3747:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3875:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3747:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3875:/ 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.bysl:3747:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3875:/ 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"); @@ -41521,10 +43070,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:3739:/ block"); ; /*_#NOTNULL__L4*/ curfnum[0] = ((/*_.CURPAIR__V15*/ curfptr[14]) != NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:3750:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3878:/ cond"); /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3750:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3750:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3878:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3878:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), (basilys_ptr_t)0); @@ -41534,79 +43083,79 @@ BASILYS_LOCATION("warmelt-macro.bysl:3739:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3752:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3752:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3880:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3880:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3752:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3880:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3752:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3880:/ apply.arg"); argtab[0].bp_cstring = "mexpand_current_module_environment_container return res"; - BASILYS_LOCATION("warmelt-macro.bysl:3752:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3880:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.bysl:3752:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3880:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3752:/ apply.arg"); - argtab[3].bp_long = 3752; + BASILYS_LOCATION("warmelt-macro.bysl:3880:/ apply.arg"); + argtab[3].bp_long = 3880; /*_.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.bysl:3752:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3880:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3752:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3880:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3752:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3880:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3753:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3881:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:3753:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3881:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V20*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3743:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3871:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3743:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3871:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3743:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3871:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3743:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3871:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3743:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3871:/ clear"); /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3743:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3871:/ clear"); /*clear*/ /*_#NOTNULL__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3743:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3871:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3743:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3871:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3739:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:3739:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3739:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3739:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3739:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3739:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -41617,14 +43166,14 @@ basilys_trace_end("MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); b #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_98_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ +} /*end rout_100_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ static basilys_ptr_t -rout_99_MEXPAND_PARENT_MODULE_ENVIRONMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_101_MEXPAND_PARENT_MODULE_ENVIRONMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -41635,7 +43184,7 @@ rout_99_MEXPAND_PARENT_MODULE_ENVIRONMENT(basilysclosure_ptr_t closp_, basilys_p #define callcount 0L #endif - struct frame_rout_99_MEXPAND_PARENT_MODULE_ENVIRONMENT_st { unsigned nbvar; + struct frame_rout_101_MEXPAND_PARENT_MODULE_ENVIRONMENT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -41667,18 +43216,18 @@ basilys_trace_start("MEXPAND_PARENT_MODULE_ENVIRONMENT", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3764:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3764:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ 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.bysl:3764:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ 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); @@ -41687,26 +43236,26 @@ basilys_trace_start("MEXPAND_PARENT_MODULE_ENVIRONMENT", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3764:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3892:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3765:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3765:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3893:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3893:/ 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.bysl:3765:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3893:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3765:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3893:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3765:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3893:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3765:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3893:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3765)?(3765):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3893)?(3893):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -41715,34 +43264,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3764:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3765:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3893:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3765:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3893:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3765:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3893:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3766:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3766:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3894:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3894:/ 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.bysl:3766:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3894:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3766:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3894:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3766:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3894:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3766:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3894:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3766)?(3766):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3894)?(3894):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -41751,57 +43300,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:3764:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3766:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3894:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3766:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3894:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3766:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3894:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3767:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3767:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3895:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3895:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3767:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3895:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3767:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3895:/ apply.arg"); argtab[0].bp_cstring = "mexpand_parent_module_environment sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:3767:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3895:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3767:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3895:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3767:/ apply.arg"); - argtab[3].bp_long = 3767; + BASILYS_LOCATION("warmelt-macro.bysl:3895:/ apply.arg"); + argtab[3].bp_long = 3895; /*_.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.bysl:3767:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3895:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3767:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3895:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3767:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3895:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3768:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3896:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3769:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3897:/ 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.bysl:3770:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3898:/ 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; }; ; @@ -41809,14 +43358,14 @@ BASILYS_LOCATION("warmelt-macro.bysl:3764:/ 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.bysl:3772:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3900:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3772:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3900:/ 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.bysl:3772:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3900:/ 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"); @@ -41825,10 +43374,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:3764:/ block"); ; /*_#NOTNULL__L4*/ curfnum[0] = ((/*_.CURPAIR__V15*/ curfptr[14]) != NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:3775:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3903:/ cond"); /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3775:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3775:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3903:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3903:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(PARENT_MODULE_ENVIRONMENT) should not have any argument"), (basilys_ptr_t)0); @@ -41838,79 +43387,79 @@ BASILYS_LOCATION("warmelt-macro.bysl:3764:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3777:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3777:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3905:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3905:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3777:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3905:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3777:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3905:/ apply.arg"); argtab[0].bp_cstring = "mexpand_parent_module_environment return res"; - BASILYS_LOCATION("warmelt-macro.bysl:3777:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3905:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.bysl:3777:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3905:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3777:/ apply.arg"); - argtab[3].bp_long = 3777; + BASILYS_LOCATION("warmelt-macro.bysl:3905:/ apply.arg"); + argtab[3].bp_long = 3905; /*_.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.bysl:3777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3905:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3777:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3905:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3777:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3905:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3778:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3906:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:3778:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3906:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V20*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3768:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3896:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3768:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3896:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3768:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3896:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3768:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3896:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3768:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3896:/ clear"); /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3768:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3896:/ clear"); /*clear*/ /*_#NOTNULL__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3768:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3896:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3768:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3896:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3764:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:3764:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3764:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3764:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3764:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3764:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -41921,14 +43470,14 @@ basilys_trace_end("MEXPAND_PARENT_MODULE_ENVIRONMENT", callcount); basilys_topf #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_99_MEXPAND_PARENT_MODULE_ENVIRONMENT*/ +} /*end rout_101_MEXPAND_PARENT_MODULE_ENVIRONMENT*/ static basilys_ptr_t -rout_100_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_102_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -41939,7 +43488,7 @@ rout_100_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_ #define callcount 0L #endif - struct frame_rout_100_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar; + struct frame_rout_102_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -41971,18 +43520,18 @@ basilys_trace_start("MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callc /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3787:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3787:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ 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.bysl:3787:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ 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); @@ -41991,26 +43540,26 @@ basilys_trace_start("MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callc goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3787:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3915:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3788:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3788:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3916:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3916:/ 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.bysl:3788:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3916:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3788:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3916:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3788:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3916:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3788:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3916:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3788)?(3788):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3916)?(3916):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -42019,34 +43568,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3787:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3788:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3916:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3788:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3916:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3788:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3916:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3789:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3789:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3917:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3917:/ 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.bysl:3789:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3917:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3789:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3917:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3789:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3917:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3789:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3917:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3789)?(3789):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3917)?(3917):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -42055,57 +43604,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:3787:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3917:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3917:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3789:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3917:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3790:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3790:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3918:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3918:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3790:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3918:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3790:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3918:/ apply.arg"); argtab[0].bp_cstring = "mexpand_update_current_module_environment_container sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:3790:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3918:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3790:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3918:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3790:/ apply.arg"); - argtab[3].bp_long = 3790; + BASILYS_LOCATION("warmelt-macro.bysl:3918:/ apply.arg"); + argtab[3].bp_long = 3918; /*_.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.bysl:3790:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3918:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3790:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3918:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3790:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3918:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3791:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3919:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3792:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3920:/ 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.bysl:3793:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3921:/ 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; }; ; @@ -42113,14 +43662,14 @@ BASILYS_LOCATION("warmelt-macro.bysl:3787:/ 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.bysl:3795:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3923:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3795:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3923:/ 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.bysl:3795:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3923:/ 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"); @@ -42129,10 +43678,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:3787:/ block"); ; /*_#NOTNULL__L4*/ curfnum[0] = ((/*_.CURPAIR__V15*/ curfptr[14]) != NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:3798:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3926:/ cond"); /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3798:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3798:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3926:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3926:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V12*/ curfptr[11]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), (basilys_ptr_t)0); @@ -42142,79 +43691,79 @@ BASILYS_LOCATION("warmelt-macro.bysl:3787:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3800:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3800:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3928:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3928:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3800:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3928:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3800:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3928:/ apply.arg"); argtab[0].bp_cstring = "mexpand_update_current_module_environment_container return res"; - BASILYS_LOCATION("warmelt-macro.bysl:3800:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3928:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.bysl:3800:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3928:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3800:/ apply.arg"); - argtab[3].bp_long = 3800; + BASILYS_LOCATION("warmelt-macro.bysl:3928:/ apply.arg"); + argtab[3].bp_long = 3928; /*_.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.bysl:3800:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3928:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3800:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3928:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3800:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3928:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3801:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3929:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.bysl:3801:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3929:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V20*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3791:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3919:/ clear"); /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3791:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3919:/ clear"); /*clear*/ /*_.CONT__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3791:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3919:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3791:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3919:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3791:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3919:/ clear"); /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3791:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3919:/ clear"); /*clear*/ /*_#NOTNULL__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3791:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3919:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3791:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3919:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3787:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:3787:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3787:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3787:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3787:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3787:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -42225,14 +43774,14 @@ basilys_trace_end("MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcou #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_100_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ +} /*end rout_102_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ static basilys_ptr_t -rout_101_MEXPAND_FETCH_PREDEFINED(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_103_MEXPAND_FETCH_PREDEFINED(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -42243,7 +43792,7 @@ rout_101_MEXPAND_FETCH_PREDEFINED(basilysclosure_ptr_t closp_, basilys_ptr_t fir #define callcount 0L #endif - struct frame_rout_101_MEXPAND_FETCH_PREDEFINED_st { unsigned nbvar; + struct frame_rout_103_MEXPAND_FETCH_PREDEFINED_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -42275,18 +43824,18 @@ basilys_trace_start("MEXPAND_FETCH_PREDEFINED", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ 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.bysl:3814:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ 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); @@ -42295,26 +43844,26 @@ basilys_trace_start("MEXPAND_FETCH_PREDEFINED", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3814:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3942:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3815:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3815:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3943:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3943:/ 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.bysl:3815:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3943:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3815:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3943:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3815:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3943:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3815:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3943:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3815)?(3815):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3943)?(3943):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -42323,34 +43872,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3814:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3815:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3943:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3815:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3943:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3815:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3943:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3816:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3816:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3944:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3944:/ 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.bysl:3816:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3944:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3816:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3944:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3816:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3944:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3816:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3944:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3816)?(3816):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3944)?(3944):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -42359,57 +43908,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:3814:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3816:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3944:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3816:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3944:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3816:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3944:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3817:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3817:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3945:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3945:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3817:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3945:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3817:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3945:/ apply.arg"); argtab[0].bp_cstring = "mexpand_fetch_predefined sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:3817:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3945:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3817:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3945:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3817:/ apply.arg"); - argtab[3].bp_long = 3817; + BASILYS_LOCATION("warmelt-macro.bysl:3945:/ apply.arg"); + argtab[3].bp_long = 3945; /*_.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.bysl:3817:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3945:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3817:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3945:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3817:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3945:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3819:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3947:/ 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.bysl:3820:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3948:/ 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; }; ; @@ -42419,23 +43968,23 @@ BASILYS_LOCATION("warmelt-macro.bysl:3814:/ 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.bysl:3822:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3950:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3822:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3950:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3822:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3950:/ 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.bysl:3824:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3952:/ cond"); /*cond*/ if (/*_#NULL__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3824:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3824:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3952:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3952:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) missing argument"), (basilys_ptr_t)0); @@ -42447,10 +43996,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:3814:/ 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.bysl:3826:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3954:/ cond"); /*cond*/ if (/*_#NOTNULL__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3826:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3826:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3954:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3954:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) extra argument"), (basilys_ptr_t)0); @@ -42460,29 +44009,29 @@ BASILYS_LOCATION("warmelt-macro.bysl:3814:/ 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.bysl:3828:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3956:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3828:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3956:/ cond.then"); /*_#OR___L7*/ curfnum[6] = /*_#IS_A__L6*/ curfnum[5];; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3828:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3956:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3828:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3956:/ 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.bysl:3828:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3956:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L8*/ curfnum[7] = 0 ;} ; } ; /*_#NOT__L9*/ curfnum[7] = (!(/*_#OR___L7*/ curfnum[6]));; - BASILYS_LOCATION("warmelt-macro.bysl:3828:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3956:/ cond"); /*cond*/ if (/*_#NOT__L9*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3828:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3828:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3956:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3956:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) invalid argument"), (basilys_ptr_t)0); @@ -42490,21 +44039,21 @@ BASILYS_LOCATION("warmelt-macro.bysl:3814:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3830:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3958:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3830:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3958:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3830:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3958:/ 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.bysl:3830:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3958:/ 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.bysl:3830:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3958:/ 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"); @@ -42513,98 +44062,98 @@ BASILYS_LOCATION("warmelt-macro.bysl:3814:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3833:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3833:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3961:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3961:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3833:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3961:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3833:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3961:/ apply.arg"); argtab[0].bp_cstring = "mexpand_fetch_predefined result"; - BASILYS_LOCATION("warmelt-macro.bysl:3833:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3961:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9]; - BASILYS_LOCATION("warmelt-macro.bysl:3833:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3961:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3833:/ apply.arg"); - argtab[3].bp_long = 3833; + BASILYS_LOCATION("warmelt-macro.bysl:3961:/ apply.arg"); + argtab[3].bp_long = 3961; /*_.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.bysl:3833:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3961:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3833:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3961:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3833:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3961:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3834:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3962:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V20*/ curfptr[19];; - BASILYS_LOCATION("warmelt-macro.bysl:3834:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3962:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V19*/ curfptr[18] = /*_.RETURN___V24*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3830:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3958:/ clear"); /*clear*/ /*_.RES__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3830:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3958:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3830:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3958:/ clear"); /*clear*/ /*_.RETURN___V24*/ curfptr[22] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ clear"); /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ clear"); /*clear*/ /*_#NULL__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ clear"); /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ clear"); /*clear*/ /*_#NOTNULL__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ clear"); /*clear*/ /*_#OR___L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ clear"); /*clear*/ /*_#NOT__L9*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3818:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3946:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -42615,14 +44164,14 @@ basilys_trace_end("MEXPAND_FETCH_PREDEFINED", callcount); basilys_topframe = (s #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_101_MEXPAND_FETCH_PREDEFINED*/ +} /*end rout_103_MEXPAND_FETCH_PREDEFINED*/ static basilys_ptr_t -rout_102_MEXPAND_STORE_PREDEFINED(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, +rout_104_MEXPAND_STORE_PREDEFINED(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING @@ -42633,7 +44182,7 @@ rout_102_MEXPAND_STORE_PREDEFINED(basilysclosure_ptr_t closp_, basilys_ptr_t fir #define callcount 0L #endif - struct frame_rout_102_MEXPAND_STORE_PREDEFINED_st { unsigned nbvar; + struct frame_rout_104_MEXPAND_STORE_PREDEFINED_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif @@ -42665,18 +44214,18 @@ basilys_trace_start("MEXPAND_STORE_PREDEFINED", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ 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.bysl:3840:/ getarg"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ 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); @@ -42685,26 +44234,26 @@ basilys_trace_start("MEXPAND_STORE_PREDEFINED", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.bysl:3840:/ block"); +BASILYS_LOCATION("warmelt-macro.bysl:3968:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3841:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3841:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3969:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3969:/ 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.bysl:3841:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3969:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3841:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3969:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3841:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3969:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3841:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3969:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3841)?(3841):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3969)?(3969):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} @@ -42713,34 +44262,34 @@ BASILYS_LOCATION("warmelt-macro.bysl:3840:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3841:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3969:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3841:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3969:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3841:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3969:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3842:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3842:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3970:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3970:/ 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.bysl:3842:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3970:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3842:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3970:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3842:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3970:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3842:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3970:/ block"); /*block*/{ /*block*/{ - basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3842)?(3842):__LINE__, __FUNCTION__); + basilys_assert_failed(( "check env"),( "warmelt-macro.bysl")?( "warmelt-macro.bysl"):__FILE__,(3970)?(3970):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} @@ -42749,57 +44298,57 @@ BASILYS_LOCATION("warmelt-macro.bysl:3840:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3842:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3970:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3842:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3970:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3842:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3970:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3843:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3843:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3971:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3971:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3843:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3971:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3843:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3971:/ apply.arg"); argtab[0].bp_cstring = "mexpand_store_predefined sexpr"; - BASILYS_LOCATION("warmelt-macro.bysl:3843:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3971:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3843:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3971:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3843:/ apply.arg"); - argtab[3].bp_long = 3843; + BASILYS_LOCATION("warmelt-macro.bysl:3971:/ apply.arg"); + argtab[3].bp_long = 3971; /*_.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.bysl:3843:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3971:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3843:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3971:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3843:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3971:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3845:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3973:/ 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.bysl:3846:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3974:/ 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; }; ; @@ -42809,13 +44358,13 @@ BASILYS_LOCATION("warmelt-macro.bysl:3840:/ 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.bysl:3848:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3976:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3848:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3976:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3848:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3976:/ 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); } @@ -42823,10 +44372,10 @@ BASILYS_LOCATION("warmelt-macro.bysl:3840:/ block"); /*_.SVAL__V18*/ curfptr[17] = (/*nil*/NULL);; /*_#NULL__L4*/ curfnum[0] = ((/*_.CURPAIR__V15*/ curfptr[14]) == NULL);; - BASILYS_LOCATION("warmelt-macro.bysl:3851:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3979:/ cond"); /*cond*/ if (/*_#NULL__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3851:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3851:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3979:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3979:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), (basilys_ptr_t)0); @@ -42836,14 +44385,14 @@ BASILYS_LOCATION("warmelt-macro.bysl:3840:/ block"); ; /*_.PAIR_TAIL__V19*/ curfptr[18] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:3853:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3981:/ 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.bysl:3854:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3982:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3854:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3854:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3982:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3982:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), (basilys_ptr_t)0); @@ -42853,27 +44402,27 @@ BASILYS_LOCATION("warmelt-macro.bysl:3840:/ block"); ; /*_.PAIR_HEAD__V21*/ curfptr[20] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.bysl:3856:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3984:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3856:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3984:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.bysl:3856:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3984:/ 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.bysl:3856:/ compute"); + BASILYS_LOCATION("warmelt-macro.bysl:3984:/ 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.bysl:3857:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3985:/ cond"); /*cond*/ if (/*_#NOTNULL__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3857:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3857:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3985:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3985:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) extra argument"), (basilys_ptr_t)0); @@ -42883,29 +44432,29 @@ BASILYS_LOCATION("warmelt-macro.bysl:3840:/ 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.bysl:3859:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3987:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3859:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3987:/ cond.then"); /*_#OR___L8*/ curfnum[7] = /*_#IS_A__L7*/ curfnum[6];; - } else {BASILYS_LOCATION("warmelt-macro.bysl:3859:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.bysl:3987:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.bysl:3859:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3987:/ 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.bysl:3859:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3987:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L9*/ curfnum[8] = 0 ;} ; } ; /*_#NOT__L10*/ curfnum[8] = (!(/*_#OR___L8*/ curfnum[7]));; - BASILYS_LOCATION("warmelt-macro.bysl:3859:/ cond"); + BASILYS_LOCATION("warmelt-macro.bysl:3987:/ cond"); /*cond*/ if (/*_#NOT__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.bysl:3859:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3859:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3987:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3987:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) invalid predef"), (basilys_ptr_t)0); @@ -42913,26 +44462,26 @@ BASILYS_LOCATION("warmelt-macro.bysl:3840:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3861:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3989:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3861:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3989:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3861:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.bysl:3989:/ 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.bysl:3861:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3989:/ 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.bysl:3861:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3989:/ 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.bysl:3861:/ putslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3989:/ 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"); @@ -42941,112 +44490,112 @@ BASILYS_LOCATION("warmelt-macro.bysl:3840:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3866:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3866:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3994:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:3994:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3866:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3994:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3866:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3994:/ apply.arg"); argtab[0].bp_cstring = "mexpand_store_predefined result"; - BASILYS_LOCATION("warmelt-macro.bysl:3866:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3994:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10]; - BASILYS_LOCATION("warmelt-macro.bysl:3866:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3994:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3866:/ apply.arg"); - argtab[3].bp_long = 3866; + BASILYS_LOCATION("warmelt-macro.bysl:3994:/ apply.arg"); + argtab[3].bp_long = 3994; /*_.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.bysl:3866:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3994:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3866:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3994:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3866:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.bysl:3994:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.bysl:3867:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3995:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V26*/ curfptr[25];; - BASILYS_LOCATION("warmelt-macro.bysl:3867:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3995:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V25*/ curfptr[24] = /*_.RETURN___V30*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3861:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3989:/ clear"); /*clear*/ /*_.RES__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3861:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3989:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3861:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3989:/ clear"); /*clear*/ /*_.RETURN___V30*/ curfptr[28] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.SVAL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_#NULL__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.PAIR_HEAD__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_#NOTNULL__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_#OR___L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_#NOT__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3844:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3972:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -43057,7 +44606,7 @@ basilys_trace_end("MEXPAND_STORE_PREDEFINED", callcount); basilys_topframe = (s #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR -} /*end rout_102_MEXPAND_STORE_PREDEFINED*/ +} /*end rout_104_MEXPAND_STORE_PREDEFINED*/ @@ -43069,8 +44618,8 @@ typedef struct basilysclosure_st *noinitialclos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; -#define CURFRAM_NBVARPTR 1394 - void* varptr[1394]; +#define CURFRAM_NBVARPTR 1401 + void* varptr[1401]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ @@ -44014,306 +45563,312 @@ static void initialize_module_cdata(initial_frame_st *iniframp__, char predefini struct BASILYS_STRING_STRUCT(11) dstr_929__WARN_SHADOW; struct BASILYS_ROUTINE_STRUCT(3) drout_930__WARN_IF_REDEFINED; struct BASILYS_CLOSURE_STRUCT(0) dclo_931__WARN_IF_REDEFINED; - struct BASILYS_ROUTINE_STRUCT(4) drout_932__PARSE_PAIRLIST_C_CODE_EXPANSION; - struct BASILYS_CLOSURE_STRUCT(0) dclo_933__PARSE_PAIRLIST_C_CODE_EXPANSION; - struct BASILYS_OBJECT_STRUCT(3) dsym_934__DISCR_STRING; - struct BASILYS_STRING_STRUCT(12) dstr_935__DISCR_STRING; - struct BASILYS_OBJECT_STRUCT(3) dsym_936__DISCR_VERBATIMSTRING; - struct BASILYS_STRING_STRUCT(20) dstr_937__DISCR_VERBATIMST; - struct BASILYS_ROUTINE_STRUCT(13) drout_938__MEXPAND_DEFPRIMITIVE; - struct BASILYS_CLOSURE_STRUCT(0) dclo_939__MEXPAND_DEFPRIMITIVE; - struct BASILYS_OBJECT_STRUCT(3) dsym_940__DEFPRIMITIVE; - struct BASILYS_STRING_STRUCT(12) dstr_941__DEFPRIMITIVE; - struct BASILYS_ROUTINE_STRUCT(10) drout_942__MEXPAND_DEFCITERATOR; - struct BASILYS_CLOSURE_STRUCT(0) dclo_943__MEXPAND_DEFCITERATOR; - struct BASILYS_OBJECT_STRUCT(3) dsym_944__DEFCITERATOR; - struct BASILYS_STRING_STRUCT(12) dstr_945__DEFCITERATOR; - struct BASILYS_ROUTINE_STRUCT(14) drout_946__MEXPAND_DEFCMATCHER; - struct BASILYS_CLOSURE_STRUCT(0) dclo_947__MEXPAND_DEFCMATCHER; - struct BASILYS_OBJECT_STRUCT(3) dsym_948__MULTIPLE_EVERY; - struct BASILYS_STRING_STRUCT(14) dstr_949__MULTIPLE_EVERY; - struct BASILYS_ROUTINE_STRUCT(0) drout_950__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_951__DEFCMATCHER; - struct BASILYS_STRING_STRUCT(11) dstr_952__DEFCMATCHER; - struct BASILYS_ROUTINE_STRUCT(13) drout_953__MEXPAND_DEFUNMATCHER; - struct BASILYS_CLOSURE_STRUCT(0) dclo_954__MEXPAND_DEFUNMATCHER; - struct BASILYS_ROUTINE_STRUCT(0) drout_955__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_956__DEFUNMATCHER; - struct BASILYS_STRING_STRUCT(12) dstr_957__DEFUNMATCHER; - struct BASILYS_ROUTINE_STRUCT(15) drout_958__MEXPAND_DEFUN; - struct BASILYS_CLOSURE_STRUCT(0) dclo_959__MEXPAND_DEFUN; - struct BASILYS_OBJECT_STRUCT(3) dsym_960__FRESH_ENV; - struct BASILYS_STRING_STRUCT(9) dstr_961__FRESH_ENV; - struct BASILYS_ROUTINE_STRUCT(1) drout_962__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_963__CLASS_FUNCTION_BINDING; - struct BASILYS_STRING_STRUCT(22) dstr_964__CLASS_FUNCTION_B; - struct BASILYS_ROUTINE_STRUCT(15) drout_965__SCAN_DEFCLASS; - struct BASILYS_CLOSURE_STRUCT(0) dclo_966__SCAN_DEFCLASS; - struct BASILYS_OBJECT_STRUCT(3) dsym_967__SUPER; - struct BASILYS_STRING_STRUCT(5) dstr_968__SUPER; - struct BASILYS_OBJECT_STRUCT(3) dsym_969__CLASS_CLASS_BINDING; - struct BASILYS_STRING_STRUCT(19) dstr_970__CLASS_CLASS_BIND; - struct BASILYS_OBJECT_STRUCT(3) dsym_971__CLASS_CLASS; - struct BASILYS_STRING_STRUCT(11) dstr_972__CLASS_CLASS; - struct BASILYS_OBJECT_STRUCT(3) dsym_973__FIELDS; - struct BASILYS_STRING_STRUCT(6) dstr_974__FIELDS; - struct BASILYS_OBJECT_STRUCT(3) dsym_975__PREDEF; - struct BASILYS_STRING_STRUCT(6) dstr_976__PREDEF; - struct BASILYS_OBJECT_STRUCT(3) dsym_977__DOCSTR; - struct BASILYS_STRING_STRUCT(6) dstr_978__DOCSTR; - struct BASILYS_ROUTINE_STRUCT(23) drout_979__MEXPAND_DEFCLASS; - struct BASILYS_CLOSURE_STRUCT(0) dclo_980__MEXPAND_DEFCLASS; - struct BASILYS_OBJECT_STRUCT(3) dsym_981__DISCR_SEQCLASS; - struct BASILYS_STRING_STRUCT(14) dstr_982__DISCR_SEQCLASS; - struct BASILYS_OBJECT_STRUCT(3) dsym_983__DISCR_INTEGER; - struct BASILYS_STRING_STRUCT(13) dstr_984__DISCR_INTEGER; - struct BASILYS_OBJECT_STRUCT(3) dsym_985__DISCR_MAPSTRINGS; - struct BASILYS_STRING_STRUCT(16) dstr_986__DISCR_MAPSTRINGS; - struct BASILYS_OBJECT_STRUCT(3) dsym_987__DISCR_SEQFIELD; - struct BASILYS_STRING_STRUCT(14) dstr_988__DISCR_SEQFIELD; - struct BASILYS_ROUTINE_STRUCT(1) drout_989__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_990__CLASS_FIELD; - struct BASILYS_STRING_STRUCT(11) dstr_991__CLASS_FIELD; - struct BASILYS_ROUTINE_STRUCT(5) drout_992__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_993__CLASS_FIELD_BINDING; - struct BASILYS_STRING_STRUCT(19) dstr_994__CLASS_FIELD_BIND; - struct BASILYS_ROUTINE_STRUCT(13) drout_995__PARSE_FIELD_ASSIGNMENT; - struct BASILYS_CLOSURE_STRUCT(0) dclo_996__PARSE_FIELD_ASSIGNMENT; - struct BASILYS_OBJECT_STRUCT(3) dsym_997__MULTIPLE_ITERATE_TEST; - struct BASILYS_STRING_STRUCT(21) dstr_998__MULTIPLE_ITERATE; - struct BASILYS_ROUTINE_STRUCT(1) drout_999__LAMBDA_; - struct BASILYS_ROUTINE_STRUCT(20) drout_1000__MEXPAND_DEFINSTANCE; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1001__MEXPAND_DEFINSTANCE; - struct BASILYS_OBJECT_STRUCT(3) dsym_1002__OBJ_NUM; - struct BASILYS_STRING_STRUCT(7) dstr_1003__OBJ_NUM; - struct BASILYS_OBJECT_STRUCT(3) dsym_1004__LIST_TO_MULTIPLE; - struct BASILYS_STRING_STRUCT(16) dstr_1005__LIST_TO_MULTIPLE; - struct BASILYS_OBJECT_STRUCT(3) dsym_1006__CLASS_INSTANCE_BINDING; - struct BASILYS_STRING_STRUCT(22) dstr_1007__CLASS_INSTANCE_B; - struct BASILYS_OBJECT_STRUCT(3) dsym_1008__DEFINSTANCE; - struct BASILYS_STRING_STRUCT(11) dstr_1009__DEFINSTANCE; - struct BASILYS_ROUTINE_STRUCT(20) drout_1010__MEXPAND_DEFSELECTOR; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1011__MEXPAND_DEFSELECTOR; - struct BASILYS_OBJECT_STRUCT(3) dsym_1012__DEFSELECTOR; - struct BASILYS_STRING_STRUCT(11) dstr_1013__DEFSELECTOR; - struct BASILYS_ROUTINE_STRUCT(14) drout_1014__MEXPAND_INSTANCE; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1015__MEXPAND_INSTANCE; - struct BASILYS_OBJECT_STRUCT(3) dsym_1016__MAKE_INSTANCE; - struct BASILYS_STRING_STRUCT(13) dstr_1017__MAKE_INSTANCE; - struct BASILYS_ROUTINE_STRUCT(12) drout_1018__PARSE_FIELD_PATTERN; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1019__PARSE_FIELD_PATTERN; - struct BASILYS_ROUTINE_STRUCT(1) drout_1020__LAMBDA_; - struct BASILYS_ROUTINE_STRUCT(15) drout_1021__PATEXPAND_INSTANCE; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1022__PATEXPAND_INSTANCE; - struct BASILYS_OBJECT_STRUCT(3) dsym_1023__INSTANCE; - struct BASILYS_STRING_STRUCT(8) dstr_1024__INSTANCE; - struct BASILYS_ROUTINE_STRUCT(15) drout_1025__PATEXPAND_OBJECT; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1026__PATEXPAND_OBJECT; - struct BASILYS_ROUTINE_STRUCT(3) drout_1027__MEXPAND_OBJECT; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1028__MEXPAND_OBJECT; - struct BASILYS_OBJECT_STRUCT(3) dsym_1029__OBJECT; - struct BASILYS_STRING_STRUCT(6) dstr_1030__OBJECT; - struct BASILYS_ROUTINE_STRUCT(9) drout_1031__MEXPAND_UNSAFE_PUT_FIELDS; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1032__MEXPAND_UNSAFE_PUT_FIELDS; - struct BASILYS_OBJECT_STRUCT(3) dsym_1033__UNSAFE_PUT_FIELDS; - struct BASILYS_STRING_STRUCT(17) dstr_1034__UNSAFE_PUT_FIELD; - struct BASILYS_ROUTINE_STRUCT(9) drout_1035__MEXPAND_PUT_FIELDS; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1036__MEXPAND_PUT_FIELDS; - struct BASILYS_OBJECT_STRUCT(3) dsym_1037__PUT_FIELDS; - struct BASILYS_STRING_STRUCT(10) dstr_1038__PUT_FIELDS; - struct BASILYS_ROUTINE_STRUCT(6) drout_1039__MEXPAND_UNSAFE_GET_FIELD; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1040__MEXPAND_UNSAFE_GET_FIELD; - struct BASILYS_OBJECT_STRUCT(3) dsym_1041__UNSAFE_GET_FIELD; - struct BASILYS_STRING_STRUCT(16) dstr_1042__UNSAFE_GET_FIELD; - struct BASILYS_ROUTINE_STRUCT(6) drout_1043__MEXPAND_GET_FIELD; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1044__MEXPAND_GET_FIELD; - struct BASILYS_OBJECT_STRUCT(3) dsym_1045__GET_FIELD; - struct BASILYS_STRING_STRUCT(9) dstr_1046__GET_FIELD; - struct BASILYS_ROUTINE_STRUCT(5) drout_1047__MEXPAND_SETQ; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1048__MEXPAND_SETQ; - struct BASILYS_OBJECT_STRUCT(3) dsym_1049__SETQ; - struct BASILYS_STRING_STRUCT(4) dstr_1050__SETQ; - struct BASILYS_ROUTINE_STRUCT(6) drout_1051__MEXPAND_IF; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1052__MEXPAND_IF; - struct BASILYS_OBJECT_STRUCT(3) dsym_1053__IF; - struct BASILYS_STRING_STRUCT(2) dstr_1054__IF; - struct BASILYS_ROUTINE_STRUCT(6) drout_1055__MEXPAND_CPPIF; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1056__MEXPAND_CPPIF; - struct BASILYS_OBJECT_STRUCT(3) dsym_1057__CPPIF; - struct BASILYS_STRING_STRUCT(5) dstr_1058__CPPIF; - struct BASILYS_ROUTINE_STRUCT(12) drout_1059__MEXPAND_COND; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1060__MEXPAND_COND; - struct BASILYS_ROUTINE_STRUCT(1) drout_1061__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_1062__ELSE; - struct BASILYS_STRING_STRUCT(4) dstr_1063__ELSE; - struct BASILYS_OBJECT_STRUCT(3) dsym_1064__COND; - struct BASILYS_STRING_STRUCT(4) dstr_1065__COND; - struct BASILYS_ROUTINE_STRUCT(8) drout_1066__MEXPAND_AND; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1067__MEXPAND_AND; - struct BASILYS_ROUTINE_STRUCT(1) drout_1068__LAMBDA_; - struct BASILYS_ROUTINE_STRUCT(8) drout_1069__PATEXPAND_AS; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1070__PATEXPAND_AS; - struct BASILYS_ROUTINE_STRUCT(3) drout_1071__MEXPAND_AS; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1072__MEXPAND_AS; - struct BASILYS_OBJECT_STRUCT(3) dsym_1073__AS; - struct BASILYS_STRING_STRUCT(2) dstr_1074__AS; - struct BASILYS_ROUTINE_STRUCT(6) drout_1075__PATEXPAND_AND; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1076__PATEXPAND_AND; - struct BASILYS_OBJECT_STRUCT(3) dsym_1077__AND; - struct BASILYS_STRING_STRUCT(3) dstr_1078__AND; - struct BASILYS_ROUTINE_STRUCT(8) drout_1079__MEXPAND_OR; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1080__MEXPAND_OR; - struct BASILYS_ROUTINE_STRUCT(1) drout_1081__LAMBDA_; - struct BASILYS_ROUTINE_STRUCT(6) drout_1082__PATEXPAND_OR; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1083__PATEXPAND_OR; - struct BASILYS_OBJECT_STRUCT(3) dsym_1084__OR; - struct BASILYS_STRING_STRUCT(2) dstr_1085__OR; - struct BASILYS_ROUTINE_STRUCT(18) drout_1086__MEXPAND_MATCH; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1087__MEXPAND_MATCH; - struct BASILYS_ROUTINE_STRUCT(1) drout_1088__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_1089__WHEN; - struct BASILYS_STRING_STRUCT(4) dstr_1090__WHEN; - struct BASILYS_OBJECT_STRUCT(3) dsym_1091__MATCH; - struct BASILYS_STRING_STRUCT(5) dstr_1092__MATCH; - struct BASILYS_ROUTINE_STRUCT(9) drout_1093__MEXPAND_LETBINDING; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1094__MEXPAND_LETBINDING; - struct BASILYS_ROUTINE_STRUCT(16) drout_1095__MEXPAND_LET; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1096__MEXPAND_LET; - struct BASILYS_ROUTINE_STRUCT(2) drout_1097__LAMBDA_; - struct BASILYS_ROUTINE_STRUCT(3) drout_1098__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_1099__CLASS_LET_BINDING; - struct BASILYS_STRING_STRUCT(17) dstr_1100__CLASS_LET_BINDIN; - struct BASILYS_ROUTINE_STRUCT(1) drout_1101__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_1102__LET; - struct BASILYS_STRING_STRUCT(3) dstr_1103__LET; - struct BASILYS_ROUTINE_STRUCT(12) drout_1104__MEXPAND_LAMBDA; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1105__MEXPAND_LAMBDA; - struct BASILYS_ROUTINE_STRUCT(1) drout_1106__LAMBDA_; + struct BASILYS_ROUTINE_STRUCT(6) drout_932__FLATTEN_FOR_C_CODE_EXPANSION; + struct BASILYS_CLOSURE_STRUCT(0) dclo_933__FLATTEN_FOR_C_CODE_EXPANSION; + struct BASILYS_OBJECT_STRUCT(3) dsym_934__DISCR_VERBATIMSTRING; + struct BASILYS_STRING_STRUCT(20) dstr_935__DISCR_VERBATIMST; + struct BASILYS_OBJECT_STRUCT(3) dsym_936__CLASS_LOCATED; + struct BASILYS_STRING_STRUCT(13) dstr_937__CLASS_LOCATED; + struct BASILYS_ROUTINE_STRUCT(5) drout_938__PARSE_PAIRLIST_C_CODE_EXPANSION; + struct BASILYS_CLOSURE_STRUCT(0) dclo_939__PARSE_PAIRLIST_C_CODE_EXPANSION; + struct BASILYS_OBJECT_STRUCT(3) dsym_940__LIST_TO_MULTIPLE; + struct BASILYS_STRING_STRUCT(16) dstr_941__LIST_TO_MULTIPLE; + struct BASILYS_ROUTINE_STRUCT(3) drout_942__CHECK_C_EXPANSION; + struct BASILYS_CLOSURE_STRUCT(0) dclo_943__CHECK_C_EXPANSION; + struct BASILYS_ROUTINE_STRUCT(17) drout_944__MEXPAND_DEFPRIMITIVE; + struct BASILYS_CLOSURE_STRUCT(0) dclo_945__MEXPAND_DEFPRIMITIVE; + struct BASILYS_OBJECT_STRUCT(3) dsym_946__CLASS_ANY_BINDING; + struct BASILYS_STRING_STRUCT(17) dstr_947__CLASS_ANY_BINDIN; + struct BASILYS_OBJECT_STRUCT(3) dsym_948__DEFPRIMITIVE; + struct BASILYS_STRING_STRUCT(12) dstr_949__DEFPRIMITIVE; + struct BASILYS_ROUTINE_STRUCT(14) drout_950__MEXPAND_DEFCITERATOR; + struct BASILYS_CLOSURE_STRUCT(0) dclo_951__MEXPAND_DEFCITERATOR; + struct BASILYS_OBJECT_STRUCT(3) dsym_952__DEFCITERATOR; + struct BASILYS_STRING_STRUCT(12) dstr_953__DEFCITERATOR; + struct BASILYS_ROUTINE_STRUCT(17) drout_954__MEXPAND_DEFCMATCHER; + struct BASILYS_CLOSURE_STRUCT(0) dclo_955__MEXPAND_DEFCMATCHER; + struct BASILYS_OBJECT_STRUCT(3) dsym_956__MULTIPLE_EVERY; + struct BASILYS_STRING_STRUCT(14) dstr_957__MULTIPLE_EVERY; + struct BASILYS_ROUTINE_STRUCT(0) drout_958__LAMBDA_; + struct BASILYS_OBJECT_STRUCT(3) dsym_959__DEFCMATCHER; + struct BASILYS_STRING_STRUCT(11) dstr_960__DEFCMATCHER; + struct BASILYS_ROUTINE_STRUCT(13) drout_961__MEXPAND_DEFUNMATCHER; + struct BASILYS_CLOSURE_STRUCT(0) dclo_962__MEXPAND_DEFUNMATCHER; + struct BASILYS_ROUTINE_STRUCT(0) drout_963__LAMBDA_; + struct BASILYS_OBJECT_STRUCT(3) dsym_964__DEFUNMATCHER; + struct BASILYS_STRING_STRUCT(12) dstr_965__DEFUNMATCHER; + struct BASILYS_ROUTINE_STRUCT(15) drout_966__MEXPAND_DEFUN; + struct BASILYS_CLOSURE_STRUCT(0) dclo_967__MEXPAND_DEFUN; + struct BASILYS_OBJECT_STRUCT(3) dsym_968__FRESH_ENV; + struct BASILYS_STRING_STRUCT(9) dstr_969__FRESH_ENV; + struct BASILYS_ROUTINE_STRUCT(1) drout_970__LAMBDA_; + struct BASILYS_OBJECT_STRUCT(3) dsym_971__CLASS_FUNCTION_BINDING; + struct BASILYS_STRING_STRUCT(22) dstr_972__CLASS_FUNCTION_B; + struct BASILYS_ROUTINE_STRUCT(15) drout_973__SCAN_DEFCLASS; + struct BASILYS_CLOSURE_STRUCT(0) dclo_974__SCAN_DEFCLASS; + struct BASILYS_OBJECT_STRUCT(3) dsym_975__SUPER; + struct BASILYS_STRING_STRUCT(5) dstr_976__SUPER; + struct BASILYS_OBJECT_STRUCT(3) dsym_977__CLASS_CLASS_BINDING; + struct BASILYS_STRING_STRUCT(19) dstr_978__CLASS_CLASS_BIND; + struct BASILYS_OBJECT_STRUCT(3) dsym_979__CLASS_CLASS; + struct BASILYS_STRING_STRUCT(11) dstr_980__CLASS_CLASS; + struct BASILYS_OBJECT_STRUCT(3) dsym_981__FIELDS; + struct BASILYS_STRING_STRUCT(6) dstr_982__FIELDS; + struct BASILYS_OBJECT_STRUCT(3) dsym_983__PREDEF; + struct BASILYS_STRING_STRUCT(6) dstr_984__PREDEF; + struct BASILYS_OBJECT_STRUCT(3) dsym_985__DOCSTR; + struct BASILYS_STRING_STRUCT(6) dstr_986__DOCSTR; + struct BASILYS_ROUTINE_STRUCT(23) drout_987__MEXPAND_DEFCLASS; + struct BASILYS_CLOSURE_STRUCT(0) dclo_988__MEXPAND_DEFCLASS; + struct BASILYS_OBJECT_STRUCT(3) dsym_989__DISCR_SEQCLASS; + struct BASILYS_STRING_STRUCT(14) dstr_990__DISCR_SEQCLASS; + struct BASILYS_OBJECT_STRUCT(3) dsym_991__DISCR_INTEGER; + struct BASILYS_STRING_STRUCT(13) dstr_992__DISCR_INTEGER; + struct BASILYS_OBJECT_STRUCT(3) dsym_993__DISCR_MAPSTRINGS; + struct BASILYS_STRING_STRUCT(16) dstr_994__DISCR_MAPSTRINGS; + struct BASILYS_OBJECT_STRUCT(3) dsym_995__DISCR_SEQFIELD; + struct BASILYS_STRING_STRUCT(14) dstr_996__DISCR_SEQFIELD; + struct BASILYS_ROUTINE_STRUCT(1) drout_997__LAMBDA_; + struct BASILYS_OBJECT_STRUCT(3) dsym_998__CLASS_FIELD; + struct BASILYS_STRING_STRUCT(11) dstr_999__CLASS_FIELD; + struct BASILYS_ROUTINE_STRUCT(5) drout_1000__LAMBDA_; + struct BASILYS_OBJECT_STRUCT(3) dsym_1001__CLASS_FIELD_BINDING; + struct BASILYS_STRING_STRUCT(19) dstr_1002__CLASS_FIELD_BIND; + struct BASILYS_ROUTINE_STRUCT(13) drout_1003__PARSE_FIELD_ASSIGNMENT; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1004__PARSE_FIELD_ASSIGNMENT; + struct BASILYS_OBJECT_STRUCT(3) dsym_1005__MULTIPLE_ITERATE_TEST; + struct BASILYS_STRING_STRUCT(21) dstr_1006__MULTIPLE_ITERATE; + struct BASILYS_ROUTINE_STRUCT(1) drout_1007__LAMBDA_; + struct BASILYS_ROUTINE_STRUCT(20) drout_1008__MEXPAND_DEFINSTANCE; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1009__MEXPAND_DEFINSTANCE; + struct BASILYS_OBJECT_STRUCT(3) dsym_1010__OBJ_NUM; + struct BASILYS_STRING_STRUCT(7) dstr_1011__OBJ_NUM; + struct BASILYS_OBJECT_STRUCT(3) dsym_1012__CLASS_INSTANCE_BINDING; + struct BASILYS_STRING_STRUCT(22) dstr_1013__CLASS_INSTANCE_B; + struct BASILYS_OBJECT_STRUCT(3) dsym_1014__DEFINSTANCE; + struct BASILYS_STRING_STRUCT(11) dstr_1015__DEFINSTANCE; + struct BASILYS_ROUTINE_STRUCT(20) drout_1016__MEXPAND_DEFSELECTOR; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1017__MEXPAND_DEFSELECTOR; + struct BASILYS_OBJECT_STRUCT(3) dsym_1018__DEFSELECTOR; + struct BASILYS_STRING_STRUCT(11) dstr_1019__DEFSELECTOR; + struct BASILYS_ROUTINE_STRUCT(14) drout_1020__MEXPAND_INSTANCE; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1021__MEXPAND_INSTANCE; + struct BASILYS_OBJECT_STRUCT(3) dsym_1022__MAKE_INSTANCE; + struct BASILYS_STRING_STRUCT(13) dstr_1023__MAKE_INSTANCE; + struct BASILYS_ROUTINE_STRUCT(12) drout_1024__PARSE_FIELD_PATTERN; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1025__PARSE_FIELD_PATTERN; + struct BASILYS_ROUTINE_STRUCT(1) drout_1026__LAMBDA_; + struct BASILYS_ROUTINE_STRUCT(15) drout_1027__PATEXPAND_INSTANCE; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1028__PATEXPAND_INSTANCE; + struct BASILYS_OBJECT_STRUCT(3) dsym_1029__INSTANCE; + struct BASILYS_STRING_STRUCT(8) dstr_1030__INSTANCE; + struct BASILYS_ROUTINE_STRUCT(15) drout_1031__PATEXPAND_OBJECT; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1032__PATEXPAND_OBJECT; + struct BASILYS_ROUTINE_STRUCT(3) drout_1033__MEXPAND_OBJECT; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1034__MEXPAND_OBJECT; + struct BASILYS_OBJECT_STRUCT(3) dsym_1035__OBJECT; + struct BASILYS_STRING_STRUCT(6) dstr_1036__OBJECT; + struct BASILYS_ROUTINE_STRUCT(9) drout_1037__MEXPAND_UNSAFE_PUT_FIELDS; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1038__MEXPAND_UNSAFE_PUT_FIELDS; + struct BASILYS_OBJECT_STRUCT(3) dsym_1039__UNSAFE_PUT_FIELDS; + struct BASILYS_STRING_STRUCT(17) dstr_1040__UNSAFE_PUT_FIELD; + struct BASILYS_ROUTINE_STRUCT(9) drout_1041__MEXPAND_PUT_FIELDS; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1042__MEXPAND_PUT_FIELDS; + struct BASILYS_OBJECT_STRUCT(3) dsym_1043__PUT_FIELDS; + struct BASILYS_STRING_STRUCT(10) dstr_1044__PUT_FIELDS; + struct BASILYS_ROUTINE_STRUCT(6) drout_1045__MEXPAND_UNSAFE_GET_FIELD; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1046__MEXPAND_UNSAFE_GET_FIELD; + struct BASILYS_OBJECT_STRUCT(3) dsym_1047__UNSAFE_GET_FIELD; + struct BASILYS_STRING_STRUCT(16) dstr_1048__UNSAFE_GET_FIELD; + struct BASILYS_ROUTINE_STRUCT(6) drout_1049__MEXPAND_GET_FIELD; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1050__MEXPAND_GET_FIELD; + struct BASILYS_OBJECT_STRUCT(3) dsym_1051__GET_FIELD; + struct BASILYS_STRING_STRUCT(9) dstr_1052__GET_FIELD; + struct BASILYS_ROUTINE_STRUCT(5) drout_1053__MEXPAND_SETQ; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1054__MEXPAND_SETQ; + struct BASILYS_OBJECT_STRUCT(3) dsym_1055__SETQ; + struct BASILYS_STRING_STRUCT(4) dstr_1056__SETQ; + struct BASILYS_ROUTINE_STRUCT(6) drout_1057__MEXPAND_IF; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1058__MEXPAND_IF; + struct BASILYS_OBJECT_STRUCT(3) dsym_1059__IF; + struct BASILYS_STRING_STRUCT(2) dstr_1060__IF; + struct BASILYS_ROUTINE_STRUCT(6) drout_1061__MEXPAND_CPPIF; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1062__MEXPAND_CPPIF; + struct BASILYS_OBJECT_STRUCT(3) dsym_1063__CPPIF; + struct BASILYS_STRING_STRUCT(5) dstr_1064__CPPIF; + struct BASILYS_ROUTINE_STRUCT(12) drout_1065__MEXPAND_COND; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1066__MEXPAND_COND; + struct BASILYS_ROUTINE_STRUCT(1) drout_1067__LAMBDA_; + struct BASILYS_OBJECT_STRUCT(3) dsym_1068__ELSE; + struct BASILYS_STRING_STRUCT(4) dstr_1069__ELSE; + struct BASILYS_OBJECT_STRUCT(3) dsym_1070__COND; + struct BASILYS_STRING_STRUCT(4) dstr_1071__COND; + struct BASILYS_ROUTINE_STRUCT(8) drout_1072__MEXPAND_AND; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1073__MEXPAND_AND; + struct BASILYS_ROUTINE_STRUCT(1) drout_1074__LAMBDA_; + struct BASILYS_ROUTINE_STRUCT(8) drout_1075__PATEXPAND_AS; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1076__PATEXPAND_AS; + struct BASILYS_ROUTINE_STRUCT(3) drout_1077__MEXPAND_AS; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1078__MEXPAND_AS; + struct BASILYS_OBJECT_STRUCT(3) dsym_1079__AS; + struct BASILYS_STRING_STRUCT(2) dstr_1080__AS; + struct BASILYS_ROUTINE_STRUCT(6) drout_1081__PATEXPAND_AND; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1082__PATEXPAND_AND; + struct BASILYS_OBJECT_STRUCT(3) dsym_1083__AND; + struct BASILYS_STRING_STRUCT(3) dstr_1084__AND; + struct BASILYS_ROUTINE_STRUCT(8) drout_1085__MEXPAND_OR; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1086__MEXPAND_OR; + struct BASILYS_ROUTINE_STRUCT(1) drout_1087__LAMBDA_; + struct BASILYS_ROUTINE_STRUCT(6) drout_1088__PATEXPAND_OR; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1089__PATEXPAND_OR; + struct BASILYS_OBJECT_STRUCT(3) dsym_1090__OR; + struct BASILYS_STRING_STRUCT(2) dstr_1091__OR; + struct BASILYS_ROUTINE_STRUCT(18) drout_1092__MEXPAND_MATCH; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1093__MEXPAND_MATCH; + struct BASILYS_ROUTINE_STRUCT(1) drout_1094__LAMBDA_; + struct BASILYS_OBJECT_STRUCT(3) dsym_1095__WHEN; + struct BASILYS_STRING_STRUCT(4) dstr_1096__WHEN; + struct BASILYS_OBJECT_STRUCT(3) dsym_1097__MATCH; + struct BASILYS_STRING_STRUCT(5) dstr_1098__MATCH; + struct BASILYS_ROUTINE_STRUCT(9) drout_1099__MEXPAND_LETBINDING; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1100__MEXPAND_LETBINDING; + struct BASILYS_ROUTINE_STRUCT(16) drout_1101__MEXPAND_LET; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1102__MEXPAND_LET; + struct BASILYS_ROUTINE_STRUCT(2) drout_1103__LAMBDA_; + struct BASILYS_ROUTINE_STRUCT(3) drout_1104__LAMBDA_; + struct BASILYS_OBJECT_STRUCT(3) dsym_1105__CLASS_LET_BINDING; + struct BASILYS_STRING_STRUCT(17) dstr_1106__CLASS_LET_BINDIN; struct BASILYS_ROUTINE_STRUCT(1) drout_1107__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_1108__LAMBDA; - struct BASILYS_STRING_STRUCT(6) dstr_1109__LAMBDA; - struct BASILYS_ROUTINE_STRUCT(13) drout_1110__MEXPAND_MULTICALL; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1111__MEXPAND_MULTICALL; + struct BASILYS_OBJECT_STRUCT(3) dsym_1108__LET; + struct BASILYS_STRING_STRUCT(3) dstr_1109__LET; + struct BASILYS_ROUTINE_STRUCT(12) drout_1110__MEXPAND_LAMBDA; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1111__MEXPAND_LAMBDA; struct BASILYS_ROUTINE_STRUCT(1) drout_1112__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1113__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_1114__MULTICALL; - struct BASILYS_STRING_STRUCT(9) dstr_1115__MULTICALL; - struct BASILYS_ROUTINE_STRUCT(5) drout_1116__MEXPAND_QUOTE; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1117__MEXPAND_QUOTE; - struct BASILYS_OBJECT_STRUCT(3) dsym_1118__QUOTE; - struct BASILYS_STRING_STRUCT(5) dstr_1119__QUOTE; - struct BASILYS_ROUTINE_STRUCT(3) drout_1120__MEXPAND_COMMENT; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1121__MEXPAND_COMMENT; - struct BASILYS_OBJECT_STRUCT(3) dsym_1122__COMMENT; - struct BASILYS_STRING_STRUCT(7) dstr_1123__COMMENT; - struct BASILYS_ROUTINE_STRUCT(7) drout_1124__PAIRLIST_TO_PROGN; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1125__PAIRLIST_TO_PROGN; - struct BASILYS_ROUTINE_STRUCT(1) drout_1126__LAMBDA_; - struct BASILYS_ROUTINE_STRUCT(6) drout_1127__PAIRLIST_TO_RETURN; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1128__PAIRLIST_TO_RETURN; - struct BASILYS_ROUTINE_STRUCT(1) drout_1129__LAMBDA_; - struct BASILYS_ROUTINE_STRUCT(2) drout_1130__MEXPAND_PROGN; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1131__MEXPAND_PROGN; - struct BASILYS_OBJECT_STRUCT(3) dsym_1132__PROGN; - struct BASILYS_STRING_STRUCT(5) dstr_1133__PROGN; - struct BASILYS_ROUTINE_STRUCT(2) drout_1134__MEXPAND_RETURN; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1135__MEXPAND_RETURN; - struct BASILYS_OBJECT_STRUCT(3) dsym_1136__RETURN; - struct BASILYS_STRING_STRUCT(6) dstr_1137__RETURN; - struct BASILYS_ROUTINE_STRUCT(11) drout_1138__MEXPAND_FOREVER; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1139__MEXPAND_FOREVER; - struct BASILYS_OBJECT_STRUCT(3) dsym_1140__CLASS_LABEL_BINDING; - struct BASILYS_STRING_STRUCT(19) dstr_1141__CLASS_LABEL_BIND; - struct BASILYS_ROUTINE_STRUCT(1) drout_1142__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_1143__FOREVER; - struct BASILYS_STRING_STRUCT(7) dstr_1144__FOREVER; - struct BASILYS_ROUTINE_STRUCT(11) drout_1145__MEXPAND_EXIT; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1146__MEXPAND_EXIT; - struct BASILYS_ROUTINE_STRUCT(1) drout_1147__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_1148__EXIT; - struct BASILYS_STRING_STRUCT(4) dstr_1149__EXIT; - struct BASILYS_ROUTINE_STRUCT(4) drout_1150__MEXPAND_COMPILE_WARNING; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1151__MEXPAND_COMPILE_WARNING; - struct BASILYS_OBJECT_STRUCT(3) dsym_1152__COMPILE_WARNING; - struct BASILYS_STRING_STRUCT(15) dstr_1153__COMPILE_WARNING; - struct BASILYS_ROUTINE_STRUCT(16) drout_1154__MEXPAND_ASSERT_MSG; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1155__MEXPAND_ASSERT_MSG; - struct BASILYS_OBJECT_STRUCT(3) dsym_1156__ASSERT_FAILED; - struct BASILYS_STRING_STRUCT(13) dstr_1157__ASSERT_FAILED; - struct BASILYS_OBJECT_STRUCT(3) dsym_1158__FIND_ENV_DEBUG; - struct BASILYS_STRING_STRUCT(14) dstr_1159__FIND_ENV_DEBUG; - struct BASILYS_OBJECT_STRUCT(3) dsym_1160__ENABLE_CHECKING; - struct BASILYS_STRING_STRUCT(15) dstr_1161__ENABLE_CHECKING; - struct BASILYS_OBJECT_STRUCT(3) dsym_1162__ASSERT_MSG; - struct BASILYS_STRING_STRUCT(10) dstr_1163__ASSERT_MSG; - struct BASILYS_ROUTINE_STRUCT(12) drout_1164__MEXPAND_DEBUG_MSG; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1165__MEXPAND_DEBUG_MSG; - struct BASILYS_OBJECT_STRUCT(3) dsym_1166__THE_CALLCOUNT; - struct BASILYS_STRING_STRUCT(13) dstr_1167__THE_CALLCOUNT; - struct BASILYS_OBJECT_STRUCT(3) dsym_1168__DEBUG_MSG; - struct BASILYS_STRING_STRUCT(9) dstr_1169__DEBUG_MSG; - struct BASILYS_ROUTINE_STRUCT(10) drout_1170__MEXPAND_EXPORT_VALUES; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1171__MEXPAND_EXPORT_VALUES; - struct BASILYS_ROUTINE_STRUCT(3) drout_1172__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_1173__DEBUGMSG; - struct BASILYS_STRING_STRUCT(8) dstr_1174__DEBUGMSG; - struct BASILYS_OBJECT_STRUCT(3) dsym_1175__EXPORT_VALUES; - struct BASILYS_STRING_STRUCT(13) dstr_1176__EXPORT_VALUES; - struct BASILYS_ROUTINE_STRUCT(6) drout_1177__MEXPAND_EXPORT_MACRO; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1178__MEXPAND_EXPORT_MACRO; - struct BASILYS_OBJECT_STRUCT(3) dsym_1179__EXPORT_MACRO; - struct BASILYS_STRING_STRUCT(12) dstr_1180__EXPORT_MACRO; - struct BASILYS_ROUTINE_STRUCT(6) drout_1181__MEXPAND_EXPORT_PATMACRO; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1182__MEXPAND_EXPORT_PATMACRO; - struct BASILYS_OBJECT_STRUCT(3) dsym_1183__EXPORT_PATMACRO; - struct BASILYS_STRING_STRUCT(15) dstr_1184__EXPORT_PATMACRO; - struct BASILYS_ROUTINE_STRUCT(9) drout_1185__MEXPAND_EXPORT_CLASS; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1186__MEXPAND_EXPORT_CLASS; - struct BASILYS_ROUTINE_STRUCT(2) drout_1187__LAMBDA_; - struct BASILYS_OBJECT_STRUCT(3) dsym_1188__EXPORT_CLASS; - struct BASILYS_STRING_STRUCT(12) dstr_1189__EXPORT_CLASS; - struct BASILYS_ROUTINE_STRUCT(4) drout_1190__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1191__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct BASILYS_OBJECT_STRUCT(3) dsym_1192__CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct BASILYS_STRING_STRUCT(36) dstr_1193__CURRENT_MODULE_E; - struct BASILYS_ROUTINE_STRUCT(4) drout_1194__MEXPAND_PARENT_MODULE_ENVIRONMENT; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1195__MEXPAND_PARENT_MODULE_ENVIRONMENT; - struct BASILYS_OBJECT_STRUCT(3) dsym_1196__PARENT_MODULE_ENVIRONMENT; - struct BASILYS_STRING_STRUCT(25) dstr_1197__PARENT_MODULE_EN; - struct BASILYS_ROUTINE_STRUCT(4) drout_1198__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1199__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct BASILYS_OBJECT_STRUCT(3) dsym_1200__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct BASILYS_STRING_STRUCT(43) dstr_1201__UPDATE_CURRENT_M; - struct BASILYS_ROUTINE_STRUCT(6) drout_1202__MEXPAND_FETCH_PREDEFINED; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1203__MEXPAND_FETCH_PREDEFINED; - struct BASILYS_OBJECT_STRUCT(3) dsym_1204__FETCH_PREDEFINED; - struct BASILYS_STRING_STRUCT(16) dstr_1205__FETCH_PREDEFINED; - struct BASILYS_ROUTINE_STRUCT(6) drout_1206__MEXPAND_STORE_PREDEFINED; - struct BASILYS_CLOSURE_STRUCT(0) dclo_1207__MEXPAND_STORE_PREDEFINED; - struct BASILYS_OBJECT_STRUCT(3) dsym_1208__STORE_PREDEFINED; - struct BASILYS_STRING_STRUCT(16) dstr_1209__STORE_PREDEFINED; - struct BASILYS_OBJECT_STRUCT(3) dsym_1210__EXPAND_APPLY; - struct BASILYS_STRING_STRUCT(12) dstr_1211__EXPAND_APPLY; - struct BASILYS_OBJECT_STRUCT(3) dsym_1212__EXPAND_MSEND; - struct BASILYS_STRING_STRUCT(12) dstr_1213__EXPAND_MSEND; - struct BASILYS_OBJECT_STRUCT(3) dsym_1214__EXPAND_PAIRLIST_AS_TUPLE; - struct BASILYS_STRING_STRUCT(24) dstr_1215__EXPAND_PAIRLIST_; - struct BASILYS_OBJECT_STRUCT(3) dsym_1216__EXPAND_PRIMITIVE; - struct BASILYS_STRING_STRUCT(16) dstr_1217__EXPAND_PRIMITIVE; - struct BASILYS_OBJECT_STRUCT(3) dsym_1218__INSTALL_INITIAL_MACRO; - struct BASILYS_STRING_STRUCT(21) dstr_1219__INSTALL_INITIAL_; - struct BASILYS_OBJECT_STRUCT(3) dsym_1220__LAMBDA_ARG_BINDINGS; - struct BASILYS_STRING_STRUCT(19) dstr_1221__LAMBDA_ARG_BINDI; - struct BASILYS_OBJECT_STRUCT(3) dsym_1222__MACROEXPAND_1; - struct BASILYS_STRING_STRUCT(13) dstr_1223__MACROEXPAND_1; - struct BASILYS_OBJECT_STRUCT(3) dsym_1224__MACROEXPAND_TOPLEVEL_LIST; - struct BASILYS_STRING_STRUCT(25) dstr_1225__MACROEXPAND_TOPL; - struct BASILYS_OBJECT_STRUCT(3) dsym_1226__PATTERNEXPAND_1; - struct BASILYS_STRING_STRUCT(15) dstr_1227__PATTERNEXPAND_1; - struct BASILYS_OBJECT_STRUCT(3) dsym_1228__PATTERNEXPAND_EXPR; - struct BASILYS_STRING_STRUCT(18) dstr_1229__PATTERNEXPAND_EX; - struct BASILYS_OBJECT_STRUCT(3) dsym_1230__PATTERNEXPAND_PAIRLIST_AS_TUPLE; - struct BASILYS_STRING_STRUCT(31) dstr_1231__PATTERNEXPAND_PA; + struct BASILYS_OBJECT_STRUCT(3) dsym_1114__LAMBDA; + struct BASILYS_STRING_STRUCT(6) dstr_1115__LAMBDA; + struct BASILYS_ROUTINE_STRUCT(13) drout_1116__MEXPAND_MULTICALL; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1117__MEXPAND_MULTICALL; + struct BASILYS_ROUTINE_STRUCT(1) drout_1118__LAMBDA_; + struct BASILYS_ROUTINE_STRUCT(1) drout_1119__LAMBDA_; + struct BASILYS_OBJECT_STRUCT(3) dsym_1120__MULTICALL; + struct BASILYS_STRING_STRUCT(9) dstr_1121__MULTICALL; + struct BASILYS_ROUTINE_STRUCT(5) drout_1122__MEXPAND_QUOTE; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1123__MEXPAND_QUOTE; + struct BASILYS_OBJECT_STRUCT(3) dsym_1124__QUOTE; + struct BASILYS_STRING_STRUCT(5) dstr_1125__QUOTE; + struct BASILYS_ROUTINE_STRUCT(3) drout_1126__MEXPAND_COMMENT; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1127__MEXPAND_COMMENT; + struct BASILYS_OBJECT_STRUCT(3) dsym_1128__COMMENT; + struct BASILYS_STRING_STRUCT(7) dstr_1129__COMMENT; + struct BASILYS_ROUTINE_STRUCT(7) drout_1130__PAIRLIST_TO_PROGN; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1131__PAIRLIST_TO_PROGN; + struct BASILYS_ROUTINE_STRUCT(1) drout_1132__LAMBDA_; + struct BASILYS_ROUTINE_STRUCT(6) drout_1133__PAIRLIST_TO_RETURN; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1134__PAIRLIST_TO_RETURN; + struct BASILYS_ROUTINE_STRUCT(1) drout_1135__LAMBDA_; + struct BASILYS_ROUTINE_STRUCT(2) drout_1136__MEXPAND_PROGN; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1137__MEXPAND_PROGN; + struct BASILYS_OBJECT_STRUCT(3) dsym_1138__PROGN; + struct BASILYS_STRING_STRUCT(5) dstr_1139__PROGN; + struct BASILYS_ROUTINE_STRUCT(2) drout_1140__MEXPAND_RETURN; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1141__MEXPAND_RETURN; + struct BASILYS_OBJECT_STRUCT(3) dsym_1142__RETURN; + struct BASILYS_STRING_STRUCT(6) dstr_1143__RETURN; + struct BASILYS_ROUTINE_STRUCT(11) drout_1144__MEXPAND_FOREVER; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1145__MEXPAND_FOREVER; + struct BASILYS_OBJECT_STRUCT(3) dsym_1146__CLASS_LABEL_BINDING; + struct BASILYS_STRING_STRUCT(19) dstr_1147__CLASS_LABEL_BIND; + struct BASILYS_ROUTINE_STRUCT(1) drout_1148__LAMBDA_; + struct BASILYS_OBJECT_STRUCT(3) dsym_1149__FOREVER; + struct BASILYS_STRING_STRUCT(7) dstr_1150__FOREVER; + struct BASILYS_ROUTINE_STRUCT(11) drout_1151__MEXPAND_EXIT; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1152__MEXPAND_EXIT; + struct BASILYS_ROUTINE_STRUCT(1) drout_1153__LAMBDA_; + struct BASILYS_OBJECT_STRUCT(3) dsym_1154__EXIT; + struct BASILYS_STRING_STRUCT(4) dstr_1155__EXIT; + struct BASILYS_ROUTINE_STRUCT(4) drout_1156__MEXPAND_COMPILE_WARNING; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1157__MEXPAND_COMPILE_WARNING; + struct BASILYS_OBJECT_STRUCT(3) dsym_1158__COMPILE_WARNING; + struct BASILYS_STRING_STRUCT(15) dstr_1159__COMPILE_WARNING; + struct BASILYS_ROUTINE_STRUCT(16) drout_1160__MEXPAND_ASSERT_MSG; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1161__MEXPAND_ASSERT_MSG; + struct BASILYS_OBJECT_STRUCT(3) dsym_1162__ASSERT_FAILED; + struct BASILYS_STRING_STRUCT(13) dstr_1163__ASSERT_FAILED; + struct BASILYS_OBJECT_STRUCT(3) dsym_1164__FIND_ENV_DEBUG; + struct BASILYS_STRING_STRUCT(14) dstr_1165__FIND_ENV_DEBUG; + struct BASILYS_OBJECT_STRUCT(3) dsym_1166__ENABLE_CHECKING; + struct BASILYS_STRING_STRUCT(15) dstr_1167__ENABLE_CHECKING; + struct BASILYS_OBJECT_STRUCT(3) dsym_1168__ASSERT_MSG; + struct BASILYS_STRING_STRUCT(10) dstr_1169__ASSERT_MSG; + struct BASILYS_ROUTINE_STRUCT(12) drout_1170__MEXPAND_DEBUG_MSG; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1171__MEXPAND_DEBUG_MSG; + struct BASILYS_OBJECT_STRUCT(3) dsym_1172__THE_CALLCOUNT; + struct BASILYS_STRING_STRUCT(13) dstr_1173__THE_CALLCOUNT; + struct BASILYS_OBJECT_STRUCT(3) dsym_1174__DEBUG_MSG; + struct BASILYS_STRING_STRUCT(9) dstr_1175__DEBUG_MSG; + struct BASILYS_ROUTINE_STRUCT(10) drout_1176__MEXPAND_EXPORT_VALUES; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1177__MEXPAND_EXPORT_VALUES; + struct BASILYS_ROUTINE_STRUCT(3) drout_1178__LAMBDA_; + struct BASILYS_OBJECT_STRUCT(3) dsym_1179__DEBUGMSG; + struct BASILYS_STRING_STRUCT(8) dstr_1180__DEBUGMSG; + struct BASILYS_OBJECT_STRUCT(3) dsym_1181__EXPORT_VALUES; + struct BASILYS_STRING_STRUCT(13) dstr_1182__EXPORT_VALUES; + struct BASILYS_ROUTINE_STRUCT(6) drout_1183__MEXPAND_EXPORT_MACRO; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1184__MEXPAND_EXPORT_MACRO; + struct BASILYS_OBJECT_STRUCT(3) dsym_1185__EXPORT_MACRO; + struct BASILYS_STRING_STRUCT(12) dstr_1186__EXPORT_MACRO; + struct BASILYS_ROUTINE_STRUCT(6) drout_1187__MEXPAND_EXPORT_PATMACRO; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1188__MEXPAND_EXPORT_PATMACRO; + struct BASILYS_OBJECT_STRUCT(3) dsym_1189__EXPORT_PATMACRO; + struct BASILYS_STRING_STRUCT(15) dstr_1190__EXPORT_PATMACRO; + struct BASILYS_ROUTINE_STRUCT(9) drout_1191__MEXPAND_EXPORT_CLASS; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1192__MEXPAND_EXPORT_CLASS; + struct BASILYS_ROUTINE_STRUCT(2) drout_1193__LAMBDA_; + struct BASILYS_OBJECT_STRUCT(3) dsym_1194__EXPORT_CLASS; + struct BASILYS_STRING_STRUCT(12) dstr_1195__EXPORT_CLASS; + struct BASILYS_ROUTINE_STRUCT(4) drout_1196__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1197__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct BASILYS_OBJECT_STRUCT(3) dsym_1198__CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct BASILYS_STRING_STRUCT(36) dstr_1199__CURRENT_MODULE_E; + struct BASILYS_ROUTINE_STRUCT(4) drout_1200__MEXPAND_PARENT_MODULE_ENVIRONMENT; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1201__MEXPAND_PARENT_MODULE_ENVIRONMENT; + struct BASILYS_OBJECT_STRUCT(3) dsym_1202__PARENT_MODULE_ENVIRONMENT; + struct BASILYS_STRING_STRUCT(25) dstr_1203__PARENT_MODULE_EN; + struct BASILYS_ROUTINE_STRUCT(4) drout_1204__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1205__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct BASILYS_OBJECT_STRUCT(3) dsym_1206__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct BASILYS_STRING_STRUCT(43) dstr_1207__UPDATE_CURRENT_M; + struct BASILYS_ROUTINE_STRUCT(6) drout_1208__MEXPAND_FETCH_PREDEFINED; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1209__MEXPAND_FETCH_PREDEFINED; + struct BASILYS_OBJECT_STRUCT(3) dsym_1210__FETCH_PREDEFINED; + struct BASILYS_STRING_STRUCT(16) dstr_1211__FETCH_PREDEFINED; + struct BASILYS_ROUTINE_STRUCT(6) drout_1212__MEXPAND_STORE_PREDEFINED; + struct BASILYS_CLOSURE_STRUCT(0) dclo_1213__MEXPAND_STORE_PREDEFINED; + struct BASILYS_OBJECT_STRUCT(3) dsym_1214__STORE_PREDEFINED; + struct BASILYS_STRING_STRUCT(16) dstr_1215__STORE_PREDEFINED; + struct BASILYS_OBJECT_STRUCT(3) dsym_1216__EXPAND_APPLY; + struct BASILYS_STRING_STRUCT(12) dstr_1217__EXPAND_APPLY; + struct BASILYS_OBJECT_STRUCT(3) dsym_1218__EXPAND_MSEND; + struct BASILYS_STRING_STRUCT(12) dstr_1219__EXPAND_MSEND; + struct BASILYS_OBJECT_STRUCT(3) dsym_1220__EXPAND_PAIRLIST_AS_TUPLE; + struct BASILYS_STRING_STRUCT(24) dstr_1221__EXPAND_PAIRLIST_; + struct BASILYS_OBJECT_STRUCT(3) dsym_1222__EXPAND_PRIMITIVE; + struct BASILYS_STRING_STRUCT(16) dstr_1223__EXPAND_PRIMITIVE; + struct BASILYS_OBJECT_STRUCT(3) dsym_1224__INSTALL_INITIAL_MACRO; + struct BASILYS_STRING_STRUCT(21) dstr_1225__INSTALL_INITIAL_; + struct BASILYS_OBJECT_STRUCT(3) dsym_1226__LAMBDA_ARG_BINDINGS; + struct BASILYS_STRING_STRUCT(19) dstr_1227__LAMBDA_ARG_BINDI; + struct BASILYS_OBJECT_STRUCT(3) dsym_1228__MACROEXPAND_1; + struct BASILYS_STRING_STRUCT(13) dstr_1229__MACROEXPAND_1; + struct BASILYS_OBJECT_STRUCT(3) dsym_1230__MACROEXPAND_TOPLEVEL_LIST; + struct BASILYS_STRING_STRUCT(25) dstr_1231__MACROEXPAND_TOPL; + struct BASILYS_OBJECT_STRUCT(3) dsym_1232__PATTERNEXPAND_1; + struct BASILYS_STRING_STRUCT(15) dstr_1233__PATTERNEXPAND_1; + struct BASILYS_OBJECT_STRUCT(3) dsym_1234__PATTERNEXPAND_EXPR; + struct BASILYS_STRING_STRUCT(18) dstr_1235__PATTERNEXPAND_EX; + struct BASILYS_OBJECT_STRUCT(3) dsym_1236__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + struct BASILYS_STRING_STRUCT(31) dstr_1237__PATTERNEXPAND_PA; long spare_; } *cdat = NULL; cdat = (struct cdata_st*) basilysgc_allocate(sizeof(*cdat),0); @@ -44322,7 +45877,7 @@ static void initialize_module_cdata(initial_frame_st *iniframp__, char predefini /*initial routine fill*/ /*iniobj dsym_1__CLASS_SRC_APPLY*/ - if (!/*_.VALDATA___V62*/ curfptr[61]) /*_.VALDATA___V62*/ curfptr[61] = (void*)&cdat->dsym_1__CLASS_SRC_APPLY; + if (!/*_.VALDATA___V63*/ curfptr[62]) /*_.VALDATA___V63*/ curfptr[62] = (void*)&cdat->dsym_1__CLASS_SRC_APPLY; basilys_assertmsg("iniobj checkdiscr dsym_1__CLASS_SRC_APPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1__CLASS_SRC_APPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1__CLASS_SRC_APPLY.obj_hash = 211549998; @@ -44330,12 +45885,12 @@ static void initialize_module_cdata(initial_frame_st *iniframp__, char predefini basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1__CLASS_SRC_APPLY)); /*inistring dstr_2__CLASS_SRC_APPLY*/ - /*_.VALSTR___V63*/ curfptr[62] = (void*)&cdat->dstr_2__CLASS_SRC_APPLY; + /*_.VALSTR___V64*/ curfptr[63] = (void*)&cdat->dstr_2__CLASS_SRC_APPLY; cdat->dstr_2__CLASS_SRC_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_2__CLASS_SRC_APPLY.val, "CLASS_SRC_APPLY"); /*iniobj dsym_3__CLASS_SRC*/ - if (!/*_.VALDATA___V64*/ curfptr[63]) /*_.VALDATA___V64*/ curfptr[63] = (void*)&cdat->dsym_3__CLASS_SRC; + if (!/*_.VALDATA___V65*/ curfptr[64]) /*_.VALDATA___V65*/ curfptr[64] = (void*)&cdat->dsym_3__CLASS_SRC; basilys_assertmsg("iniobj checkdiscr dsym_3__CLASS_SRC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_3__CLASS_SRC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_3__CLASS_SRC.obj_hash = 631779221; @@ -44343,35 +45898,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1__CLASS_SRC_APPLY) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_3__CLASS_SRC)); /*inistring dstr_4__CLASS_SRC*/ - /*_.VALSTR___V65*/ curfptr[64] = (void*)&cdat->dstr_4__CLASS_SRC; + /*_.VALSTR___V66*/ curfptr[65] = (void*)&cdat->dstr_4__CLASS_SRC; cdat->dstr_4__CLASS_SRC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_4__CLASS_SRC.val, "CLASS_SRC"); BASILYS_LOCATION("warmelt-macro.bysl:39:/ iniobj"); /*iniobj dobj_5__CLASS_SRC_APPLY*/ - if (!/*_.VALDATA___V66*/ curfptr[65]) /*_.VALDATA___V66*/ curfptr[65] = (void*)&cdat->dobj_5__CLASS_SRC_APPLY; + if (!/*_.VALDATA___V67*/ curfptr[66]) /*_.VALDATA___V67*/ curfptr[66] = (void*)&cdat->dobj_5__CLASS_SRC_APPLY; 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 = 249976259; + cdat->dobj_5__CLASS_SRC_APPLY.obj_hash = 536975977; cdat->dobj_5__CLASS_SRC_APPLY.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_5__CLASS_SRC_APPLY)); /*inistring dstr_6__CLASS_SRC_APPLY*/ - /*_.VALSTR___V67*/ curfptr[66] = (void*)&cdat->dstr_6__CLASS_SRC_APPLY; + /*_.VALSTR___V68*/ curfptr[67] = (void*)&cdat->dstr_6__CLASS_SRC_APPLY; cdat->dstr_6__CLASS_SRC_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_6__CLASS_SRC_APPLY.val, "CLASS_SRC_APPLY"); /*inimult dtup_7__CLASS_SRC_APPLY*/ - /*_.VALTUP___V68*/ curfptr[67] = (void*)&cdat->dtup_7__CLASS_SRC_APPLY; + /*_.VALTUP___V69*/ curfptr[68] = (void*)&cdat->dtup_7__CLASS_SRC_APPLY; cdat->dtup_7__CLASS_SRC_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_7__CLASS_SRC_APPLY.nbval = 2; /*inimult dtup_8__CLASS_SRC_APPLY*/ - /*_.VALTUP___V73*/ curfptr[72] = (void*)&cdat->dtup_8__CLASS_SRC_APPLY; + /*_.VALTUP___V74*/ curfptr[73] = (void*)&cdat->dtup_8__CLASS_SRC_APPLY; cdat->dtup_8__CLASS_SRC_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_8__CLASS_SRC_APPLY.nbval = 3; /*iniobj dsym_9__SAPP_FUN*/ - if (!/*_.VALDATA___V74*/ curfptr[73]) /*_.VALDATA___V74*/ curfptr[73] = (void*)&cdat->dsym_9__SAPP_FUN; + if (!/*_.VALDATA___V75*/ curfptr[74]) /*_.VALDATA___V75*/ curfptr[74] = (void*)&cdat->dsym_9__SAPP_FUN; basilys_assertmsg("iniobj checkdiscr dsym_9__SAPP_FUN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_9__SAPP_FUN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_9__SAPP_FUN.obj_hash = 218083126; @@ -44379,27 +45934,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_5__CLASS_SRC_APPLY) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_9__SAPP_FUN)); /*inistring dstr_10__SAPP_FUN*/ - /*_.VALSTR___V75*/ curfptr[74] = (void*)&cdat->dstr_10__SAPP_FUN; + /*_.VALSTR___V76*/ curfptr[75] = (void*)&cdat->dstr_10__SAPP_FUN; cdat->dstr_10__SAPP_FUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_10__SAPP_FUN.val, "SAPP_FUN"); BASILYS_LOCATION("warmelt-macro.bysl:39:/ iniobj"); /*iniobj dobj_11__SAPP_FUN*/ - if (!/*_.VALDATA___V69*/ curfptr[68]) /*_.VALDATA___V69*/ curfptr[68] = (void*)&cdat->dobj_11__SAPP_FUN; + if (!/*_.VALDATA___V70*/ curfptr[69]) /*_.VALDATA___V70*/ curfptr[69] = (void*)&cdat->dobj_11__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 = 279715079; + cdat->dobj_11__SAPP_FUN.obj_hash = 702467901; cdat->dobj_11__SAPP_FUN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_11__SAPP_FUN)); /*inistring dstr_12__SAPP_FUN*/ - /*_.VALSTR___V70*/ curfptr[69] = (void*)&cdat->dstr_12__SAPP_FUN; + /*_.VALSTR___V71*/ curfptr[70] = (void*)&cdat->dstr_12__SAPP_FUN; cdat->dstr_12__SAPP_FUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_12__SAPP_FUN.val, "SAPP_FUN"); /*iniobj dsym_13__SAPP_ARGS*/ - if (!/*_.VALDATA___V76*/ curfptr[75]) /*_.VALDATA___V76*/ curfptr[75] = (void*)&cdat->dsym_13__SAPP_ARGS; + if (!/*_.VALDATA___V77*/ curfptr[76]) /*_.VALDATA___V77*/ curfptr[76] = (void*)&cdat->dsym_13__SAPP_ARGS; basilys_assertmsg("iniobj checkdiscr dsym_13__SAPP_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_13__SAPP_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_13__SAPP_ARGS.obj_hash = 1008192927; @@ -44407,27 +45962,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_11__SAPP_FUN)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_13__SAPP_ARGS)); /*inistring dstr_14__SAPP_ARGS*/ - /*_.VALSTR___V77*/ curfptr[76] = (void*)&cdat->dstr_14__SAPP_ARGS; + /*_.VALSTR___V78*/ curfptr[77] = (void*)&cdat->dstr_14__SAPP_ARGS; cdat->dstr_14__SAPP_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_14__SAPP_ARGS.val, "SAPP_ARGS"); BASILYS_LOCATION("warmelt-macro.bysl:39:/ iniobj"); /*iniobj dobj_15__SAPP_ARGS*/ - if (!/*_.VALDATA___V71*/ curfptr[70]) /*_.VALDATA___V71*/ curfptr[70] = (void*)&cdat->dobj_15__SAPP_ARGS; + if (!/*_.VALDATA___V72*/ curfptr[71]) /*_.VALDATA___V72*/ curfptr[71] = (void*)&cdat->dobj_15__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 = 738579013; + cdat->dobj_15__SAPP_ARGS.obj_hash = 881610370; cdat->dobj_15__SAPP_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_15__SAPP_ARGS)); /*inistring dstr_16__SAPP_ARGS*/ - /*_.VALSTR___V72*/ curfptr[71] = (void*)&cdat->dstr_16__SAPP_ARGS; + /*_.VALSTR___V73*/ curfptr[72] = (void*)&cdat->dstr_16__SAPP_ARGS; cdat->dstr_16__SAPP_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_16__SAPP_ARGS.val, "SAPP_ARGS"); /*iniobj dsym_17__CLASS_SRC_MSEND*/ - if (!/*_.VALDATA___V78*/ curfptr[77]) /*_.VALDATA___V78*/ curfptr[77] = (void*)&cdat->dsym_17__CLASS_SRC_MSEND; + if (!/*_.VALDATA___V79*/ curfptr[78]) /*_.VALDATA___V79*/ curfptr[78] = (void*)&cdat->dsym_17__CLASS_SRC_MSEND; basilys_assertmsg("iniobj checkdiscr dsym_17__CLASS_SRC_MSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_17__CLASS_SRC_MSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_17__CLASS_SRC_MSEND.obj_hash = 768655685; @@ -44435,35 +45990,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_15__SAPP_ARGS)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_17__CLASS_SRC_MSEND)); /*inistring dstr_18__CLASS_SRC_MSEND*/ - /*_.VALSTR___V79*/ curfptr[78] = (void*)&cdat->dstr_18__CLASS_SRC_MSEND; + /*_.VALSTR___V80*/ curfptr[79] = (void*)&cdat->dstr_18__CLASS_SRC_MSEND; cdat->dstr_18__CLASS_SRC_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_18__CLASS_SRC_MSEND.val, "CLASS_SRC_MSEND"); BASILYS_LOCATION("warmelt-macro.bysl:47:/ iniobj"); /*iniobj dobj_19__CLASS_SRC_MSEND*/ - if (!/*_.VALDATA___V80*/ curfptr[79]) /*_.VALDATA___V80*/ curfptr[79] = (void*)&cdat->dobj_19__CLASS_SRC_MSEND; + if (!/*_.VALDATA___V81*/ curfptr[80]) /*_.VALDATA___V81*/ curfptr[80] = (void*)&cdat->dobj_19__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 = 31651392; + cdat->dobj_19__CLASS_SRC_MSEND.obj_hash = 1058972355; cdat->dobj_19__CLASS_SRC_MSEND.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_19__CLASS_SRC_MSEND)); /*inistring dstr_20__CLASS_SRC_MSEND*/ - /*_.VALSTR___V81*/ curfptr[80] = (void*)&cdat->dstr_20__CLASS_SRC_MSEND; + /*_.VALSTR___V82*/ curfptr[81] = (void*)&cdat->dstr_20__CLASS_SRC_MSEND; cdat->dstr_20__CLASS_SRC_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_20__CLASS_SRC_MSEND.val, "CLASS_SRC_MSEND"); /*inimult dtup_21__CLASS_SRC_MSEND*/ - /*_.VALTUP___V82*/ curfptr[81] = (void*)&cdat->dtup_21__CLASS_SRC_MSEND; + /*_.VALTUP___V83*/ curfptr[82] = (void*)&cdat->dtup_21__CLASS_SRC_MSEND; cdat->dtup_21__CLASS_SRC_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_21__CLASS_SRC_MSEND.nbval = 2; /*inimult dtup_22__CLASS_SRC_MSEND*/ - /*_.VALTUP___V89*/ curfptr[88] = (void*)&cdat->dtup_22__CLASS_SRC_MSEND; + /*_.VALTUP___V90*/ curfptr[89] = (void*)&cdat->dtup_22__CLASS_SRC_MSEND; cdat->dtup_22__CLASS_SRC_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_22__CLASS_SRC_MSEND.nbval = 4; /*iniobj dsym_23__MSEND_SELSYMB*/ - if (!/*_.VALDATA___V90*/ curfptr[89]) /*_.VALDATA___V90*/ curfptr[89] = (void*)&cdat->dsym_23__MSEND_SELSYMB; + if (!/*_.VALDATA___V91*/ curfptr[90]) /*_.VALDATA___V91*/ curfptr[90] = (void*)&cdat->dsym_23__MSEND_SELSYMB; basilys_assertmsg("iniobj checkdiscr dsym_23__MSEND_SELSYMB", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_23__MSEND_SELSYMB.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_23__MSEND_SELSYMB.obj_hash = 864994865; @@ -44471,27 +46026,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_19__CLASS_SRC_MSEND basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_23__MSEND_SELSYMB)); /*inistring dstr_24__MSEND_SELSYMB*/ - /*_.VALSTR___V91*/ curfptr[90] = (void*)&cdat->dstr_24__MSEND_SELSYMB; + /*_.VALSTR___V92*/ curfptr[91] = (void*)&cdat->dstr_24__MSEND_SELSYMB; cdat->dstr_24__MSEND_SELSYMB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_24__MSEND_SELSYMB.val, "MSEND_SELSYMB"); BASILYS_LOCATION("warmelt-macro.bysl:47:/ iniobj"); /*iniobj dobj_25__MSEND_SELSYMB*/ - if (!/*_.VALDATA___V83*/ curfptr[82]) /*_.VALDATA___V83*/ curfptr[82] = (void*)&cdat->dobj_25__MSEND_SELSYMB; + if (!/*_.VALDATA___V84*/ curfptr[83]) /*_.VALDATA___V84*/ curfptr[83] = (void*)&cdat->dobj_25__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 = 874191040; + cdat->dobj_25__MSEND_SELSYMB.obj_hash = 96457679; cdat->dobj_25__MSEND_SELSYMB.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_25__MSEND_SELSYMB)); /*inistring dstr_26__MSEND_SELSYMB*/ - /*_.VALSTR___V84*/ curfptr[83] = (void*)&cdat->dstr_26__MSEND_SELSYMB; + /*_.VALSTR___V85*/ curfptr[84] = (void*)&cdat->dstr_26__MSEND_SELSYMB; cdat->dstr_26__MSEND_SELSYMB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_26__MSEND_SELSYMB.val, "MSEND_SELSYMB"); /*iniobj dsym_27__MSEND_RECV*/ - if (!/*_.VALDATA___V92*/ curfptr[91]) /*_.VALDATA___V92*/ curfptr[91] = (void*)&cdat->dsym_27__MSEND_RECV; + if (!/*_.VALDATA___V93*/ curfptr[92]) /*_.VALDATA___V93*/ curfptr[92] = (void*)&cdat->dsym_27__MSEND_RECV; basilys_assertmsg("iniobj checkdiscr dsym_27__MSEND_RECV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_27__MSEND_RECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_27__MSEND_RECV.obj_hash = 1050966842; @@ -44499,27 +46054,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_25__MSEND_SELSYMB)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_27__MSEND_RECV)); /*inistring dstr_28__MSEND_RECV*/ - /*_.VALSTR___V93*/ curfptr[92] = (void*)&cdat->dstr_28__MSEND_RECV; + /*_.VALSTR___V94*/ curfptr[93] = (void*)&cdat->dstr_28__MSEND_RECV; cdat->dstr_28__MSEND_RECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_28__MSEND_RECV.val, "MSEND_RECV"); BASILYS_LOCATION("warmelt-macro.bysl:47:/ iniobj"); /*iniobj dobj_29__MSEND_RECV*/ - if (!/*_.VALDATA___V85*/ curfptr[84]) /*_.VALDATA___V85*/ curfptr[84] = (void*)&cdat->dobj_29__MSEND_RECV; + if (!/*_.VALDATA___V86*/ curfptr[85]) /*_.VALDATA___V86*/ curfptr[85] = (void*)&cdat->dobj_29__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 = 867602962; + cdat->dobj_29__MSEND_RECV.obj_hash = 610414842; cdat->dobj_29__MSEND_RECV.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_29__MSEND_RECV)); /*inistring dstr_30__MSEND_RECV*/ - /*_.VALSTR___V86*/ curfptr[85] = (void*)&cdat->dstr_30__MSEND_RECV; + /*_.VALSTR___V87*/ curfptr[86] = (void*)&cdat->dstr_30__MSEND_RECV; cdat->dstr_30__MSEND_RECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_30__MSEND_RECV.val, "MSEND_RECV"); /*iniobj dsym_31__MSEND_ARGS*/ - if (!/*_.VALDATA___V94*/ curfptr[93]) /*_.VALDATA___V94*/ curfptr[93] = (void*)&cdat->dsym_31__MSEND_ARGS; + if (!/*_.VALDATA___V95*/ curfptr[94]) /*_.VALDATA___V95*/ curfptr[94] = (void*)&cdat->dsym_31__MSEND_ARGS; basilys_assertmsg("iniobj checkdiscr dsym_31__MSEND_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_31__MSEND_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_31__MSEND_ARGS.obj_hash = 641642630; @@ -44527,27 +46082,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_29__MSEND_RECV)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_31__MSEND_ARGS)); /*inistring dstr_32__MSEND_ARGS*/ - /*_.VALSTR___V95*/ curfptr[94] = (void*)&cdat->dstr_32__MSEND_ARGS; + /*_.VALSTR___V96*/ curfptr[95] = (void*)&cdat->dstr_32__MSEND_ARGS; cdat->dstr_32__MSEND_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_32__MSEND_ARGS.val, "MSEND_ARGS"); BASILYS_LOCATION("warmelt-macro.bysl:47:/ iniobj"); /*iniobj dobj_33__MSEND_ARGS*/ - if (!/*_.VALDATA___V87*/ curfptr[86]) /*_.VALDATA___V87*/ curfptr[86] = (void*)&cdat->dobj_33__MSEND_ARGS; + if (!/*_.VALDATA___V88*/ curfptr[87]) /*_.VALDATA___V88*/ curfptr[87] = (void*)&cdat->dobj_33__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 = 308421514; + cdat->dobj_33__MSEND_ARGS.obj_hash = 905815844; cdat->dobj_33__MSEND_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_33__MSEND_ARGS)); /*inistring dstr_34__MSEND_ARGS*/ - /*_.VALSTR___V88*/ curfptr[87] = (void*)&cdat->dstr_34__MSEND_ARGS; + /*_.VALSTR___V89*/ curfptr[88] = (void*)&cdat->dstr_34__MSEND_ARGS; cdat->dstr_34__MSEND_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_34__MSEND_ARGS.val, "MSEND_ARGS"); /*iniobj dsym_35__CLASS_SRC_PRIMITIVE*/ - if (!/*_.VALDATA___V96*/ curfptr[95]) /*_.VALDATA___V96*/ curfptr[95] = (void*)&cdat->dsym_35__CLASS_SRC_PRIMITIVE; + if (!/*_.VALDATA___V97*/ curfptr[96]) /*_.VALDATA___V97*/ curfptr[96] = (void*)&cdat->dsym_35__CLASS_SRC_PRIMITIVE; basilys_assertmsg("iniobj checkdiscr dsym_35__CLASS_SRC_PRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_35__CLASS_SRC_PRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_35__CLASS_SRC_PRIMITIVE.obj_hash = 1034909242; @@ -44555,35 +46110,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_33__MSEND_ARGS)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_35__CLASS_SRC_PRIMITIVE)); /*inistring dstr_36__CLASS_SRC_PRIMIT*/ - /*_.VALSTR___V97*/ curfptr[96] = (void*)&cdat->dstr_36__CLASS_SRC_PRIMIT; + /*_.VALSTR___V98*/ curfptr[97] = (void*)&cdat->dstr_36__CLASS_SRC_PRIMIT; cdat->dstr_36__CLASS_SRC_PRIMIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_36__CLASS_SRC_PRIMIT.val, "CLASS_SRC_PRIMITIVE"); BASILYS_LOCATION("warmelt-macro.bysl:56:/ iniobj"); /*iniobj dobj_37__CLASS_SRC_PRIMITIVE*/ - if (!/*_.VALDATA___V98*/ curfptr[97]) /*_.VALDATA___V98*/ curfptr[97] = (void*)&cdat->dobj_37__CLASS_SRC_PRIMITIVE; + if (!/*_.VALDATA___V99*/ curfptr[98]) /*_.VALDATA___V99*/ curfptr[98] = (void*)&cdat->dobj_37__CLASS_SRC_PRIMITIVE; 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 = 432904372; + cdat->dobj_37__CLASS_SRC_PRIMITIVE.obj_hash = 722953931; cdat->dobj_37__CLASS_SRC_PRIMITIVE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_37__CLASS_SRC_PRIMITIVE)); /*inistring dstr_38__CLASS_SRC_PRIMIT*/ - /*_.VALSTR___V99*/ curfptr[98] = (void*)&cdat->dstr_38__CLASS_SRC_PRIMIT; + /*_.VALSTR___V100*/ curfptr[99] = (void*)&cdat->dstr_38__CLASS_SRC_PRIMIT; cdat->dstr_38__CLASS_SRC_PRIMIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_38__CLASS_SRC_PRIMIT.val, "CLASS_SRC_PRIMITIVE"); /*inimult dtup_39__CLASS_SRC_PRIMITIVE*/ - /*_.VALTUP___V100*/ curfptr[99] = (void*)&cdat->dtup_39__CLASS_SRC_PRIMITIVE; + /*_.VALTUP___V101*/ curfptr[100] = (void*)&cdat->dtup_39__CLASS_SRC_PRIMITIVE; cdat->dtup_39__CLASS_SRC_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_39__CLASS_SRC_PRIMITIVE.nbval = 2; /*inimult dtup_40__CLASS_SRC_PRIMITIVE*/ - /*_.VALTUP___V105*/ curfptr[104] = (void*)&cdat->dtup_40__CLASS_SRC_PRIMITIVE; + /*_.VALTUP___V106*/ curfptr[105] = (void*)&cdat->dtup_40__CLASS_SRC_PRIMITIVE; cdat->dtup_40__CLASS_SRC_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_40__CLASS_SRC_PRIMITIVE.nbval = 3; /*iniobj dsym_41__SPRIM_OPER*/ - if (!/*_.VALDATA___V106*/ curfptr[105]) /*_.VALDATA___V106*/ curfptr[105] = (void*)&cdat->dsym_41__SPRIM_OPER; + if (!/*_.VALDATA___V107*/ curfptr[106]) /*_.VALDATA___V107*/ curfptr[106] = (void*)&cdat->dsym_41__SPRIM_OPER; basilys_assertmsg("iniobj checkdiscr dsym_41__SPRIM_OPER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_41__SPRIM_OPER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_41__SPRIM_OPER.obj_hash = 400545277; @@ -44591,27 +46146,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_37__CLASS_SRC_PRIMI basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_41__SPRIM_OPER)); /*inistring dstr_42__SPRIM_OPER*/ - /*_.VALSTR___V107*/ curfptr[106] = (void*)&cdat->dstr_42__SPRIM_OPER; + /*_.VALSTR___V108*/ curfptr[107] = (void*)&cdat->dstr_42__SPRIM_OPER; cdat->dstr_42__SPRIM_OPER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_42__SPRIM_OPER.val, "SPRIM_OPER"); BASILYS_LOCATION("warmelt-macro.bysl:56:/ iniobj"); /*iniobj dobj_43__SPRIM_OPER*/ - if (!/*_.VALDATA___V101*/ curfptr[100]) /*_.VALDATA___V101*/ curfptr[100] = (void*)&cdat->dobj_43__SPRIM_OPER; + if (!/*_.VALDATA___V102*/ curfptr[101]) /*_.VALDATA___V102*/ curfptr[101] = (void*)&cdat->dobj_43__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 = 425988042; + cdat->dobj_43__SPRIM_OPER.obj_hash = 851296109; cdat->dobj_43__SPRIM_OPER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_43__SPRIM_OPER)); /*inistring dstr_44__SPRIM_OPER*/ - /*_.VALSTR___V102*/ curfptr[101] = (void*)&cdat->dstr_44__SPRIM_OPER; + /*_.VALSTR___V103*/ curfptr[102] = (void*)&cdat->dstr_44__SPRIM_OPER; cdat->dstr_44__SPRIM_OPER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_44__SPRIM_OPER.val, "SPRIM_OPER"); /*iniobj dsym_45__SPRIM_ARGS*/ - if (!/*_.VALDATA___V108*/ curfptr[107]) /*_.VALDATA___V108*/ curfptr[107] = (void*)&cdat->dsym_45__SPRIM_ARGS; + if (!/*_.VALDATA___V109*/ curfptr[108]) /*_.VALDATA___V109*/ curfptr[108] = (void*)&cdat->dsym_45__SPRIM_ARGS; basilys_assertmsg("iniobj checkdiscr dsym_45__SPRIM_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_45__SPRIM_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_45__SPRIM_ARGS.obj_hash = 481103113; @@ -44619,27 +46174,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_43__SPRIM_OPER)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_45__SPRIM_ARGS)); /*inistring dstr_46__SPRIM_ARGS*/ - /*_.VALSTR___V109*/ curfptr[108] = (void*)&cdat->dstr_46__SPRIM_ARGS; + /*_.VALSTR___V110*/ curfptr[109] = (void*)&cdat->dstr_46__SPRIM_ARGS; cdat->dstr_46__SPRIM_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_46__SPRIM_ARGS.val, "SPRIM_ARGS"); BASILYS_LOCATION("warmelt-macro.bysl:56:/ iniobj"); /*iniobj dobj_47__SPRIM_ARGS*/ - if (!/*_.VALDATA___V103*/ curfptr[102]) /*_.VALDATA___V103*/ curfptr[102] = (void*)&cdat->dobj_47__SPRIM_ARGS; + if (!/*_.VALDATA___V104*/ curfptr[103]) /*_.VALDATA___V104*/ curfptr[103] = (void*)&cdat->dobj_47__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 = 150590212; + cdat->dobj_47__SPRIM_ARGS.obj_hash = 964940276; cdat->dobj_47__SPRIM_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_47__SPRIM_ARGS)); /*inistring dstr_48__SPRIM_ARGS*/ - /*_.VALSTR___V104*/ curfptr[103] = (void*)&cdat->dstr_48__SPRIM_ARGS; + /*_.VALSTR___V105*/ curfptr[104] = (void*)&cdat->dstr_48__SPRIM_ARGS; cdat->dstr_48__SPRIM_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_48__SPRIM_ARGS.val, "SPRIM_ARGS"); /*iniobj dsym_49__CLASS_SRC_CITERATION*/ - if (!/*_.VALDATA___V110*/ curfptr[109]) /*_.VALDATA___V110*/ curfptr[109] = (void*)&cdat->dsym_49__CLASS_SRC_CITERATION; + if (!/*_.VALDATA___V111*/ curfptr[110]) /*_.VALDATA___V111*/ curfptr[110] = (void*)&cdat->dsym_49__CLASS_SRC_CITERATION; basilys_assertmsg("iniobj checkdiscr dsym_49__CLASS_SRC_CITERATION", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_49__CLASS_SRC_CITERATION.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_49__CLASS_SRC_CITERATION.obj_hash = 838255763; @@ -44647,35 +46202,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_47__SPRIM_ARGS)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_49__CLASS_SRC_CITERATION)); /*inistring dstr_50__CLASS_SRC_CITERA*/ - /*_.VALSTR___V111*/ curfptr[110] = (void*)&cdat->dstr_50__CLASS_SRC_CITERA; + /*_.VALSTR___V112*/ curfptr[111] = (void*)&cdat->dstr_50__CLASS_SRC_CITERA; cdat->dstr_50__CLASS_SRC_CITERA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_50__CLASS_SRC_CITERA.val, "CLASS_SRC_CITERATION"); BASILYS_LOCATION("warmelt-macro.bysl:63:/ iniobj"); /*iniobj dobj_51__CLASS_SRC_CITERATION*/ - if (!/*_.VALDATA___V112*/ curfptr[111]) /*_.VALDATA___V112*/ curfptr[111] = (void*)&cdat->dobj_51__CLASS_SRC_CITERATION; + if (!/*_.VALDATA___V113*/ curfptr[112]) /*_.VALDATA___V113*/ curfptr[112] = (void*)&cdat->dobj_51__CLASS_SRC_CITERATION; 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 = 462438583; + cdat->dobj_51__CLASS_SRC_CITERATION.obj_hash = 830566813; cdat->dobj_51__CLASS_SRC_CITERATION.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_51__CLASS_SRC_CITERATION)); /*inistring dstr_52__CLASS_SRC_CITERA*/ - /*_.VALSTR___V113*/ curfptr[112] = (void*)&cdat->dstr_52__CLASS_SRC_CITERA; + /*_.VALSTR___V114*/ curfptr[113] = (void*)&cdat->dstr_52__CLASS_SRC_CITERA; cdat->dstr_52__CLASS_SRC_CITERA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_52__CLASS_SRC_CITERA.val, "CLASS_SRC_CITERATION"); /*inimult dtup_53__CLASS_SRC_CITERATION*/ - /*_.VALTUP___V114*/ curfptr[113] = (void*)&cdat->dtup_53__CLASS_SRC_CITERATION; + /*_.VALTUP___V115*/ curfptr[114] = (void*)&cdat->dtup_53__CLASS_SRC_CITERATION; cdat->dtup_53__CLASS_SRC_CITERATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_53__CLASS_SRC_CITERATION.nbval = 2; /*inimult dtup_54__CLASS_SRC_CITERATION*/ - /*_.VALTUP___V123*/ curfptr[122] = (void*)&cdat->dtup_54__CLASS_SRC_CITERATION; + /*_.VALTUP___V124*/ curfptr[123] = (void*)&cdat->dtup_54__CLASS_SRC_CITERATION; cdat->dtup_54__CLASS_SRC_CITERATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_54__CLASS_SRC_CITERATION.nbval = 5; /*iniobj dsym_55__SCITER_OPER*/ - if (!/*_.VALDATA___V124*/ curfptr[123]) /*_.VALDATA___V124*/ curfptr[123] = (void*)&cdat->dsym_55__SCITER_OPER; + if (!/*_.VALDATA___V125*/ curfptr[124]) /*_.VALDATA___V125*/ curfptr[124] = (void*)&cdat->dsym_55__SCITER_OPER; basilys_assertmsg("iniobj checkdiscr dsym_55__SCITER_OPER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_55__SCITER_OPER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_55__SCITER_OPER.obj_hash = 662216556; @@ -44683,27 +46238,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_51__CLASS_SRC_CITER basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_55__SCITER_OPER)); /*inistring dstr_56__SCITER_OPER*/ - /*_.VALSTR___V125*/ curfptr[124] = (void*)&cdat->dstr_56__SCITER_OPER; + /*_.VALSTR___V126*/ curfptr[125] = (void*)&cdat->dstr_56__SCITER_OPER; cdat->dstr_56__SCITER_OPER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_56__SCITER_OPER.val, "SCITER_OPER"); BASILYS_LOCATION("warmelt-macro.bysl:63:/ iniobj"); /*iniobj dobj_57__SCITER_OPER*/ - if (!/*_.VALDATA___V115*/ curfptr[114]) /*_.VALDATA___V115*/ curfptr[114] = (void*)&cdat->dobj_57__SCITER_OPER; + if (!/*_.VALDATA___V116*/ curfptr[115]) /*_.VALDATA___V116*/ curfptr[115] = (void*)&cdat->dobj_57__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 = 1069065807; + cdat->dobj_57__SCITER_OPER.obj_hash = 259233500; cdat->dobj_57__SCITER_OPER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_57__SCITER_OPER)); /*inistring dstr_58__SCITER_OPER*/ - /*_.VALSTR___V116*/ curfptr[115] = (void*)&cdat->dstr_58__SCITER_OPER; + /*_.VALSTR___V117*/ curfptr[116] = (void*)&cdat->dstr_58__SCITER_OPER; cdat->dstr_58__SCITER_OPER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_58__SCITER_OPER.val, "SCITER_OPER"); /*iniobj dsym_59__SCITER_ARGS*/ - if (!/*_.VALDATA___V126*/ curfptr[125]) /*_.VALDATA___V126*/ curfptr[125] = (void*)&cdat->dsym_59__SCITER_ARGS; + if (!/*_.VALDATA___V127*/ curfptr[126]) /*_.VALDATA___V127*/ curfptr[126] = (void*)&cdat->dsym_59__SCITER_ARGS; basilys_assertmsg("iniobj checkdiscr dsym_59__SCITER_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_59__SCITER_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_59__SCITER_ARGS.obj_hash = 971029928; @@ -44711,27 +46266,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_57__SCITER_OPER)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_59__SCITER_ARGS)); /*inistring dstr_60__SCITER_ARGS*/ - /*_.VALSTR___V127*/ curfptr[126] = (void*)&cdat->dstr_60__SCITER_ARGS; + /*_.VALSTR___V128*/ curfptr[127] = (void*)&cdat->dstr_60__SCITER_ARGS; cdat->dstr_60__SCITER_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_60__SCITER_ARGS.val, "SCITER_ARGS"); BASILYS_LOCATION("warmelt-macro.bysl:63:/ iniobj"); /*iniobj dobj_61__SCITER_ARGS*/ - if (!/*_.VALDATA___V117*/ curfptr[116]) /*_.VALDATA___V117*/ curfptr[116] = (void*)&cdat->dobj_61__SCITER_ARGS; + if (!/*_.VALDATA___V118*/ curfptr[117]) /*_.VALDATA___V118*/ curfptr[117] = (void*)&cdat->dobj_61__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 = 1019424076; + cdat->dobj_61__SCITER_ARGS.obj_hash = 1033522989; cdat->dobj_61__SCITER_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_61__SCITER_ARGS)); /*inistring dstr_62__SCITER_ARGS*/ - /*_.VALSTR___V118*/ curfptr[117] = (void*)&cdat->dstr_62__SCITER_ARGS; + /*_.VALSTR___V119*/ curfptr[118] = (void*)&cdat->dstr_62__SCITER_ARGS; cdat->dstr_62__SCITER_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_62__SCITER_ARGS.val, "SCITER_ARGS"); /*iniobj dsym_63__SCITER_VARBIND*/ - if (!/*_.VALDATA___V128*/ curfptr[127]) /*_.VALDATA___V128*/ curfptr[127] = (void*)&cdat->dsym_63__SCITER_VARBIND; + if (!/*_.VALDATA___V129*/ curfptr[128]) /*_.VALDATA___V129*/ curfptr[128] = (void*)&cdat->dsym_63__SCITER_VARBIND; basilys_assertmsg("iniobj checkdiscr dsym_63__SCITER_VARBIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_63__SCITER_VARBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_63__SCITER_VARBIND.obj_hash = 394324639; @@ -44739,27 +46294,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_61__SCITER_ARGS)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_63__SCITER_VARBIND)); /*inistring dstr_64__SCITER_VARBIND*/ - /*_.VALSTR___V129*/ curfptr[128] = (void*)&cdat->dstr_64__SCITER_VARBIND; + /*_.VALSTR___V130*/ curfptr[129] = (void*)&cdat->dstr_64__SCITER_VARBIND; cdat->dstr_64__SCITER_VARBIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_64__SCITER_VARBIND.val, "SCITER_VARBIND"); BASILYS_LOCATION("warmelt-macro.bysl:63:/ iniobj"); /*iniobj dobj_65__SCITER_VARBIND*/ - if (!/*_.VALDATA___V119*/ curfptr[118]) /*_.VALDATA___V119*/ curfptr[118] = (void*)&cdat->dobj_65__SCITER_VARBIND; + if (!/*_.VALDATA___V120*/ curfptr[119]) /*_.VALDATA___V120*/ curfptr[119] = (void*)&cdat->dobj_65__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 = 630611425; + cdat->dobj_65__SCITER_VARBIND.obj_hash = 76256840; cdat->dobj_65__SCITER_VARBIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_65__SCITER_VARBIND)); /*inistring dstr_66__SCITER_VARBIND*/ - /*_.VALSTR___V120*/ curfptr[119] = (void*)&cdat->dstr_66__SCITER_VARBIND; + /*_.VALSTR___V121*/ curfptr[120] = (void*)&cdat->dstr_66__SCITER_VARBIND; cdat->dstr_66__SCITER_VARBIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_66__SCITER_VARBIND.val, "SCITER_VARBIND"); /*iniobj dsym_67__SCITER_BODY*/ - if (!/*_.VALDATA___V130*/ curfptr[129]) /*_.VALDATA___V130*/ curfptr[129] = (void*)&cdat->dsym_67__SCITER_BODY; + if (!/*_.VALDATA___V131*/ curfptr[130]) /*_.VALDATA___V131*/ curfptr[130] = (void*)&cdat->dsym_67__SCITER_BODY; basilys_assertmsg("iniobj checkdiscr dsym_67__SCITER_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_67__SCITER_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_67__SCITER_BODY.obj_hash = 751320796; @@ -44767,27 +46322,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_65__SCITER_VARBIND) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_67__SCITER_BODY)); /*inistring dstr_68__SCITER_BODY*/ - /*_.VALSTR___V131*/ curfptr[130] = (void*)&cdat->dstr_68__SCITER_BODY; + /*_.VALSTR___V132*/ curfptr[131] = (void*)&cdat->dstr_68__SCITER_BODY; cdat->dstr_68__SCITER_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_68__SCITER_BODY.val, "SCITER_BODY"); BASILYS_LOCATION("warmelt-macro.bysl:63:/ iniobj"); /*iniobj dobj_69__SCITER_BODY*/ - if (!/*_.VALDATA___V121*/ curfptr[120]) /*_.VALDATA___V121*/ curfptr[120] = (void*)&cdat->dobj_69__SCITER_BODY; + if (!/*_.VALDATA___V122*/ curfptr[121]) /*_.VALDATA___V122*/ curfptr[121] = (void*)&cdat->dobj_69__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 = 503292508; + cdat->dobj_69__SCITER_BODY.obj_hash = 854333021; cdat->dobj_69__SCITER_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_69__SCITER_BODY)); /*inistring dstr_70__SCITER_BODY*/ - /*_.VALSTR___V122*/ curfptr[121] = (void*)&cdat->dstr_70__SCITER_BODY; + /*_.VALSTR___V123*/ curfptr[122] = (void*)&cdat->dstr_70__SCITER_BODY; cdat->dstr_70__SCITER_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_70__SCITER_BODY.val, "SCITER_BODY"); /*iniobj dsym_71__CLASS_SRC_CMATCHEXPR*/ - if (!/*_.VALDATA___V132*/ curfptr[131]) /*_.VALDATA___V132*/ curfptr[131] = (void*)&cdat->dsym_71__CLASS_SRC_CMATCHEXPR; + if (!/*_.VALDATA___V133*/ curfptr[132]) /*_.VALDATA___V133*/ curfptr[132] = (void*)&cdat->dsym_71__CLASS_SRC_CMATCHEXPR; basilys_assertmsg("iniobj checkdiscr dsym_71__CLASS_SRC_CMATCHEXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_71__CLASS_SRC_CMATCHEXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_71__CLASS_SRC_CMATCHEXPR.obj_hash = 780726572; @@ -44795,35 +46350,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_69__SCITER_BODY)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_71__CLASS_SRC_CMATCHEXPR)); /*inistring dstr_72__CLASS_SRC_CMATCH*/ - /*_.VALSTR___V133*/ curfptr[132] = (void*)&cdat->dstr_72__CLASS_SRC_CMATCH; + /*_.VALSTR___V134*/ curfptr[133] = (void*)&cdat->dstr_72__CLASS_SRC_CMATCH; cdat->dstr_72__CLASS_SRC_CMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_72__CLASS_SRC_CMATCH.val, "CLASS_SRC_CMATCHEXPR"); BASILYS_LOCATION("warmelt-macro.bysl:72:/ iniobj"); /*iniobj dobj_73__CLASS_SRC_CMATCHEXPR*/ - if (!/*_.VALDATA___V134*/ curfptr[133]) /*_.VALDATA___V134*/ curfptr[133] = (void*)&cdat->dobj_73__CLASS_SRC_CMATCHEXPR; + if (!/*_.VALDATA___V135*/ curfptr[134]) /*_.VALDATA___V135*/ curfptr[134] = (void*)&cdat->dobj_73__CLASS_SRC_CMATCHEXPR; 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 = 794130733; + cdat->dobj_73__CLASS_SRC_CMATCHEXPR.obj_hash = 961581031; cdat->dobj_73__CLASS_SRC_CMATCHEXPR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_73__CLASS_SRC_CMATCHEXPR)); /*inistring dstr_74__CLASS_SRC_CMATCH*/ - /*_.VALSTR___V135*/ curfptr[134] = (void*)&cdat->dstr_74__CLASS_SRC_CMATCH; + /*_.VALSTR___V136*/ curfptr[135] = (void*)&cdat->dstr_74__CLASS_SRC_CMATCH; cdat->dstr_74__CLASS_SRC_CMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_74__CLASS_SRC_CMATCH.val, "CLASS_SRC_CMATCHEXPR"); /*inimult dtup_75__CLASS_SRC_CMATCHEXPR*/ - /*_.VALTUP___V136*/ curfptr[135] = (void*)&cdat->dtup_75__CLASS_SRC_CMATCHEXPR; + /*_.VALTUP___V137*/ curfptr[136] = (void*)&cdat->dtup_75__CLASS_SRC_CMATCHEXPR; cdat->dtup_75__CLASS_SRC_CMATCHEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_75__CLASS_SRC_CMATCHEXPR.nbval = 2; /*inimult dtup_76__CLASS_SRC_CMATCHEXPR*/ - /*_.VALTUP___V141*/ curfptr[140] = (void*)&cdat->dtup_76__CLASS_SRC_CMATCHEXPR; + /*_.VALTUP___V142*/ curfptr[141] = (void*)&cdat->dtup_76__CLASS_SRC_CMATCHEXPR; cdat->dtup_76__CLASS_SRC_CMATCHEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_76__CLASS_SRC_CMATCHEXPR.nbval = 3; /*iniobj dsym_77__SCMATX_CMATCHER*/ - if (!/*_.VALDATA___V142*/ curfptr[141]) /*_.VALDATA___V142*/ curfptr[141] = (void*)&cdat->dsym_77__SCMATX_CMATCHER; + if (!/*_.VALDATA___V143*/ curfptr[142]) /*_.VALDATA___V143*/ curfptr[142] = (void*)&cdat->dsym_77__SCMATX_CMATCHER; basilys_assertmsg("iniobj checkdiscr dsym_77__SCMATX_CMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_77__SCMATX_CMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_77__SCMATX_CMATCHER.obj_hash = 479043970; @@ -44831,27 +46386,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_73__CLASS_SRC_CMATC basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_77__SCMATX_CMATCHER)); /*inistring dstr_78__SCMATX_CMATCHER*/ - /*_.VALSTR___V143*/ curfptr[142] = (void*)&cdat->dstr_78__SCMATX_CMATCHER; + /*_.VALSTR___V144*/ curfptr[143] = (void*)&cdat->dstr_78__SCMATX_CMATCHER; cdat->dstr_78__SCMATX_CMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_78__SCMATX_CMATCHER.val, "SCMATX_CMATCHER"); BASILYS_LOCATION("warmelt-macro.bysl:72:/ iniobj"); /*iniobj dobj_79__SCMATX_CMATCHER*/ - if (!/*_.VALDATA___V137*/ curfptr[136]) /*_.VALDATA___V137*/ curfptr[136] = (void*)&cdat->dobj_79__SCMATX_CMATCHER; + if (!/*_.VALDATA___V138*/ curfptr[137]) /*_.VALDATA___V138*/ curfptr[137] = (void*)&cdat->dobj_79__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 = 438989071; + cdat->dobj_79__SCMATX_CMATCHER.obj_hash = 864745345; cdat->dobj_79__SCMATX_CMATCHER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_79__SCMATX_CMATCHER)); /*inistring dstr_80__SCMATX_CMATCHER*/ - /*_.VALSTR___V138*/ curfptr[137] = (void*)&cdat->dstr_80__SCMATX_CMATCHER; + /*_.VALSTR___V139*/ curfptr[138] = (void*)&cdat->dstr_80__SCMATX_CMATCHER; cdat->dstr_80__SCMATX_CMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_80__SCMATX_CMATCHER.val, "SCMATX_CMATCHER"); /*iniobj dsym_81__SCMATX_ARGS*/ - if (!/*_.VALDATA___V144*/ curfptr[143]) /*_.VALDATA___V144*/ curfptr[143] = (void*)&cdat->dsym_81__SCMATX_ARGS; + if (!/*_.VALDATA___V145*/ curfptr[144]) /*_.VALDATA___V145*/ curfptr[144] = (void*)&cdat->dsym_81__SCMATX_ARGS; basilys_assertmsg("iniobj checkdiscr dsym_81__SCMATX_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_81__SCMATX_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_81__SCMATX_ARGS.obj_hash = 88791474; @@ -44859,27 +46414,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_79__SCMATX_CMATCHER basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_81__SCMATX_ARGS)); /*inistring dstr_82__SCMATX_ARGS*/ - /*_.VALSTR___V145*/ curfptr[144] = (void*)&cdat->dstr_82__SCMATX_ARGS; + /*_.VALSTR___V146*/ curfptr[145] = (void*)&cdat->dstr_82__SCMATX_ARGS; cdat->dstr_82__SCMATX_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_82__SCMATX_ARGS.val, "SCMATX_ARGS"); BASILYS_LOCATION("warmelt-macro.bysl:72:/ iniobj"); /*iniobj dobj_83__SCMATX_ARGS*/ - if (!/*_.VALDATA___V139*/ curfptr[138]) /*_.VALDATA___V139*/ curfptr[138] = (void*)&cdat->dobj_83__SCMATX_ARGS; + if (!/*_.VALDATA___V140*/ curfptr[139]) /*_.VALDATA___V140*/ curfptr[139] = (void*)&cdat->dobj_83__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 = 841395128; + cdat->dobj_83__SCMATX_ARGS.obj_hash = 775183590; cdat->dobj_83__SCMATX_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_83__SCMATX_ARGS)); /*inistring dstr_84__SCMATX_ARGS*/ - /*_.VALSTR___V140*/ curfptr[139] = (void*)&cdat->dstr_84__SCMATX_ARGS; + /*_.VALSTR___V141*/ curfptr[140] = (void*)&cdat->dstr_84__SCMATX_ARGS; cdat->dstr_84__SCMATX_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_84__SCMATX_ARGS.val, "SCMATX_ARGS"); /*iniobj dsym_85__CLASS_SRC_PROGN*/ - if (!/*_.VALDATA___V146*/ curfptr[145]) /*_.VALDATA___V146*/ curfptr[145] = (void*)&cdat->dsym_85__CLASS_SRC_PROGN; + if (!/*_.VALDATA___V147*/ curfptr[146]) /*_.VALDATA___V147*/ curfptr[146] = (void*)&cdat->dsym_85__CLASS_SRC_PROGN; basilys_assertmsg("iniobj checkdiscr dsym_85__CLASS_SRC_PROGN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_85__CLASS_SRC_PROGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_85__CLASS_SRC_PROGN.obj_hash = 215682296; @@ -44887,35 +46442,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_83__SCMATX_ARGS)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_85__CLASS_SRC_PROGN)); /*inistring dstr_86__CLASS_SRC_PROGN*/ - /*_.VALSTR___V147*/ curfptr[146] = (void*)&cdat->dstr_86__CLASS_SRC_PROGN; + /*_.VALSTR___V148*/ curfptr[147] = (void*)&cdat->dstr_86__CLASS_SRC_PROGN; cdat->dstr_86__CLASS_SRC_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_86__CLASS_SRC_PROGN.val, "CLASS_SRC_PROGN"); BASILYS_LOCATION("warmelt-macro.bysl:79:/ iniobj"); /*iniobj dobj_87__CLASS_SRC_PROGN*/ - if (!/*_.VALDATA___V148*/ curfptr[147]) /*_.VALDATA___V148*/ curfptr[147] = (void*)&cdat->dobj_87__CLASS_SRC_PROGN; + if (!/*_.VALDATA___V149*/ curfptr[148]) /*_.VALDATA___V149*/ curfptr[148] = (void*)&cdat->dobj_87__CLASS_SRC_PROGN; basilys_assertmsg("iniobj checkdiscr dobj_87__CLASS_SRC_PROGN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_87__CLASS_SRC_PROGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_87__CLASS_SRC_PROGN.obj_num = OBMAG_OBJECT; - cdat->dobj_87__CLASS_SRC_PROGN.obj_hash = 355978863; + cdat->dobj_87__CLASS_SRC_PROGN.obj_hash = 1498105; cdat->dobj_87__CLASS_SRC_PROGN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_87__CLASS_SRC_PROGN)); /*inistring dstr_88__CLASS_SRC_PROGN*/ - /*_.VALSTR___V149*/ curfptr[148] = (void*)&cdat->dstr_88__CLASS_SRC_PROGN; + /*_.VALSTR___V150*/ curfptr[149] = (void*)&cdat->dstr_88__CLASS_SRC_PROGN; cdat->dstr_88__CLASS_SRC_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_88__CLASS_SRC_PROGN.val, "CLASS_SRC_PROGN"); /*inimult dtup_89__CLASS_SRC_PROGN*/ - /*_.VALTUP___V150*/ curfptr[149] = (void*)&cdat->dtup_89__CLASS_SRC_PROGN; + /*_.VALTUP___V151*/ curfptr[150] = (void*)&cdat->dtup_89__CLASS_SRC_PROGN; cdat->dtup_89__CLASS_SRC_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_89__CLASS_SRC_PROGN.nbval = 2; /*inimult dtup_90__CLASS_SRC_PROGN*/ - /*_.VALTUP___V153*/ curfptr[152] = (void*)&cdat->dtup_90__CLASS_SRC_PROGN; + /*_.VALTUP___V154*/ curfptr[153] = (void*)&cdat->dtup_90__CLASS_SRC_PROGN; cdat->dtup_90__CLASS_SRC_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_90__CLASS_SRC_PROGN.nbval = 2; /*iniobj dsym_91__SPROGN_BODY*/ - if (!/*_.VALDATA___V154*/ curfptr[153]) /*_.VALDATA___V154*/ curfptr[153] = (void*)&cdat->dsym_91__SPROGN_BODY; + if (!/*_.VALDATA___V155*/ curfptr[154]) /*_.VALDATA___V155*/ curfptr[154] = (void*)&cdat->dsym_91__SPROGN_BODY; basilys_assertmsg("iniobj checkdiscr dsym_91__SPROGN_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_91__SPROGN_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_91__SPROGN_BODY.obj_hash = 1027893439; @@ -44923,27 +46478,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_87__CLASS_SRC_PROGN basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_91__SPROGN_BODY)); /*inistring dstr_92__SPROGN_BODY*/ - /*_.VALSTR___V155*/ curfptr[154] = (void*)&cdat->dstr_92__SPROGN_BODY; + /*_.VALSTR___V156*/ curfptr[155] = (void*)&cdat->dstr_92__SPROGN_BODY; cdat->dstr_92__SPROGN_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_92__SPROGN_BODY.val, "SPROGN_BODY"); BASILYS_LOCATION("warmelt-macro.bysl:79:/ iniobj"); /*iniobj dobj_93__SPROGN_BODY*/ - if (!/*_.VALDATA___V151*/ curfptr[150]) /*_.VALDATA___V151*/ curfptr[150] = (void*)&cdat->dobj_93__SPROGN_BODY; + if (!/*_.VALDATA___V152*/ curfptr[151]) /*_.VALDATA___V152*/ curfptr[151] = (void*)&cdat->dobj_93__SPROGN_BODY; basilys_assertmsg("iniobj checkdiscr dobj_93__SPROGN_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_93__SPROGN_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_93__SPROGN_BODY.obj_num = 1; - cdat->dobj_93__SPROGN_BODY.obj_hash = 349018215; + cdat->dobj_93__SPROGN_BODY.obj_hash = 452994231; cdat->dobj_93__SPROGN_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_93__SPROGN_BODY)); /*inistring dstr_94__SPROGN_BODY*/ - /*_.VALSTR___V152*/ curfptr[151] = (void*)&cdat->dstr_94__SPROGN_BODY; + /*_.VALSTR___V153*/ curfptr[152] = (void*)&cdat->dstr_94__SPROGN_BODY; cdat->dstr_94__SPROGN_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_94__SPROGN_BODY.val, "SPROGN_BODY"); /*iniobj dsym_95__CLASS_SRC_RETURN*/ - if (!/*_.VALDATA___V156*/ curfptr[155]) /*_.VALDATA___V156*/ curfptr[155] = (void*)&cdat->dsym_95__CLASS_SRC_RETURN; + if (!/*_.VALDATA___V157*/ curfptr[156]) /*_.VALDATA___V157*/ curfptr[156] = (void*)&cdat->dsym_95__CLASS_SRC_RETURN; basilys_assertmsg("iniobj checkdiscr dsym_95__CLASS_SRC_RETURN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_95__CLASS_SRC_RETURN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_95__CLASS_SRC_RETURN.obj_hash = 1046953653; @@ -44951,35 +46506,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_93__SPROGN_BODY)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_95__CLASS_SRC_RETURN)); /*inistring dstr_96__CLASS_SRC_RETURN*/ - /*_.VALSTR___V157*/ curfptr[156] = (void*)&cdat->dstr_96__CLASS_SRC_RETURN; + /*_.VALSTR___V158*/ curfptr[157] = (void*)&cdat->dstr_96__CLASS_SRC_RETURN; cdat->dstr_96__CLASS_SRC_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_96__CLASS_SRC_RETURN.val, "CLASS_SRC_RETURN"); BASILYS_LOCATION("warmelt-macro.bysl:85:/ iniobj"); /*iniobj dobj_97__CLASS_SRC_RETURN*/ - if (!/*_.VALDATA___V158*/ curfptr[157]) /*_.VALDATA___V158*/ curfptr[157] = (void*)&cdat->dobj_97__CLASS_SRC_RETURN; + if (!/*_.VALDATA___V159*/ curfptr[158]) /*_.VALDATA___V159*/ curfptr[158] = (void*)&cdat->dobj_97__CLASS_SRC_RETURN; basilys_assertmsg("iniobj checkdiscr dobj_97__CLASS_SRC_RETURN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_97__CLASS_SRC_RETURN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_97__CLASS_SRC_RETURN.obj_num = OBMAG_OBJECT; - cdat->dobj_97__CLASS_SRC_RETURN.obj_hash = 796164979; + cdat->dobj_97__CLASS_SRC_RETURN.obj_hash = 12679451; cdat->dobj_97__CLASS_SRC_RETURN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_97__CLASS_SRC_RETURN)); /*inistring dstr_98__CLASS_SRC_RETURN*/ - /*_.VALSTR___V159*/ curfptr[158] = (void*)&cdat->dstr_98__CLASS_SRC_RETURN; + /*_.VALSTR___V160*/ curfptr[159] = (void*)&cdat->dstr_98__CLASS_SRC_RETURN; cdat->dstr_98__CLASS_SRC_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_98__CLASS_SRC_RETURN.val, "CLASS_SRC_RETURN"); /*inimult dtup_99__CLASS_SRC_RETURN*/ - /*_.VALTUP___V160*/ curfptr[159] = (void*)&cdat->dtup_99__CLASS_SRC_RETURN; + /*_.VALTUP___V161*/ curfptr[160] = (void*)&cdat->dtup_99__CLASS_SRC_RETURN; cdat->dtup_99__CLASS_SRC_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_99__CLASS_SRC_RETURN.nbval = 2; /*inimult dtup_100__CLASS_SRC_RETURN*/ - /*_.VALTUP___V163*/ curfptr[162] = (void*)&cdat->dtup_100__CLASS_SRC_RETURN; + /*_.VALTUP___V164*/ curfptr[163] = (void*)&cdat->dtup_100__CLASS_SRC_RETURN; cdat->dtup_100__CLASS_SRC_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_100__CLASS_SRC_RETURN.nbval = 2; /*iniobj dsym_101__SRETURN_BODY*/ - if (!/*_.VALDATA___V164*/ curfptr[163]) /*_.VALDATA___V164*/ curfptr[163] = (void*)&cdat->dsym_101__SRETURN_BODY; + if (!/*_.VALDATA___V165*/ curfptr[164]) /*_.VALDATA___V165*/ curfptr[164] = (void*)&cdat->dsym_101__SRETURN_BODY; basilys_assertmsg("iniobj checkdiscr dsym_101__SRETURN_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_101__SRETURN_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_101__SRETURN_BODY.obj_hash = 806021346; @@ -44987,27 +46542,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_97__CLASS_SRC_RETUR basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_101__SRETURN_BODY)); /*inistring dstr_102__SRETURN_BODY*/ - /*_.VALSTR___V165*/ curfptr[164] = (void*)&cdat->dstr_102__SRETURN_BODY; + /*_.VALSTR___V166*/ curfptr[165] = (void*)&cdat->dstr_102__SRETURN_BODY; cdat->dstr_102__SRETURN_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_102__SRETURN_BODY.val, "SRETURN_BODY"); BASILYS_LOCATION("warmelt-macro.bysl:85:/ iniobj"); /*iniobj dobj_103__SRETURN_BODY*/ - if (!/*_.VALDATA___V161*/ curfptr[160]) /*_.VALDATA___V161*/ curfptr[160] = (void*)&cdat->dobj_103__SRETURN_BODY; + if (!/*_.VALDATA___V162*/ curfptr[161]) /*_.VALDATA___V162*/ curfptr[161] = (void*)&cdat->dobj_103__SRETURN_BODY; basilys_assertmsg("iniobj checkdiscr dobj_103__SRETURN_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_103__SRETURN_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_103__SRETURN_BODY.obj_num = 1; - cdat->dobj_103__SRETURN_BODY.obj_hash = 666463455; + cdat->dobj_103__SRETURN_BODY.obj_hash = 739864226; cdat->dobj_103__SRETURN_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_103__SRETURN_BODY)); /*inistring dstr_104__SRETURN_BODY*/ - /*_.VALSTR___V162*/ curfptr[161] = (void*)&cdat->dstr_104__SRETURN_BODY; + /*_.VALSTR___V163*/ curfptr[162] = (void*)&cdat->dstr_104__SRETURN_BODY; cdat->dstr_104__SRETURN_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_104__SRETURN_BODY.val, "SRETURN_BODY"); /*iniobj dsym_105__CLASS_SRC_SETQ*/ - if (!/*_.VALDATA___V166*/ curfptr[165]) /*_.VALDATA___V166*/ curfptr[165] = (void*)&cdat->dsym_105__CLASS_SRC_SETQ; + if (!/*_.VALDATA___V167*/ curfptr[166]) /*_.VALDATA___V167*/ curfptr[166] = (void*)&cdat->dsym_105__CLASS_SRC_SETQ; basilys_assertmsg("iniobj checkdiscr dsym_105__CLASS_SRC_SETQ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_105__CLASS_SRC_SETQ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_105__CLASS_SRC_SETQ.obj_hash = 989224332; @@ -45015,35 +46570,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_103__SRETURN_BODY)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_105__CLASS_SRC_SETQ)); /*inistring dstr_106__CLASS_SRC_SETQ*/ - /*_.VALSTR___V167*/ curfptr[166] = (void*)&cdat->dstr_106__CLASS_SRC_SETQ; + /*_.VALSTR___V168*/ curfptr[167] = (void*)&cdat->dstr_106__CLASS_SRC_SETQ; cdat->dstr_106__CLASS_SRC_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_106__CLASS_SRC_SETQ.val, "CLASS_SRC_SETQ"); BASILYS_LOCATION("warmelt-macro.bysl:91:/ iniobj"); /*iniobj dobj_107__CLASS_SRC_SETQ*/ - if (!/*_.VALDATA___V168*/ curfptr[167]) /*_.VALDATA___V168*/ curfptr[167] = (void*)&cdat->dobj_107__CLASS_SRC_SETQ; + if (!/*_.VALDATA___V169*/ curfptr[168]) /*_.VALDATA___V169*/ curfptr[168] = (void*)&cdat->dobj_107__CLASS_SRC_SETQ; basilys_assertmsg("iniobj checkdiscr dobj_107__CLASS_SRC_SETQ", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_107__CLASS_SRC_SETQ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_107__CLASS_SRC_SETQ.obj_num = OBMAG_OBJECT; - cdat->dobj_107__CLASS_SRC_SETQ.obj_hash = 705219811; + cdat->dobj_107__CLASS_SRC_SETQ.obj_hash = 171961067; cdat->dobj_107__CLASS_SRC_SETQ.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_107__CLASS_SRC_SETQ)); /*inistring dstr_108__CLASS_SRC_SETQ*/ - /*_.VALSTR___V169*/ curfptr[168] = (void*)&cdat->dstr_108__CLASS_SRC_SETQ; + /*_.VALSTR___V170*/ curfptr[169] = (void*)&cdat->dstr_108__CLASS_SRC_SETQ; cdat->dstr_108__CLASS_SRC_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_108__CLASS_SRC_SETQ.val, "CLASS_SRC_SETQ"); /*inimult dtup_109__CLASS_SRC_SETQ*/ - /*_.VALTUP___V170*/ curfptr[169] = (void*)&cdat->dtup_109__CLASS_SRC_SETQ; + /*_.VALTUP___V171*/ curfptr[170] = (void*)&cdat->dtup_109__CLASS_SRC_SETQ; cdat->dtup_109__CLASS_SRC_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_109__CLASS_SRC_SETQ.nbval = 2; /*inimult dtup_110__CLASS_SRC_SETQ*/ - /*_.VALTUP___V175*/ curfptr[174] = (void*)&cdat->dtup_110__CLASS_SRC_SETQ; + /*_.VALTUP___V176*/ curfptr[175] = (void*)&cdat->dtup_110__CLASS_SRC_SETQ; cdat->dtup_110__CLASS_SRC_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_110__CLASS_SRC_SETQ.nbval = 3; /*iniobj dsym_111__SSTQ_VAR*/ - if (!/*_.VALDATA___V176*/ curfptr[175]) /*_.VALDATA___V176*/ curfptr[175] = (void*)&cdat->dsym_111__SSTQ_VAR; + if (!/*_.VALDATA___V177*/ curfptr[176]) /*_.VALDATA___V177*/ curfptr[176] = (void*)&cdat->dsym_111__SSTQ_VAR; basilys_assertmsg("iniobj checkdiscr dsym_111__SSTQ_VAR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_111__SSTQ_VAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_111__SSTQ_VAR.obj_hash = 140668190; @@ -45051,27 +46606,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_107__CLASS_SRC_SETQ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_111__SSTQ_VAR)); /*inistring dstr_112__SSTQ_VAR*/ - /*_.VALSTR___V177*/ curfptr[176] = (void*)&cdat->dstr_112__SSTQ_VAR; + /*_.VALSTR___V178*/ curfptr[177] = (void*)&cdat->dstr_112__SSTQ_VAR; cdat->dstr_112__SSTQ_VAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_112__SSTQ_VAR.val, "SSTQ_VAR"); BASILYS_LOCATION("warmelt-macro.bysl:91:/ iniobj"); /*iniobj dobj_113__SSTQ_VAR*/ - if (!/*_.VALDATA___V171*/ curfptr[170]) /*_.VALDATA___V171*/ curfptr[170] = (void*)&cdat->dobj_113__SSTQ_VAR; + if (!/*_.VALDATA___V172*/ curfptr[171]) /*_.VALDATA___V172*/ curfptr[171] = (void*)&cdat->dobj_113__SSTQ_VAR; basilys_assertmsg("iniobj checkdiscr dobj_113__SSTQ_VAR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_113__SSTQ_VAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_113__SSTQ_VAR.obj_num = 1; - cdat->dobj_113__SSTQ_VAR.obj_hash = 793080613; + cdat->dobj_113__SSTQ_VAR.obj_hash = 1002596669; cdat->dobj_113__SSTQ_VAR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_113__SSTQ_VAR)); /*inistring dstr_114__SSTQ_VAR*/ - /*_.VALSTR___V172*/ curfptr[171] = (void*)&cdat->dstr_114__SSTQ_VAR; + /*_.VALSTR___V173*/ curfptr[172] = (void*)&cdat->dstr_114__SSTQ_VAR; cdat->dstr_114__SSTQ_VAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_114__SSTQ_VAR.val, "SSTQ_VAR"); /*iniobj dsym_115__SSTQ_EXPR*/ - if (!/*_.VALDATA___V178*/ curfptr[177]) /*_.VALDATA___V178*/ curfptr[177] = (void*)&cdat->dsym_115__SSTQ_EXPR; + if (!/*_.VALDATA___V179*/ curfptr[178]) /*_.VALDATA___V179*/ curfptr[178] = (void*)&cdat->dsym_115__SSTQ_EXPR; basilys_assertmsg("iniobj checkdiscr dsym_115__SSTQ_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_115__SSTQ_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_115__SSTQ_EXPR.obj_hash = 13829252; @@ -45079,27 +46634,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_113__SSTQ_VAR)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_115__SSTQ_EXPR)); /*inistring dstr_116__SSTQ_EXPR*/ - /*_.VALSTR___V179*/ curfptr[178] = (void*)&cdat->dstr_116__SSTQ_EXPR; + /*_.VALSTR___V180*/ curfptr[179] = (void*)&cdat->dstr_116__SSTQ_EXPR; cdat->dstr_116__SSTQ_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_116__SSTQ_EXPR.val, "SSTQ_EXPR"); BASILYS_LOCATION("warmelt-macro.bysl:91:/ iniobj"); /*iniobj dobj_117__SSTQ_EXPR*/ - if (!/*_.VALDATA___V173*/ curfptr[172]) /*_.VALDATA___V173*/ curfptr[172] = (void*)&cdat->dobj_117__SSTQ_EXPR; + if (!/*_.VALDATA___V174*/ curfptr[173]) /*_.VALDATA___V174*/ curfptr[173] = (void*)&cdat->dobj_117__SSTQ_EXPR; basilys_assertmsg("iniobj checkdiscr dobj_117__SSTQ_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_117__SSTQ_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_117__SSTQ_EXPR.obj_num = 2; - cdat->dobj_117__SSTQ_EXPR.obj_hash = 31925154; + cdat->dobj_117__SSTQ_EXPR.obj_hash = 912098812; cdat->dobj_117__SSTQ_EXPR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_117__SSTQ_EXPR)); /*inistring dstr_118__SSTQ_EXPR*/ - /*_.VALSTR___V174*/ curfptr[173] = (void*)&cdat->dstr_118__SSTQ_EXPR; + /*_.VALSTR___V175*/ curfptr[174] = (void*)&cdat->dstr_118__SSTQ_EXPR; cdat->dstr_118__SSTQ_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_118__SSTQ_EXPR.val, "SSTQ_EXPR"); /*iniobj dsym_119__CLASS_SRC_COMMENT*/ - if (!/*_.VALDATA___V180*/ curfptr[179]) /*_.VALDATA___V180*/ curfptr[179] = (void*)&cdat->dsym_119__CLASS_SRC_COMMENT; + if (!/*_.VALDATA___V181*/ curfptr[180]) /*_.VALDATA___V181*/ curfptr[180] = (void*)&cdat->dsym_119__CLASS_SRC_COMMENT; basilys_assertmsg("iniobj checkdiscr dsym_119__CLASS_SRC_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_119__CLASS_SRC_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_119__CLASS_SRC_COMMENT.obj_hash = 30350897; @@ -45107,35 +46662,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_117__SSTQ_EXPR)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_119__CLASS_SRC_COMMENT)); /*inistring dstr_120__CLASS_SRC_COMMEN*/ - /*_.VALSTR___V181*/ curfptr[180] = (void*)&cdat->dstr_120__CLASS_SRC_COMMEN; + /*_.VALSTR___V182*/ curfptr[181] = (void*)&cdat->dstr_120__CLASS_SRC_COMMEN; cdat->dstr_120__CLASS_SRC_COMMEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_120__CLASS_SRC_COMMEN.val, "CLASS_SRC_COMMENT"); BASILYS_LOCATION("warmelt-macro.bysl:97:/ iniobj"); /*iniobj dobj_121__CLASS_SRC_COMMENT*/ - if (!/*_.VALDATA___V182*/ curfptr[181]) /*_.VALDATA___V182*/ curfptr[181] = (void*)&cdat->dobj_121__CLASS_SRC_COMMENT; + if (!/*_.VALDATA___V183*/ curfptr[182]) /*_.VALDATA___V183*/ curfptr[182] = (void*)&cdat->dobj_121__CLASS_SRC_COMMENT; basilys_assertmsg("iniobj checkdiscr dobj_121__CLASS_SRC_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_121__CLASS_SRC_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_121__CLASS_SRC_COMMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_121__CLASS_SRC_COMMENT.obj_hash = 27147318; + cdat->dobj_121__CLASS_SRC_COMMENT.obj_hash = 582427165; cdat->dobj_121__CLASS_SRC_COMMENT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_121__CLASS_SRC_COMMENT)); /*inistring dstr_122__CLASS_SRC_COMMEN*/ - /*_.VALSTR___V183*/ curfptr[182] = (void*)&cdat->dstr_122__CLASS_SRC_COMMEN; + /*_.VALSTR___V184*/ curfptr[183] = (void*)&cdat->dstr_122__CLASS_SRC_COMMEN; cdat->dstr_122__CLASS_SRC_COMMEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_122__CLASS_SRC_COMMEN.val, "CLASS_SRC_COMMENT"); /*inimult dtup_123__CLASS_SRC_COMMENT*/ - /*_.VALTUP___V184*/ curfptr[183] = (void*)&cdat->dtup_123__CLASS_SRC_COMMENT; + /*_.VALTUP___V185*/ curfptr[184] = (void*)&cdat->dtup_123__CLASS_SRC_COMMENT; cdat->dtup_123__CLASS_SRC_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_123__CLASS_SRC_COMMENT.nbval = 2; /*inimult dtup_124__CLASS_SRC_COMMENT*/ - /*_.VALTUP___V187*/ curfptr[186] = (void*)&cdat->dtup_124__CLASS_SRC_COMMENT; + /*_.VALTUP___V188*/ curfptr[187] = (void*)&cdat->dtup_124__CLASS_SRC_COMMENT; cdat->dtup_124__CLASS_SRC_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_124__CLASS_SRC_COMMENT.nbval = 2; /*iniobj dsym_125__SCOMM_STR*/ - if (!/*_.VALDATA___V188*/ curfptr[187]) /*_.VALDATA___V188*/ curfptr[187] = (void*)&cdat->dsym_125__SCOMM_STR; + if (!/*_.VALDATA___V189*/ curfptr[188]) /*_.VALDATA___V189*/ curfptr[188] = (void*)&cdat->dsym_125__SCOMM_STR; basilys_assertmsg("iniobj checkdiscr dsym_125__SCOMM_STR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_125__SCOMM_STR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_125__SCOMM_STR.obj_hash = 224660524; @@ -45143,27 +46698,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_121__CLASS_SRC_COMM basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_125__SCOMM_STR)); /*inistring dstr_126__SCOMM_STR*/ - /*_.VALSTR___V189*/ curfptr[188] = (void*)&cdat->dstr_126__SCOMM_STR; + /*_.VALSTR___V190*/ curfptr[189] = (void*)&cdat->dstr_126__SCOMM_STR; cdat->dstr_126__SCOMM_STR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_126__SCOMM_STR.val, "SCOMM_STR"); BASILYS_LOCATION("warmelt-macro.bysl:97:/ iniobj"); /*iniobj dobj_127__SCOMM_STR*/ - if (!/*_.VALDATA___V185*/ curfptr[184]) /*_.VALDATA___V185*/ curfptr[184] = (void*)&cdat->dobj_127__SCOMM_STR; + if (!/*_.VALDATA___V186*/ curfptr[185]) /*_.VALDATA___V186*/ curfptr[185] = (void*)&cdat->dobj_127__SCOMM_STR; basilys_assertmsg("iniobj checkdiscr dobj_127__SCOMM_STR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_127__SCOMM_STR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_127__SCOMM_STR.obj_num = 1; - cdat->dobj_127__SCOMM_STR.obj_hash = 771751382; + cdat->dobj_127__SCOMM_STR.obj_hash = 132325925; cdat->dobj_127__SCOMM_STR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_127__SCOMM_STR)); /*inistring dstr_128__SCOMM_STR*/ - /*_.VALSTR___V186*/ curfptr[185] = (void*)&cdat->dstr_128__SCOMM_STR; + /*_.VALSTR___V187*/ curfptr[186] = (void*)&cdat->dstr_128__SCOMM_STR; cdat->dstr_128__SCOMM_STR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_128__SCOMM_STR.val, "SCOMM_STR"); /*iniobj dsym_129__CLASS_SRC_QUOTE*/ - if (!/*_.VALDATA___V190*/ curfptr[189]) /*_.VALDATA___V190*/ curfptr[189] = (void*)&cdat->dsym_129__CLASS_SRC_QUOTE; + if (!/*_.VALDATA___V191*/ curfptr[190]) /*_.VALDATA___V191*/ curfptr[190] = (void*)&cdat->dsym_129__CLASS_SRC_QUOTE; basilys_assertmsg("iniobj checkdiscr dsym_129__CLASS_SRC_QUOTE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_129__CLASS_SRC_QUOTE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_129__CLASS_SRC_QUOTE.obj_hash = 126302170; @@ -45171,35 +46726,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_127__SCOMM_STR)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_129__CLASS_SRC_QUOTE)); /*inistring dstr_130__CLASS_SRC_QUOTE*/ - /*_.VALSTR___V191*/ curfptr[190] = (void*)&cdat->dstr_130__CLASS_SRC_QUOTE; + /*_.VALSTR___V192*/ curfptr[191] = (void*)&cdat->dstr_130__CLASS_SRC_QUOTE; cdat->dstr_130__CLASS_SRC_QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_130__CLASS_SRC_QUOTE.val, "CLASS_SRC_QUOTE"); BASILYS_LOCATION("warmelt-macro.bysl:103:/ iniobj"); /*iniobj dobj_131__CLASS_SRC_QUOTE*/ - if (!/*_.VALDATA___V192*/ curfptr[191]) /*_.VALDATA___V192*/ curfptr[191] = (void*)&cdat->dobj_131__CLASS_SRC_QUOTE; + if (!/*_.VALDATA___V193*/ curfptr[192]) /*_.VALDATA___V193*/ curfptr[192] = (void*)&cdat->dobj_131__CLASS_SRC_QUOTE; basilys_assertmsg("iniobj checkdiscr dobj_131__CLASS_SRC_QUOTE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_131__CLASS_SRC_QUOTE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_131__CLASS_SRC_QUOTE.obj_num = OBMAG_OBJECT; - cdat->dobj_131__CLASS_SRC_QUOTE.obj_hash = 362389049; + cdat->dobj_131__CLASS_SRC_QUOTE.obj_hash = 727743519; cdat->dobj_131__CLASS_SRC_QUOTE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_131__CLASS_SRC_QUOTE)); /*inistring dstr_132__CLASS_SRC_QUOTE*/ - /*_.VALSTR___V193*/ curfptr[192] = (void*)&cdat->dstr_132__CLASS_SRC_QUOTE; + /*_.VALSTR___V194*/ curfptr[193] = (void*)&cdat->dstr_132__CLASS_SRC_QUOTE; cdat->dstr_132__CLASS_SRC_QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_132__CLASS_SRC_QUOTE.val, "CLASS_SRC_QUOTE"); /*inimult dtup_133__CLASS_SRC_QUOTE*/ - /*_.VALTUP___V194*/ curfptr[193] = (void*)&cdat->dtup_133__CLASS_SRC_QUOTE; + /*_.VALTUP___V195*/ curfptr[194] = (void*)&cdat->dtup_133__CLASS_SRC_QUOTE; cdat->dtup_133__CLASS_SRC_QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_133__CLASS_SRC_QUOTE.nbval = 2; /*inimult dtup_134__CLASS_SRC_QUOTE*/ - /*_.VALTUP___V197*/ curfptr[196] = (void*)&cdat->dtup_134__CLASS_SRC_QUOTE; + /*_.VALTUP___V198*/ curfptr[197] = (void*)&cdat->dtup_134__CLASS_SRC_QUOTE; cdat->dtup_134__CLASS_SRC_QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_134__CLASS_SRC_QUOTE.nbval = 2; /*iniobj dsym_135__SQUOTED*/ - if (!/*_.VALDATA___V198*/ curfptr[197]) /*_.VALDATA___V198*/ curfptr[197] = (void*)&cdat->dsym_135__SQUOTED; + if (!/*_.VALDATA___V199*/ curfptr[198]) /*_.VALDATA___V199*/ curfptr[198] = (void*)&cdat->dsym_135__SQUOTED; basilys_assertmsg("iniobj checkdiscr dsym_135__SQUOTED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_135__SQUOTED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_135__SQUOTED.obj_hash = 28914429; @@ -45207,27 +46762,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_131__CLASS_SRC_QUOT basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_135__SQUOTED)); /*inistring dstr_136__SQUOTED*/ - /*_.VALSTR___V199*/ curfptr[198] = (void*)&cdat->dstr_136__SQUOTED; + /*_.VALSTR___V200*/ curfptr[199] = (void*)&cdat->dstr_136__SQUOTED; cdat->dstr_136__SQUOTED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_136__SQUOTED.val, "SQUOTED"); BASILYS_LOCATION("warmelt-macro.bysl:103:/ iniobj"); /*iniobj dobj_137__SQUOTED*/ - if (!/*_.VALDATA___V195*/ curfptr[194]) /*_.VALDATA___V195*/ curfptr[194] = (void*)&cdat->dobj_137__SQUOTED; + if (!/*_.VALDATA___V196*/ curfptr[195]) /*_.VALDATA___V196*/ curfptr[195] = (void*)&cdat->dobj_137__SQUOTED; basilys_assertmsg("iniobj checkdiscr dobj_137__SQUOTED", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_137__SQUOTED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_137__SQUOTED.obj_num = 1; - cdat->dobj_137__SQUOTED.obj_hash = 578727467; + cdat->dobj_137__SQUOTED.obj_hash = 688159023; cdat->dobj_137__SQUOTED.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_137__SQUOTED)); /*inistring dstr_138__SQUOTED*/ - /*_.VALSTR___V196*/ curfptr[195] = (void*)&cdat->dstr_138__SQUOTED; + /*_.VALSTR___V197*/ curfptr[196] = (void*)&cdat->dstr_138__SQUOTED; cdat->dstr_138__SQUOTED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_138__SQUOTED.val, "SQUOTED"); /*iniobj dsym_139__CLASS_SRC_EXPORTCOMMON*/ - if (!/*_.VALDATA___V200*/ curfptr[199]) /*_.VALDATA___V200*/ curfptr[199] = (void*)&cdat->dsym_139__CLASS_SRC_EXPORTCOMMON; + if (!/*_.VALDATA___V201*/ curfptr[200]) /*_.VALDATA___V201*/ curfptr[200] = (void*)&cdat->dsym_139__CLASS_SRC_EXPORTCOMMON; basilys_assertmsg("iniobj checkdiscr dsym_139__CLASS_SRC_EXPORTCOMMON", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_139__CLASS_SRC_EXPORTCOMMON.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_139__CLASS_SRC_EXPORTCOMMON.obj_hash = 781325642; @@ -45235,35 +46790,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_137__SQUOTED)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_139__CLASS_SRC_EXPORTCOMMON)); /*inistring dstr_140__CLASS_SRC_EXPORT*/ - /*_.VALSTR___V201*/ curfptr[200] = (void*)&cdat->dstr_140__CLASS_SRC_EXPORT; + /*_.VALSTR___V202*/ curfptr[201] = (void*)&cdat->dstr_140__CLASS_SRC_EXPORT; cdat->dstr_140__CLASS_SRC_EXPORT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_140__CLASS_SRC_EXPORT.val, "CLASS_SRC_EXPORTCOMMON"); BASILYS_LOCATION("warmelt-macro.bysl:109:/ iniobj"); /*iniobj dobj_141__CLASS_SRC_EXPORTCOMMON*/ - if (!/*_.VALDATA___V202*/ curfptr[201]) /*_.VALDATA___V202*/ curfptr[201] = (void*)&cdat->dobj_141__CLASS_SRC_EXPORTCOMMON; + if (!/*_.VALDATA___V203*/ curfptr[202]) /*_.VALDATA___V203*/ curfptr[202] = (void*)&cdat->dobj_141__CLASS_SRC_EXPORTCOMMON; basilys_assertmsg("iniobj checkdiscr dobj_141__CLASS_SRC_EXPORTCOMMON", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_141__CLASS_SRC_EXPORTCOMMON.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_141__CLASS_SRC_EXPORTCOMMON.obj_num = OBMAG_OBJECT; - cdat->dobj_141__CLASS_SRC_EXPORTCOMMON.obj_hash = 364488330; + cdat->dobj_141__CLASS_SRC_EXPORTCOMMON.obj_hash = 276081514; cdat->dobj_141__CLASS_SRC_EXPORTCOMMON.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_141__CLASS_SRC_EXPORTCOMMON)); /*inistring dstr_142__CLASS_SRC_EXPORT*/ - /*_.VALSTR___V203*/ curfptr[202] = (void*)&cdat->dstr_142__CLASS_SRC_EXPORT; + /*_.VALSTR___V204*/ curfptr[203] = (void*)&cdat->dstr_142__CLASS_SRC_EXPORT; cdat->dstr_142__CLASS_SRC_EXPORT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_142__CLASS_SRC_EXPORT.val, "CLASS_SRC_EXPORTCOMMON"); /*inimult dtup_143__CLASS_SRC_EXPORTCOMMON*/ - /*_.VALTUP___V204*/ curfptr[203] = (void*)&cdat->dtup_143__CLASS_SRC_EXPORTCOMMON; + /*_.VALTUP___V205*/ curfptr[204] = (void*)&cdat->dtup_143__CLASS_SRC_EXPORTCOMMON; cdat->dtup_143__CLASS_SRC_EXPORTCOMMON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_143__CLASS_SRC_EXPORTCOMMON.nbval = 2; /*inimult dtup_144__CLASS_SRC_EXPORTCOMMON*/ - /*_.VALTUP___V207*/ curfptr[206] = (void*)&cdat->dtup_144__CLASS_SRC_EXPORTCOMMON; + /*_.VALTUP___V208*/ curfptr[207] = (void*)&cdat->dtup_144__CLASS_SRC_EXPORTCOMMON; cdat->dtup_144__CLASS_SRC_EXPORTCOMMON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_144__CLASS_SRC_EXPORTCOMMON.nbval = 2; /*iniobj dsym_145__SEXPORT_NAMES*/ - if (!/*_.VALDATA___V208*/ curfptr[207]) /*_.VALDATA___V208*/ curfptr[207] = (void*)&cdat->dsym_145__SEXPORT_NAMES; + if (!/*_.VALDATA___V209*/ curfptr[208]) /*_.VALDATA___V209*/ curfptr[208] = (void*)&cdat->dsym_145__SEXPORT_NAMES; basilys_assertmsg("iniobj checkdiscr dsym_145__SEXPORT_NAMES", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_145__SEXPORT_NAMES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_145__SEXPORT_NAMES.obj_hash = 1015438775; @@ -45271,27 +46826,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_141__CLASS_SRC_EXPO basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_145__SEXPORT_NAMES)); /*inistring dstr_146__SEXPORT_NAMES*/ - /*_.VALSTR___V209*/ curfptr[208] = (void*)&cdat->dstr_146__SEXPORT_NAMES; + /*_.VALSTR___V210*/ curfptr[209] = (void*)&cdat->dstr_146__SEXPORT_NAMES; cdat->dstr_146__SEXPORT_NAMES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_146__SEXPORT_NAMES.val, "SEXPORT_NAMES"); BASILYS_LOCATION("warmelt-macro.bysl:109:/ iniobj"); /*iniobj dobj_147__SEXPORT_NAMES*/ - if (!/*_.VALDATA___V205*/ curfptr[204]) /*_.VALDATA___V205*/ curfptr[204] = (void*)&cdat->dobj_147__SEXPORT_NAMES; + if (!/*_.VALDATA___V206*/ curfptr[205]) /*_.VALDATA___V206*/ curfptr[205] = (void*)&cdat->dobj_147__SEXPORT_NAMES; basilys_assertmsg("iniobj checkdiscr dobj_147__SEXPORT_NAMES", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_147__SEXPORT_NAMES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_147__SEXPORT_NAMES.obj_num = 1; - cdat->dobj_147__SEXPORT_NAMES.obj_hash = 969453439; + cdat->dobj_147__SEXPORT_NAMES.obj_hash = 41969241; cdat->dobj_147__SEXPORT_NAMES.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_147__SEXPORT_NAMES)); /*inistring dstr_148__SEXPORT_NAMES*/ - /*_.VALSTR___V206*/ curfptr[205] = (void*)&cdat->dstr_148__SEXPORT_NAMES; + /*_.VALSTR___V207*/ curfptr[206] = (void*)&cdat->dstr_148__SEXPORT_NAMES; cdat->dstr_148__SEXPORT_NAMES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_148__SEXPORT_NAMES.val, "SEXPORT_NAMES"); /*iniobj dsym_149__CLASS_SRC_EXPORT_VALUES*/ - if (!/*_.VALDATA___V210*/ curfptr[209]) /*_.VALDATA___V210*/ curfptr[209] = (void*)&cdat->dsym_149__CLASS_SRC_EXPORT_VALUES; + if (!/*_.VALDATA___V211*/ curfptr[210]) /*_.VALDATA___V211*/ curfptr[210] = (void*)&cdat->dsym_149__CLASS_SRC_EXPORT_VALUES; basilys_assertmsg("iniobj checkdiscr dsym_149__CLASS_SRC_EXPORT_VALUES", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_149__CLASS_SRC_EXPORT_VALUES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_149__CLASS_SRC_EXPORT_VALUES.obj_hash = 607755508; @@ -45299,35 +46854,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_147__SEXPORT_NAMES) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_149__CLASS_SRC_EXPORT_VALUES)); /*inistring dstr_150__CLASS_SRC_EXPORT*/ - /*_.VALSTR___V211*/ curfptr[210] = (void*)&cdat->dstr_150__CLASS_SRC_EXPORT; + /*_.VALSTR___V212*/ curfptr[211] = (void*)&cdat->dstr_150__CLASS_SRC_EXPORT; cdat->dstr_150__CLASS_SRC_EXPORT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_150__CLASS_SRC_EXPORT.val, "CLASS_SRC_EXPORT_VALUES"); BASILYS_LOCATION("warmelt-macro.bysl:114:/ iniobj"); /*iniobj dobj_151__CLASS_SRC_EXPORT_VALUES*/ - if (!/*_.VALDATA___V212*/ curfptr[211]) /*_.VALDATA___V212*/ curfptr[211] = (void*)&cdat->dobj_151__CLASS_SRC_EXPORT_VALUES; + if (!/*_.VALDATA___V213*/ curfptr[212]) /*_.VALDATA___V213*/ curfptr[212] = (void*)&cdat->dobj_151__CLASS_SRC_EXPORT_VALUES; basilys_assertmsg("iniobj checkdiscr dobj_151__CLASS_SRC_EXPORT_VALUES", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_151__CLASS_SRC_EXPORT_VALUES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_151__CLASS_SRC_EXPORT_VALUES.obj_num = OBMAG_OBJECT; - cdat->dobj_151__CLASS_SRC_EXPORT_VALUES.obj_hash = 789473884; + cdat->dobj_151__CLASS_SRC_EXPORT_VALUES.obj_hash = 114066292; cdat->dobj_151__CLASS_SRC_EXPORT_VALUES.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_151__CLASS_SRC_EXPORT_VALUES)); /*inistring dstr_152__CLASS_SRC_EXPORT*/ - /*_.VALSTR___V213*/ curfptr[212] = (void*)&cdat->dstr_152__CLASS_SRC_EXPORT; + /*_.VALSTR___V214*/ curfptr[213] = (void*)&cdat->dstr_152__CLASS_SRC_EXPORT; cdat->dstr_152__CLASS_SRC_EXPORT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_152__CLASS_SRC_EXPORT.val, "CLASS_SRC_EXPORT_VALUES"); /*inimult dtup_153__CLASS_SRC_EXPORT_VALUES*/ - /*_.VALTUP___V214*/ curfptr[213] = (void*)&cdat->dtup_153__CLASS_SRC_EXPORT_VALUES; + /*_.VALTUP___V215*/ curfptr[214] = (void*)&cdat->dtup_153__CLASS_SRC_EXPORT_VALUES; cdat->dtup_153__CLASS_SRC_EXPORT_VALUES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_153__CLASS_SRC_EXPORT_VALUES.nbval = 3; /*inimult dtup_154__CLASS_SRC_EXPORT_VALUES*/ - /*_.VALTUP___V215*/ curfptr[214] = (void*)&cdat->dtup_154__CLASS_SRC_EXPORT_VALUES; + /*_.VALTUP___V216*/ curfptr[215] = (void*)&cdat->dtup_154__CLASS_SRC_EXPORT_VALUES; cdat->dtup_154__CLASS_SRC_EXPORT_VALUES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_154__CLASS_SRC_EXPORT_VALUES.nbval = 2; /*iniobj dsym_155__CLASS_SRC_EXPORT_CLASS*/ - if (!/*_.VALDATA___V216*/ curfptr[215]) /*_.VALDATA___V216*/ curfptr[215] = (void*)&cdat->dsym_155__CLASS_SRC_EXPORT_CLASS; + if (!/*_.VALDATA___V217*/ curfptr[216]) /*_.VALDATA___V217*/ curfptr[216] = (void*)&cdat->dsym_155__CLASS_SRC_EXPORT_CLASS; basilys_assertmsg("iniobj checkdiscr dsym_155__CLASS_SRC_EXPORT_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_155__CLASS_SRC_EXPORT_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_155__CLASS_SRC_EXPORT_CLASS.obj_hash = 95565036; @@ -45335,35 +46890,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_151__CLASS_SRC_EXPO basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_155__CLASS_SRC_EXPORT_CLASS)); /*inistring dstr_156__CLASS_SRC_EXPORT*/ - /*_.VALSTR___V217*/ curfptr[216] = (void*)&cdat->dstr_156__CLASS_SRC_EXPORT; + /*_.VALSTR___V218*/ curfptr[217] = (void*)&cdat->dstr_156__CLASS_SRC_EXPORT; cdat->dstr_156__CLASS_SRC_EXPORT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_156__CLASS_SRC_EXPORT.val, "CLASS_SRC_EXPORT_CLASS"); BASILYS_LOCATION("warmelt-macro.bysl:120:/ iniobj"); /*iniobj dobj_157__CLASS_SRC_EXPORT_CLASS*/ - if (!/*_.VALDATA___V218*/ curfptr[217]) /*_.VALDATA___V218*/ curfptr[217] = (void*)&cdat->dobj_157__CLASS_SRC_EXPORT_CLASS; + if (!/*_.VALDATA___V219*/ curfptr[218]) /*_.VALDATA___V219*/ curfptr[218] = (void*)&cdat->dobj_157__CLASS_SRC_EXPORT_CLASS; basilys_assertmsg("iniobj checkdiscr dobj_157__CLASS_SRC_EXPORT_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_157__CLASS_SRC_EXPORT_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_157__CLASS_SRC_EXPORT_CLASS.obj_num = OBMAG_OBJECT; - cdat->dobj_157__CLASS_SRC_EXPORT_CLASS.obj_hash = 885193023; + cdat->dobj_157__CLASS_SRC_EXPORT_CLASS.obj_hash = 1048239036; cdat->dobj_157__CLASS_SRC_EXPORT_CLASS.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_157__CLASS_SRC_EXPORT_CLASS)); /*inistring dstr_158__CLASS_SRC_EXPORT*/ - /*_.VALSTR___V219*/ curfptr[218] = (void*)&cdat->dstr_158__CLASS_SRC_EXPORT; + /*_.VALSTR___V220*/ curfptr[219] = (void*)&cdat->dstr_158__CLASS_SRC_EXPORT; cdat->dstr_158__CLASS_SRC_EXPORT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_158__CLASS_SRC_EXPORT.val, "CLASS_SRC_EXPORT_CLASS"); /*inimult dtup_159__CLASS_SRC_EXPORT_CLASS*/ - /*_.VALTUP___V220*/ curfptr[219] = (void*)&cdat->dtup_159__CLASS_SRC_EXPORT_CLASS; + /*_.VALTUP___V221*/ curfptr[220] = (void*)&cdat->dtup_159__CLASS_SRC_EXPORT_CLASS; cdat->dtup_159__CLASS_SRC_EXPORT_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_159__CLASS_SRC_EXPORT_CLASS.nbval = 3; /*inimult dtup_160__CLASS_SRC_EXPORT_CLASS*/ - /*_.VALTUP___V221*/ curfptr[220] = (void*)&cdat->dtup_160__CLASS_SRC_EXPORT_CLASS; + /*_.VALTUP___V222*/ curfptr[221] = (void*)&cdat->dtup_160__CLASS_SRC_EXPORT_CLASS; cdat->dtup_160__CLASS_SRC_EXPORT_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_160__CLASS_SRC_EXPORT_CLASS.nbval = 2; /*iniobj dsym_161__CLASS_SRC_EXPORT_MACRO*/ - if (!/*_.VALDATA___V222*/ curfptr[221]) /*_.VALDATA___V222*/ curfptr[221] = (void*)&cdat->dsym_161__CLASS_SRC_EXPORT_MACRO; + if (!/*_.VALDATA___V223*/ curfptr[222]) /*_.VALDATA___V223*/ curfptr[222] = (void*)&cdat->dsym_161__CLASS_SRC_EXPORT_MACRO; basilys_assertmsg("iniobj checkdiscr dsym_161__CLASS_SRC_EXPORT_MACRO", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_161__CLASS_SRC_EXPORT_MACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_161__CLASS_SRC_EXPORT_MACRO.obj_hash = 499817380; @@ -45371,35 +46926,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_157__CLASS_SRC_EXPO basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_161__CLASS_SRC_EXPORT_MACRO)); /*inistring dstr_162__CLASS_SRC_EXPORT*/ - /*_.VALSTR___V223*/ curfptr[222] = (void*)&cdat->dstr_162__CLASS_SRC_EXPORT; + /*_.VALSTR___V224*/ curfptr[223] = (void*)&cdat->dstr_162__CLASS_SRC_EXPORT; cdat->dstr_162__CLASS_SRC_EXPORT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_162__CLASS_SRC_EXPORT.val, "CLASS_SRC_EXPORT_MACRO"); BASILYS_LOCATION("warmelt-macro.bysl:127:/ iniobj"); /*iniobj dobj_163__CLASS_SRC_EXPORT_MACRO*/ - if (!/*_.VALDATA___V224*/ curfptr[223]) /*_.VALDATA___V224*/ curfptr[223] = (void*)&cdat->dobj_163__CLASS_SRC_EXPORT_MACRO; + if (!/*_.VALDATA___V225*/ curfptr[224]) /*_.VALDATA___V225*/ curfptr[224] = (void*)&cdat->dobj_163__CLASS_SRC_EXPORT_MACRO; basilys_assertmsg("iniobj checkdiscr dobj_163__CLASS_SRC_EXPORT_MACRO", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_163__CLASS_SRC_EXPORT_MACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_163__CLASS_SRC_EXPORT_MACRO.obj_num = OBMAG_OBJECT; - cdat->dobj_163__CLASS_SRC_EXPORT_MACRO.obj_hash = 348475075; + cdat->dobj_163__CLASS_SRC_EXPORT_MACRO.obj_hash = 850723471; cdat->dobj_163__CLASS_SRC_EXPORT_MACRO.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_163__CLASS_SRC_EXPORT_MACRO)); /*inistring dstr_164__CLASS_SRC_EXPORT*/ - /*_.VALSTR___V225*/ curfptr[224] = (void*)&cdat->dstr_164__CLASS_SRC_EXPORT; + /*_.VALSTR___V226*/ curfptr[225] = (void*)&cdat->dstr_164__CLASS_SRC_EXPORT; cdat->dstr_164__CLASS_SRC_EXPORT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_164__CLASS_SRC_EXPORT.val, "CLASS_SRC_EXPORT_MACRO"); /*inimult dtup_165__CLASS_SRC_EXPORT_MACRO*/ - /*_.VALTUP___V226*/ curfptr[225] = (void*)&cdat->dtup_165__CLASS_SRC_EXPORT_MACRO; + /*_.VALTUP___V227*/ curfptr[226] = (void*)&cdat->dtup_165__CLASS_SRC_EXPORT_MACRO; cdat->dtup_165__CLASS_SRC_EXPORT_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_165__CLASS_SRC_EXPORT_MACRO.nbval = 2; /*inimult dtup_166__CLASS_SRC_EXPORT_MACRO*/ - /*_.VALTUP___V231*/ curfptr[230] = (void*)&cdat->dtup_166__CLASS_SRC_EXPORT_MACRO; + /*_.VALTUP___V232*/ curfptr[231] = (void*)&cdat->dtup_166__CLASS_SRC_EXPORT_MACRO; cdat->dtup_166__CLASS_SRC_EXPORT_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_166__CLASS_SRC_EXPORT_MACRO.nbval = 3; /*iniobj dsym_167__SEXPMAC_MNAME*/ - if (!/*_.VALDATA___V232*/ curfptr[231]) /*_.VALDATA___V232*/ curfptr[231] = (void*)&cdat->dsym_167__SEXPMAC_MNAME; + if (!/*_.VALDATA___V233*/ curfptr[232]) /*_.VALDATA___V233*/ curfptr[232] = (void*)&cdat->dsym_167__SEXPMAC_MNAME; basilys_assertmsg("iniobj checkdiscr dsym_167__SEXPMAC_MNAME", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_167__SEXPMAC_MNAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_167__SEXPMAC_MNAME.obj_hash = 179808938; @@ -45407,27 +46962,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_163__CLASS_SRC_EXPO basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_167__SEXPMAC_MNAME)); /*inistring dstr_168__SEXPMAC_MNAME*/ - /*_.VALSTR___V233*/ curfptr[232] = (void*)&cdat->dstr_168__SEXPMAC_MNAME; + /*_.VALSTR___V234*/ curfptr[233] = (void*)&cdat->dstr_168__SEXPMAC_MNAME; cdat->dstr_168__SEXPMAC_MNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_168__SEXPMAC_MNAME.val, "SEXPMAC_MNAME"); BASILYS_LOCATION("warmelt-macro.bysl:127:/ iniobj"); /*iniobj dobj_169__SEXPMAC_MNAME*/ - if (!/*_.VALDATA___V227*/ curfptr[226]) /*_.VALDATA___V227*/ curfptr[226] = (void*)&cdat->dobj_169__SEXPMAC_MNAME; + if (!/*_.VALDATA___V228*/ curfptr[227]) /*_.VALDATA___V228*/ curfptr[227] = (void*)&cdat->dobj_169__SEXPMAC_MNAME; basilys_assertmsg("iniobj checkdiscr dobj_169__SEXPMAC_MNAME", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_169__SEXPMAC_MNAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_169__SEXPMAC_MNAME.obj_num = 1; - cdat->dobj_169__SEXPMAC_MNAME.obj_hash = 353826974; + cdat->dobj_169__SEXPMAC_MNAME.obj_hash = 403045442; cdat->dobj_169__SEXPMAC_MNAME.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_169__SEXPMAC_MNAME)); /*inistring dstr_170__SEXPMAC_MNAME*/ - /*_.VALSTR___V228*/ curfptr[227] = (void*)&cdat->dstr_170__SEXPMAC_MNAME; + /*_.VALSTR___V229*/ curfptr[228] = (void*)&cdat->dstr_170__SEXPMAC_MNAME; cdat->dstr_170__SEXPMAC_MNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_170__SEXPMAC_MNAME.val, "SEXPMAC_MNAME"); /*iniobj dsym_171__SEXPMAC_MVAL*/ - if (!/*_.VALDATA___V234*/ curfptr[233]) /*_.VALDATA___V234*/ curfptr[233] = (void*)&cdat->dsym_171__SEXPMAC_MVAL; + if (!/*_.VALDATA___V235*/ curfptr[234]) /*_.VALDATA___V235*/ curfptr[234] = (void*)&cdat->dsym_171__SEXPMAC_MVAL; basilys_assertmsg("iniobj checkdiscr dsym_171__SEXPMAC_MVAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_171__SEXPMAC_MVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_171__SEXPMAC_MVAL.obj_hash = 95565036; @@ -45435,27 +46990,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_169__SEXPMAC_MNAME) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_171__SEXPMAC_MVAL)); /*inistring dstr_172__SEXPMAC_MVAL*/ - /*_.VALSTR___V235*/ curfptr[234] = (void*)&cdat->dstr_172__SEXPMAC_MVAL; + /*_.VALSTR___V236*/ curfptr[235] = (void*)&cdat->dstr_172__SEXPMAC_MVAL; cdat->dstr_172__SEXPMAC_MVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_172__SEXPMAC_MVAL.val, "SEXPMAC_MVAL"); BASILYS_LOCATION("warmelt-macro.bysl:127:/ iniobj"); /*iniobj dobj_173__SEXPMAC_MVAL*/ - if (!/*_.VALDATA___V229*/ curfptr[228]) /*_.VALDATA___V229*/ curfptr[228] = (void*)&cdat->dobj_173__SEXPMAC_MVAL; + if (!/*_.VALDATA___V230*/ curfptr[229]) /*_.VALDATA___V230*/ curfptr[229] = (void*)&cdat->dobj_173__SEXPMAC_MVAL; basilys_assertmsg("iniobj checkdiscr dobj_173__SEXPMAC_MVAL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_173__SEXPMAC_MVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_173__SEXPMAC_MVAL.obj_num = 2; - cdat->dobj_173__SEXPMAC_MVAL.obj_hash = 681997450; + cdat->dobj_173__SEXPMAC_MVAL.obj_hash = 142372677; cdat->dobj_173__SEXPMAC_MVAL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_173__SEXPMAC_MVAL)); /*inistring dstr_174__SEXPMAC_MVAL*/ - /*_.VALSTR___V230*/ curfptr[229] = (void*)&cdat->dstr_174__SEXPMAC_MVAL; + /*_.VALSTR___V231*/ curfptr[230] = (void*)&cdat->dstr_174__SEXPMAC_MVAL; cdat->dstr_174__SEXPMAC_MVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_174__SEXPMAC_MVAL.val, "SEXPMAC_MVAL"); /*iniobj dsym_175__CLASS_SRC_EXPORT_PATMACRO*/ - if (!/*_.VALDATA___V236*/ curfptr[235]) /*_.VALDATA___V236*/ curfptr[235] = (void*)&cdat->dsym_175__CLASS_SRC_EXPORT_PATMACRO; + if (!/*_.VALDATA___V237*/ curfptr[236]) /*_.VALDATA___V237*/ curfptr[236] = (void*)&cdat->dsym_175__CLASS_SRC_EXPORT_PATMACRO; basilys_assertmsg("iniobj checkdiscr dsym_175__CLASS_SRC_EXPORT_PATMACRO", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_175__CLASS_SRC_EXPORT_PATMACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_175__CLASS_SRC_EXPORT_PATMACRO.obj_hash = 115017258; @@ -45463,35 +47018,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_173__SEXPMAC_MVAL)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_175__CLASS_SRC_EXPORT_PATMACRO)); /*inistring dstr_176__CLASS_SRC_EXPORT*/ - /*_.VALSTR___V237*/ curfptr[236] = (void*)&cdat->dstr_176__CLASS_SRC_EXPORT; + /*_.VALSTR___V238*/ curfptr[237] = (void*)&cdat->dstr_176__CLASS_SRC_EXPORT; cdat->dstr_176__CLASS_SRC_EXPORT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_176__CLASS_SRC_EXPORT.val, "CLASS_SRC_EXPORT_PATMACRO"); BASILYS_LOCATION("warmelt-macro.bysl:135:/ iniobj"); /*iniobj dobj_177__CLASS_SRC_EXPORT_PATMACRO*/ - if (!/*_.VALDATA___V238*/ curfptr[237]) /*_.VALDATA___V238*/ curfptr[237] = (void*)&cdat->dobj_177__CLASS_SRC_EXPORT_PATMACRO; + if (!/*_.VALDATA___V239*/ curfptr[238]) /*_.VALDATA___V239*/ curfptr[238] = (void*)&cdat->dobj_177__CLASS_SRC_EXPORT_PATMACRO; basilys_assertmsg("iniobj checkdiscr dobj_177__CLASS_SRC_EXPORT_PATMACRO", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_177__CLASS_SRC_EXPORT_PATMACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_177__CLASS_SRC_EXPORT_PATMACRO.obj_num = OBMAG_OBJECT; - cdat->dobj_177__CLASS_SRC_EXPORT_PATMACRO.obj_hash = 1037851000; + cdat->dobj_177__CLASS_SRC_EXPORT_PATMACRO.obj_hash = 349620532; cdat->dobj_177__CLASS_SRC_EXPORT_PATMACRO.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_177__CLASS_SRC_EXPORT_PATMACRO)); /*inistring dstr_178__CLASS_SRC_EXPORT*/ - /*_.VALSTR___V239*/ curfptr[238] = (void*)&cdat->dstr_178__CLASS_SRC_EXPORT; + /*_.VALSTR___V240*/ curfptr[239] = (void*)&cdat->dstr_178__CLASS_SRC_EXPORT; cdat->dstr_178__CLASS_SRC_EXPORT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_178__CLASS_SRC_EXPORT.val, "CLASS_SRC_EXPORT_PATMACRO"); /*inimult dtup_179__CLASS_SRC_EXPORT_PATMACRO*/ - /*_.VALTUP___V240*/ curfptr[239] = (void*)&cdat->dtup_179__CLASS_SRC_EXPORT_PATMACRO; + /*_.VALTUP___V241*/ curfptr[240] = (void*)&cdat->dtup_179__CLASS_SRC_EXPORT_PATMACRO; cdat->dtup_179__CLASS_SRC_EXPORT_PATMACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_179__CLASS_SRC_EXPORT_PATMACRO.nbval = 3; /*inimult dtup_180__CLASS_SRC_EXPORT_PATMACRO*/ - /*_.VALTUP___V243*/ curfptr[242] = (void*)&cdat->dtup_180__CLASS_SRC_EXPORT_PATMACRO; + /*_.VALTUP___V244*/ curfptr[243] = (void*)&cdat->dtup_180__CLASS_SRC_EXPORT_PATMACRO; cdat->dtup_180__CLASS_SRC_EXPORT_PATMACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_180__CLASS_SRC_EXPORT_PATMACRO.nbval = 4; /*iniobj dsym_181__SEXPPAT_PVAL*/ - if (!/*_.VALDATA___V244*/ curfptr[243]) /*_.VALDATA___V244*/ curfptr[243] = (void*)&cdat->dsym_181__SEXPPAT_PVAL; + if (!/*_.VALDATA___V245*/ curfptr[244]) /*_.VALDATA___V245*/ curfptr[244] = (void*)&cdat->dsym_181__SEXPPAT_PVAL; basilys_assertmsg("iniobj checkdiscr dsym_181__SEXPPAT_PVAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_181__SEXPPAT_PVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_181__SEXPPAT_PVAL.obj_hash = 727802015; @@ -45499,27 +47054,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_177__CLASS_SRC_EXPO basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_181__SEXPPAT_PVAL)); /*inistring dstr_182__SEXPPAT_PVAL*/ - /*_.VALSTR___V245*/ curfptr[244] = (void*)&cdat->dstr_182__SEXPPAT_PVAL; + /*_.VALSTR___V246*/ curfptr[245] = (void*)&cdat->dstr_182__SEXPPAT_PVAL; cdat->dstr_182__SEXPPAT_PVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_182__SEXPPAT_PVAL.val, "SEXPPAT_PVAL"); BASILYS_LOCATION("warmelt-macro.bysl:135:/ iniobj"); /*iniobj dobj_183__SEXPPAT_PVAL*/ - if (!/*_.VALDATA___V241*/ curfptr[240]) /*_.VALDATA___V241*/ curfptr[240] = (void*)&cdat->dobj_183__SEXPPAT_PVAL; + if (!/*_.VALDATA___V242*/ curfptr[241]) /*_.VALDATA___V242*/ curfptr[241] = (void*)&cdat->dobj_183__SEXPPAT_PVAL; basilys_assertmsg("iniobj checkdiscr dobj_183__SEXPPAT_PVAL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_183__SEXPPAT_PVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_183__SEXPPAT_PVAL.obj_num = 3; - cdat->dobj_183__SEXPPAT_PVAL.obj_hash = 922268622; + cdat->dobj_183__SEXPPAT_PVAL.obj_hash = 670279565; cdat->dobj_183__SEXPPAT_PVAL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_183__SEXPPAT_PVAL)); /*inistring dstr_184__SEXPPAT_PVAL*/ - /*_.VALSTR___V242*/ curfptr[241] = (void*)&cdat->dstr_184__SEXPPAT_PVAL; + /*_.VALSTR___V243*/ curfptr[242] = (void*)&cdat->dstr_184__SEXPPAT_PVAL; cdat->dstr_184__SEXPPAT_PVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_184__SEXPPAT_PVAL.val, "SEXPPAT_PVAL"); /*iniobj dsym_185__CLASS_SRCDEF*/ - if (!/*_.VALDATA___V246*/ curfptr[245]) /*_.VALDATA___V246*/ curfptr[245] = (void*)&cdat->dsym_185__CLASS_SRCDEF; + if (!/*_.VALDATA___V247*/ curfptr[246]) /*_.VALDATA___V247*/ curfptr[246] = (void*)&cdat->dsym_185__CLASS_SRCDEF; basilys_assertmsg("iniobj checkdiscr dsym_185__CLASS_SRCDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_185__CLASS_SRCDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_185__CLASS_SRCDEF.obj_hash = 824882842; @@ -45527,35 +47082,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_183__SEXPPAT_PVAL)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_185__CLASS_SRCDEF)); /*inistring dstr_186__CLASS_SRCDEF*/ - /*_.VALSTR___V247*/ curfptr[246] = (void*)&cdat->dstr_186__CLASS_SRCDEF; + /*_.VALSTR___V248*/ curfptr[247] = (void*)&cdat->dstr_186__CLASS_SRCDEF; cdat->dstr_186__CLASS_SRCDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_186__CLASS_SRCDEF.val, "CLASS_SRCDEF"); BASILYS_LOCATION("warmelt-macro.bysl:142:/ iniobj"); /*iniobj dobj_187__CLASS_SRCDEF*/ - if (!/*_.VALDATA___V248*/ curfptr[247]) /*_.VALDATA___V248*/ curfptr[247] = (void*)&cdat->dobj_187__CLASS_SRCDEF; + if (!/*_.VALDATA___V249*/ curfptr[248]) /*_.VALDATA___V249*/ curfptr[248] = (void*)&cdat->dobj_187__CLASS_SRCDEF; basilys_assertmsg("iniobj checkdiscr dobj_187__CLASS_SRCDEF", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_187__CLASS_SRCDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_187__CLASS_SRCDEF.obj_num = OBMAG_OBJECT; - cdat->dobj_187__CLASS_SRCDEF.obj_hash = 162847719; + cdat->dobj_187__CLASS_SRCDEF.obj_hash = 969345065; cdat->dobj_187__CLASS_SRCDEF.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_187__CLASS_SRCDEF)); /*inistring dstr_188__CLASS_SRCDEF*/ - /*_.VALSTR___V249*/ curfptr[248] = (void*)&cdat->dstr_188__CLASS_SRCDEF; + /*_.VALSTR___V250*/ curfptr[249] = (void*)&cdat->dstr_188__CLASS_SRCDEF; cdat->dstr_188__CLASS_SRCDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_188__CLASS_SRCDEF.val, "CLASS_SRCDEF"); /*inimult dtup_189__CLASS_SRCDEF*/ - /*_.VALTUP___V250*/ curfptr[249] = (void*)&cdat->dtup_189__CLASS_SRCDEF; + /*_.VALTUP___V251*/ curfptr[250] = (void*)&cdat->dtup_189__CLASS_SRCDEF; cdat->dtup_189__CLASS_SRCDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_189__CLASS_SRCDEF.nbval = 2; /*inimult dtup_190__CLASS_SRCDEF*/ - /*_.VALTUP___V253*/ curfptr[252] = (void*)&cdat->dtup_190__CLASS_SRCDEF; + /*_.VALTUP___V254*/ curfptr[253] = (void*)&cdat->dtup_190__CLASS_SRCDEF; cdat->dtup_190__CLASS_SRCDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_190__CLASS_SRCDEF.nbval = 2; /*iniobj dsym_191__SDEF_NAME*/ - if (!/*_.VALDATA___V254*/ curfptr[253]) /*_.VALDATA___V254*/ curfptr[253] = (void*)&cdat->dsym_191__SDEF_NAME; + if (!/*_.VALDATA___V255*/ curfptr[254]) /*_.VALDATA___V255*/ curfptr[254] = (void*)&cdat->dsym_191__SDEF_NAME; basilys_assertmsg("iniobj checkdiscr dsym_191__SDEF_NAME", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_191__SDEF_NAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_191__SDEF_NAME.obj_hash = 768386693; @@ -45563,27 +47118,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_187__CLASS_SRCDEF)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_191__SDEF_NAME)); /*inistring dstr_192__SDEF_NAME*/ - /*_.VALSTR___V255*/ curfptr[254] = (void*)&cdat->dstr_192__SDEF_NAME; + /*_.VALSTR___V256*/ curfptr[255] = (void*)&cdat->dstr_192__SDEF_NAME; cdat->dstr_192__SDEF_NAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_192__SDEF_NAME.val, "SDEF_NAME"); BASILYS_LOCATION("warmelt-macro.bysl:142:/ iniobj"); /*iniobj dobj_193__SDEF_NAME*/ - if (!/*_.VALDATA___V251*/ curfptr[250]) /*_.VALDATA___V251*/ curfptr[250] = (void*)&cdat->dobj_193__SDEF_NAME; + if (!/*_.VALDATA___V252*/ curfptr[251]) /*_.VALDATA___V252*/ curfptr[251] = (void*)&cdat->dobj_193__SDEF_NAME; basilys_assertmsg("iniobj checkdiscr dobj_193__SDEF_NAME", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_193__SDEF_NAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_193__SDEF_NAME.obj_num = 1; - cdat->dobj_193__SDEF_NAME.obj_hash = 398180922; + cdat->dobj_193__SDEF_NAME.obj_hash = 970398430; cdat->dobj_193__SDEF_NAME.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_193__SDEF_NAME)); /*inistring dstr_194__SDEF_NAME*/ - /*_.VALSTR___V252*/ curfptr[251] = (void*)&cdat->dstr_194__SDEF_NAME; + /*_.VALSTR___V253*/ curfptr[252] = (void*)&cdat->dstr_194__SDEF_NAME; cdat->dstr_194__SDEF_NAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_194__SDEF_NAME.val, "SDEF_NAME"); /*iniobj dsym_195__CLASS_SRCDEFORMAL*/ - if (!/*_.VALDATA___V256*/ curfptr[255]) /*_.VALDATA___V256*/ curfptr[255] = (void*)&cdat->dsym_195__CLASS_SRCDEFORMAL; + if (!/*_.VALDATA___V257*/ curfptr[256]) /*_.VALDATA___V257*/ curfptr[256] = (void*)&cdat->dsym_195__CLASS_SRCDEFORMAL; basilys_assertmsg("iniobj checkdiscr dsym_195__CLASS_SRCDEFORMAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_195__CLASS_SRCDEFORMAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_195__CLASS_SRCDEFORMAL.obj_hash = 529282548; @@ -45591,35 +47146,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_193__SDEF_NAME)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_195__CLASS_SRCDEFORMAL)); /*inistring dstr_196__CLASS_SRCDEFORMA*/ - /*_.VALSTR___V257*/ curfptr[256] = (void*)&cdat->dstr_196__CLASS_SRCDEFORMA; + /*_.VALSTR___V258*/ curfptr[257] = (void*)&cdat->dstr_196__CLASS_SRCDEFORMA; cdat->dstr_196__CLASS_SRCDEFORMA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_196__CLASS_SRCDEFORMA.val, "CLASS_SRCDEFORMAL"); BASILYS_LOCATION("warmelt-macro.bysl:148:/ iniobj"); /*iniobj dobj_197__CLASS_SRCDEFORMAL*/ - if (!/*_.VALDATA___V258*/ curfptr[257]) /*_.VALDATA___V258*/ curfptr[257] = (void*)&cdat->dobj_197__CLASS_SRCDEFORMAL; + if (!/*_.VALDATA___V259*/ curfptr[258]) /*_.VALDATA___V259*/ curfptr[258] = (void*)&cdat->dobj_197__CLASS_SRCDEFORMAL; basilys_assertmsg("iniobj checkdiscr dobj_197__CLASS_SRCDEFORMAL", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_197__CLASS_SRCDEFORMAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_197__CLASS_SRCDEFORMAL.obj_num = OBMAG_OBJECT; - cdat->dobj_197__CLASS_SRCDEFORMAL.obj_hash = 413833900; + cdat->dobj_197__CLASS_SRCDEFORMAL.obj_hash = 266933967; cdat->dobj_197__CLASS_SRCDEFORMAL.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_197__CLASS_SRCDEFORMAL)); /*inistring dstr_198__CLASS_SRCDEFORMA*/ - /*_.VALSTR___V259*/ curfptr[258] = (void*)&cdat->dstr_198__CLASS_SRCDEFORMA; + /*_.VALSTR___V260*/ curfptr[259] = (void*)&cdat->dstr_198__CLASS_SRCDEFORMA; cdat->dstr_198__CLASS_SRCDEFORMA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_198__CLASS_SRCDEFORMA.val, "CLASS_SRCDEFORMAL"); /*inimult dtup_199__CLASS_SRCDEFORMAL*/ - /*_.VALTUP___V260*/ curfptr[259] = (void*)&cdat->dtup_199__CLASS_SRCDEFORMAL; + /*_.VALTUP___V261*/ curfptr[260] = (void*)&cdat->dtup_199__CLASS_SRCDEFORMAL; cdat->dtup_199__CLASS_SRCDEFORMAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_199__CLASS_SRCDEFORMAL.nbval = 3; /*inimult dtup_200__CLASS_SRCDEFORMAL*/ - /*_.VALTUP___V263*/ curfptr[262] = (void*)&cdat->dtup_200__CLASS_SRCDEFORMAL; + /*_.VALTUP___V264*/ curfptr[263] = (void*)&cdat->dtup_200__CLASS_SRCDEFORMAL; cdat->dtup_200__CLASS_SRCDEFORMAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_200__CLASS_SRCDEFORMAL.nbval = 3; /*iniobj dsym_201__SFORMAL_ARGS*/ - if (!/*_.VALDATA___V264*/ curfptr[263]) /*_.VALDATA___V264*/ curfptr[263] = (void*)&cdat->dsym_201__SFORMAL_ARGS; + if (!/*_.VALDATA___V265*/ curfptr[264]) /*_.VALDATA___V265*/ curfptr[264] = (void*)&cdat->dsym_201__SFORMAL_ARGS; basilys_assertmsg("iniobj checkdiscr dsym_201__SFORMAL_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_201__SFORMAL_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_201__SFORMAL_ARGS.obj_hash = 190096587; @@ -45627,27 +47182,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_197__CLASS_SRCDEFOR basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_201__SFORMAL_ARGS)); /*inistring dstr_202__SFORMAL_ARGS*/ - /*_.VALSTR___V265*/ curfptr[264] = (void*)&cdat->dstr_202__SFORMAL_ARGS; + /*_.VALSTR___V266*/ curfptr[265] = (void*)&cdat->dstr_202__SFORMAL_ARGS; cdat->dstr_202__SFORMAL_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_202__SFORMAL_ARGS.val, "SFORMAL_ARGS"); BASILYS_LOCATION("warmelt-macro.bysl:148:/ iniobj"); /*iniobj dobj_203__SFORMAL_ARGS*/ - if (!/*_.VALDATA___V261*/ curfptr[260]) /*_.VALDATA___V261*/ curfptr[260] = (void*)&cdat->dobj_203__SFORMAL_ARGS; + if (!/*_.VALDATA___V262*/ curfptr[261]) /*_.VALDATA___V262*/ curfptr[261] = (void*)&cdat->dobj_203__SFORMAL_ARGS; basilys_assertmsg("iniobj checkdiscr dobj_203__SFORMAL_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_203__SFORMAL_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_203__SFORMAL_ARGS.obj_num = 2; - cdat->dobj_203__SFORMAL_ARGS.obj_hash = 379530279; + cdat->dobj_203__SFORMAL_ARGS.obj_hash = 167165445; cdat->dobj_203__SFORMAL_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_203__SFORMAL_ARGS)); /*inistring dstr_204__SFORMAL_ARGS*/ - /*_.VALSTR___V262*/ curfptr[261] = (void*)&cdat->dstr_204__SFORMAL_ARGS; + /*_.VALSTR___V263*/ curfptr[262] = (void*)&cdat->dstr_204__SFORMAL_ARGS; cdat->dstr_204__SFORMAL_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_204__SFORMAL_ARGS.val, "SFORMAL_ARGS"); /*iniobj dsym_205__CLASS_SRC_DEFUN*/ - if (!/*_.VALDATA___V266*/ curfptr[265]) /*_.VALDATA___V266*/ curfptr[265] = (void*)&cdat->dsym_205__CLASS_SRC_DEFUN; + if (!/*_.VALDATA___V267*/ curfptr[266]) /*_.VALDATA___V267*/ curfptr[266] = (void*)&cdat->dsym_205__CLASS_SRC_DEFUN; basilys_assertmsg("iniobj checkdiscr dsym_205__CLASS_SRC_DEFUN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_205__CLASS_SRC_DEFUN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_205__CLASS_SRC_DEFUN.obj_hash = 685677356; @@ -45655,35 +47210,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_203__SFORMAL_ARGS)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_205__CLASS_SRC_DEFUN)); /*inistring dstr_206__CLASS_SRC_DEFUN*/ - /*_.VALSTR___V267*/ curfptr[266] = (void*)&cdat->dstr_206__CLASS_SRC_DEFUN; + /*_.VALSTR___V268*/ curfptr[267] = (void*)&cdat->dstr_206__CLASS_SRC_DEFUN; cdat->dstr_206__CLASS_SRC_DEFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_206__CLASS_SRC_DEFUN.val, "CLASS_SRC_DEFUN"); BASILYS_LOCATION("warmelt-macro.bysl:154:/ iniobj"); /*iniobj dobj_207__CLASS_SRC_DEFUN*/ - if (!/*_.VALDATA___V268*/ curfptr[267]) /*_.VALDATA___V268*/ curfptr[267] = (void*)&cdat->dobj_207__CLASS_SRC_DEFUN; + if (!/*_.VALDATA___V269*/ curfptr[268]) /*_.VALDATA___V269*/ curfptr[268] = (void*)&cdat->dobj_207__CLASS_SRC_DEFUN; basilys_assertmsg("iniobj checkdiscr dobj_207__CLASS_SRC_DEFUN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_207__CLASS_SRC_DEFUN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_207__CLASS_SRC_DEFUN.obj_num = OBMAG_OBJECT; - cdat->dobj_207__CLASS_SRC_DEFUN.obj_hash = 1052813454; + cdat->dobj_207__CLASS_SRC_DEFUN.obj_hash = 874126409; cdat->dobj_207__CLASS_SRC_DEFUN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_207__CLASS_SRC_DEFUN)); /*inistring dstr_208__CLASS_SRC_DEFUN*/ - /*_.VALSTR___V269*/ curfptr[268] = (void*)&cdat->dstr_208__CLASS_SRC_DEFUN; + /*_.VALSTR___V270*/ curfptr[269] = (void*)&cdat->dstr_208__CLASS_SRC_DEFUN; cdat->dstr_208__CLASS_SRC_DEFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_208__CLASS_SRC_DEFUN.val, "CLASS_SRC_DEFUN"); /*inimult dtup_209__CLASS_SRC_DEFUN*/ - /*_.VALTUP___V270*/ curfptr[269] = (void*)&cdat->dtup_209__CLASS_SRC_DEFUN; + /*_.VALTUP___V271*/ curfptr[270] = (void*)&cdat->dtup_209__CLASS_SRC_DEFUN; cdat->dtup_209__CLASS_SRC_DEFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_209__CLASS_SRC_DEFUN.nbval = 4; /*inimult dtup_210__CLASS_SRC_DEFUN*/ - /*_.VALTUP___V273*/ curfptr[272] = (void*)&cdat->dtup_210__CLASS_SRC_DEFUN; + /*_.VALTUP___V274*/ curfptr[273] = (void*)&cdat->dtup_210__CLASS_SRC_DEFUN; cdat->dtup_210__CLASS_SRC_DEFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_210__CLASS_SRC_DEFUN.nbval = 4; /*iniobj dsym_211__SFUN_BODY*/ - if (!/*_.VALDATA___V274*/ curfptr[273]) /*_.VALDATA___V274*/ curfptr[273] = (void*)&cdat->dsym_211__SFUN_BODY; + if (!/*_.VALDATA___V275*/ curfptr[274]) /*_.VALDATA___V275*/ curfptr[274] = (void*)&cdat->dsym_211__SFUN_BODY; basilys_assertmsg("iniobj checkdiscr dsym_211__SFUN_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_211__SFUN_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_211__SFUN_BODY.obj_hash = 860615464; @@ -45691,27 +47246,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_207__CLASS_SRC_DEFU basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_211__SFUN_BODY)); /*inistring dstr_212__SFUN_BODY*/ - /*_.VALSTR___V275*/ curfptr[274] = (void*)&cdat->dstr_212__SFUN_BODY; + /*_.VALSTR___V276*/ curfptr[275] = (void*)&cdat->dstr_212__SFUN_BODY; cdat->dstr_212__SFUN_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_212__SFUN_BODY.val, "SFUN_BODY"); BASILYS_LOCATION("warmelt-macro.bysl:154:/ iniobj"); /*iniobj dobj_213__SFUN_BODY*/ - if (!/*_.VALDATA___V271*/ curfptr[270]) /*_.VALDATA___V271*/ curfptr[270] = (void*)&cdat->dobj_213__SFUN_BODY; + if (!/*_.VALDATA___V272*/ curfptr[271]) /*_.VALDATA___V272*/ curfptr[271] = (void*)&cdat->dobj_213__SFUN_BODY; basilys_assertmsg("iniobj checkdiscr dobj_213__SFUN_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_213__SFUN_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_213__SFUN_BODY.obj_num = 3; - cdat->dobj_213__SFUN_BODY.obj_hash = 1033945263; + cdat->dobj_213__SFUN_BODY.obj_hash = 773730132; cdat->dobj_213__SFUN_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_213__SFUN_BODY)); /*inistring dstr_214__SFUN_BODY*/ - /*_.VALSTR___V272*/ curfptr[271] = (void*)&cdat->dstr_214__SFUN_BODY; + /*_.VALSTR___V273*/ curfptr[272] = (void*)&cdat->dstr_214__SFUN_BODY; cdat->dstr_214__SFUN_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_214__SFUN_BODY.val, "SFUN_BODY"); /*iniobj dsym_215__CLASS_SRC_DEFPRIMITIVE*/ - if (!/*_.VALDATA___V276*/ curfptr[275]) /*_.VALDATA___V276*/ curfptr[275] = (void*)&cdat->dsym_215__CLASS_SRC_DEFPRIMITIVE; + if (!/*_.VALDATA___V277*/ curfptr[276]) /*_.VALDATA___V277*/ curfptr[276] = (void*)&cdat->dsym_215__CLASS_SRC_DEFPRIMITIVE; basilys_assertmsg("iniobj checkdiscr dsym_215__CLASS_SRC_DEFPRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_215__CLASS_SRC_DEFPRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_215__CLASS_SRC_DEFPRIMITIVE.obj_hash = 392289647; @@ -45719,35 +47274,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_213__SFUN_BODY)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_215__CLASS_SRC_DEFPRIMITIVE)); /*inistring dstr_216__CLASS_SRC_DEFPRI*/ - /*_.VALSTR___V277*/ curfptr[276] = (void*)&cdat->dstr_216__CLASS_SRC_DEFPRI; + /*_.VALSTR___V278*/ curfptr[277] = (void*)&cdat->dstr_216__CLASS_SRC_DEFPRI; cdat->dstr_216__CLASS_SRC_DEFPRI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_216__CLASS_SRC_DEFPRI.val, "CLASS_SRC_DEFPRIMITIVE"); BASILYS_LOCATION("warmelt-macro.bysl:160:/ iniobj"); /*iniobj dobj_217__CLASS_SRC_DEFPRIMITIVE*/ - if (!/*_.VALDATA___V278*/ curfptr[277]) /*_.VALDATA___V278*/ curfptr[277] = (void*)&cdat->dobj_217__CLASS_SRC_DEFPRIMITIVE; + if (!/*_.VALDATA___V279*/ curfptr[278]) /*_.VALDATA___V279*/ curfptr[278] = (void*)&cdat->dobj_217__CLASS_SRC_DEFPRIMITIVE; basilys_assertmsg("iniobj checkdiscr dobj_217__CLASS_SRC_DEFPRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_217__CLASS_SRC_DEFPRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_217__CLASS_SRC_DEFPRIMITIVE.obj_num = OBMAG_OBJECT; - cdat->dobj_217__CLASS_SRC_DEFPRIMITIVE.obj_hash = 178550336; + cdat->dobj_217__CLASS_SRC_DEFPRIMITIVE.obj_hash = 650806102; cdat->dobj_217__CLASS_SRC_DEFPRIMITIVE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_217__CLASS_SRC_DEFPRIMITIVE)); /*inistring dstr_218__CLASS_SRC_DEFPRI*/ - /*_.VALSTR___V279*/ curfptr[278] = (void*)&cdat->dstr_218__CLASS_SRC_DEFPRI; + /*_.VALSTR___V280*/ curfptr[279] = (void*)&cdat->dstr_218__CLASS_SRC_DEFPRI; cdat->dstr_218__CLASS_SRC_DEFPRI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_218__CLASS_SRC_DEFPRI.val, "CLASS_SRC_DEFPRIMITIVE"); /*inimult dtup_219__CLASS_SRC_DEFPRIMITIVE*/ - /*_.VALTUP___V280*/ curfptr[279] = (void*)&cdat->dtup_219__CLASS_SRC_DEFPRIMITIVE; + /*_.VALTUP___V281*/ curfptr[280] = (void*)&cdat->dtup_219__CLASS_SRC_DEFPRIMITIVE; cdat->dtup_219__CLASS_SRC_DEFPRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_219__CLASS_SRC_DEFPRIMITIVE.nbval = 4; /*inimult dtup_220__CLASS_SRC_DEFPRIMITIVE*/ - /*_.VALTUP___V285*/ curfptr[284] = (void*)&cdat->dtup_220__CLASS_SRC_DEFPRIMITIVE; + /*_.VALTUP___V286*/ curfptr[285] = (void*)&cdat->dtup_220__CLASS_SRC_DEFPRIMITIVE; cdat->dtup_220__CLASS_SRC_DEFPRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_220__CLASS_SRC_DEFPRIMITIVE.nbval = 5; /*iniobj dsym_221__SPRIM_TYPE*/ - if (!/*_.VALDATA___V286*/ curfptr[285]) /*_.VALDATA___V286*/ curfptr[285] = (void*)&cdat->dsym_221__SPRIM_TYPE; + if (!/*_.VALDATA___V287*/ curfptr[286]) /*_.VALDATA___V287*/ curfptr[286] = (void*)&cdat->dsym_221__SPRIM_TYPE; basilys_assertmsg("iniobj checkdiscr dsym_221__SPRIM_TYPE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_221__SPRIM_TYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_221__SPRIM_TYPE.obj_hash = 614174808; @@ -45755,27 +47310,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_217__CLASS_SRC_DEFP basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_221__SPRIM_TYPE)); /*inistring dstr_222__SPRIM_TYPE*/ - /*_.VALSTR___V287*/ curfptr[286] = (void*)&cdat->dstr_222__SPRIM_TYPE; + /*_.VALSTR___V288*/ curfptr[287] = (void*)&cdat->dstr_222__SPRIM_TYPE; cdat->dstr_222__SPRIM_TYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_222__SPRIM_TYPE.val, "SPRIM_TYPE"); BASILYS_LOCATION("warmelt-macro.bysl:160:/ iniobj"); /*iniobj dobj_223__SPRIM_TYPE*/ - if (!/*_.VALDATA___V281*/ curfptr[280]) /*_.VALDATA___V281*/ curfptr[280] = (void*)&cdat->dobj_223__SPRIM_TYPE; + if (!/*_.VALDATA___V282*/ curfptr[281]) /*_.VALDATA___V282*/ curfptr[281] = (void*)&cdat->dobj_223__SPRIM_TYPE; basilys_assertmsg("iniobj checkdiscr dobj_223__SPRIM_TYPE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_223__SPRIM_TYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_223__SPRIM_TYPE.obj_num = 3; - cdat->dobj_223__SPRIM_TYPE.obj_hash = 216510915; + cdat->dobj_223__SPRIM_TYPE.obj_hash = 628438003; cdat->dobj_223__SPRIM_TYPE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_223__SPRIM_TYPE)); /*inistring dstr_224__SPRIM_TYPE*/ - /*_.VALSTR___V282*/ curfptr[281] = (void*)&cdat->dstr_224__SPRIM_TYPE; + /*_.VALSTR___V283*/ curfptr[282] = (void*)&cdat->dstr_224__SPRIM_TYPE; cdat->dstr_224__SPRIM_TYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_224__SPRIM_TYPE.val, "SPRIM_TYPE"); /*iniobj dsym_225__SPRIM_EXPANSION*/ - if (!/*_.VALDATA___V288*/ curfptr[287]) /*_.VALDATA___V288*/ curfptr[287] = (void*)&cdat->dsym_225__SPRIM_EXPANSION; + if (!/*_.VALDATA___V289*/ curfptr[288]) /*_.VALDATA___V289*/ curfptr[288] = (void*)&cdat->dsym_225__SPRIM_EXPANSION; basilys_assertmsg("iniobj checkdiscr dsym_225__SPRIM_EXPANSION", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_225__SPRIM_EXPANSION.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_225__SPRIM_EXPANSION.obj_hash = 343124792; @@ -45783,27 +47338,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_223__SPRIM_TYPE)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_225__SPRIM_EXPANSION)); /*inistring dstr_226__SPRIM_EXPANSION*/ - /*_.VALSTR___V289*/ curfptr[288] = (void*)&cdat->dstr_226__SPRIM_EXPANSION; + /*_.VALSTR___V290*/ curfptr[289] = (void*)&cdat->dstr_226__SPRIM_EXPANSION; cdat->dstr_226__SPRIM_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_226__SPRIM_EXPANSION.val, "SPRIM_EXPANSION"); BASILYS_LOCATION("warmelt-macro.bysl:160:/ iniobj"); /*iniobj dobj_227__SPRIM_EXPANSION*/ - if (!/*_.VALDATA___V283*/ curfptr[282]) /*_.VALDATA___V283*/ curfptr[282] = (void*)&cdat->dobj_227__SPRIM_EXPANSION; + if (!/*_.VALDATA___V284*/ curfptr[283]) /*_.VALDATA___V284*/ curfptr[283] = (void*)&cdat->dobj_227__SPRIM_EXPANSION; basilys_assertmsg("iniobj checkdiscr dobj_227__SPRIM_EXPANSION", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_227__SPRIM_EXPANSION.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_227__SPRIM_EXPANSION.obj_num = 4; - cdat->dobj_227__SPRIM_EXPANSION.obj_hash = 107763687; + cdat->dobj_227__SPRIM_EXPANSION.obj_hash = 67737657; cdat->dobj_227__SPRIM_EXPANSION.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_227__SPRIM_EXPANSION)); /*inistring dstr_228__SPRIM_EXPANSION*/ - /*_.VALSTR___V284*/ curfptr[283] = (void*)&cdat->dstr_228__SPRIM_EXPANSION; + /*_.VALSTR___V285*/ curfptr[284] = (void*)&cdat->dstr_228__SPRIM_EXPANSION; cdat->dstr_228__SPRIM_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_228__SPRIM_EXPANSION.val, "SPRIM_EXPANSION"); /*iniobj dsym_229__CLASS_SRC_DEFCITERATOR*/ - if (!/*_.VALDATA___V290*/ curfptr[289]) /*_.VALDATA___V290*/ curfptr[289] = (void*)&cdat->dsym_229__CLASS_SRC_DEFCITERATOR; + if (!/*_.VALDATA___V291*/ curfptr[290]) /*_.VALDATA___V291*/ curfptr[290] = (void*)&cdat->dsym_229__CLASS_SRC_DEFCITERATOR; basilys_assertmsg("iniobj checkdiscr dsym_229__CLASS_SRC_DEFCITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_229__CLASS_SRC_DEFCITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_229__CLASS_SRC_DEFCITERATOR.obj_hash = 104692430; @@ -45811,35 +47366,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_227__SPRIM_EXPANSIO basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_229__CLASS_SRC_DEFCITERATOR)); /*inistring dstr_230__CLASS_SRC_DEFCIT*/ - /*_.VALSTR___V291*/ curfptr[290] = (void*)&cdat->dstr_230__CLASS_SRC_DEFCIT; + /*_.VALSTR___V292*/ curfptr[291] = (void*)&cdat->dstr_230__CLASS_SRC_DEFCIT; cdat->dstr_230__CLASS_SRC_DEFCIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_230__CLASS_SRC_DEFCIT.val, "CLASS_SRC_DEFCITERATOR"); BASILYS_LOCATION("warmelt-macro.bysl:167:/ iniobj"); /*iniobj dobj_231__CLASS_SRC_DEFCITERATOR*/ - if (!/*_.VALDATA___V292*/ curfptr[291]) /*_.VALDATA___V292*/ curfptr[291] = (void*)&cdat->dobj_231__CLASS_SRC_DEFCITERATOR; + if (!/*_.VALDATA___V293*/ curfptr[292]) /*_.VALDATA___V293*/ curfptr[292] = (void*)&cdat->dobj_231__CLASS_SRC_DEFCITERATOR; basilys_assertmsg("iniobj checkdiscr dobj_231__CLASS_SRC_DEFCITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_231__CLASS_SRC_DEFCITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_231__CLASS_SRC_DEFCITERATOR.obj_num = OBMAG_OBJECT; - cdat->dobj_231__CLASS_SRC_DEFCITERATOR.obj_hash = 702948158; + cdat->dobj_231__CLASS_SRC_DEFCITERATOR.obj_hash = 634194468; cdat->dobj_231__CLASS_SRC_DEFCITERATOR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_231__CLASS_SRC_DEFCITERATOR)); /*inistring dstr_232__CLASS_SRC_DEFCIT*/ - /*_.VALSTR___V293*/ curfptr[292] = (void*)&cdat->dstr_232__CLASS_SRC_DEFCIT; + /*_.VALSTR___V294*/ curfptr[293] = (void*)&cdat->dstr_232__CLASS_SRC_DEFCIT; cdat->dstr_232__CLASS_SRC_DEFCIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_232__CLASS_SRC_DEFCIT.val, "CLASS_SRC_DEFCITERATOR"); /*inimult dtup_233__CLASS_SRC_DEFCITERATOR*/ - /*_.VALTUP___V294*/ curfptr[293] = (void*)&cdat->dtup_233__CLASS_SRC_DEFCITERATOR; + /*_.VALTUP___V295*/ curfptr[294] = (void*)&cdat->dtup_233__CLASS_SRC_DEFCITERATOR; cdat->dtup_233__CLASS_SRC_DEFCITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_233__CLASS_SRC_DEFCITERATOR.nbval = 4; /*inimult dtup_234__CLASS_SRC_DEFCITERATOR*/ - /*_.VALTUP___V297*/ curfptr[296] = (void*)&cdat->dtup_234__CLASS_SRC_DEFCITERATOR; + /*_.VALTUP___V298*/ curfptr[297] = (void*)&cdat->dtup_234__CLASS_SRC_DEFCITERATOR; cdat->dtup_234__CLASS_SRC_DEFCITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_234__CLASS_SRC_DEFCITERATOR.nbval = 4; /*iniobj dsym_235__SCITERDEF_CITERATOR*/ - if (!/*_.VALDATA___V298*/ curfptr[297]) /*_.VALDATA___V298*/ curfptr[297] = (void*)&cdat->dsym_235__SCITERDEF_CITERATOR; + if (!/*_.VALDATA___V299*/ curfptr[298]) /*_.VALDATA___V299*/ curfptr[298] = (void*)&cdat->dsym_235__SCITERDEF_CITERATOR; basilys_assertmsg("iniobj checkdiscr dsym_235__SCITERDEF_CITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_235__SCITERDEF_CITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_235__SCITERDEF_CITERATOR.obj_hash = 321745206; @@ -45847,27 +47402,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_231__CLASS_SRC_DEFC basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_235__SCITERDEF_CITERATOR)); /*inistring dstr_236__SCITERDEF_CITERA*/ - /*_.VALSTR___V299*/ curfptr[298] = (void*)&cdat->dstr_236__SCITERDEF_CITERA; + /*_.VALSTR___V300*/ curfptr[299] = (void*)&cdat->dstr_236__SCITERDEF_CITERA; cdat->dstr_236__SCITERDEF_CITERA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_236__SCITERDEF_CITERA.val, "SCITERDEF_CITERATOR"); BASILYS_LOCATION("warmelt-macro.bysl:167:/ iniobj"); /*iniobj dobj_237__SCITERDEF_CITERATOR*/ - if (!/*_.VALDATA___V295*/ curfptr[294]) /*_.VALDATA___V295*/ curfptr[294] = (void*)&cdat->dobj_237__SCITERDEF_CITERATOR; + if (!/*_.VALDATA___V296*/ curfptr[295]) /*_.VALDATA___V296*/ curfptr[295] = (void*)&cdat->dobj_237__SCITERDEF_CITERATOR; basilys_assertmsg("iniobj checkdiscr dobj_237__SCITERDEF_CITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_237__SCITERDEF_CITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_237__SCITERDEF_CITERATOR.obj_num = 3; - cdat->dobj_237__SCITERDEF_CITERATOR.obj_hash = 10918777; + cdat->dobj_237__SCITERDEF_CITERATOR.obj_hash = 703900725; cdat->dobj_237__SCITERDEF_CITERATOR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_237__SCITERDEF_CITERATOR)); /*inistring dstr_238__SCITERDEF_CITERA*/ - /*_.VALSTR___V296*/ curfptr[295] = (void*)&cdat->dstr_238__SCITERDEF_CITERA; + /*_.VALSTR___V297*/ curfptr[296] = (void*)&cdat->dstr_238__SCITERDEF_CITERA; cdat->dstr_238__SCITERDEF_CITERA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_238__SCITERDEF_CITERA.val, "SCITERDEF_CITERATOR"); /*iniobj dsym_239__CLASS_SRC_DEFCMATCHER*/ - if (!/*_.VALDATA___V300*/ curfptr[299]) /*_.VALDATA___V300*/ curfptr[299] = (void*)&cdat->dsym_239__CLASS_SRC_DEFCMATCHER; + if (!/*_.VALDATA___V301*/ curfptr[300]) /*_.VALDATA___V301*/ curfptr[300] = (void*)&cdat->dsym_239__CLASS_SRC_DEFCMATCHER; basilys_assertmsg("iniobj checkdiscr dsym_239__CLASS_SRC_DEFCMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_239__CLASS_SRC_DEFCMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_239__CLASS_SRC_DEFCMATCHER.obj_hash = 1001297086; @@ -45875,35 +47430,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_237__SCITERDEF_CITE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_239__CLASS_SRC_DEFCMATCHER)); /*inistring dstr_240__CLASS_SRC_DEFCMA*/ - /*_.VALSTR___V301*/ curfptr[300] = (void*)&cdat->dstr_240__CLASS_SRC_DEFCMA; + /*_.VALSTR___V302*/ curfptr[301] = (void*)&cdat->dstr_240__CLASS_SRC_DEFCMA; cdat->dstr_240__CLASS_SRC_DEFCMA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_240__CLASS_SRC_DEFCMA.val, "CLASS_SRC_DEFCMATCHER"); BASILYS_LOCATION("warmelt-macro.bysl:173:/ iniobj"); /*iniobj dobj_241__CLASS_SRC_DEFCMATCHER*/ - if (!/*_.VALDATA___V302*/ curfptr[301]) /*_.VALDATA___V302*/ curfptr[301] = (void*)&cdat->dobj_241__CLASS_SRC_DEFCMATCHER; + if (!/*_.VALDATA___V303*/ curfptr[302]) /*_.VALDATA___V303*/ curfptr[302] = (void*)&cdat->dobj_241__CLASS_SRC_DEFCMATCHER; basilys_assertmsg("iniobj checkdiscr dobj_241__CLASS_SRC_DEFCMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_241__CLASS_SRC_DEFCMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_241__CLASS_SRC_DEFCMATCHER.obj_num = OBMAG_OBJECT; - cdat->dobj_241__CLASS_SRC_DEFCMATCHER.obj_hash = 661237557; + cdat->dobj_241__CLASS_SRC_DEFCMATCHER.obj_hash = 515123474; cdat->dobj_241__CLASS_SRC_DEFCMATCHER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_241__CLASS_SRC_DEFCMATCHER)); /*inistring dstr_242__CLASS_SRC_DEFCMA*/ - /*_.VALSTR___V303*/ curfptr[302] = (void*)&cdat->dstr_242__CLASS_SRC_DEFCMA; + /*_.VALSTR___V304*/ curfptr[303] = (void*)&cdat->dstr_242__CLASS_SRC_DEFCMA; cdat->dstr_242__CLASS_SRC_DEFCMA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_242__CLASS_SRC_DEFCMA.val, "CLASS_SRC_DEFCMATCHER"); /*inimult dtup_243__CLASS_SRC_DEFCMATCHER*/ - /*_.VALTUP___V304*/ curfptr[303] = (void*)&cdat->dtup_243__CLASS_SRC_DEFCMATCHER; + /*_.VALTUP___V305*/ curfptr[304] = (void*)&cdat->dtup_243__CLASS_SRC_DEFCMATCHER; cdat->dtup_243__CLASS_SRC_DEFCMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_243__CLASS_SRC_DEFCMATCHER.nbval = 4; /*inimult dtup_244__CLASS_SRC_DEFCMATCHER*/ - /*_.VALTUP___V307*/ curfptr[306] = (void*)&cdat->dtup_244__CLASS_SRC_DEFCMATCHER; + /*_.VALTUP___V308*/ curfptr[307] = (void*)&cdat->dtup_244__CLASS_SRC_DEFCMATCHER; cdat->dtup_244__CLASS_SRC_DEFCMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_244__CLASS_SRC_DEFCMATCHER.nbval = 4; /*iniobj dsym_245__SCMATDEF_CMATCHER*/ - if (!/*_.VALDATA___V308*/ curfptr[307]) /*_.VALDATA___V308*/ curfptr[307] = (void*)&cdat->dsym_245__SCMATDEF_CMATCHER; + if (!/*_.VALDATA___V309*/ curfptr[308]) /*_.VALDATA___V309*/ curfptr[308] = (void*)&cdat->dsym_245__SCMATDEF_CMATCHER; basilys_assertmsg("iniobj checkdiscr dsym_245__SCMATDEF_CMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_245__SCMATDEF_CMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_245__SCMATDEF_CMATCHER.obj_hash = 75922864; @@ -45911,27 +47466,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_241__CLASS_SRC_DEFC basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_245__SCMATDEF_CMATCHER)); /*inistring dstr_246__SCMATDEF_CMATCHE*/ - /*_.VALSTR___V309*/ curfptr[308] = (void*)&cdat->dstr_246__SCMATDEF_CMATCHE; + /*_.VALSTR___V310*/ curfptr[309] = (void*)&cdat->dstr_246__SCMATDEF_CMATCHE; cdat->dstr_246__SCMATDEF_CMATCHE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_246__SCMATDEF_CMATCHE.val, "SCMATDEF_CMATCHER"); BASILYS_LOCATION("warmelt-macro.bysl:173:/ iniobj"); /*iniobj dobj_247__SCMATDEF_CMATCHER*/ - if (!/*_.VALDATA___V305*/ curfptr[304]) /*_.VALDATA___V305*/ curfptr[304] = (void*)&cdat->dobj_247__SCMATDEF_CMATCHER; + if (!/*_.VALDATA___V306*/ curfptr[305]) /*_.VALDATA___V306*/ curfptr[305] = (void*)&cdat->dobj_247__SCMATDEF_CMATCHER; basilys_assertmsg("iniobj checkdiscr dobj_247__SCMATDEF_CMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_247__SCMATDEF_CMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_247__SCMATDEF_CMATCHER.obj_num = 3; - cdat->dobj_247__SCMATDEF_CMATCHER.obj_hash = 151875147; + cdat->dobj_247__SCMATDEF_CMATCHER.obj_hash = 491912227; cdat->dobj_247__SCMATDEF_CMATCHER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_247__SCMATDEF_CMATCHER)); /*inistring dstr_248__SCMATDEF_CMATCHE*/ - /*_.VALSTR___V306*/ curfptr[305] = (void*)&cdat->dstr_248__SCMATDEF_CMATCHE; + /*_.VALSTR___V307*/ curfptr[306] = (void*)&cdat->dstr_248__SCMATDEF_CMATCHE; cdat->dstr_248__SCMATDEF_CMATCHE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_248__SCMATDEF_CMATCHE.val, "SCMATDEF_CMATCHER"); /*iniobj dsym_249__CLASS_SRC_DEFUNMATCHER*/ - if (!/*_.VALDATA___V310*/ curfptr[309]) /*_.VALDATA___V310*/ curfptr[309] = (void*)&cdat->dsym_249__CLASS_SRC_DEFUNMATCHER; + if (!/*_.VALDATA___V311*/ curfptr[310]) /*_.VALDATA___V311*/ curfptr[310] = (void*)&cdat->dsym_249__CLASS_SRC_DEFUNMATCHER; basilys_assertmsg("iniobj checkdiscr dsym_249__CLASS_SRC_DEFUNMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_249__CLASS_SRC_DEFUNMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_249__CLASS_SRC_DEFUNMATCHER.obj_hash = 250377988; @@ -45939,35 +47494,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_247__SCMATDEF_CMATC basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_249__CLASS_SRC_DEFUNMATCHER)); /*inistring dstr_250__CLASS_SRC_DEFUNM*/ - /*_.VALSTR___V311*/ curfptr[310] = (void*)&cdat->dstr_250__CLASS_SRC_DEFUNM; + /*_.VALSTR___V312*/ curfptr[311] = (void*)&cdat->dstr_250__CLASS_SRC_DEFUNM; cdat->dstr_250__CLASS_SRC_DEFUNM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_250__CLASS_SRC_DEFUNM.val, "CLASS_SRC_DEFUNMATCHER"); BASILYS_LOCATION("warmelt-macro.bysl:183:/ iniobj"); /*iniobj dobj_251__CLASS_SRC_DEFUNMATCHER*/ - if (!/*_.VALDATA___V312*/ curfptr[311]) /*_.VALDATA___V312*/ curfptr[311] = (void*)&cdat->dobj_251__CLASS_SRC_DEFUNMATCHER; + if (!/*_.VALDATA___V313*/ curfptr[312]) /*_.VALDATA___V313*/ curfptr[312] = (void*)&cdat->dobj_251__CLASS_SRC_DEFUNMATCHER; basilys_assertmsg("iniobj checkdiscr dobj_251__CLASS_SRC_DEFUNMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_251__CLASS_SRC_DEFUNMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_251__CLASS_SRC_DEFUNMATCHER.obj_num = OBMAG_OBJECT; - cdat->dobj_251__CLASS_SRC_DEFUNMATCHER.obj_hash = 1047145405; + cdat->dobj_251__CLASS_SRC_DEFUNMATCHER.obj_hash = 215411695; cdat->dobj_251__CLASS_SRC_DEFUNMATCHER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_251__CLASS_SRC_DEFUNMATCHER)); /*inistring dstr_252__CLASS_SRC_DEFUNM*/ - /*_.VALSTR___V313*/ curfptr[312] = (void*)&cdat->dstr_252__CLASS_SRC_DEFUNM; + /*_.VALSTR___V314*/ curfptr[313] = (void*)&cdat->dstr_252__CLASS_SRC_DEFUNM; cdat->dstr_252__CLASS_SRC_DEFUNM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_252__CLASS_SRC_DEFUNM.val, "CLASS_SRC_DEFUNMATCHER"); /*inimult dtup_253__CLASS_SRC_DEFUNMATCHER*/ - /*_.VALTUP___V314*/ curfptr[313] = (void*)&cdat->dtup_253__CLASS_SRC_DEFUNMATCHER; + /*_.VALTUP___V315*/ curfptr[314] = (void*)&cdat->dtup_253__CLASS_SRC_DEFUNMATCHER; cdat->dtup_253__CLASS_SRC_DEFUNMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_253__CLASS_SRC_DEFUNMATCHER.nbval = 4; /*inimult dtup_254__CLASS_SRC_DEFUNMATCHER*/ - /*_.VALTUP___V325*/ curfptr[324] = (void*)&cdat->dtup_254__CLASS_SRC_DEFUNMATCHER; + /*_.VALTUP___V326*/ curfptr[325] = (void*)&cdat->dtup_254__CLASS_SRC_DEFUNMATCHER; cdat->dtup_254__CLASS_SRC_DEFUNMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_254__CLASS_SRC_DEFUNMATCHER.nbval = 8; /*iniobj dsym_255__SFUMATDEF_INS*/ - if (!/*_.VALDATA___V326*/ curfptr[325]) /*_.VALDATA___V326*/ curfptr[325] = (void*)&cdat->dsym_255__SFUMATDEF_INS; + if (!/*_.VALDATA___V327*/ curfptr[326]) /*_.VALDATA___V327*/ curfptr[326] = (void*)&cdat->dsym_255__SFUMATDEF_INS; basilys_assertmsg("iniobj checkdiscr dsym_255__SFUMATDEF_INS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_255__SFUMATDEF_INS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_255__SFUMATDEF_INS.obj_hash = 827702548; @@ -45975,27 +47530,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_251__CLASS_SRC_DEFU basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_255__SFUMATDEF_INS)); /*inistring dstr_256__SFUMATDEF_INS*/ - /*_.VALSTR___V327*/ curfptr[326] = (void*)&cdat->dstr_256__SFUMATDEF_INS; + /*_.VALSTR___V328*/ curfptr[327] = (void*)&cdat->dstr_256__SFUMATDEF_INS; cdat->dstr_256__SFUMATDEF_INS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_256__SFUMATDEF_INS.val, "SFUMATDEF_INS"); BASILYS_LOCATION("warmelt-macro.bysl:183:/ iniobj"); /*iniobj dobj_257__SFUMATDEF_INS*/ - if (!/*_.VALDATA___V315*/ curfptr[314]) /*_.VALDATA___V315*/ curfptr[314] = (void*)&cdat->dobj_257__SFUMATDEF_INS; + if (!/*_.VALDATA___V316*/ curfptr[315]) /*_.VALDATA___V316*/ curfptr[315] = (void*)&cdat->dobj_257__SFUMATDEF_INS; basilys_assertmsg("iniobj checkdiscr dobj_257__SFUMATDEF_INS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_257__SFUMATDEF_INS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_257__SFUMATDEF_INS.obj_num = 3; - cdat->dobj_257__SFUMATDEF_INS.obj_hash = 624671366; + cdat->dobj_257__SFUMATDEF_INS.obj_hash = 136227707; cdat->dobj_257__SFUMATDEF_INS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_257__SFUMATDEF_INS)); /*inistring dstr_258__SFUMATDEF_INS*/ - /*_.VALSTR___V316*/ curfptr[315] = (void*)&cdat->dstr_258__SFUMATDEF_INS; + /*_.VALSTR___V317*/ curfptr[316] = (void*)&cdat->dstr_258__SFUMATDEF_INS; cdat->dstr_258__SFUMATDEF_INS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_258__SFUMATDEF_INS.val, "SFUMATDEF_INS"); /*iniobj dsym_259__SFUMATDEF_OUTS*/ - if (!/*_.VALDATA___V328*/ curfptr[327]) /*_.VALDATA___V328*/ curfptr[327] = (void*)&cdat->dsym_259__SFUMATDEF_OUTS; + if (!/*_.VALDATA___V329*/ curfptr[328]) /*_.VALDATA___V329*/ curfptr[328] = (void*)&cdat->dsym_259__SFUMATDEF_OUTS; basilys_assertmsg("iniobj checkdiscr dsym_259__SFUMATDEF_OUTS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_259__SFUMATDEF_OUTS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_259__SFUMATDEF_OUTS.obj_hash = 314080299; @@ -46003,27 +47558,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_257__SFUMATDEF_INS) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_259__SFUMATDEF_OUTS)); /*inistring dstr_260__SFUMATDEF_OUTS*/ - /*_.VALSTR___V329*/ curfptr[328] = (void*)&cdat->dstr_260__SFUMATDEF_OUTS; + /*_.VALSTR___V330*/ curfptr[329] = (void*)&cdat->dstr_260__SFUMATDEF_OUTS; cdat->dstr_260__SFUMATDEF_OUTS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_260__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS"); BASILYS_LOCATION("warmelt-macro.bysl:183:/ iniobj"); /*iniobj dobj_261__SFUMATDEF_OUTS*/ - if (!/*_.VALDATA___V317*/ curfptr[316]) /*_.VALDATA___V317*/ curfptr[316] = (void*)&cdat->dobj_261__SFUMATDEF_OUTS; + if (!/*_.VALDATA___V318*/ curfptr[317]) /*_.VALDATA___V318*/ curfptr[317] = (void*)&cdat->dobj_261__SFUMATDEF_OUTS; basilys_assertmsg("iniobj checkdiscr dobj_261__SFUMATDEF_OUTS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_261__SFUMATDEF_OUTS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_261__SFUMATDEF_OUTS.obj_num = 4; - cdat->dobj_261__SFUMATDEF_OUTS.obj_hash = 316292684; + cdat->dobj_261__SFUMATDEF_OUTS.obj_hash = 1007370910; cdat->dobj_261__SFUMATDEF_OUTS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_261__SFUMATDEF_OUTS)); /*inistring dstr_262__SFUMATDEF_OUTS*/ - /*_.VALSTR___V318*/ curfptr[317] = (void*)&cdat->dstr_262__SFUMATDEF_OUTS; + /*_.VALSTR___V319*/ curfptr[318] = (void*)&cdat->dstr_262__SFUMATDEF_OUTS; cdat->dstr_262__SFUMATDEF_OUTS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_262__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS"); /*iniobj dsym_263__SFUMATDEF_MATCHF*/ - if (!/*_.VALDATA___V330*/ curfptr[329]) /*_.VALDATA___V330*/ curfptr[329] = (void*)&cdat->dsym_263__SFUMATDEF_MATCHF; + if (!/*_.VALDATA___V331*/ curfptr[330]) /*_.VALDATA___V331*/ curfptr[330] = (void*)&cdat->dsym_263__SFUMATDEF_MATCHF; basilys_assertmsg("iniobj checkdiscr dsym_263__SFUMATDEF_MATCHF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_263__SFUMATDEF_MATCHF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_263__SFUMATDEF_MATCHF.obj_hash = 105121313; @@ -46031,27 +47586,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_261__SFUMATDEF_OUTS basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_263__SFUMATDEF_MATCHF)); /*inistring dstr_264__SFUMATDEF_MATCHF*/ - /*_.VALSTR___V331*/ curfptr[330] = (void*)&cdat->dstr_264__SFUMATDEF_MATCHF; + /*_.VALSTR___V332*/ curfptr[331] = (void*)&cdat->dstr_264__SFUMATDEF_MATCHF; cdat->dstr_264__SFUMATDEF_MATCHF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_264__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF"); BASILYS_LOCATION("warmelt-macro.bysl:183:/ iniobj"); /*iniobj dobj_265__SFUMATDEF_MATCHF*/ - if (!/*_.VALDATA___V319*/ curfptr[318]) /*_.VALDATA___V319*/ curfptr[318] = (void*)&cdat->dobj_265__SFUMATDEF_MATCHF; + if (!/*_.VALDATA___V320*/ curfptr[319]) /*_.VALDATA___V320*/ curfptr[319] = (void*)&cdat->dobj_265__SFUMATDEF_MATCHF; basilys_assertmsg("iniobj checkdiscr dobj_265__SFUMATDEF_MATCHF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_265__SFUMATDEF_MATCHF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_265__SFUMATDEF_MATCHF.obj_num = 5; - cdat->dobj_265__SFUMATDEF_MATCHF.obj_hash = 273780504; + cdat->dobj_265__SFUMATDEF_MATCHF.obj_hash = 621895532; cdat->dobj_265__SFUMATDEF_MATCHF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_265__SFUMATDEF_MATCHF)); /*inistring dstr_266__SFUMATDEF_MATCHF*/ - /*_.VALSTR___V320*/ curfptr[319] = (void*)&cdat->dstr_266__SFUMATDEF_MATCHF; + /*_.VALSTR___V321*/ curfptr[320] = (void*)&cdat->dstr_266__SFUMATDEF_MATCHF; cdat->dstr_266__SFUMATDEF_MATCHF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_266__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF"); /*iniobj dsym_267__SFUMATDEF_APPLYF*/ - if (!/*_.VALDATA___V332*/ curfptr[331]) /*_.VALDATA___V332*/ curfptr[331] = (void*)&cdat->dsym_267__SFUMATDEF_APPLYF; + if (!/*_.VALDATA___V333*/ curfptr[332]) /*_.VALDATA___V333*/ curfptr[332] = (void*)&cdat->dsym_267__SFUMATDEF_APPLYF; basilys_assertmsg("iniobj checkdiscr dsym_267__SFUMATDEF_APPLYF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_267__SFUMATDEF_APPLYF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_267__SFUMATDEF_APPLYF.obj_hash = 921369127; @@ -46059,27 +47614,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_265__SFUMATDEF_MATC basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_267__SFUMATDEF_APPLYF)); /*inistring dstr_268__SFUMATDEF_APPLYF*/ - /*_.VALSTR___V333*/ curfptr[332] = (void*)&cdat->dstr_268__SFUMATDEF_APPLYF; + /*_.VALSTR___V334*/ curfptr[333] = (void*)&cdat->dstr_268__SFUMATDEF_APPLYF; cdat->dstr_268__SFUMATDEF_APPLYF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_268__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF"); BASILYS_LOCATION("warmelt-macro.bysl:183:/ iniobj"); /*iniobj dobj_269__SFUMATDEF_APPLYF*/ - if (!/*_.VALDATA___V321*/ curfptr[320]) /*_.VALDATA___V321*/ curfptr[320] = (void*)&cdat->dobj_269__SFUMATDEF_APPLYF; + if (!/*_.VALDATA___V322*/ curfptr[321]) /*_.VALDATA___V322*/ curfptr[321] = (void*)&cdat->dobj_269__SFUMATDEF_APPLYF; basilys_assertmsg("iniobj checkdiscr dobj_269__SFUMATDEF_APPLYF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_269__SFUMATDEF_APPLYF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_269__SFUMATDEF_APPLYF.obj_num = 6; - cdat->dobj_269__SFUMATDEF_APPLYF.obj_hash = 6336730; + cdat->dobj_269__SFUMATDEF_APPLYF.obj_hash = 416542523; cdat->dobj_269__SFUMATDEF_APPLYF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_269__SFUMATDEF_APPLYF)); /*inistring dstr_270__SFUMATDEF_APPLYF*/ - /*_.VALSTR___V322*/ curfptr[321] = (void*)&cdat->dstr_270__SFUMATDEF_APPLYF; + /*_.VALSTR___V323*/ curfptr[322] = (void*)&cdat->dstr_270__SFUMATDEF_APPLYF; cdat->dstr_270__SFUMATDEF_APPLYF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_270__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF"); /*iniobj dsym_271__SFUMATDEF_DATA*/ - if (!/*_.VALDATA___V334*/ curfptr[333]) /*_.VALDATA___V334*/ curfptr[333] = (void*)&cdat->dsym_271__SFUMATDEF_DATA; + if (!/*_.VALDATA___V335*/ curfptr[334]) /*_.VALDATA___V335*/ curfptr[334] = (void*)&cdat->dsym_271__SFUMATDEF_DATA; basilys_assertmsg("iniobj checkdiscr dsym_271__SFUMATDEF_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_271__SFUMATDEF_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_271__SFUMATDEF_DATA.obj_hash = 137569219; @@ -46087,27 +47642,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_269__SFUMATDEF_APPL basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_271__SFUMATDEF_DATA)); /*inistring dstr_272__SFUMATDEF_DATA*/ - /*_.VALSTR___V335*/ curfptr[334] = (void*)&cdat->dstr_272__SFUMATDEF_DATA; + /*_.VALSTR___V336*/ curfptr[335] = (void*)&cdat->dstr_272__SFUMATDEF_DATA; cdat->dstr_272__SFUMATDEF_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_272__SFUMATDEF_DATA.val, "SFUMATDEF_DATA"); BASILYS_LOCATION("warmelt-macro.bysl:183:/ iniobj"); /*iniobj dobj_273__SFUMATDEF_DATA*/ - if (!/*_.VALDATA___V323*/ curfptr[322]) /*_.VALDATA___V323*/ curfptr[322] = (void*)&cdat->dobj_273__SFUMATDEF_DATA; + if (!/*_.VALDATA___V324*/ curfptr[323]) /*_.VALDATA___V324*/ curfptr[323] = (void*)&cdat->dobj_273__SFUMATDEF_DATA; basilys_assertmsg("iniobj checkdiscr dobj_273__SFUMATDEF_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_273__SFUMATDEF_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_273__SFUMATDEF_DATA.obj_num = 7; - cdat->dobj_273__SFUMATDEF_DATA.obj_hash = 766280994; + cdat->dobj_273__SFUMATDEF_DATA.obj_hash = 275844466; cdat->dobj_273__SFUMATDEF_DATA.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_273__SFUMATDEF_DATA)); /*inistring dstr_274__SFUMATDEF_DATA*/ - /*_.VALSTR___V324*/ curfptr[323] = (void*)&cdat->dstr_274__SFUMATDEF_DATA; + /*_.VALSTR___V325*/ curfptr[324] = (void*)&cdat->dstr_274__SFUMATDEF_DATA; cdat->dstr_274__SFUMATDEF_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_274__SFUMATDEF_DATA.val, "SFUMATDEF_DATA"); /*iniobj dsym_275__CLASS_SRC_DEFOBJCOMMON*/ - if (!/*_.VALDATA___V336*/ curfptr[335]) /*_.VALDATA___V336*/ curfptr[335] = (void*)&cdat->dsym_275__CLASS_SRC_DEFOBJCOMMON; + if (!/*_.VALDATA___V337*/ curfptr[336]) /*_.VALDATA___V337*/ curfptr[336] = (void*)&cdat->dsym_275__CLASS_SRC_DEFOBJCOMMON; basilys_assertmsg("iniobj checkdiscr dsym_275__CLASS_SRC_DEFOBJCOMMON", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_275__CLASS_SRC_DEFOBJCOMMON.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_275__CLASS_SRC_DEFOBJCOMMON.obj_hash = 1048713030; @@ -46115,35 +47670,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_273__SFUMATDEF_DATA basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_275__CLASS_SRC_DEFOBJCOMMON)); /*inistring dstr_276__CLASS_SRC_DEFOBJ*/ - /*_.VALSTR___V337*/ curfptr[336] = (void*)&cdat->dstr_276__CLASS_SRC_DEFOBJ; + /*_.VALSTR___V338*/ curfptr[337] = (void*)&cdat->dstr_276__CLASS_SRC_DEFOBJ; cdat->dstr_276__CLASS_SRC_DEFOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_276__CLASS_SRC_DEFOBJ.val, "CLASS_SRC_DEFOBJCOMMON"); BASILYS_LOCATION("warmelt-macro.bysl:198:/ iniobj"); /*iniobj dobj_277__CLASS_SRC_DEFOBJCOMMON*/ - if (!/*_.VALDATA___V338*/ curfptr[337]) /*_.VALDATA___V338*/ curfptr[337] = (void*)&cdat->dobj_277__CLASS_SRC_DEFOBJCOMMON; + if (!/*_.VALDATA___V339*/ curfptr[338]) /*_.VALDATA___V339*/ curfptr[338] = (void*)&cdat->dobj_277__CLASS_SRC_DEFOBJCOMMON; basilys_assertmsg("iniobj checkdiscr dobj_277__CLASS_SRC_DEFOBJCOMMON", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_277__CLASS_SRC_DEFOBJCOMMON.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_277__CLASS_SRC_DEFOBJCOMMON.obj_num = OBMAG_OBJECT; - cdat->dobj_277__CLASS_SRC_DEFOBJCOMMON.obj_hash = 90494033; + cdat->dobj_277__CLASS_SRC_DEFOBJCOMMON.obj_hash = 78380896; cdat->dobj_277__CLASS_SRC_DEFOBJCOMMON.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_277__CLASS_SRC_DEFOBJCOMMON)); /*inistring dstr_278__CLASS_SRC_DEFOBJ*/ - /*_.VALSTR___V339*/ curfptr[338] = (void*)&cdat->dstr_278__CLASS_SRC_DEFOBJ; + /*_.VALSTR___V340*/ curfptr[339] = (void*)&cdat->dstr_278__CLASS_SRC_DEFOBJ; cdat->dstr_278__CLASS_SRC_DEFOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_278__CLASS_SRC_DEFOBJ.val, "CLASS_SRC_DEFOBJCOMMON"); /*inimult dtup_279__CLASS_SRC_DEFOBJCOMMON*/ - /*_.VALTUP___V340*/ curfptr[339] = (void*)&cdat->dtup_279__CLASS_SRC_DEFOBJCOMMON; + /*_.VALTUP___V341*/ curfptr[340] = (void*)&cdat->dtup_279__CLASS_SRC_DEFOBJCOMMON; cdat->dtup_279__CLASS_SRC_DEFOBJCOMMON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_279__CLASS_SRC_DEFOBJCOMMON.nbval = 3; /*inimult dtup_280__CLASS_SRC_DEFOBJCOMMON*/ - /*_.VALTUP___V345*/ curfptr[344] = (void*)&cdat->dtup_280__CLASS_SRC_DEFOBJCOMMON; + /*_.VALTUP___V346*/ curfptr[345] = (void*)&cdat->dtup_280__CLASS_SRC_DEFOBJCOMMON; cdat->dtup_280__CLASS_SRC_DEFOBJCOMMON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_280__CLASS_SRC_DEFOBJCOMMON.nbval = 4; /*iniobj dsym_281__SOBJ_PREDEF*/ - if (!/*_.VALDATA___V346*/ curfptr[345]) /*_.VALDATA___V346*/ curfptr[345] = (void*)&cdat->dsym_281__SOBJ_PREDEF; + if (!/*_.VALDATA___V347*/ curfptr[346]) /*_.VALDATA___V347*/ curfptr[346] = (void*)&cdat->dsym_281__SOBJ_PREDEF; basilys_assertmsg("iniobj checkdiscr dsym_281__SOBJ_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_281__SOBJ_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_281__SOBJ_PREDEF.obj_hash = 86176455; @@ -46151,27 +47706,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_277__CLASS_SRC_DEFO basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_281__SOBJ_PREDEF)); /*inistring dstr_282__SOBJ_PREDEF*/ - /*_.VALSTR___V347*/ curfptr[346] = (void*)&cdat->dstr_282__SOBJ_PREDEF; + /*_.VALSTR___V348*/ curfptr[347] = (void*)&cdat->dstr_282__SOBJ_PREDEF; cdat->dstr_282__SOBJ_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_282__SOBJ_PREDEF.val, "SOBJ_PREDEF"); BASILYS_LOCATION("warmelt-macro.bysl:198:/ iniobj"); /*iniobj dobj_283__SOBJ_PREDEF*/ - if (!/*_.VALDATA___V341*/ curfptr[340]) /*_.VALDATA___V341*/ curfptr[340] = (void*)&cdat->dobj_283__SOBJ_PREDEF; + if (!/*_.VALDATA___V342*/ curfptr[341]) /*_.VALDATA___V342*/ curfptr[341] = (void*)&cdat->dobj_283__SOBJ_PREDEF; basilys_assertmsg("iniobj checkdiscr dobj_283__SOBJ_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_283__SOBJ_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_283__SOBJ_PREDEF.obj_num = 2; - cdat->dobj_283__SOBJ_PREDEF.obj_hash = 414045431; + cdat->dobj_283__SOBJ_PREDEF.obj_hash = 643974583; cdat->dobj_283__SOBJ_PREDEF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_283__SOBJ_PREDEF)); /*inistring dstr_284__SOBJ_PREDEF*/ - /*_.VALSTR___V342*/ curfptr[341] = (void*)&cdat->dstr_284__SOBJ_PREDEF; + /*_.VALSTR___V343*/ curfptr[342] = (void*)&cdat->dstr_284__SOBJ_PREDEF; cdat->dstr_284__SOBJ_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_284__SOBJ_PREDEF.val, "SOBJ_PREDEF"); /*iniobj dsym_285__SOBJ_DOCSTR*/ - if (!/*_.VALDATA___V348*/ curfptr[347]) /*_.VALDATA___V348*/ curfptr[347] = (void*)&cdat->dsym_285__SOBJ_DOCSTR; + if (!/*_.VALDATA___V349*/ curfptr[348]) /*_.VALDATA___V349*/ curfptr[348] = (void*)&cdat->dsym_285__SOBJ_DOCSTR; basilys_assertmsg("iniobj checkdiscr dsym_285__SOBJ_DOCSTR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_285__SOBJ_DOCSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_285__SOBJ_DOCSTR.obj_hash = 159669125; @@ -46179,27 +47734,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_283__SOBJ_PREDEF)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_285__SOBJ_DOCSTR)); /*inistring dstr_286__SOBJ_DOCSTR*/ - /*_.VALSTR___V349*/ curfptr[348] = (void*)&cdat->dstr_286__SOBJ_DOCSTR; + /*_.VALSTR___V350*/ curfptr[349] = (void*)&cdat->dstr_286__SOBJ_DOCSTR; cdat->dstr_286__SOBJ_DOCSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_286__SOBJ_DOCSTR.val, "SOBJ_DOCSTR"); BASILYS_LOCATION("warmelt-macro.bysl:198:/ iniobj"); /*iniobj dobj_287__SOBJ_DOCSTR*/ - if (!/*_.VALDATA___V343*/ curfptr[342]) /*_.VALDATA___V343*/ curfptr[342] = (void*)&cdat->dobj_287__SOBJ_DOCSTR; + if (!/*_.VALDATA___V344*/ curfptr[343]) /*_.VALDATA___V344*/ curfptr[343] = (void*)&cdat->dobj_287__SOBJ_DOCSTR; basilys_assertmsg("iniobj checkdiscr dobj_287__SOBJ_DOCSTR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_287__SOBJ_DOCSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_287__SOBJ_DOCSTR.obj_num = 3; - cdat->dobj_287__SOBJ_DOCSTR.obj_hash = 1019529826; + cdat->dobj_287__SOBJ_DOCSTR.obj_hash = 713194072; cdat->dobj_287__SOBJ_DOCSTR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_287__SOBJ_DOCSTR)); /*inistring dstr_288__SOBJ_DOCSTR*/ - /*_.VALSTR___V344*/ curfptr[343] = (void*)&cdat->dstr_288__SOBJ_DOCSTR; + /*_.VALSTR___V345*/ curfptr[344] = (void*)&cdat->dstr_288__SOBJ_DOCSTR; cdat->dstr_288__SOBJ_DOCSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_288__SOBJ_DOCSTR.val, "SOBJ_DOCSTR"); /*iniobj dsym_289__CLASS_SRC_DEFCLASS*/ - if (!/*_.VALDATA___V350*/ curfptr[349]) /*_.VALDATA___V350*/ curfptr[349] = (void*)&cdat->dsym_289__CLASS_SRC_DEFCLASS; + if (!/*_.VALDATA___V351*/ curfptr[350]) /*_.VALDATA___V351*/ curfptr[350] = (void*)&cdat->dsym_289__CLASS_SRC_DEFCLASS; basilys_assertmsg("iniobj checkdiscr dsym_289__CLASS_SRC_DEFCLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_289__CLASS_SRC_DEFCLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_289__CLASS_SRC_DEFCLASS.obj_hash = 752535427; @@ -46207,35 +47762,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_287__SOBJ_DOCSTR)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_289__CLASS_SRC_DEFCLASS)); /*inistring dstr_290__CLASS_SRC_DEFCLA*/ - /*_.VALSTR___V351*/ curfptr[350] = (void*)&cdat->dstr_290__CLASS_SRC_DEFCLA; + /*_.VALSTR___V352*/ curfptr[351] = (void*)&cdat->dstr_290__CLASS_SRC_DEFCLA; cdat->dstr_290__CLASS_SRC_DEFCLA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_290__CLASS_SRC_DEFCLA.val, "CLASS_SRC_DEFCLASS"); BASILYS_LOCATION("warmelt-macro.bysl:207:/ iniobj"); /*iniobj dobj_291__CLASS_SRC_DEFCLASS*/ - if (!/*_.VALDATA___V352*/ curfptr[351]) /*_.VALDATA___V352*/ curfptr[351] = (void*)&cdat->dobj_291__CLASS_SRC_DEFCLASS; + if (!/*_.VALDATA___V353*/ curfptr[352]) /*_.VALDATA___V353*/ curfptr[352] = (void*)&cdat->dobj_291__CLASS_SRC_DEFCLASS; basilys_assertmsg("iniobj checkdiscr dobj_291__CLASS_SRC_DEFCLASS", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_291__CLASS_SRC_DEFCLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_291__CLASS_SRC_DEFCLASS.obj_num = OBMAG_OBJECT; - cdat->dobj_291__CLASS_SRC_DEFCLASS.obj_hash = 826042854; + cdat->dobj_291__CLASS_SRC_DEFCLASS.obj_hash = 926233610; cdat->dobj_291__CLASS_SRC_DEFCLASS.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_291__CLASS_SRC_DEFCLASS)); /*inistring dstr_292__CLASS_SRC_DEFCLA*/ - /*_.VALSTR___V353*/ curfptr[352] = (void*)&cdat->dstr_292__CLASS_SRC_DEFCLA; + /*_.VALSTR___V354*/ curfptr[353] = (void*)&cdat->dstr_292__CLASS_SRC_DEFCLA; cdat->dstr_292__CLASS_SRC_DEFCLA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_292__CLASS_SRC_DEFCLA.val, "CLASS_SRC_DEFCLASS"); /*inimult dtup_293__CLASS_SRC_DEFCLASS*/ - /*_.VALTUP___V354*/ curfptr[353] = (void*)&cdat->dtup_293__CLASS_SRC_DEFCLASS; + /*_.VALTUP___V355*/ curfptr[354] = (void*)&cdat->dtup_293__CLASS_SRC_DEFCLASS; cdat->dtup_293__CLASS_SRC_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_293__CLASS_SRC_DEFCLASS.nbval = 4; /*inimult dtup_294__CLASS_SRC_DEFCLASS*/ - /*_.VALTUP___V361*/ curfptr[360] = (void*)&cdat->dtup_294__CLASS_SRC_DEFCLASS; + /*_.VALTUP___V362*/ curfptr[361] = (void*)&cdat->dtup_294__CLASS_SRC_DEFCLASS; cdat->dtup_294__CLASS_SRC_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_294__CLASS_SRC_DEFCLASS.nbval = 7; /*iniobj dsym_295__SCLASS_CLABIND*/ - if (!/*_.VALDATA___V362*/ curfptr[361]) /*_.VALDATA___V362*/ curfptr[361] = (void*)&cdat->dsym_295__SCLASS_CLABIND; + if (!/*_.VALDATA___V363*/ curfptr[362]) /*_.VALDATA___V363*/ curfptr[362] = (void*)&cdat->dsym_295__SCLASS_CLABIND; basilys_assertmsg("iniobj checkdiscr dsym_295__SCLASS_CLABIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_295__SCLASS_CLABIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_295__SCLASS_CLABIND.obj_hash = 547477738; @@ -46243,27 +47798,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_291__CLASS_SRC_DEFC basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_295__SCLASS_CLABIND)); /*inistring dstr_296__SCLASS_CLABIND*/ - /*_.VALSTR___V363*/ curfptr[362] = (void*)&cdat->dstr_296__SCLASS_CLABIND; + /*_.VALSTR___V364*/ curfptr[363] = (void*)&cdat->dstr_296__SCLASS_CLABIND; cdat->dstr_296__SCLASS_CLABIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_296__SCLASS_CLABIND.val, "SCLASS_CLABIND"); BASILYS_LOCATION("warmelt-macro.bysl:207:/ iniobj"); /*iniobj dobj_297__SCLASS_CLABIND*/ - if (!/*_.VALDATA___V355*/ curfptr[354]) /*_.VALDATA___V355*/ curfptr[354] = (void*)&cdat->dobj_297__SCLASS_CLABIND; + if (!/*_.VALDATA___V356*/ curfptr[355]) /*_.VALDATA___V356*/ curfptr[355] = (void*)&cdat->dobj_297__SCLASS_CLABIND; basilys_assertmsg("iniobj checkdiscr dobj_297__SCLASS_CLABIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_297__SCLASS_CLABIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_297__SCLASS_CLABIND.obj_num = 4; - cdat->dobj_297__SCLASS_CLABIND.obj_hash = 103281185; + cdat->dobj_297__SCLASS_CLABIND.obj_hash = 772054729; cdat->dobj_297__SCLASS_CLABIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_297__SCLASS_CLABIND)); /*inistring dstr_298__SCLASS_CLABIND*/ - /*_.VALSTR___V356*/ curfptr[355] = (void*)&cdat->dstr_298__SCLASS_CLABIND; + /*_.VALSTR___V357*/ curfptr[356] = (void*)&cdat->dstr_298__SCLASS_CLABIND; cdat->dstr_298__SCLASS_CLABIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_298__SCLASS_CLABIND.val, "SCLASS_CLABIND"); /*iniobj dsym_299__SCLASS_SUPERBIND*/ - if (!/*_.VALDATA___V364*/ curfptr[363]) /*_.VALDATA___V364*/ curfptr[363] = (void*)&cdat->dsym_299__SCLASS_SUPERBIND; + if (!/*_.VALDATA___V365*/ curfptr[364]) /*_.VALDATA___V365*/ curfptr[364] = (void*)&cdat->dsym_299__SCLASS_SUPERBIND; basilys_assertmsg("iniobj checkdiscr dsym_299__SCLASS_SUPERBIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_299__SCLASS_SUPERBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_299__SCLASS_SUPERBIND.obj_hash = 920892924; @@ -46271,27 +47826,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_297__SCLASS_CLABIND basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_299__SCLASS_SUPERBIND)); /*inistring dstr_300__SCLASS_SUPERBIND*/ - /*_.VALSTR___V365*/ curfptr[364] = (void*)&cdat->dstr_300__SCLASS_SUPERBIND; + /*_.VALSTR___V366*/ curfptr[365] = (void*)&cdat->dstr_300__SCLASS_SUPERBIND; cdat->dstr_300__SCLASS_SUPERBIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_300__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND"); BASILYS_LOCATION("warmelt-macro.bysl:207:/ iniobj"); /*iniobj dobj_301__SCLASS_SUPERBIND*/ - if (!/*_.VALDATA___V357*/ curfptr[356]) /*_.VALDATA___V357*/ curfptr[356] = (void*)&cdat->dobj_301__SCLASS_SUPERBIND; + if (!/*_.VALDATA___V358*/ curfptr[357]) /*_.VALDATA___V358*/ curfptr[357] = (void*)&cdat->dobj_301__SCLASS_SUPERBIND; basilys_assertmsg("iniobj checkdiscr dobj_301__SCLASS_SUPERBIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_301__SCLASS_SUPERBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_301__SCLASS_SUPERBIND.obj_num = 5; - cdat->dobj_301__SCLASS_SUPERBIND.obj_hash = 845529475; + cdat->dobj_301__SCLASS_SUPERBIND.obj_hash = 963299391; cdat->dobj_301__SCLASS_SUPERBIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_301__SCLASS_SUPERBIND)); /*inistring dstr_302__SCLASS_SUPERBIND*/ - /*_.VALSTR___V358*/ curfptr[357] = (void*)&cdat->dstr_302__SCLASS_SUPERBIND; + /*_.VALSTR___V359*/ curfptr[358] = (void*)&cdat->dstr_302__SCLASS_SUPERBIND; cdat->dstr_302__SCLASS_SUPERBIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_302__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND"); /*iniobj dsym_303__SCLASS_FLDBINDS*/ - if (!/*_.VALDATA___V366*/ curfptr[365]) /*_.VALDATA___V366*/ curfptr[365] = (void*)&cdat->dsym_303__SCLASS_FLDBINDS; + if (!/*_.VALDATA___V367*/ curfptr[366]) /*_.VALDATA___V367*/ curfptr[366] = (void*)&cdat->dsym_303__SCLASS_FLDBINDS; basilys_assertmsg("iniobj checkdiscr dsym_303__SCLASS_FLDBINDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_303__SCLASS_FLDBINDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_303__SCLASS_FLDBINDS.obj_hash = 972028873; @@ -46299,27 +47854,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_301__SCLASS_SUPERBI basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_303__SCLASS_FLDBINDS)); /*inistring dstr_304__SCLASS_FLDBINDS*/ - /*_.VALSTR___V367*/ curfptr[366] = (void*)&cdat->dstr_304__SCLASS_FLDBINDS; + /*_.VALSTR___V368*/ curfptr[367] = (void*)&cdat->dstr_304__SCLASS_FLDBINDS; cdat->dstr_304__SCLASS_FLDBINDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_304__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS"); BASILYS_LOCATION("warmelt-macro.bysl:207:/ iniobj"); /*iniobj dobj_305__SCLASS_FLDBINDS*/ - if (!/*_.VALDATA___V359*/ curfptr[358]) /*_.VALDATA___V359*/ curfptr[358] = (void*)&cdat->dobj_305__SCLASS_FLDBINDS; + if (!/*_.VALDATA___V360*/ curfptr[359]) /*_.VALDATA___V360*/ curfptr[359] = (void*)&cdat->dobj_305__SCLASS_FLDBINDS; basilys_assertmsg("iniobj checkdiscr dobj_305__SCLASS_FLDBINDS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_305__SCLASS_FLDBINDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_305__SCLASS_FLDBINDS.obj_num = 6; - cdat->dobj_305__SCLASS_FLDBINDS.obj_hash = 290352252; + cdat->dobj_305__SCLASS_FLDBINDS.obj_hash = 491286452; cdat->dobj_305__SCLASS_FLDBINDS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_305__SCLASS_FLDBINDS)); /*inistring dstr_306__SCLASS_FLDBINDS*/ - /*_.VALSTR___V360*/ curfptr[359] = (void*)&cdat->dstr_306__SCLASS_FLDBINDS; + /*_.VALSTR___V361*/ curfptr[360] = (void*)&cdat->dstr_306__SCLASS_FLDBINDS; cdat->dstr_306__SCLASS_FLDBINDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_306__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS"); /*iniobj dsym_307__CLASS_SRC_DEFINSTANCE*/ - if (!/*_.VALDATA___V368*/ curfptr[367]) /*_.VALDATA___V368*/ curfptr[367] = (void*)&cdat->dsym_307__CLASS_SRC_DEFINSTANCE; + if (!/*_.VALDATA___V369*/ curfptr[368]) /*_.VALDATA___V369*/ curfptr[368] = (void*)&cdat->dsym_307__CLASS_SRC_DEFINSTANCE; basilys_assertmsg("iniobj checkdiscr dsym_307__CLASS_SRC_DEFINSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_307__CLASS_SRC_DEFINSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_307__CLASS_SRC_DEFINSTANCE.obj_hash = 472317987; @@ -46327,35 +47882,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_305__SCLASS_FLDBIND basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_307__CLASS_SRC_DEFINSTANCE)); /*inistring dstr_308__CLASS_SRC_DEFINS*/ - /*_.VALSTR___V369*/ curfptr[368] = (void*)&cdat->dstr_308__CLASS_SRC_DEFINS; + /*_.VALSTR___V370*/ curfptr[369] = (void*)&cdat->dstr_308__CLASS_SRC_DEFINS; cdat->dstr_308__CLASS_SRC_DEFINS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_308__CLASS_SRC_DEFINS.val, "CLASS_SRC_DEFINSTANCE"); BASILYS_LOCATION("warmelt-macro.bysl:216:/ iniobj"); /*iniobj dobj_309__CLASS_SRC_DEFINSTANCE*/ - if (!/*_.VALDATA___V370*/ curfptr[369]) /*_.VALDATA___V370*/ curfptr[369] = (void*)&cdat->dobj_309__CLASS_SRC_DEFINSTANCE; + if (!/*_.VALDATA___V371*/ curfptr[370]) /*_.VALDATA___V371*/ curfptr[370] = (void*)&cdat->dobj_309__CLASS_SRC_DEFINSTANCE; basilys_assertmsg("iniobj checkdiscr dobj_309__CLASS_SRC_DEFINSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_309__CLASS_SRC_DEFINSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_309__CLASS_SRC_DEFINSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_309__CLASS_SRC_DEFINSTANCE.obj_hash = 419539025; + cdat->dobj_309__CLASS_SRC_DEFINSTANCE.obj_hash = 276125661; cdat->dobj_309__CLASS_SRC_DEFINSTANCE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_309__CLASS_SRC_DEFINSTANCE)); /*inistring dstr_310__CLASS_SRC_DEFINS*/ - /*_.VALSTR___V371*/ curfptr[370] = (void*)&cdat->dstr_310__CLASS_SRC_DEFINS; + /*_.VALSTR___V372*/ curfptr[371] = (void*)&cdat->dstr_310__CLASS_SRC_DEFINS; cdat->dstr_310__CLASS_SRC_DEFINS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_310__CLASS_SRC_DEFINS.val, "CLASS_SRC_DEFINSTANCE"); /*inimult dtup_311__CLASS_SRC_DEFINSTANCE*/ - /*_.VALTUP___V372*/ curfptr[371] = (void*)&cdat->dtup_311__CLASS_SRC_DEFINSTANCE; + /*_.VALTUP___V373*/ curfptr[372] = (void*)&cdat->dtup_311__CLASS_SRC_DEFINSTANCE; cdat->dtup_311__CLASS_SRC_DEFINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_311__CLASS_SRC_DEFINSTANCE.nbval = 4; /*inimult dtup_312__CLASS_SRC_DEFINSTANCE*/ - /*_.VALTUP___V381*/ curfptr[380] = (void*)&cdat->dtup_312__CLASS_SRC_DEFINSTANCE; + /*_.VALTUP___V382*/ curfptr[381] = (void*)&cdat->dtup_312__CLASS_SRC_DEFINSTANCE; cdat->dtup_312__CLASS_SRC_DEFINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_312__CLASS_SRC_DEFINSTANCE.nbval = 8; /*iniobj dsym_313__SINST_CLASS*/ - if (!/*_.VALDATA___V382*/ curfptr[381]) /*_.VALDATA___V382*/ curfptr[381] = (void*)&cdat->dsym_313__SINST_CLASS; + if (!/*_.VALDATA___V383*/ curfptr[382]) /*_.VALDATA___V383*/ curfptr[382] = (void*)&cdat->dsym_313__SINST_CLASS; basilys_assertmsg("iniobj checkdiscr dsym_313__SINST_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_313__SINST_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_313__SINST_CLASS.obj_hash = 251075917; @@ -46363,27 +47918,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_309__CLASS_SRC_DEFI basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_313__SINST_CLASS)); /*inistring dstr_314__SINST_CLASS*/ - /*_.VALSTR___V383*/ curfptr[382] = (void*)&cdat->dstr_314__SINST_CLASS; + /*_.VALSTR___V384*/ curfptr[383] = (void*)&cdat->dstr_314__SINST_CLASS; cdat->dstr_314__SINST_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_314__SINST_CLASS.val, "SINST_CLASS"); BASILYS_LOCATION("warmelt-macro.bysl:216:/ iniobj"); /*iniobj dobj_315__SINST_CLASS*/ - if (!/*_.VALDATA___V373*/ curfptr[372]) /*_.VALDATA___V373*/ curfptr[372] = (void*)&cdat->dobj_315__SINST_CLASS; + if (!/*_.VALDATA___V374*/ curfptr[373]) /*_.VALDATA___V374*/ curfptr[373] = (void*)&cdat->dobj_315__SINST_CLASS; basilys_assertmsg("iniobj checkdiscr dobj_315__SINST_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_315__SINST_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_315__SINST_CLASS.obj_num = 4; - cdat->dobj_315__SINST_CLASS.obj_hash = 28195660; + cdat->dobj_315__SINST_CLASS.obj_hash = 448699016; cdat->dobj_315__SINST_CLASS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_315__SINST_CLASS)); /*inistring dstr_316__SINST_CLASS*/ - /*_.VALSTR___V374*/ curfptr[373] = (void*)&cdat->dstr_316__SINST_CLASS; + /*_.VALSTR___V375*/ curfptr[374] = (void*)&cdat->dstr_316__SINST_CLASS; cdat->dstr_316__SINST_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_316__SINST_CLASS.val, "SINST_CLASS"); /*iniobj dsym_317__SINST_CLABIND*/ - if (!/*_.VALDATA___V384*/ curfptr[383]) /*_.VALDATA___V384*/ curfptr[383] = (void*)&cdat->dsym_317__SINST_CLABIND; + if (!/*_.VALDATA___V385*/ curfptr[384]) /*_.VALDATA___V385*/ curfptr[384] = (void*)&cdat->dsym_317__SINST_CLABIND; basilys_assertmsg("iniobj checkdiscr dsym_317__SINST_CLABIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_317__SINST_CLABIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_317__SINST_CLABIND.obj_hash = 724106735; @@ -46391,27 +47946,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_315__SINST_CLASS)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_317__SINST_CLABIND)); /*inistring dstr_318__SINST_CLABIND*/ - /*_.VALSTR___V385*/ curfptr[384] = (void*)&cdat->dstr_318__SINST_CLABIND; + /*_.VALSTR___V386*/ curfptr[385] = (void*)&cdat->dstr_318__SINST_CLABIND; cdat->dstr_318__SINST_CLABIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_318__SINST_CLABIND.val, "SINST_CLABIND"); BASILYS_LOCATION("warmelt-macro.bysl:216:/ iniobj"); /*iniobj dobj_319__SINST_CLABIND*/ - if (!/*_.VALDATA___V375*/ curfptr[374]) /*_.VALDATA___V375*/ curfptr[374] = (void*)&cdat->dobj_319__SINST_CLABIND; + if (!/*_.VALDATA___V376*/ curfptr[375]) /*_.VALDATA___V376*/ curfptr[375] = (void*)&cdat->dobj_319__SINST_CLABIND; basilys_assertmsg("iniobj checkdiscr dobj_319__SINST_CLABIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_319__SINST_CLABIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_319__SINST_CLABIND.obj_num = 5; - cdat->dobj_319__SINST_CLABIND.obj_hash = 386415524; + cdat->dobj_319__SINST_CLABIND.obj_hash = 535390335; cdat->dobj_319__SINST_CLABIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_319__SINST_CLABIND)); /*inistring dstr_320__SINST_CLABIND*/ - /*_.VALSTR___V376*/ curfptr[375] = (void*)&cdat->dstr_320__SINST_CLABIND; + /*_.VALSTR___V377*/ curfptr[376] = (void*)&cdat->dstr_320__SINST_CLABIND; cdat->dstr_320__SINST_CLABIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_320__SINST_CLABIND.val, "SINST_CLABIND"); /*iniobj dsym_321__SINST_OBJNUM*/ - if (!/*_.VALDATA___V386*/ curfptr[385]) /*_.VALDATA___V386*/ curfptr[385] = (void*)&cdat->dsym_321__SINST_OBJNUM; + if (!/*_.VALDATA___V387*/ curfptr[386]) /*_.VALDATA___V387*/ curfptr[386] = (void*)&cdat->dsym_321__SINST_OBJNUM; basilys_assertmsg("iniobj checkdiscr dsym_321__SINST_OBJNUM", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_321__SINST_OBJNUM.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_321__SINST_OBJNUM.obj_hash = 504129586; @@ -46419,27 +47974,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_319__SINST_CLABIND) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_321__SINST_OBJNUM)); /*inistring dstr_322__SINST_OBJNUM*/ - /*_.VALSTR___V387*/ curfptr[386] = (void*)&cdat->dstr_322__SINST_OBJNUM; + /*_.VALSTR___V388*/ curfptr[387] = (void*)&cdat->dstr_322__SINST_OBJNUM; cdat->dstr_322__SINST_OBJNUM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_322__SINST_OBJNUM.val, "SINST_OBJNUM"); BASILYS_LOCATION("warmelt-macro.bysl:216:/ iniobj"); /*iniobj dobj_323__SINST_OBJNUM*/ - if (!/*_.VALDATA___V377*/ curfptr[376]) /*_.VALDATA___V377*/ curfptr[376] = (void*)&cdat->dobj_323__SINST_OBJNUM; + if (!/*_.VALDATA___V378*/ curfptr[377]) /*_.VALDATA___V378*/ curfptr[377] = (void*)&cdat->dobj_323__SINST_OBJNUM; basilys_assertmsg("iniobj checkdiscr dobj_323__SINST_OBJNUM", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_323__SINST_OBJNUM.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_323__SINST_OBJNUM.obj_num = 6; - cdat->dobj_323__SINST_OBJNUM.obj_hash = 387471180; + cdat->dobj_323__SINST_OBJNUM.obj_hash = 445522823; cdat->dobj_323__SINST_OBJNUM.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_323__SINST_OBJNUM)); /*inistring dstr_324__SINST_OBJNUM*/ - /*_.VALSTR___V378*/ curfptr[377] = (void*)&cdat->dstr_324__SINST_OBJNUM; + /*_.VALSTR___V379*/ curfptr[378] = (void*)&cdat->dstr_324__SINST_OBJNUM; cdat->dstr_324__SINST_OBJNUM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_324__SINST_OBJNUM.val, "SINST_OBJNUM"); /*iniobj dsym_325__SINST_FIELDS*/ - if (!/*_.VALDATA___V388*/ curfptr[387]) /*_.VALDATA___V388*/ curfptr[387] = (void*)&cdat->dsym_325__SINST_FIELDS; + if (!/*_.VALDATA___V389*/ curfptr[388]) /*_.VALDATA___V389*/ curfptr[388] = (void*)&cdat->dsym_325__SINST_FIELDS; basilys_assertmsg("iniobj checkdiscr dsym_325__SINST_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_325__SINST_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_325__SINST_FIELDS.obj_hash = 827706478; @@ -46447,27 +48002,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_323__SINST_OBJNUM)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_325__SINST_FIELDS)); /*inistring dstr_326__SINST_FIELDS*/ - /*_.VALSTR___V389*/ curfptr[388] = (void*)&cdat->dstr_326__SINST_FIELDS; + /*_.VALSTR___V390*/ curfptr[389] = (void*)&cdat->dstr_326__SINST_FIELDS; cdat->dstr_326__SINST_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_326__SINST_FIELDS.val, "SINST_FIELDS"); BASILYS_LOCATION("warmelt-macro.bysl:216:/ iniobj"); /*iniobj dobj_327__SINST_FIELDS*/ - if (!/*_.VALDATA___V379*/ curfptr[378]) /*_.VALDATA___V379*/ curfptr[378] = (void*)&cdat->dobj_327__SINST_FIELDS; + if (!/*_.VALDATA___V380*/ curfptr[379]) /*_.VALDATA___V380*/ curfptr[379] = (void*)&cdat->dobj_327__SINST_FIELDS; basilys_assertmsg("iniobj checkdiscr dobj_327__SINST_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_327__SINST_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_327__SINST_FIELDS.obj_num = 7; - cdat->dobj_327__SINST_FIELDS.obj_hash = 65209972; + cdat->dobj_327__SINST_FIELDS.obj_hash = 965040401; cdat->dobj_327__SINST_FIELDS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_327__SINST_FIELDS)); /*inistring dstr_328__SINST_FIELDS*/ - /*_.VALSTR___V380*/ curfptr[379] = (void*)&cdat->dstr_328__SINST_FIELDS; + /*_.VALSTR___V381*/ curfptr[380] = (void*)&cdat->dstr_328__SINST_FIELDS; cdat->dstr_328__SINST_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_328__SINST_FIELDS.val, "SINST_FIELDS"); /*iniobj dsym_329__CLASS_SRC_DEFSELECTOR*/ - if (!/*_.VALDATA___V390*/ curfptr[389]) /*_.VALDATA___V390*/ curfptr[389] = (void*)&cdat->dsym_329__CLASS_SRC_DEFSELECTOR; + if (!/*_.VALDATA___V391*/ curfptr[390]) /*_.VALDATA___V391*/ curfptr[390] = (void*)&cdat->dsym_329__CLASS_SRC_DEFSELECTOR; basilys_assertmsg("iniobj checkdiscr dsym_329__CLASS_SRC_DEFSELECTOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_329__CLASS_SRC_DEFSELECTOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_329__CLASS_SRC_DEFSELECTOR.obj_hash = 536665905; @@ -46475,35 +48030,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_327__SINST_FIELDS)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_329__CLASS_SRC_DEFSELECTOR)); /*inistring dstr_330__CLASS_SRC_DEFSEL*/ - /*_.VALSTR___V391*/ curfptr[390] = (void*)&cdat->dstr_330__CLASS_SRC_DEFSEL; + /*_.VALSTR___V392*/ curfptr[391] = (void*)&cdat->dstr_330__CLASS_SRC_DEFSEL; cdat->dstr_330__CLASS_SRC_DEFSEL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_330__CLASS_SRC_DEFSEL.val, "CLASS_SRC_DEFSELECTOR"); BASILYS_LOCATION("warmelt-macro.bysl:225:/ iniobj"); /*iniobj dobj_331__CLASS_SRC_DEFSELECTOR*/ - if (!/*_.VALDATA___V392*/ curfptr[391]) /*_.VALDATA___V392*/ curfptr[391] = (void*)&cdat->dobj_331__CLASS_SRC_DEFSELECTOR; + if (!/*_.VALDATA___V393*/ curfptr[392]) /*_.VALDATA___V393*/ curfptr[392] = (void*)&cdat->dobj_331__CLASS_SRC_DEFSELECTOR; basilys_assertmsg("iniobj checkdiscr dobj_331__CLASS_SRC_DEFSELECTOR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_331__CLASS_SRC_DEFSELECTOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_331__CLASS_SRC_DEFSELECTOR.obj_num = OBMAG_OBJECT; - cdat->dobj_331__CLASS_SRC_DEFSELECTOR.obj_hash = 308804225; + cdat->dobj_331__CLASS_SRC_DEFSELECTOR.obj_hash = 521166051; cdat->dobj_331__CLASS_SRC_DEFSELECTOR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_331__CLASS_SRC_DEFSELECTOR)); /*inistring dstr_332__CLASS_SRC_DEFSEL*/ - /*_.VALSTR___V393*/ curfptr[392] = (void*)&cdat->dstr_332__CLASS_SRC_DEFSEL; + /*_.VALSTR___V394*/ curfptr[393] = (void*)&cdat->dstr_332__CLASS_SRC_DEFSEL; cdat->dstr_332__CLASS_SRC_DEFSEL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_332__CLASS_SRC_DEFSEL.val, "CLASS_SRC_DEFSELECTOR"); /*inimult dtup_333__CLASS_SRC_DEFSELECTOR*/ - /*_.VALTUP___V394*/ curfptr[393] = (void*)&cdat->dtup_333__CLASS_SRC_DEFSELECTOR; + /*_.VALTUP___V395*/ curfptr[394] = (void*)&cdat->dtup_333__CLASS_SRC_DEFSELECTOR; cdat->dtup_333__CLASS_SRC_DEFSELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_333__CLASS_SRC_DEFSELECTOR.nbval = 5; /*inimult dtup_334__CLASS_SRC_DEFSELECTOR*/ - /*_.VALTUP___V395*/ curfptr[394] = (void*)&cdat->dtup_334__CLASS_SRC_DEFSELECTOR; + /*_.VALTUP___V396*/ curfptr[395] = (void*)&cdat->dtup_334__CLASS_SRC_DEFSELECTOR; cdat->dtup_334__CLASS_SRC_DEFSELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_334__CLASS_SRC_DEFSELECTOR.nbval = 8; /*iniobj dsym_335__CLASS_SRC_FIELDASSIGN*/ - if (!/*_.VALDATA___V396*/ curfptr[395]) /*_.VALDATA___V396*/ curfptr[395] = (void*)&cdat->dsym_335__CLASS_SRC_FIELDASSIGN; + if (!/*_.VALDATA___V397*/ curfptr[396]) /*_.VALDATA___V397*/ curfptr[396] = (void*)&cdat->dsym_335__CLASS_SRC_FIELDASSIGN; basilys_assertmsg("iniobj checkdiscr dsym_335__CLASS_SRC_FIELDASSIGN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_335__CLASS_SRC_FIELDASSIGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_335__CLASS_SRC_FIELDASSIGN.obj_hash = 79184702; @@ -46511,35 +48066,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_331__CLASS_SRC_DEFS basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_335__CLASS_SRC_FIELDASSIGN)); /*inistring dstr_336__CLASS_SRC_FIELDA*/ - /*_.VALSTR___V397*/ curfptr[396] = (void*)&cdat->dstr_336__CLASS_SRC_FIELDA; + /*_.VALSTR___V398*/ curfptr[397] = (void*)&cdat->dstr_336__CLASS_SRC_FIELDA; cdat->dstr_336__CLASS_SRC_FIELDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_336__CLASS_SRC_FIELDA.val, "CLASS_SRC_FIELDASSIGN"); BASILYS_LOCATION("warmelt-macro.bysl:230:/ iniobj"); /*iniobj dobj_337__CLASS_SRC_FIELDASSIGN*/ - if (!/*_.VALDATA___V398*/ curfptr[397]) /*_.VALDATA___V398*/ curfptr[397] = (void*)&cdat->dobj_337__CLASS_SRC_FIELDASSIGN; + if (!/*_.VALDATA___V399*/ curfptr[398]) /*_.VALDATA___V399*/ curfptr[398] = (void*)&cdat->dobj_337__CLASS_SRC_FIELDASSIGN; basilys_assertmsg("iniobj checkdiscr dobj_337__CLASS_SRC_FIELDASSIGN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_337__CLASS_SRC_FIELDASSIGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_337__CLASS_SRC_FIELDASSIGN.obj_num = OBMAG_OBJECT; - cdat->dobj_337__CLASS_SRC_FIELDASSIGN.obj_hash = 184530147; + cdat->dobj_337__CLASS_SRC_FIELDASSIGN.obj_hash = 898347181; cdat->dobj_337__CLASS_SRC_FIELDASSIGN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_337__CLASS_SRC_FIELDASSIGN)); /*inistring dstr_338__CLASS_SRC_FIELDA*/ - /*_.VALSTR___V399*/ curfptr[398] = (void*)&cdat->dstr_338__CLASS_SRC_FIELDA; + /*_.VALSTR___V400*/ curfptr[399] = (void*)&cdat->dstr_338__CLASS_SRC_FIELDA; cdat->dstr_338__CLASS_SRC_FIELDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_338__CLASS_SRC_FIELDA.val, "CLASS_SRC_FIELDASSIGN"); /*inimult dtup_339__CLASS_SRC_FIELDASSIGN*/ - /*_.VALTUP___V400*/ curfptr[399] = (void*)&cdat->dtup_339__CLASS_SRC_FIELDASSIGN; + /*_.VALTUP___V401*/ curfptr[400] = (void*)&cdat->dtup_339__CLASS_SRC_FIELDASSIGN; cdat->dtup_339__CLASS_SRC_FIELDASSIGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_339__CLASS_SRC_FIELDASSIGN.nbval = 2; /*inimult dtup_340__CLASS_SRC_FIELDASSIGN*/ - /*_.VALTUP___V405*/ curfptr[404] = (void*)&cdat->dtup_340__CLASS_SRC_FIELDASSIGN; + /*_.VALTUP___V406*/ curfptr[405] = (void*)&cdat->dtup_340__CLASS_SRC_FIELDASSIGN; cdat->dtup_340__CLASS_SRC_FIELDASSIGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_340__CLASS_SRC_FIELDASSIGN.nbval = 3; /*iniobj dsym_341__SFLA_FIELD*/ - if (!/*_.VALDATA___V406*/ curfptr[405]) /*_.VALDATA___V406*/ curfptr[405] = (void*)&cdat->dsym_341__SFLA_FIELD; + if (!/*_.VALDATA___V407*/ curfptr[406]) /*_.VALDATA___V407*/ curfptr[406] = (void*)&cdat->dsym_341__SFLA_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_341__SFLA_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_341__SFLA_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_341__SFLA_FIELD.obj_hash = 53606921; @@ -46547,27 +48102,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_337__CLASS_SRC_FIEL basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_341__SFLA_FIELD)); /*inistring dstr_342__SFLA_FIELD*/ - /*_.VALSTR___V407*/ curfptr[406] = (void*)&cdat->dstr_342__SFLA_FIELD; + /*_.VALSTR___V408*/ curfptr[407] = (void*)&cdat->dstr_342__SFLA_FIELD; cdat->dstr_342__SFLA_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_342__SFLA_FIELD.val, "SFLA_FIELD"); BASILYS_LOCATION("warmelt-macro.bysl:230:/ iniobj"); /*iniobj dobj_343__SFLA_FIELD*/ - if (!/*_.VALDATA___V401*/ curfptr[400]) /*_.VALDATA___V401*/ curfptr[400] = (void*)&cdat->dobj_343__SFLA_FIELD; + if (!/*_.VALDATA___V402*/ curfptr[401]) /*_.VALDATA___V402*/ curfptr[401] = (void*)&cdat->dobj_343__SFLA_FIELD; basilys_assertmsg("iniobj checkdiscr dobj_343__SFLA_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_343__SFLA_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_343__SFLA_FIELD.obj_num = 1; - cdat->dobj_343__SFLA_FIELD.obj_hash = 72811980; + cdat->dobj_343__SFLA_FIELD.obj_hash = 264690904; cdat->dobj_343__SFLA_FIELD.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_343__SFLA_FIELD)); /*inistring dstr_344__SFLA_FIELD*/ - /*_.VALSTR___V402*/ curfptr[401] = (void*)&cdat->dstr_344__SFLA_FIELD; + /*_.VALSTR___V403*/ curfptr[402] = (void*)&cdat->dstr_344__SFLA_FIELD; cdat->dstr_344__SFLA_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_344__SFLA_FIELD.val, "SFLA_FIELD"); /*iniobj dsym_345__SFLA_EXPR*/ - if (!/*_.VALDATA___V408*/ curfptr[407]) /*_.VALDATA___V408*/ curfptr[407] = (void*)&cdat->dsym_345__SFLA_EXPR; + if (!/*_.VALDATA___V409*/ curfptr[408]) /*_.VALDATA___V409*/ curfptr[408] = (void*)&cdat->dsym_345__SFLA_EXPR; basilys_assertmsg("iniobj checkdiscr dsym_345__SFLA_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_345__SFLA_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_345__SFLA_EXPR.obj_hash = 723165498; @@ -46575,27 +48130,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_343__SFLA_FIELD)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_345__SFLA_EXPR)); /*inistring dstr_346__SFLA_EXPR*/ - /*_.VALSTR___V409*/ curfptr[408] = (void*)&cdat->dstr_346__SFLA_EXPR; + /*_.VALSTR___V410*/ curfptr[409] = (void*)&cdat->dstr_346__SFLA_EXPR; cdat->dstr_346__SFLA_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_346__SFLA_EXPR.val, "SFLA_EXPR"); BASILYS_LOCATION("warmelt-macro.bysl:230:/ iniobj"); /*iniobj dobj_347__SFLA_EXPR*/ - if (!/*_.VALDATA___V403*/ curfptr[402]) /*_.VALDATA___V403*/ curfptr[402] = (void*)&cdat->dobj_347__SFLA_EXPR; + if (!/*_.VALDATA___V404*/ curfptr[403]) /*_.VALDATA___V404*/ curfptr[403] = (void*)&cdat->dobj_347__SFLA_EXPR; basilys_assertmsg("iniobj checkdiscr dobj_347__SFLA_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_347__SFLA_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_347__SFLA_EXPR.obj_num = 2; - cdat->dobj_347__SFLA_EXPR.obj_hash = 453022337; + cdat->dobj_347__SFLA_EXPR.obj_hash = 680123579; cdat->dobj_347__SFLA_EXPR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_347__SFLA_EXPR)); /*inistring dstr_348__SFLA_EXPR*/ - /*_.VALSTR___V404*/ curfptr[403] = (void*)&cdat->dstr_348__SFLA_EXPR; + /*_.VALSTR___V405*/ curfptr[404] = (void*)&cdat->dstr_348__SFLA_EXPR; cdat->dstr_348__SFLA_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_348__SFLA_EXPR.val, "SFLA_EXPR"); /*iniobj dsym_349__CLASS_SRC_MAKE_INSTANCE*/ - if (!/*_.VALDATA___V410*/ curfptr[409]) /*_.VALDATA___V410*/ curfptr[409] = (void*)&cdat->dsym_349__CLASS_SRC_MAKE_INSTANCE; + if (!/*_.VALDATA___V411*/ curfptr[410]) /*_.VALDATA___V411*/ curfptr[410] = (void*)&cdat->dsym_349__CLASS_SRC_MAKE_INSTANCE; basilys_assertmsg("iniobj checkdiscr dsym_349__CLASS_SRC_MAKE_INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_349__CLASS_SRC_MAKE_INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_349__CLASS_SRC_MAKE_INSTANCE.obj_hash = 148175723; @@ -46603,35 +48158,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_347__SFLA_EXPR)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_349__CLASS_SRC_MAKE_INSTANCE)); /*inistring dstr_350__CLASS_SRC_MAKE_I*/ - /*_.VALSTR___V411*/ curfptr[410] = (void*)&cdat->dstr_350__CLASS_SRC_MAKE_I; + /*_.VALSTR___V412*/ curfptr[411] = (void*)&cdat->dstr_350__CLASS_SRC_MAKE_I; cdat->dstr_350__CLASS_SRC_MAKE_I.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_350__CLASS_SRC_MAKE_I.val, "CLASS_SRC_MAKE_INSTANCE"); BASILYS_LOCATION("warmelt-macro.bysl:238:/ iniobj"); /*iniobj dobj_351__CLASS_SRC_MAKE_INSTANCE*/ - if (!/*_.VALDATA___V412*/ curfptr[411]) /*_.VALDATA___V412*/ curfptr[411] = (void*)&cdat->dobj_351__CLASS_SRC_MAKE_INSTANCE; + if (!/*_.VALDATA___V413*/ curfptr[412]) /*_.VALDATA___V413*/ curfptr[412] = (void*)&cdat->dobj_351__CLASS_SRC_MAKE_INSTANCE; basilys_assertmsg("iniobj checkdiscr dobj_351__CLASS_SRC_MAKE_INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_351__CLASS_SRC_MAKE_INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_351__CLASS_SRC_MAKE_INSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_351__CLASS_SRC_MAKE_INSTANCE.obj_hash = 814686435; + cdat->dobj_351__CLASS_SRC_MAKE_INSTANCE.obj_hash = 684208998; cdat->dobj_351__CLASS_SRC_MAKE_INSTANCE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_351__CLASS_SRC_MAKE_INSTANCE)); /*inistring dstr_352__CLASS_SRC_MAKE_I*/ - /*_.VALSTR___V413*/ curfptr[412] = (void*)&cdat->dstr_352__CLASS_SRC_MAKE_I; + /*_.VALSTR___V414*/ curfptr[413] = (void*)&cdat->dstr_352__CLASS_SRC_MAKE_I; cdat->dstr_352__CLASS_SRC_MAKE_I.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_352__CLASS_SRC_MAKE_I.val, "CLASS_SRC_MAKE_INSTANCE"); /*inimult dtup_353__CLASS_SRC_MAKE_INSTANCE*/ - /*_.VALTUP___V414*/ curfptr[413] = (void*)&cdat->dtup_353__CLASS_SRC_MAKE_INSTANCE; + /*_.VALTUP___V415*/ curfptr[414] = (void*)&cdat->dtup_353__CLASS_SRC_MAKE_INSTANCE; cdat->dtup_353__CLASS_SRC_MAKE_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_353__CLASS_SRC_MAKE_INSTANCE.nbval = 2; /*inimult dtup_354__CLASS_SRC_MAKE_INSTANCE*/ - /*_.VALTUP___V421*/ curfptr[420] = (void*)&cdat->dtup_354__CLASS_SRC_MAKE_INSTANCE; + /*_.VALTUP___V422*/ curfptr[421] = (void*)&cdat->dtup_354__CLASS_SRC_MAKE_INSTANCE; cdat->dtup_354__CLASS_SRC_MAKE_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_354__CLASS_SRC_MAKE_INSTANCE.nbval = 4; /*iniobj dsym_355__SMINS_CLASS*/ - if (!/*_.VALDATA___V422*/ curfptr[421]) /*_.VALDATA___V422*/ curfptr[421] = (void*)&cdat->dsym_355__SMINS_CLASS; + if (!/*_.VALDATA___V423*/ curfptr[422]) /*_.VALDATA___V423*/ curfptr[422] = (void*)&cdat->dsym_355__SMINS_CLASS; basilys_assertmsg("iniobj checkdiscr dsym_355__SMINS_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_355__SMINS_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_355__SMINS_CLASS.obj_hash = 354373683; @@ -46639,27 +48194,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_351__CLASS_SRC_MAKE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_355__SMINS_CLASS)); /*inistring dstr_356__SMINS_CLASS*/ - /*_.VALSTR___V423*/ curfptr[422] = (void*)&cdat->dstr_356__SMINS_CLASS; + /*_.VALSTR___V424*/ curfptr[423] = (void*)&cdat->dstr_356__SMINS_CLASS; cdat->dstr_356__SMINS_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_356__SMINS_CLASS.val, "SMINS_CLASS"); BASILYS_LOCATION("warmelt-macro.bysl:238:/ iniobj"); /*iniobj dobj_357__SMINS_CLASS*/ - if (!/*_.VALDATA___V415*/ curfptr[414]) /*_.VALDATA___V415*/ curfptr[414] = (void*)&cdat->dobj_357__SMINS_CLASS; + if (!/*_.VALDATA___V416*/ curfptr[415]) /*_.VALDATA___V416*/ curfptr[415] = (void*)&cdat->dobj_357__SMINS_CLASS; basilys_assertmsg("iniobj checkdiscr dobj_357__SMINS_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_357__SMINS_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_357__SMINS_CLASS.obj_num = 1; - cdat->dobj_357__SMINS_CLASS.obj_hash = 1053036187; + cdat->dobj_357__SMINS_CLASS.obj_hash = 923603423; cdat->dobj_357__SMINS_CLASS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_357__SMINS_CLASS)); /*inistring dstr_358__SMINS_CLASS*/ - /*_.VALSTR___V416*/ curfptr[415] = (void*)&cdat->dstr_358__SMINS_CLASS; + /*_.VALSTR___V417*/ curfptr[416] = (void*)&cdat->dstr_358__SMINS_CLASS; cdat->dstr_358__SMINS_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_358__SMINS_CLASS.val, "SMINS_CLASS"); /*iniobj dsym_359__SMINS_CLABIND*/ - if (!/*_.VALDATA___V424*/ curfptr[423]) /*_.VALDATA___V424*/ curfptr[423] = (void*)&cdat->dsym_359__SMINS_CLABIND; + if (!/*_.VALDATA___V425*/ curfptr[424]) /*_.VALDATA___V425*/ curfptr[424] = (void*)&cdat->dsym_359__SMINS_CLABIND; basilys_assertmsg("iniobj checkdiscr dsym_359__SMINS_CLABIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_359__SMINS_CLABIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_359__SMINS_CLABIND.obj_hash = 893906416; @@ -46667,27 +48222,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_357__SMINS_CLASS)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_359__SMINS_CLABIND)); /*inistring dstr_360__SMINS_CLABIND*/ - /*_.VALSTR___V425*/ curfptr[424] = (void*)&cdat->dstr_360__SMINS_CLABIND; + /*_.VALSTR___V426*/ curfptr[425] = (void*)&cdat->dstr_360__SMINS_CLABIND; cdat->dstr_360__SMINS_CLABIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_360__SMINS_CLABIND.val, "SMINS_CLABIND"); BASILYS_LOCATION("warmelt-macro.bysl:238:/ iniobj"); /*iniobj dobj_361__SMINS_CLABIND*/ - if (!/*_.VALDATA___V417*/ curfptr[416]) /*_.VALDATA___V417*/ curfptr[416] = (void*)&cdat->dobj_361__SMINS_CLABIND; + if (!/*_.VALDATA___V418*/ curfptr[417]) /*_.VALDATA___V418*/ curfptr[417] = (void*)&cdat->dobj_361__SMINS_CLABIND; basilys_assertmsg("iniobj checkdiscr dobj_361__SMINS_CLABIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_361__SMINS_CLABIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_361__SMINS_CLABIND.obj_num = 2; - cdat->dobj_361__SMINS_CLABIND.obj_hash = 398446075; + cdat->dobj_361__SMINS_CLABIND.obj_hash = 618608148; cdat->dobj_361__SMINS_CLABIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_361__SMINS_CLABIND)); /*inistring dstr_362__SMINS_CLABIND*/ - /*_.VALSTR___V418*/ curfptr[417] = (void*)&cdat->dstr_362__SMINS_CLABIND; + /*_.VALSTR___V419*/ curfptr[418] = (void*)&cdat->dstr_362__SMINS_CLABIND; cdat->dstr_362__SMINS_CLABIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_362__SMINS_CLABIND.val, "SMINS_CLABIND"); /*iniobj dsym_363__SMINS_FIELDS*/ - if (!/*_.VALDATA___V426*/ curfptr[425]) /*_.VALDATA___V426*/ curfptr[425] = (void*)&cdat->dsym_363__SMINS_FIELDS; + if (!/*_.VALDATA___V427*/ curfptr[426]) /*_.VALDATA___V427*/ curfptr[426] = (void*)&cdat->dsym_363__SMINS_FIELDS; basilys_assertmsg("iniobj checkdiscr dsym_363__SMINS_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_363__SMINS_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_363__SMINS_FIELDS.obj_hash = 235347076; @@ -46695,27 +48250,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_361__SMINS_CLABIND) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_363__SMINS_FIELDS)); /*inistring dstr_364__SMINS_FIELDS*/ - /*_.VALSTR___V427*/ curfptr[426] = (void*)&cdat->dstr_364__SMINS_FIELDS; + /*_.VALSTR___V428*/ curfptr[427] = (void*)&cdat->dstr_364__SMINS_FIELDS; cdat->dstr_364__SMINS_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_364__SMINS_FIELDS.val, "SMINS_FIELDS"); BASILYS_LOCATION("warmelt-macro.bysl:238:/ iniobj"); /*iniobj dobj_365__SMINS_FIELDS*/ - if (!/*_.VALDATA___V419*/ curfptr[418]) /*_.VALDATA___V419*/ curfptr[418] = (void*)&cdat->dobj_365__SMINS_FIELDS; + if (!/*_.VALDATA___V420*/ curfptr[419]) /*_.VALDATA___V420*/ curfptr[419] = (void*)&cdat->dobj_365__SMINS_FIELDS; basilys_assertmsg("iniobj checkdiscr dobj_365__SMINS_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_365__SMINS_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_365__SMINS_FIELDS.obj_num = 3; - cdat->dobj_365__SMINS_FIELDS.obj_hash = 96526461; + cdat->dobj_365__SMINS_FIELDS.obj_hash = 501906407; cdat->dobj_365__SMINS_FIELDS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_365__SMINS_FIELDS)); /*inistring dstr_366__SMINS_FIELDS*/ - /*_.VALSTR___V420*/ curfptr[419] = (void*)&cdat->dstr_366__SMINS_FIELDS; + /*_.VALSTR___V421*/ curfptr[420] = (void*)&cdat->dstr_366__SMINS_FIELDS; cdat->dstr_366__SMINS_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_366__SMINS_FIELDS.val, "SMINS_FIELDS"); /*iniobj dsym_367__CLASS_SRC_GET_FIELD*/ - if (!/*_.VALDATA___V428*/ curfptr[427]) /*_.VALDATA___V428*/ curfptr[427] = (void*)&cdat->dsym_367__CLASS_SRC_GET_FIELD; + if (!/*_.VALDATA___V429*/ curfptr[428]) /*_.VALDATA___V429*/ curfptr[428] = (void*)&cdat->dsym_367__CLASS_SRC_GET_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_367__CLASS_SRC_GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_367__CLASS_SRC_GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_367__CLASS_SRC_GET_FIELD.obj_hash = 160054194; @@ -46723,35 +48278,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_365__SMINS_FIELDS)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_367__CLASS_SRC_GET_FIELD)); /*inistring dstr_368__CLASS_SRC_GET_FI*/ - /*_.VALSTR___V429*/ curfptr[428] = (void*)&cdat->dstr_368__CLASS_SRC_GET_FI; + /*_.VALSTR___V430*/ curfptr[429] = (void*)&cdat->dstr_368__CLASS_SRC_GET_FI; cdat->dstr_368__CLASS_SRC_GET_FI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_368__CLASS_SRC_GET_FI.val, "CLASS_SRC_GET_FIELD"); BASILYS_LOCATION("warmelt-macro.bysl:246:/ iniobj"); /*iniobj dobj_369__CLASS_SRC_GET_FIELD*/ - if (!/*_.VALDATA___V430*/ curfptr[429]) /*_.VALDATA___V430*/ curfptr[429] = (void*)&cdat->dobj_369__CLASS_SRC_GET_FIELD; + if (!/*_.VALDATA___V431*/ curfptr[430]) /*_.VALDATA___V431*/ curfptr[430] = (void*)&cdat->dobj_369__CLASS_SRC_GET_FIELD; basilys_assertmsg("iniobj checkdiscr dobj_369__CLASS_SRC_GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_369__CLASS_SRC_GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_369__CLASS_SRC_GET_FIELD.obj_num = OBMAG_OBJECT; - cdat->dobj_369__CLASS_SRC_GET_FIELD.obj_hash = 636455827; + cdat->dobj_369__CLASS_SRC_GET_FIELD.obj_hash = 420367663; cdat->dobj_369__CLASS_SRC_GET_FIELD.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_369__CLASS_SRC_GET_FIELD)); /*inistring dstr_370__CLASS_SRC_GET_FI*/ - /*_.VALSTR___V431*/ curfptr[430] = (void*)&cdat->dstr_370__CLASS_SRC_GET_FI; + /*_.VALSTR___V432*/ curfptr[431] = (void*)&cdat->dstr_370__CLASS_SRC_GET_FI; cdat->dstr_370__CLASS_SRC_GET_FI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_370__CLASS_SRC_GET_FI.val, "CLASS_SRC_GET_FIELD"); /*inimult dtup_371__CLASS_SRC_GET_FIELD*/ - /*_.VALTUP___V432*/ curfptr[431] = (void*)&cdat->dtup_371__CLASS_SRC_GET_FIELD; + /*_.VALTUP___V433*/ curfptr[432] = (void*)&cdat->dtup_371__CLASS_SRC_GET_FIELD; cdat->dtup_371__CLASS_SRC_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_371__CLASS_SRC_GET_FIELD.nbval = 2; /*inimult dtup_372__CLASS_SRC_GET_FIELD*/ - /*_.VALTUP___V437*/ curfptr[436] = (void*)&cdat->dtup_372__CLASS_SRC_GET_FIELD; + /*_.VALTUP___V438*/ curfptr[437] = (void*)&cdat->dtup_372__CLASS_SRC_GET_FIELD; cdat->dtup_372__CLASS_SRC_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_372__CLASS_SRC_GET_FIELD.nbval = 3; /*iniobj dsym_373__SUGET_OBJ*/ - if (!/*_.VALDATA___V438*/ curfptr[437]) /*_.VALDATA___V438*/ curfptr[437] = (void*)&cdat->dsym_373__SUGET_OBJ; + if (!/*_.VALDATA___V439*/ curfptr[438]) /*_.VALDATA___V439*/ curfptr[438] = (void*)&cdat->dsym_373__SUGET_OBJ; basilys_assertmsg("iniobj checkdiscr dsym_373__SUGET_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_373__SUGET_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_373__SUGET_OBJ.obj_hash = 649934642; @@ -46759,27 +48314,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_369__CLASS_SRC_GET_ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_373__SUGET_OBJ)); /*inistring dstr_374__SUGET_OBJ*/ - /*_.VALSTR___V439*/ curfptr[438] = (void*)&cdat->dstr_374__SUGET_OBJ; + /*_.VALSTR___V440*/ curfptr[439] = (void*)&cdat->dstr_374__SUGET_OBJ; cdat->dstr_374__SUGET_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_374__SUGET_OBJ.val, "SUGET_OBJ"); BASILYS_LOCATION("warmelt-macro.bysl:246:/ iniobj"); /*iniobj dobj_375__SUGET_OBJ*/ - if (!/*_.VALDATA___V433*/ curfptr[432]) /*_.VALDATA___V433*/ curfptr[432] = (void*)&cdat->dobj_375__SUGET_OBJ; + if (!/*_.VALDATA___V434*/ curfptr[433]) /*_.VALDATA___V434*/ curfptr[433] = (void*)&cdat->dobj_375__SUGET_OBJ; basilys_assertmsg("iniobj checkdiscr dobj_375__SUGET_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_375__SUGET_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_375__SUGET_OBJ.obj_num = 1; - cdat->dobj_375__SUGET_OBJ.obj_hash = 823126370; + cdat->dobj_375__SUGET_OBJ.obj_hash = 32485936; cdat->dobj_375__SUGET_OBJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_375__SUGET_OBJ)); /*inistring dstr_376__SUGET_OBJ*/ - /*_.VALSTR___V434*/ curfptr[433] = (void*)&cdat->dstr_376__SUGET_OBJ; + /*_.VALSTR___V435*/ curfptr[434] = (void*)&cdat->dstr_376__SUGET_OBJ; cdat->dstr_376__SUGET_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_376__SUGET_OBJ.val, "SUGET_OBJ"); /*iniobj dsym_377__SUGET_FIELD*/ - if (!/*_.VALDATA___V440*/ curfptr[439]) /*_.VALDATA___V440*/ curfptr[439] = (void*)&cdat->dsym_377__SUGET_FIELD; + if (!/*_.VALDATA___V441*/ curfptr[440]) /*_.VALDATA___V441*/ curfptr[440] = (void*)&cdat->dsym_377__SUGET_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_377__SUGET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_377__SUGET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_377__SUGET_FIELD.obj_hash = 430834528; @@ -46787,27 +48342,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_375__SUGET_OBJ)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_377__SUGET_FIELD)); /*inistring dstr_378__SUGET_FIELD*/ - /*_.VALSTR___V441*/ curfptr[440] = (void*)&cdat->dstr_378__SUGET_FIELD; + /*_.VALSTR___V442*/ curfptr[441] = (void*)&cdat->dstr_378__SUGET_FIELD; cdat->dstr_378__SUGET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_378__SUGET_FIELD.val, "SUGET_FIELD"); BASILYS_LOCATION("warmelt-macro.bysl:246:/ iniobj"); /*iniobj dobj_379__SUGET_FIELD*/ - if (!/*_.VALDATA___V435*/ curfptr[434]) /*_.VALDATA___V435*/ curfptr[434] = (void*)&cdat->dobj_379__SUGET_FIELD; + if (!/*_.VALDATA___V436*/ curfptr[435]) /*_.VALDATA___V436*/ curfptr[435] = (void*)&cdat->dobj_379__SUGET_FIELD; basilys_assertmsg("iniobj checkdiscr dobj_379__SUGET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_379__SUGET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_379__SUGET_FIELD.obj_num = 2; - cdat->dobj_379__SUGET_FIELD.obj_hash = 1070906733; + cdat->dobj_379__SUGET_FIELD.obj_hash = 68187029; cdat->dobj_379__SUGET_FIELD.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_379__SUGET_FIELD)); /*inistring dstr_380__SUGET_FIELD*/ - /*_.VALSTR___V436*/ curfptr[435] = (void*)&cdat->dstr_380__SUGET_FIELD; + /*_.VALSTR___V437*/ curfptr[436] = (void*)&cdat->dstr_380__SUGET_FIELD; cdat->dstr_380__SUGET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_380__SUGET_FIELD.val, "SUGET_FIELD"); /*iniobj dsym_381__CLASS_SRC_UNSAFE_GET_FIELD*/ - if (!/*_.VALDATA___V442*/ curfptr[441]) /*_.VALDATA___V442*/ curfptr[441] = (void*)&cdat->dsym_381__CLASS_SRC_UNSAFE_GET_FIELD; + if (!/*_.VALDATA___V443*/ curfptr[442]) /*_.VALDATA___V443*/ curfptr[442] = (void*)&cdat->dsym_381__CLASS_SRC_UNSAFE_GET_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_381__CLASS_SRC_UNSAFE_GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_381__CLASS_SRC_UNSAFE_GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_381__CLASS_SRC_UNSAFE_GET_FIELD.obj_hash = 387347725; @@ -46815,35 +48370,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_379__SUGET_FIELD)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_381__CLASS_SRC_UNSAFE_GET_FIELD)); /*inistring dstr_382__CLASS_SRC_UNSAFE*/ - /*_.VALSTR___V443*/ curfptr[442] = (void*)&cdat->dstr_382__CLASS_SRC_UNSAFE; + /*_.VALSTR___V444*/ curfptr[443] = (void*)&cdat->dstr_382__CLASS_SRC_UNSAFE; cdat->dstr_382__CLASS_SRC_UNSAFE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_382__CLASS_SRC_UNSAFE.val, "CLASS_SRC_UNSAFE_GET_FIELD"); BASILYS_LOCATION("warmelt-macro.bysl:254:/ iniobj"); /*iniobj dobj_383__CLASS_SRC_UNSAFE_GET_FIELD*/ - if (!/*_.VALDATA___V444*/ curfptr[443]) /*_.VALDATA___V444*/ curfptr[443] = (void*)&cdat->dobj_383__CLASS_SRC_UNSAFE_GET_FIELD; + if (!/*_.VALDATA___V445*/ curfptr[444]) /*_.VALDATA___V445*/ curfptr[444] = (void*)&cdat->dobj_383__CLASS_SRC_UNSAFE_GET_FIELD; basilys_assertmsg("iniobj checkdiscr dobj_383__CLASS_SRC_UNSAFE_GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_383__CLASS_SRC_UNSAFE_GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_383__CLASS_SRC_UNSAFE_GET_FIELD.obj_num = OBMAG_OBJECT; - cdat->dobj_383__CLASS_SRC_UNSAFE_GET_FIELD.obj_hash = 180304291; + cdat->dobj_383__CLASS_SRC_UNSAFE_GET_FIELD.obj_hash = 820088973; cdat->dobj_383__CLASS_SRC_UNSAFE_GET_FIELD.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_383__CLASS_SRC_UNSAFE_GET_FIELD)); /*inistring dstr_384__CLASS_SRC_UNSAFE*/ - /*_.VALSTR___V445*/ curfptr[444] = (void*)&cdat->dstr_384__CLASS_SRC_UNSAFE; + /*_.VALSTR___V446*/ curfptr[445] = (void*)&cdat->dstr_384__CLASS_SRC_UNSAFE; cdat->dstr_384__CLASS_SRC_UNSAFE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_384__CLASS_SRC_UNSAFE.val, "CLASS_SRC_UNSAFE_GET_FIELD"); /*inimult dtup_385__CLASS_SRC_UNSAFE_GET_FIELD*/ - /*_.VALTUP___V446*/ curfptr[445] = (void*)&cdat->dtup_385__CLASS_SRC_UNSAFE_GET_FIELD; + /*_.VALTUP___V447*/ curfptr[446] = (void*)&cdat->dtup_385__CLASS_SRC_UNSAFE_GET_FIELD; cdat->dtup_385__CLASS_SRC_UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_385__CLASS_SRC_UNSAFE_GET_FIELD.nbval = 3; /*inimult dtup_386__CLASS_SRC_UNSAFE_GET_FIELD*/ - /*_.VALTUP___V447*/ curfptr[446] = (void*)&cdat->dtup_386__CLASS_SRC_UNSAFE_GET_FIELD; + /*_.VALTUP___V448*/ curfptr[447] = (void*)&cdat->dtup_386__CLASS_SRC_UNSAFE_GET_FIELD; cdat->dtup_386__CLASS_SRC_UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_386__CLASS_SRC_UNSAFE_GET_FIELD.nbval = 3; /*iniobj dsym_387__CLASS_SRC_PUT_FIELDS*/ - if (!/*_.VALDATA___V448*/ curfptr[447]) /*_.VALDATA___V448*/ curfptr[447] = (void*)&cdat->dsym_387__CLASS_SRC_PUT_FIELDS; + if (!/*_.VALDATA___V449*/ curfptr[448]) /*_.VALDATA___V449*/ curfptr[448] = (void*)&cdat->dsym_387__CLASS_SRC_PUT_FIELDS; basilys_assertmsg("iniobj checkdiscr dsym_387__CLASS_SRC_PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_387__CLASS_SRC_PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_387__CLASS_SRC_PUT_FIELDS.obj_hash = 527472242; @@ -46851,35 +48406,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_383__CLASS_SRC_UNSA basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_387__CLASS_SRC_PUT_FIELDS)); /*inistring dstr_388__CLASS_SRC_PUT_FI*/ - /*_.VALSTR___V449*/ curfptr[448] = (void*)&cdat->dstr_388__CLASS_SRC_PUT_FI; + /*_.VALSTR___V450*/ curfptr[449] = (void*)&cdat->dstr_388__CLASS_SRC_PUT_FI; cdat->dstr_388__CLASS_SRC_PUT_FI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_388__CLASS_SRC_PUT_FI.val, "CLASS_SRC_PUT_FIELDS"); BASILYS_LOCATION("warmelt-macro.bysl:262:/ iniobj"); /*iniobj dobj_389__CLASS_SRC_PUT_FIELDS*/ - if (!/*_.VALDATA___V450*/ curfptr[449]) /*_.VALDATA___V450*/ curfptr[449] = (void*)&cdat->dobj_389__CLASS_SRC_PUT_FIELDS; + if (!/*_.VALDATA___V451*/ curfptr[450]) /*_.VALDATA___V451*/ curfptr[450] = (void*)&cdat->dobj_389__CLASS_SRC_PUT_FIELDS; basilys_assertmsg("iniobj checkdiscr dobj_389__CLASS_SRC_PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_389__CLASS_SRC_PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_389__CLASS_SRC_PUT_FIELDS.obj_num = OBMAG_OBJECT; - cdat->dobj_389__CLASS_SRC_PUT_FIELDS.obj_hash = 202683632; + cdat->dobj_389__CLASS_SRC_PUT_FIELDS.obj_hash = 223371328; cdat->dobj_389__CLASS_SRC_PUT_FIELDS.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_389__CLASS_SRC_PUT_FIELDS)); /*inistring dstr_390__CLASS_SRC_PUT_FI*/ - /*_.VALSTR___V451*/ curfptr[450] = (void*)&cdat->dstr_390__CLASS_SRC_PUT_FI; + /*_.VALSTR___V452*/ curfptr[451] = (void*)&cdat->dstr_390__CLASS_SRC_PUT_FI; cdat->dstr_390__CLASS_SRC_PUT_FI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_390__CLASS_SRC_PUT_FI.val, "CLASS_SRC_PUT_FIELDS"); /*inimult dtup_391__CLASS_SRC_PUT_FIELDS*/ - /*_.VALTUP___V452*/ curfptr[451] = (void*)&cdat->dtup_391__CLASS_SRC_PUT_FIELDS; + /*_.VALTUP___V453*/ curfptr[452] = (void*)&cdat->dtup_391__CLASS_SRC_PUT_FIELDS; cdat->dtup_391__CLASS_SRC_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_391__CLASS_SRC_PUT_FIELDS.nbval = 2; /*inimult dtup_392__CLASS_SRC_PUT_FIELDS*/ - /*_.VALTUP___V457*/ curfptr[456] = (void*)&cdat->dtup_392__CLASS_SRC_PUT_FIELDS; + /*_.VALTUP___V458*/ curfptr[457] = (void*)&cdat->dtup_392__CLASS_SRC_PUT_FIELDS; cdat->dtup_392__CLASS_SRC_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_392__CLASS_SRC_PUT_FIELDS.nbval = 3; /*iniobj dsym_393__SUPUT_OBJ*/ - if (!/*_.VALDATA___V458*/ curfptr[457]) /*_.VALDATA___V458*/ curfptr[457] = (void*)&cdat->dsym_393__SUPUT_OBJ; + if (!/*_.VALDATA___V459*/ curfptr[458]) /*_.VALDATA___V459*/ curfptr[458] = (void*)&cdat->dsym_393__SUPUT_OBJ; basilys_assertmsg("iniobj checkdiscr dsym_393__SUPUT_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_393__SUPUT_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_393__SUPUT_OBJ.obj_hash = 762778287; @@ -46887,27 +48442,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_389__CLASS_SRC_PUT_ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_393__SUPUT_OBJ)); /*inistring dstr_394__SUPUT_OBJ*/ - /*_.VALSTR___V459*/ curfptr[458] = (void*)&cdat->dstr_394__SUPUT_OBJ; + /*_.VALSTR___V460*/ curfptr[459] = (void*)&cdat->dstr_394__SUPUT_OBJ; cdat->dstr_394__SUPUT_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_394__SUPUT_OBJ.val, "SUPUT_OBJ"); BASILYS_LOCATION("warmelt-macro.bysl:262:/ iniobj"); /*iniobj dobj_395__SUPUT_OBJ*/ - if (!/*_.VALDATA___V453*/ curfptr[452]) /*_.VALDATA___V453*/ curfptr[452] = (void*)&cdat->dobj_395__SUPUT_OBJ; + if (!/*_.VALDATA___V454*/ curfptr[453]) /*_.VALDATA___V454*/ curfptr[453] = (void*)&cdat->dobj_395__SUPUT_OBJ; basilys_assertmsg("iniobj checkdiscr dobj_395__SUPUT_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_395__SUPUT_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_395__SUPUT_OBJ.obj_num = 1; - cdat->dobj_395__SUPUT_OBJ.obj_hash = 800017390; + cdat->dobj_395__SUPUT_OBJ.obj_hash = 11744086; cdat->dobj_395__SUPUT_OBJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_395__SUPUT_OBJ)); /*inistring dstr_396__SUPUT_OBJ*/ - /*_.VALSTR___V454*/ curfptr[453] = (void*)&cdat->dstr_396__SUPUT_OBJ; + /*_.VALSTR___V455*/ curfptr[454] = (void*)&cdat->dstr_396__SUPUT_OBJ; cdat->dstr_396__SUPUT_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_396__SUPUT_OBJ.val, "SUPUT_OBJ"); /*iniobj dsym_397__SUPUT_FIELDS*/ - if (!/*_.VALDATA___V460*/ curfptr[459]) /*_.VALDATA___V460*/ curfptr[459] = (void*)&cdat->dsym_397__SUPUT_FIELDS; + if (!/*_.VALDATA___V461*/ curfptr[460]) /*_.VALDATA___V461*/ curfptr[460] = (void*)&cdat->dsym_397__SUPUT_FIELDS; basilys_assertmsg("iniobj checkdiscr dsym_397__SUPUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_397__SUPUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_397__SUPUT_FIELDS.obj_hash = 595613222; @@ -46915,27 +48470,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_395__SUPUT_OBJ)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_397__SUPUT_FIELDS)); /*inistring dstr_398__SUPUT_FIELDS*/ - /*_.VALSTR___V461*/ curfptr[460] = (void*)&cdat->dstr_398__SUPUT_FIELDS; + /*_.VALSTR___V462*/ curfptr[461] = (void*)&cdat->dstr_398__SUPUT_FIELDS; cdat->dstr_398__SUPUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_398__SUPUT_FIELDS.val, "SUPUT_FIELDS"); BASILYS_LOCATION("warmelt-macro.bysl:262:/ iniobj"); /*iniobj dobj_399__SUPUT_FIELDS*/ - if (!/*_.VALDATA___V455*/ curfptr[454]) /*_.VALDATA___V455*/ curfptr[454] = (void*)&cdat->dobj_399__SUPUT_FIELDS; + if (!/*_.VALDATA___V456*/ curfptr[455]) /*_.VALDATA___V456*/ curfptr[455] = (void*)&cdat->dobj_399__SUPUT_FIELDS; basilys_assertmsg("iniobj checkdiscr dobj_399__SUPUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_399__SUPUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_399__SUPUT_FIELDS.obj_num = 2; - cdat->dobj_399__SUPUT_FIELDS.obj_hash = 804264627; + cdat->dobj_399__SUPUT_FIELDS.obj_hash = 302730796; cdat->dobj_399__SUPUT_FIELDS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_399__SUPUT_FIELDS)); /*inistring dstr_400__SUPUT_FIELDS*/ - /*_.VALSTR___V456*/ curfptr[455] = (void*)&cdat->dstr_400__SUPUT_FIELDS; + /*_.VALSTR___V457*/ curfptr[456] = (void*)&cdat->dstr_400__SUPUT_FIELDS; cdat->dstr_400__SUPUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_400__SUPUT_FIELDS.val, "SUPUT_FIELDS"); /*iniobj dsym_401__CLASS_SRC_UNSAFE_PUT_FIELDS*/ - if (!/*_.VALDATA___V462*/ curfptr[461]) /*_.VALDATA___V462*/ curfptr[461] = (void*)&cdat->dsym_401__CLASS_SRC_UNSAFE_PUT_FIELDS; + if (!/*_.VALDATA___V463*/ curfptr[462]) /*_.VALDATA___V463*/ curfptr[462] = (void*)&cdat->dsym_401__CLASS_SRC_UNSAFE_PUT_FIELDS; basilys_assertmsg("iniobj checkdiscr dsym_401__CLASS_SRC_UNSAFE_PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_401__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_401__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_hash = 448952000; @@ -46943,35 +48498,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_399__SUPUT_FIELDS)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_401__CLASS_SRC_UNSAFE_PUT_FIELDS)); /*inistring dstr_402__CLASS_SRC_UNSAFE*/ - /*_.VALSTR___V463*/ curfptr[462] = (void*)&cdat->dstr_402__CLASS_SRC_UNSAFE; + /*_.VALSTR___V464*/ curfptr[463] = (void*)&cdat->dstr_402__CLASS_SRC_UNSAFE; cdat->dstr_402__CLASS_SRC_UNSAFE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_402__CLASS_SRC_UNSAFE.val, "CLASS_SRC_UNSAFE_PUT_FIELDS"); BASILYS_LOCATION("warmelt-macro.bysl:269:/ iniobj"); /*iniobj dobj_403__CLASS_SRC_UNSAFE_PUT_FIELDS*/ - if (!/*_.VALDATA___V464*/ curfptr[463]) /*_.VALDATA___V464*/ curfptr[463] = (void*)&cdat->dobj_403__CLASS_SRC_UNSAFE_PUT_FIELDS; + if (!/*_.VALDATA___V465*/ curfptr[464]) /*_.VALDATA___V465*/ curfptr[464] = (void*)&cdat->dobj_403__CLASS_SRC_UNSAFE_PUT_FIELDS; basilys_assertmsg("iniobj checkdiscr dobj_403__CLASS_SRC_UNSAFE_PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_403__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_403__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_num = OBMAG_OBJECT; - cdat->dobj_403__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_hash = 878985405; + cdat->dobj_403__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_hash = 100700308; cdat->dobj_403__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_403__CLASS_SRC_UNSAFE_PUT_FIELDS)); /*inistring dstr_404__CLASS_SRC_UNSAFE*/ - /*_.VALSTR___V465*/ curfptr[464] = (void*)&cdat->dstr_404__CLASS_SRC_UNSAFE; + /*_.VALSTR___V466*/ curfptr[465] = (void*)&cdat->dstr_404__CLASS_SRC_UNSAFE; cdat->dstr_404__CLASS_SRC_UNSAFE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_404__CLASS_SRC_UNSAFE.val, "CLASS_SRC_UNSAFE_PUT_FIELDS"); /*inimult dtup_405__CLASS_SRC_UNSAFE_PUT_FIELDS*/ - /*_.VALTUP___V466*/ curfptr[465] = (void*)&cdat->dtup_405__CLASS_SRC_UNSAFE_PUT_FIELDS; + /*_.VALTUP___V467*/ curfptr[466] = (void*)&cdat->dtup_405__CLASS_SRC_UNSAFE_PUT_FIELDS; cdat->dtup_405__CLASS_SRC_UNSAFE_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_405__CLASS_SRC_UNSAFE_PUT_FIELDS.nbval = 3; /*inimult dtup_406__CLASS_SRC_UNSAFE_PUT_FIELDS*/ - /*_.VALTUP___V467*/ curfptr[466] = (void*)&cdat->dtup_406__CLASS_SRC_UNSAFE_PUT_FIELDS; + /*_.VALTUP___V468*/ curfptr[467] = (void*)&cdat->dtup_406__CLASS_SRC_UNSAFE_PUT_FIELDS; cdat->dtup_406__CLASS_SRC_UNSAFE_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_406__CLASS_SRC_UNSAFE_PUT_FIELDS.nbval = 3; /*iniobj dsym_407__CLASS_SRC_IF*/ - if (!/*_.VALDATA___V468*/ curfptr[467]) /*_.VALDATA___V468*/ curfptr[467] = (void*)&cdat->dsym_407__CLASS_SRC_IF; + if (!/*_.VALDATA___V469*/ curfptr[468]) /*_.VALDATA___V469*/ curfptr[468] = (void*)&cdat->dsym_407__CLASS_SRC_IF; basilys_assertmsg("iniobj checkdiscr dsym_407__CLASS_SRC_IF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_407__CLASS_SRC_IF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_407__CLASS_SRC_IF.obj_hash = 923867620; @@ -46979,35 +48534,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_403__CLASS_SRC_UNSA basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_407__CLASS_SRC_IF)); /*inistring dstr_408__CLASS_SRC_IF*/ - /*_.VALSTR___V469*/ curfptr[468] = (void*)&cdat->dstr_408__CLASS_SRC_IF; + /*_.VALSTR___V470*/ curfptr[469] = (void*)&cdat->dstr_408__CLASS_SRC_IF; cdat->dstr_408__CLASS_SRC_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_408__CLASS_SRC_IF.val, "CLASS_SRC_IF"); BASILYS_LOCATION("warmelt-macro.bysl:276:/ iniobj"); /*iniobj dobj_409__CLASS_SRC_IF*/ - if (!/*_.VALDATA___V470*/ curfptr[469]) /*_.VALDATA___V470*/ curfptr[469] = (void*)&cdat->dobj_409__CLASS_SRC_IF; + if (!/*_.VALDATA___V471*/ curfptr[470]) /*_.VALDATA___V471*/ curfptr[470] = (void*)&cdat->dobj_409__CLASS_SRC_IF; basilys_assertmsg("iniobj checkdiscr dobj_409__CLASS_SRC_IF", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_409__CLASS_SRC_IF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_409__CLASS_SRC_IF.obj_num = OBMAG_OBJECT; - cdat->dobj_409__CLASS_SRC_IF.obj_hash = 795016451; + cdat->dobj_409__CLASS_SRC_IF.obj_hash = 128523255; cdat->dobj_409__CLASS_SRC_IF.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_409__CLASS_SRC_IF)); /*inistring dstr_410__CLASS_SRC_IF*/ - /*_.VALSTR___V471*/ curfptr[470] = (void*)&cdat->dstr_410__CLASS_SRC_IF; + /*_.VALSTR___V472*/ curfptr[471] = (void*)&cdat->dstr_410__CLASS_SRC_IF; cdat->dstr_410__CLASS_SRC_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_410__CLASS_SRC_IF.val, "CLASS_SRC_IF"); /*inimult dtup_411__CLASS_SRC_IF*/ - /*_.VALTUP___V472*/ curfptr[471] = (void*)&cdat->dtup_411__CLASS_SRC_IF; + /*_.VALTUP___V473*/ curfptr[472] = (void*)&cdat->dtup_411__CLASS_SRC_IF; cdat->dtup_411__CLASS_SRC_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_411__CLASS_SRC_IF.nbval = 2; /*inimult dtup_412__CLASS_SRC_IF*/ - /*_.VALTUP___V477*/ curfptr[476] = (void*)&cdat->dtup_412__CLASS_SRC_IF; + /*_.VALTUP___V478*/ curfptr[477] = (void*)&cdat->dtup_412__CLASS_SRC_IF; cdat->dtup_412__CLASS_SRC_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_412__CLASS_SRC_IF.nbval = 3; /*iniobj dsym_413__SIF_TEST*/ - if (!/*_.VALDATA___V478*/ curfptr[477]) /*_.VALDATA___V478*/ curfptr[477] = (void*)&cdat->dsym_413__SIF_TEST; + if (!/*_.VALDATA___V479*/ curfptr[478]) /*_.VALDATA___V479*/ curfptr[478] = (void*)&cdat->dsym_413__SIF_TEST; basilys_assertmsg("iniobj checkdiscr dsym_413__SIF_TEST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_413__SIF_TEST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_413__SIF_TEST.obj_hash = 531822652; @@ -47015,27 +48570,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_409__CLASS_SRC_IF)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_413__SIF_TEST)); /*inistring dstr_414__SIF_TEST*/ - /*_.VALSTR___V479*/ curfptr[478] = (void*)&cdat->dstr_414__SIF_TEST; + /*_.VALSTR___V480*/ curfptr[479] = (void*)&cdat->dstr_414__SIF_TEST; cdat->dstr_414__SIF_TEST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_414__SIF_TEST.val, "SIF_TEST"); BASILYS_LOCATION("warmelt-macro.bysl:276:/ iniobj"); /*iniobj dobj_415__SIF_TEST*/ - if (!/*_.VALDATA___V473*/ curfptr[472]) /*_.VALDATA___V473*/ curfptr[472] = (void*)&cdat->dobj_415__SIF_TEST; + if (!/*_.VALDATA___V474*/ curfptr[473]) /*_.VALDATA___V474*/ curfptr[473] = (void*)&cdat->dobj_415__SIF_TEST; basilys_assertmsg("iniobj checkdiscr dobj_415__SIF_TEST", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_415__SIF_TEST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_415__SIF_TEST.obj_num = 1; - cdat->dobj_415__SIF_TEST.obj_hash = 823122174; + cdat->dobj_415__SIF_TEST.obj_hash = 427905656; cdat->dobj_415__SIF_TEST.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_415__SIF_TEST)); /*inistring dstr_416__SIF_TEST*/ - /*_.VALSTR___V474*/ curfptr[473] = (void*)&cdat->dstr_416__SIF_TEST; + /*_.VALSTR___V475*/ curfptr[474] = (void*)&cdat->dstr_416__SIF_TEST; cdat->dstr_416__SIF_TEST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_416__SIF_TEST.val, "SIF_TEST"); /*iniobj dsym_417__SIF_THEN*/ - if (!/*_.VALDATA___V480*/ curfptr[479]) /*_.VALDATA___V480*/ curfptr[479] = (void*)&cdat->dsym_417__SIF_THEN; + if (!/*_.VALDATA___V481*/ curfptr[480]) /*_.VALDATA___V481*/ curfptr[480] = (void*)&cdat->dsym_417__SIF_THEN; basilys_assertmsg("iniobj checkdiscr dsym_417__SIF_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_417__SIF_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_417__SIF_THEN.obj_hash = 111634546; @@ -47043,27 +48598,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_415__SIF_TEST)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_417__SIF_THEN)); /*inistring dstr_418__SIF_THEN*/ - /*_.VALSTR___V481*/ curfptr[480] = (void*)&cdat->dstr_418__SIF_THEN; + /*_.VALSTR___V482*/ curfptr[481] = (void*)&cdat->dstr_418__SIF_THEN; cdat->dstr_418__SIF_THEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_418__SIF_THEN.val, "SIF_THEN"); BASILYS_LOCATION("warmelt-macro.bysl:276:/ iniobj"); /*iniobj dobj_419__SIF_THEN*/ - if (!/*_.VALDATA___V475*/ curfptr[474]) /*_.VALDATA___V475*/ curfptr[474] = (void*)&cdat->dobj_419__SIF_THEN; + if (!/*_.VALDATA___V476*/ curfptr[475]) /*_.VALDATA___V476*/ curfptr[475] = (void*)&cdat->dobj_419__SIF_THEN; basilys_assertmsg("iniobj checkdiscr dobj_419__SIF_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_419__SIF_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_419__SIF_THEN.obj_num = 2; - cdat->dobj_419__SIF_THEN.obj_hash = 326289792; + cdat->dobj_419__SIF_THEN.obj_hash = 989862809; cdat->dobj_419__SIF_THEN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_419__SIF_THEN)); /*inistring dstr_420__SIF_THEN*/ - /*_.VALSTR___V476*/ curfptr[475] = (void*)&cdat->dstr_420__SIF_THEN; + /*_.VALSTR___V477*/ curfptr[476] = (void*)&cdat->dstr_420__SIF_THEN; cdat->dstr_420__SIF_THEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_420__SIF_THEN.val, "SIF_THEN"); /*iniobj dsym_421__CLASS_SRC_IFELSE*/ - if (!/*_.VALDATA___V482*/ curfptr[481]) /*_.VALDATA___V482*/ curfptr[481] = (void*)&cdat->dsym_421__CLASS_SRC_IFELSE; + if (!/*_.VALDATA___V483*/ curfptr[482]) /*_.VALDATA___V483*/ curfptr[482] = (void*)&cdat->dsym_421__CLASS_SRC_IFELSE; basilys_assertmsg("iniobj checkdiscr dsym_421__CLASS_SRC_IFELSE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_421__CLASS_SRC_IFELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_421__CLASS_SRC_IFELSE.obj_hash = 95338173; @@ -47071,35 +48626,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_419__SIF_THEN)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_421__CLASS_SRC_IFELSE)); /*inistring dstr_422__CLASS_SRC_IFELSE*/ - /*_.VALSTR___V483*/ curfptr[482] = (void*)&cdat->dstr_422__CLASS_SRC_IFELSE; + /*_.VALSTR___V484*/ curfptr[483] = (void*)&cdat->dstr_422__CLASS_SRC_IFELSE; cdat->dstr_422__CLASS_SRC_IFELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_422__CLASS_SRC_IFELSE.val, "CLASS_SRC_IFELSE"); BASILYS_LOCATION("warmelt-macro.bysl:282:/ iniobj"); /*iniobj dobj_423__CLASS_SRC_IFELSE*/ - if (!/*_.VALDATA___V484*/ curfptr[483]) /*_.VALDATA___V484*/ curfptr[483] = (void*)&cdat->dobj_423__CLASS_SRC_IFELSE; + if (!/*_.VALDATA___V485*/ curfptr[484]) /*_.VALDATA___V485*/ curfptr[484] = (void*)&cdat->dobj_423__CLASS_SRC_IFELSE; basilys_assertmsg("iniobj checkdiscr dobj_423__CLASS_SRC_IFELSE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_423__CLASS_SRC_IFELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_423__CLASS_SRC_IFELSE.obj_num = OBMAG_OBJECT; - cdat->dobj_423__CLASS_SRC_IFELSE.obj_hash = 957843840; + cdat->dobj_423__CLASS_SRC_IFELSE.obj_hash = 596577770; cdat->dobj_423__CLASS_SRC_IFELSE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_423__CLASS_SRC_IFELSE)); /*inistring dstr_424__CLASS_SRC_IFELSE*/ - /*_.VALSTR___V485*/ curfptr[484] = (void*)&cdat->dstr_424__CLASS_SRC_IFELSE; + /*_.VALSTR___V486*/ curfptr[485] = (void*)&cdat->dstr_424__CLASS_SRC_IFELSE; cdat->dstr_424__CLASS_SRC_IFELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_424__CLASS_SRC_IFELSE.val, "CLASS_SRC_IFELSE"); /*inimult dtup_425__CLASS_SRC_IFELSE*/ - /*_.VALTUP___V486*/ curfptr[485] = (void*)&cdat->dtup_425__CLASS_SRC_IFELSE; + /*_.VALTUP___V487*/ curfptr[486] = (void*)&cdat->dtup_425__CLASS_SRC_IFELSE; cdat->dtup_425__CLASS_SRC_IFELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_425__CLASS_SRC_IFELSE.nbval = 3; /*inimult dtup_426__CLASS_SRC_IFELSE*/ - /*_.VALTUP___V489*/ curfptr[488] = (void*)&cdat->dtup_426__CLASS_SRC_IFELSE; + /*_.VALTUP___V490*/ curfptr[489] = (void*)&cdat->dtup_426__CLASS_SRC_IFELSE; cdat->dtup_426__CLASS_SRC_IFELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_426__CLASS_SRC_IFELSE.nbval = 4; /*iniobj dsym_427__SIF_ELSE*/ - if (!/*_.VALDATA___V490*/ curfptr[489]) /*_.VALDATA___V490*/ curfptr[489] = (void*)&cdat->dsym_427__SIF_ELSE; + if (!/*_.VALDATA___V491*/ curfptr[490]) /*_.VALDATA___V491*/ curfptr[490] = (void*)&cdat->dsym_427__SIF_ELSE; basilys_assertmsg("iniobj checkdiscr dsym_427__SIF_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_427__SIF_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_427__SIF_ELSE.obj_hash = 876593992; @@ -47107,27 +48662,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_423__CLASS_SRC_IFEL basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_427__SIF_ELSE)); /*inistring dstr_428__SIF_ELSE*/ - /*_.VALSTR___V491*/ curfptr[490] = (void*)&cdat->dstr_428__SIF_ELSE; + /*_.VALSTR___V492*/ curfptr[491] = (void*)&cdat->dstr_428__SIF_ELSE; cdat->dstr_428__SIF_ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_428__SIF_ELSE.val, "SIF_ELSE"); BASILYS_LOCATION("warmelt-macro.bysl:282:/ iniobj"); /*iniobj dobj_429__SIF_ELSE*/ - if (!/*_.VALDATA___V487*/ curfptr[486]) /*_.VALDATA___V487*/ curfptr[486] = (void*)&cdat->dobj_429__SIF_ELSE; + if (!/*_.VALDATA___V488*/ curfptr[487]) /*_.VALDATA___V488*/ curfptr[487] = (void*)&cdat->dobj_429__SIF_ELSE; basilys_assertmsg("iniobj checkdiscr dobj_429__SIF_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_429__SIF_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_429__SIF_ELSE.obj_num = 3; - cdat->dobj_429__SIF_ELSE.obj_hash = 98200634; + cdat->dobj_429__SIF_ELSE.obj_hash = 687477168; cdat->dobj_429__SIF_ELSE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_429__SIF_ELSE)); /*inistring dstr_430__SIF_ELSE*/ - /*_.VALSTR___V488*/ curfptr[487] = (void*)&cdat->dstr_430__SIF_ELSE; + /*_.VALSTR___V489*/ curfptr[488] = (void*)&cdat->dstr_430__SIF_ELSE; cdat->dstr_430__SIF_ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_430__SIF_ELSE.val, "SIF_ELSE"); /*iniobj dsym_431__CLASS_SRC_OR*/ - if (!/*_.VALDATA___V492*/ curfptr[491]) /*_.VALDATA___V492*/ curfptr[491] = (void*)&cdat->dsym_431__CLASS_SRC_OR; + if (!/*_.VALDATA___V493*/ curfptr[492]) /*_.VALDATA___V493*/ curfptr[492] = (void*)&cdat->dsym_431__CLASS_SRC_OR; basilys_assertmsg("iniobj checkdiscr dsym_431__CLASS_SRC_OR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_431__CLASS_SRC_OR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_431__CLASS_SRC_OR.obj_hash = 770301960; @@ -47135,35 +48690,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_429__SIF_ELSE)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_431__CLASS_SRC_OR)); /*inistring dstr_432__CLASS_SRC_OR*/ - /*_.VALSTR___V493*/ curfptr[492] = (void*)&cdat->dstr_432__CLASS_SRC_OR; + /*_.VALSTR___V494*/ curfptr[493] = (void*)&cdat->dstr_432__CLASS_SRC_OR; cdat->dstr_432__CLASS_SRC_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_432__CLASS_SRC_OR.val, "CLASS_SRC_OR"); BASILYS_LOCATION("warmelt-macro.bysl:290:/ iniobj"); /*iniobj dobj_433__CLASS_SRC_OR*/ - if (!/*_.VALDATA___V494*/ curfptr[493]) /*_.VALDATA___V494*/ curfptr[493] = (void*)&cdat->dobj_433__CLASS_SRC_OR; + if (!/*_.VALDATA___V495*/ curfptr[494]) /*_.VALDATA___V495*/ curfptr[494] = (void*)&cdat->dobj_433__CLASS_SRC_OR; basilys_assertmsg("iniobj checkdiscr dobj_433__CLASS_SRC_OR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_433__CLASS_SRC_OR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_433__CLASS_SRC_OR.obj_num = OBMAG_OBJECT; - cdat->dobj_433__CLASS_SRC_OR.obj_hash = 168114684; + cdat->dobj_433__CLASS_SRC_OR.obj_hash = 426333720; cdat->dobj_433__CLASS_SRC_OR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_433__CLASS_SRC_OR)); /*inistring dstr_434__CLASS_SRC_OR*/ - /*_.VALSTR___V495*/ curfptr[494] = (void*)&cdat->dstr_434__CLASS_SRC_OR; + /*_.VALSTR___V496*/ curfptr[495] = (void*)&cdat->dstr_434__CLASS_SRC_OR; cdat->dstr_434__CLASS_SRC_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_434__CLASS_SRC_OR.val, "CLASS_SRC_OR"); /*inimult dtup_435__CLASS_SRC_OR*/ - /*_.VALTUP___V496*/ curfptr[495] = (void*)&cdat->dtup_435__CLASS_SRC_OR; + /*_.VALTUP___V497*/ curfptr[496] = (void*)&cdat->dtup_435__CLASS_SRC_OR; cdat->dtup_435__CLASS_SRC_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_435__CLASS_SRC_OR.nbval = 2; /*inimult dtup_436__CLASS_SRC_OR*/ - /*_.VALTUP___V499*/ curfptr[498] = (void*)&cdat->dtup_436__CLASS_SRC_OR; + /*_.VALTUP___V500*/ curfptr[499] = (void*)&cdat->dtup_436__CLASS_SRC_OR; cdat->dtup_436__CLASS_SRC_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_436__CLASS_SRC_OR.nbval = 2; /*iniobj dsym_437__SOR_DISJ*/ - if (!/*_.VALDATA___V500*/ curfptr[499]) /*_.VALDATA___V500*/ curfptr[499] = (void*)&cdat->dsym_437__SOR_DISJ; + if (!/*_.VALDATA___V501*/ curfptr[500]) /*_.VALDATA___V501*/ curfptr[500] = (void*)&cdat->dsym_437__SOR_DISJ; basilys_assertmsg("iniobj checkdiscr dsym_437__SOR_DISJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_437__SOR_DISJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_437__SOR_DISJ.obj_hash = 354040300; @@ -47171,27 +48726,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_433__CLASS_SRC_OR)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_437__SOR_DISJ)); /*inistring dstr_438__SOR_DISJ*/ - /*_.VALSTR___V501*/ curfptr[500] = (void*)&cdat->dstr_438__SOR_DISJ; + /*_.VALSTR___V502*/ curfptr[501] = (void*)&cdat->dstr_438__SOR_DISJ; cdat->dstr_438__SOR_DISJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_438__SOR_DISJ.val, "SOR_DISJ"); BASILYS_LOCATION("warmelt-macro.bysl:290:/ iniobj"); /*iniobj dobj_439__SOR_DISJ*/ - if (!/*_.VALDATA___V497*/ curfptr[496]) /*_.VALDATA___V497*/ curfptr[496] = (void*)&cdat->dobj_439__SOR_DISJ; + if (!/*_.VALDATA___V498*/ curfptr[497]) /*_.VALDATA___V498*/ curfptr[497] = (void*)&cdat->dobj_439__SOR_DISJ; basilys_assertmsg("iniobj checkdiscr dobj_439__SOR_DISJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_439__SOR_DISJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_439__SOR_DISJ.obj_num = 1; - cdat->dobj_439__SOR_DISJ.obj_hash = 679529219; + cdat->dobj_439__SOR_DISJ.obj_hash = 17288336; cdat->dobj_439__SOR_DISJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_439__SOR_DISJ)); /*inistring dstr_440__SOR_DISJ*/ - /*_.VALSTR___V498*/ curfptr[497] = (void*)&cdat->dstr_440__SOR_DISJ; + /*_.VALSTR___V499*/ curfptr[498] = (void*)&cdat->dstr_440__SOR_DISJ; cdat->dstr_440__SOR_DISJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_440__SOR_DISJ.val, "SOR_DISJ"); /*iniobj dsym_441__CLASS_SRC_CPPIF*/ - if (!/*_.VALDATA___V502*/ curfptr[501]) /*_.VALDATA___V502*/ curfptr[501] = (void*)&cdat->dsym_441__CLASS_SRC_CPPIF; + if (!/*_.VALDATA___V503*/ curfptr[502]) /*_.VALDATA___V503*/ curfptr[502] = (void*)&cdat->dsym_441__CLASS_SRC_CPPIF; basilys_assertmsg("iniobj checkdiscr dsym_441__CLASS_SRC_CPPIF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_441__CLASS_SRC_CPPIF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_441__CLASS_SRC_CPPIF.obj_hash = 837563104; @@ -47199,35 +48754,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_439__SOR_DISJ)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_441__CLASS_SRC_CPPIF)); /*inistring dstr_442__CLASS_SRC_CPPIF*/ - /*_.VALSTR___V503*/ curfptr[502] = (void*)&cdat->dstr_442__CLASS_SRC_CPPIF; + /*_.VALSTR___V504*/ curfptr[503] = (void*)&cdat->dstr_442__CLASS_SRC_CPPIF; cdat->dstr_442__CLASS_SRC_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_442__CLASS_SRC_CPPIF.val, "CLASS_SRC_CPPIF"); BASILYS_LOCATION("warmelt-macro.bysl:297:/ iniobj"); /*iniobj dobj_443__CLASS_SRC_CPPIF*/ - if (!/*_.VALDATA___V504*/ curfptr[503]) /*_.VALDATA___V504*/ curfptr[503] = (void*)&cdat->dobj_443__CLASS_SRC_CPPIF; + if (!/*_.VALDATA___V505*/ curfptr[504]) /*_.VALDATA___V505*/ curfptr[504] = (void*)&cdat->dobj_443__CLASS_SRC_CPPIF; basilys_assertmsg("iniobj checkdiscr dobj_443__CLASS_SRC_CPPIF", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_443__CLASS_SRC_CPPIF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_443__CLASS_SRC_CPPIF.obj_num = OBMAG_OBJECT; - cdat->dobj_443__CLASS_SRC_CPPIF.obj_hash = 36304721; + cdat->dobj_443__CLASS_SRC_CPPIF.obj_hash = 112234130; cdat->dobj_443__CLASS_SRC_CPPIF.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_443__CLASS_SRC_CPPIF)); /*inistring dstr_444__CLASS_SRC_CPPIF*/ - /*_.VALSTR___V505*/ curfptr[504] = (void*)&cdat->dstr_444__CLASS_SRC_CPPIF; + /*_.VALSTR___V506*/ curfptr[505] = (void*)&cdat->dstr_444__CLASS_SRC_CPPIF; cdat->dstr_444__CLASS_SRC_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_444__CLASS_SRC_CPPIF.val, "CLASS_SRC_CPPIF"); /*inimult dtup_445__CLASS_SRC_CPPIF*/ - /*_.VALTUP___V506*/ curfptr[505] = (void*)&cdat->dtup_445__CLASS_SRC_CPPIF; + /*_.VALTUP___V507*/ curfptr[506] = (void*)&cdat->dtup_445__CLASS_SRC_CPPIF; cdat->dtup_445__CLASS_SRC_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_445__CLASS_SRC_CPPIF.nbval = 2; /*inimult dtup_446__CLASS_SRC_CPPIF*/ - /*_.VALTUP___V513*/ curfptr[512] = (void*)&cdat->dtup_446__CLASS_SRC_CPPIF; + /*_.VALTUP___V514*/ curfptr[513] = (void*)&cdat->dtup_446__CLASS_SRC_CPPIF; cdat->dtup_446__CLASS_SRC_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_446__CLASS_SRC_CPPIF.nbval = 4; /*iniobj dsym_447__SIFP_COND*/ - if (!/*_.VALDATA___V514*/ curfptr[513]) /*_.VALDATA___V514*/ curfptr[513] = (void*)&cdat->dsym_447__SIFP_COND; + if (!/*_.VALDATA___V515*/ curfptr[514]) /*_.VALDATA___V515*/ curfptr[514] = (void*)&cdat->dsym_447__SIFP_COND; basilys_assertmsg("iniobj checkdiscr dsym_447__SIFP_COND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_447__SIFP_COND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_447__SIFP_COND.obj_hash = 843364013; @@ -47235,27 +48790,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_443__CLASS_SRC_CPPI basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_447__SIFP_COND)); /*inistring dstr_448__SIFP_COND*/ - /*_.VALSTR___V515*/ curfptr[514] = (void*)&cdat->dstr_448__SIFP_COND; + /*_.VALSTR___V516*/ curfptr[515] = (void*)&cdat->dstr_448__SIFP_COND; cdat->dstr_448__SIFP_COND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_448__SIFP_COND.val, "SIFP_COND"); BASILYS_LOCATION("warmelt-macro.bysl:297:/ iniobj"); /*iniobj dobj_449__SIFP_COND*/ - if (!/*_.VALDATA___V507*/ curfptr[506]) /*_.VALDATA___V507*/ curfptr[506] = (void*)&cdat->dobj_449__SIFP_COND; + if (!/*_.VALDATA___V508*/ curfptr[507]) /*_.VALDATA___V508*/ curfptr[507] = (void*)&cdat->dobj_449__SIFP_COND; basilys_assertmsg("iniobj checkdiscr dobj_449__SIFP_COND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_449__SIFP_COND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_449__SIFP_COND.obj_num = 1; - cdat->dobj_449__SIFP_COND.obj_hash = 948936539; + cdat->dobj_449__SIFP_COND.obj_hash = 374797386; cdat->dobj_449__SIFP_COND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_449__SIFP_COND)); /*inistring dstr_450__SIFP_COND*/ - /*_.VALSTR___V508*/ curfptr[507] = (void*)&cdat->dstr_450__SIFP_COND; + /*_.VALSTR___V509*/ curfptr[508] = (void*)&cdat->dstr_450__SIFP_COND; cdat->dstr_450__SIFP_COND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_450__SIFP_COND.val, "SIFP_COND"); /*iniobj dsym_451__SIFP_THEN*/ - if (!/*_.VALDATA___V516*/ curfptr[515]) /*_.VALDATA___V516*/ curfptr[515] = (void*)&cdat->dsym_451__SIFP_THEN; + if (!/*_.VALDATA___V517*/ curfptr[516]) /*_.VALDATA___V517*/ curfptr[516] = (void*)&cdat->dsym_451__SIFP_THEN; basilys_assertmsg("iniobj checkdiscr dsym_451__SIFP_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_451__SIFP_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_451__SIFP_THEN.obj_hash = 1068543930; @@ -47263,27 +48818,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_449__SIFP_COND)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_451__SIFP_THEN)); /*inistring dstr_452__SIFP_THEN*/ - /*_.VALSTR___V517*/ curfptr[516] = (void*)&cdat->dstr_452__SIFP_THEN; + /*_.VALSTR___V518*/ curfptr[517] = (void*)&cdat->dstr_452__SIFP_THEN; cdat->dstr_452__SIFP_THEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_452__SIFP_THEN.val, "SIFP_THEN"); BASILYS_LOCATION("warmelt-macro.bysl:297:/ iniobj"); /*iniobj dobj_453__SIFP_THEN*/ - if (!/*_.VALDATA___V509*/ curfptr[508]) /*_.VALDATA___V509*/ curfptr[508] = (void*)&cdat->dobj_453__SIFP_THEN; + if (!/*_.VALDATA___V510*/ curfptr[509]) /*_.VALDATA___V510*/ curfptr[509] = (void*)&cdat->dobj_453__SIFP_THEN; basilys_assertmsg("iniobj checkdiscr dobj_453__SIFP_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_453__SIFP_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_453__SIFP_THEN.obj_num = 2; - cdat->dobj_453__SIFP_THEN.obj_hash = 749966579; + cdat->dobj_453__SIFP_THEN.obj_hash = 338408648; cdat->dobj_453__SIFP_THEN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_453__SIFP_THEN)); /*inistring dstr_454__SIFP_THEN*/ - /*_.VALSTR___V510*/ curfptr[509] = (void*)&cdat->dstr_454__SIFP_THEN; + /*_.VALSTR___V511*/ curfptr[510] = (void*)&cdat->dstr_454__SIFP_THEN; cdat->dstr_454__SIFP_THEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_454__SIFP_THEN.val, "SIFP_THEN"); /*iniobj dsym_455__SIFP_ELSE*/ - if (!/*_.VALDATA___V518*/ curfptr[517]) /*_.VALDATA___V518*/ curfptr[517] = (void*)&cdat->dsym_455__SIFP_ELSE; + if (!/*_.VALDATA___V519*/ curfptr[518]) /*_.VALDATA___V519*/ curfptr[518] = (void*)&cdat->dsym_455__SIFP_ELSE; basilys_assertmsg("iniobj checkdiscr dsym_455__SIFP_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_455__SIFP_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_455__SIFP_ELSE.obj_hash = 914147024; @@ -47291,27 +48846,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_453__SIFP_THEN)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_455__SIFP_ELSE)); /*inistring dstr_456__SIFP_ELSE*/ - /*_.VALSTR___V519*/ curfptr[518] = (void*)&cdat->dstr_456__SIFP_ELSE; + /*_.VALSTR___V520*/ curfptr[519] = (void*)&cdat->dstr_456__SIFP_ELSE; cdat->dstr_456__SIFP_ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_456__SIFP_ELSE.val, "SIFP_ELSE"); BASILYS_LOCATION("warmelt-macro.bysl:297:/ iniobj"); /*iniobj dobj_457__SIFP_ELSE*/ - if (!/*_.VALDATA___V511*/ curfptr[510]) /*_.VALDATA___V511*/ curfptr[510] = (void*)&cdat->dobj_457__SIFP_ELSE; + if (!/*_.VALDATA___V512*/ curfptr[511]) /*_.VALDATA___V512*/ curfptr[511] = (void*)&cdat->dobj_457__SIFP_ELSE; basilys_assertmsg("iniobj checkdiscr dobj_457__SIFP_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_457__SIFP_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_457__SIFP_ELSE.obj_num = 3; - cdat->dobj_457__SIFP_ELSE.obj_hash = 185454839; + cdat->dobj_457__SIFP_ELSE.obj_hash = 748759916; cdat->dobj_457__SIFP_ELSE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_457__SIFP_ELSE)); /*inistring dstr_458__SIFP_ELSE*/ - /*_.VALSTR___V512*/ curfptr[511] = (void*)&cdat->dstr_458__SIFP_ELSE; + /*_.VALSTR___V513*/ curfptr[512] = (void*)&cdat->dstr_458__SIFP_ELSE; cdat->dstr_458__SIFP_ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_458__SIFP_ELSE.val, "SIFP_ELSE"); /*iniobj dsym_459__CLASS_SRC_MATCH*/ - if (!/*_.VALDATA___V520*/ curfptr[519]) /*_.VALDATA___V520*/ curfptr[519] = (void*)&cdat->dsym_459__CLASS_SRC_MATCH; + if (!/*_.VALDATA___V521*/ curfptr[520]) /*_.VALDATA___V521*/ curfptr[520] = (void*)&cdat->dsym_459__CLASS_SRC_MATCH; basilys_assertmsg("iniobj checkdiscr dsym_459__CLASS_SRC_MATCH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_459__CLASS_SRC_MATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_459__CLASS_SRC_MATCH.obj_hash = 898626999; @@ -47319,35 +48874,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_457__SIFP_ELSE)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_459__CLASS_SRC_MATCH)); /*inistring dstr_460__CLASS_SRC_MATCH*/ - /*_.VALSTR___V521*/ curfptr[520] = (void*)&cdat->dstr_460__CLASS_SRC_MATCH; + /*_.VALSTR___V522*/ curfptr[521] = (void*)&cdat->dstr_460__CLASS_SRC_MATCH; cdat->dstr_460__CLASS_SRC_MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_460__CLASS_SRC_MATCH.val, "CLASS_SRC_MATCH"); BASILYS_LOCATION("warmelt-macro.bysl:306:/ iniobj"); /*iniobj dobj_461__CLASS_SRC_MATCH*/ - if (!/*_.VALDATA___V522*/ curfptr[521]) /*_.VALDATA___V522*/ curfptr[521] = (void*)&cdat->dobj_461__CLASS_SRC_MATCH; + if (!/*_.VALDATA___V523*/ curfptr[522]) /*_.VALDATA___V523*/ curfptr[522] = (void*)&cdat->dobj_461__CLASS_SRC_MATCH; basilys_assertmsg("iniobj checkdiscr dobj_461__CLASS_SRC_MATCH", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_461__CLASS_SRC_MATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_461__CLASS_SRC_MATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_461__CLASS_SRC_MATCH.obj_hash = 472970144; + cdat->dobj_461__CLASS_SRC_MATCH.obj_hash = 16110761; cdat->dobj_461__CLASS_SRC_MATCH.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_461__CLASS_SRC_MATCH)); /*inistring dstr_462__CLASS_SRC_MATCH*/ - /*_.VALSTR___V523*/ curfptr[522] = (void*)&cdat->dstr_462__CLASS_SRC_MATCH; + /*_.VALSTR___V524*/ curfptr[523] = (void*)&cdat->dstr_462__CLASS_SRC_MATCH; cdat->dstr_462__CLASS_SRC_MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_462__CLASS_SRC_MATCH.val, "CLASS_SRC_MATCH"); /*inimult dtup_463__CLASS_SRC_MATCH*/ - /*_.VALTUP___V524*/ curfptr[523] = (void*)&cdat->dtup_463__CLASS_SRC_MATCH; + /*_.VALTUP___V525*/ curfptr[524] = (void*)&cdat->dtup_463__CLASS_SRC_MATCH; cdat->dtup_463__CLASS_SRC_MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_463__CLASS_SRC_MATCH.nbval = 2; /*inimult dtup_464__CLASS_SRC_MATCH*/ - /*_.VALTUP___V529*/ curfptr[528] = (void*)&cdat->dtup_464__CLASS_SRC_MATCH; + /*_.VALTUP___V530*/ curfptr[529] = (void*)&cdat->dtup_464__CLASS_SRC_MATCH; cdat->dtup_464__CLASS_SRC_MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_464__CLASS_SRC_MATCH.nbval = 3; /*iniobj dsym_465__SMAT_MATCHEDX*/ - if (!/*_.VALDATA___V530*/ curfptr[529]) /*_.VALDATA___V530*/ curfptr[529] = (void*)&cdat->dsym_465__SMAT_MATCHEDX; + if (!/*_.VALDATA___V531*/ curfptr[530]) /*_.VALDATA___V531*/ curfptr[530] = (void*)&cdat->dsym_465__SMAT_MATCHEDX; basilys_assertmsg("iniobj checkdiscr dsym_465__SMAT_MATCHEDX", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_465__SMAT_MATCHEDX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_465__SMAT_MATCHEDX.obj_hash = 56867082; @@ -47355,27 +48910,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_461__CLASS_SRC_MATC basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_465__SMAT_MATCHEDX)); /*inistring dstr_466__SMAT_MATCHEDX*/ - /*_.VALSTR___V531*/ curfptr[530] = (void*)&cdat->dstr_466__SMAT_MATCHEDX; + /*_.VALSTR___V532*/ curfptr[531] = (void*)&cdat->dstr_466__SMAT_MATCHEDX; cdat->dstr_466__SMAT_MATCHEDX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_466__SMAT_MATCHEDX.val, "SMAT_MATCHEDX"); BASILYS_LOCATION("warmelt-macro.bysl:306:/ iniobj"); /*iniobj dobj_467__SMAT_MATCHEDX*/ - if (!/*_.VALDATA___V525*/ curfptr[524]) /*_.VALDATA___V525*/ curfptr[524] = (void*)&cdat->dobj_467__SMAT_MATCHEDX; + if (!/*_.VALDATA___V526*/ curfptr[525]) /*_.VALDATA___V526*/ curfptr[525] = (void*)&cdat->dobj_467__SMAT_MATCHEDX; basilys_assertmsg("iniobj checkdiscr dobj_467__SMAT_MATCHEDX", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_467__SMAT_MATCHEDX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_467__SMAT_MATCHEDX.obj_num = 1; - cdat->dobj_467__SMAT_MATCHEDX.obj_hash = 668371824; + cdat->dobj_467__SMAT_MATCHEDX.obj_hash = 40545491; cdat->dobj_467__SMAT_MATCHEDX.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_467__SMAT_MATCHEDX)); /*inistring dstr_468__SMAT_MATCHEDX*/ - /*_.VALSTR___V526*/ curfptr[525] = (void*)&cdat->dstr_468__SMAT_MATCHEDX; + /*_.VALSTR___V527*/ curfptr[526] = (void*)&cdat->dstr_468__SMAT_MATCHEDX; cdat->dstr_468__SMAT_MATCHEDX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_468__SMAT_MATCHEDX.val, "SMAT_MATCHEDX"); /*iniobj dsym_469__SMAT_CASES*/ - if (!/*_.VALDATA___V532*/ curfptr[531]) /*_.VALDATA___V532*/ curfptr[531] = (void*)&cdat->dsym_469__SMAT_CASES; + if (!/*_.VALDATA___V533*/ curfptr[532]) /*_.VALDATA___V533*/ curfptr[532] = (void*)&cdat->dsym_469__SMAT_CASES; basilys_assertmsg("iniobj checkdiscr dsym_469__SMAT_CASES", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_469__SMAT_CASES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_469__SMAT_CASES.obj_hash = 1021834057; @@ -47383,27 +48938,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_467__SMAT_MATCHEDX) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_469__SMAT_CASES)); /*inistring dstr_470__SMAT_CASES*/ - /*_.VALSTR___V533*/ curfptr[532] = (void*)&cdat->dstr_470__SMAT_CASES; + /*_.VALSTR___V534*/ curfptr[533] = (void*)&cdat->dstr_470__SMAT_CASES; cdat->dstr_470__SMAT_CASES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_470__SMAT_CASES.val, "SMAT_CASES"); BASILYS_LOCATION("warmelt-macro.bysl:306:/ iniobj"); /*iniobj dobj_471__SMAT_CASES*/ - if (!/*_.VALDATA___V527*/ curfptr[526]) /*_.VALDATA___V527*/ curfptr[526] = (void*)&cdat->dobj_471__SMAT_CASES; + if (!/*_.VALDATA___V528*/ curfptr[527]) /*_.VALDATA___V528*/ curfptr[527] = (void*)&cdat->dobj_471__SMAT_CASES; basilys_assertmsg("iniobj checkdiscr dobj_471__SMAT_CASES", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_471__SMAT_CASES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_471__SMAT_CASES.obj_num = 2; - cdat->dobj_471__SMAT_CASES.obj_hash = 430895087; + cdat->dobj_471__SMAT_CASES.obj_hash = 130449525; cdat->dobj_471__SMAT_CASES.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_471__SMAT_CASES)); /*inistring dstr_472__SMAT_CASES*/ - /*_.VALSTR___V528*/ curfptr[527] = (void*)&cdat->dstr_472__SMAT_CASES; + /*_.VALSTR___V529*/ curfptr[528] = (void*)&cdat->dstr_472__SMAT_CASES; cdat->dstr_472__SMAT_CASES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_472__SMAT_CASES.val, "SMAT_CASES"); /*iniobj dsym_473__CLASS_SRC_CASEMATCH*/ - if (!/*_.VALDATA___V534*/ curfptr[533]) /*_.VALDATA___V534*/ curfptr[533] = (void*)&cdat->dsym_473__CLASS_SRC_CASEMATCH; + if (!/*_.VALDATA___V535*/ curfptr[534]) /*_.VALDATA___V535*/ curfptr[534] = (void*)&cdat->dsym_473__CLASS_SRC_CASEMATCH; basilys_assertmsg("iniobj checkdiscr dsym_473__CLASS_SRC_CASEMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_473__CLASS_SRC_CASEMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_473__CLASS_SRC_CASEMATCH.obj_hash = 695254918; @@ -47411,35 +48966,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_471__SMAT_CASES)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_473__CLASS_SRC_CASEMATCH)); /*inistring dstr_474__CLASS_SRC_CASEMA*/ - /*_.VALSTR___V535*/ curfptr[534] = (void*)&cdat->dstr_474__CLASS_SRC_CASEMA; + /*_.VALSTR___V536*/ curfptr[535] = (void*)&cdat->dstr_474__CLASS_SRC_CASEMA; cdat->dstr_474__CLASS_SRC_CASEMA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_474__CLASS_SRC_CASEMA.val, "CLASS_SRC_CASEMATCH"); BASILYS_LOCATION("warmelt-macro.bysl:313:/ iniobj"); /*iniobj dobj_475__CLASS_SRC_CASEMATCH*/ - if (!/*_.VALDATA___V536*/ curfptr[535]) /*_.VALDATA___V536*/ curfptr[535] = (void*)&cdat->dobj_475__CLASS_SRC_CASEMATCH; + if (!/*_.VALDATA___V537*/ curfptr[536]) /*_.VALDATA___V537*/ curfptr[536] = (void*)&cdat->dobj_475__CLASS_SRC_CASEMATCH; basilys_assertmsg("iniobj checkdiscr dobj_475__CLASS_SRC_CASEMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_475__CLASS_SRC_CASEMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_475__CLASS_SRC_CASEMATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_475__CLASS_SRC_CASEMATCH.obj_hash = 304908044; + cdat->dobj_475__CLASS_SRC_CASEMATCH.obj_hash = 316767360; cdat->dobj_475__CLASS_SRC_CASEMATCH.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_475__CLASS_SRC_CASEMATCH)); /*inistring dstr_476__CLASS_SRC_CASEMA*/ - /*_.VALSTR___V537*/ curfptr[536] = (void*)&cdat->dstr_476__CLASS_SRC_CASEMA; + /*_.VALSTR___V538*/ curfptr[537] = (void*)&cdat->dstr_476__CLASS_SRC_CASEMA; cdat->dstr_476__CLASS_SRC_CASEMA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_476__CLASS_SRC_CASEMA.val, "CLASS_SRC_CASEMATCH"); /*inimult dtup_477__CLASS_SRC_CASEMATCH*/ - /*_.VALTUP___V538*/ curfptr[537] = (void*)&cdat->dtup_477__CLASS_SRC_CASEMATCH; + /*_.VALTUP___V539*/ curfptr[538] = (void*)&cdat->dtup_477__CLASS_SRC_CASEMATCH; cdat->dtup_477__CLASS_SRC_CASEMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_477__CLASS_SRC_CASEMATCH.nbval = 2; /*inimult dtup_478__CLASS_SRC_CASEMATCH*/ - /*_.VALTUP___V543*/ curfptr[542] = (void*)&cdat->dtup_478__CLASS_SRC_CASEMATCH; + /*_.VALTUP___V544*/ curfptr[543] = (void*)&cdat->dtup_478__CLASS_SRC_CASEMATCH; cdat->dtup_478__CLASS_SRC_CASEMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_478__CLASS_SRC_CASEMATCH.nbval = 3; /*iniobj dsym_479__SCAM_PATT*/ - if (!/*_.VALDATA___V544*/ curfptr[543]) /*_.VALDATA___V544*/ curfptr[543] = (void*)&cdat->dsym_479__SCAM_PATT; + if (!/*_.VALDATA___V545*/ curfptr[544]) /*_.VALDATA___V545*/ curfptr[544] = (void*)&cdat->dsym_479__SCAM_PATT; basilys_assertmsg("iniobj checkdiscr dsym_479__SCAM_PATT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_479__SCAM_PATT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_479__SCAM_PATT.obj_hash = 413025747; @@ -47447,27 +49002,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_475__CLASS_SRC_CASE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_479__SCAM_PATT)); /*inistring dstr_480__SCAM_PATT*/ - /*_.VALSTR___V545*/ curfptr[544] = (void*)&cdat->dstr_480__SCAM_PATT; + /*_.VALSTR___V546*/ curfptr[545] = (void*)&cdat->dstr_480__SCAM_PATT; cdat->dstr_480__SCAM_PATT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_480__SCAM_PATT.val, "SCAM_PATT"); BASILYS_LOCATION("warmelt-macro.bysl:313:/ iniobj"); /*iniobj dobj_481__SCAM_PATT*/ - if (!/*_.VALDATA___V539*/ curfptr[538]) /*_.VALDATA___V539*/ curfptr[538] = (void*)&cdat->dobj_481__SCAM_PATT; + if (!/*_.VALDATA___V540*/ curfptr[539]) /*_.VALDATA___V540*/ curfptr[539] = (void*)&cdat->dobj_481__SCAM_PATT; basilys_assertmsg("iniobj checkdiscr dobj_481__SCAM_PATT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_481__SCAM_PATT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_481__SCAM_PATT.obj_num = 1; - cdat->dobj_481__SCAM_PATT.obj_hash = 542699504; + cdat->dobj_481__SCAM_PATT.obj_hash = 775628169; cdat->dobj_481__SCAM_PATT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_481__SCAM_PATT)); /*inistring dstr_482__SCAM_PATT*/ - /*_.VALSTR___V540*/ curfptr[539] = (void*)&cdat->dstr_482__SCAM_PATT; + /*_.VALSTR___V541*/ curfptr[540] = (void*)&cdat->dstr_482__SCAM_PATT; cdat->dstr_482__SCAM_PATT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_482__SCAM_PATT.val, "SCAM_PATT"); /*iniobj dsym_483__SCAM_BODY*/ - if (!/*_.VALDATA___V546*/ curfptr[545]) /*_.VALDATA___V546*/ curfptr[545] = (void*)&cdat->dsym_483__SCAM_BODY; + if (!/*_.VALDATA___V547*/ curfptr[546]) /*_.VALDATA___V547*/ curfptr[546] = (void*)&cdat->dsym_483__SCAM_BODY; basilys_assertmsg("iniobj checkdiscr dsym_483__SCAM_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_483__SCAM_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_483__SCAM_BODY.obj_hash = 1012147204; @@ -47475,27 +49030,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_481__SCAM_PATT)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_483__SCAM_BODY)); /*inistring dstr_484__SCAM_BODY*/ - /*_.VALSTR___V547*/ curfptr[546] = (void*)&cdat->dstr_484__SCAM_BODY; + /*_.VALSTR___V548*/ curfptr[547] = (void*)&cdat->dstr_484__SCAM_BODY; cdat->dstr_484__SCAM_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_484__SCAM_BODY.val, "SCAM_BODY"); BASILYS_LOCATION("warmelt-macro.bysl:313:/ iniobj"); /*iniobj dobj_485__SCAM_BODY*/ - if (!/*_.VALDATA___V541*/ curfptr[540]) /*_.VALDATA___V541*/ curfptr[540] = (void*)&cdat->dobj_485__SCAM_BODY; + if (!/*_.VALDATA___V542*/ curfptr[541]) /*_.VALDATA___V542*/ curfptr[541] = (void*)&cdat->dobj_485__SCAM_BODY; basilys_assertmsg("iniobj checkdiscr dobj_485__SCAM_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_485__SCAM_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_485__SCAM_BODY.obj_num = 2; - cdat->dobj_485__SCAM_BODY.obj_hash = 62824239; + cdat->dobj_485__SCAM_BODY.obj_hash = 158296845; cdat->dobj_485__SCAM_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_485__SCAM_BODY)); /*inistring dstr_486__SCAM_BODY*/ - /*_.VALSTR___V542*/ curfptr[541] = (void*)&cdat->dstr_486__SCAM_BODY; + /*_.VALSTR___V543*/ curfptr[542] = (void*)&cdat->dstr_486__SCAM_BODY; cdat->dstr_486__SCAM_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_486__SCAM_BODY.val, "SCAM_BODY"); /*iniobj dsym_487__CLASS_SRC_CASEWHENMATCH*/ - if (!/*_.VALDATA___V548*/ curfptr[547]) /*_.VALDATA___V548*/ curfptr[547] = (void*)&cdat->dsym_487__CLASS_SRC_CASEWHENMATCH; + if (!/*_.VALDATA___V549*/ curfptr[548]) /*_.VALDATA___V549*/ curfptr[548] = (void*)&cdat->dsym_487__CLASS_SRC_CASEWHENMATCH; basilys_assertmsg("iniobj checkdiscr dsym_487__CLASS_SRC_CASEWHENMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_487__CLASS_SRC_CASEWHENMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_487__CLASS_SRC_CASEWHENMATCH.obj_hash = 57673041; @@ -47503,35 +49058,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_485__SCAM_BODY)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_487__CLASS_SRC_CASEWHENMATCH)); /*inistring dstr_488__CLASS_SRC_CASEWH*/ - /*_.VALSTR___V549*/ curfptr[548] = (void*)&cdat->dstr_488__CLASS_SRC_CASEWH; + /*_.VALSTR___V550*/ curfptr[549] = (void*)&cdat->dstr_488__CLASS_SRC_CASEWH; cdat->dstr_488__CLASS_SRC_CASEWH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_488__CLASS_SRC_CASEWH.val, "CLASS_SRC_CASEWHENMATCH"); BASILYS_LOCATION("warmelt-macro.bysl:319:/ iniobj"); /*iniobj dobj_489__CLASS_SRC_CASEWHENMATCH*/ - if (!/*_.VALDATA___V550*/ curfptr[549]) /*_.VALDATA___V550*/ curfptr[549] = (void*)&cdat->dobj_489__CLASS_SRC_CASEWHENMATCH; + if (!/*_.VALDATA___V551*/ curfptr[550]) /*_.VALDATA___V551*/ curfptr[550] = (void*)&cdat->dobj_489__CLASS_SRC_CASEWHENMATCH; basilys_assertmsg("iniobj checkdiscr dobj_489__CLASS_SRC_CASEWHENMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_489__CLASS_SRC_CASEWHENMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_489__CLASS_SRC_CASEWHENMATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_489__CLASS_SRC_CASEWHENMATCH.obj_hash = 990608019; + cdat->dobj_489__CLASS_SRC_CASEWHENMATCH.obj_hash = 78876679; cdat->dobj_489__CLASS_SRC_CASEWHENMATCH.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_489__CLASS_SRC_CASEWHENMATCH)); /*inistring dstr_490__CLASS_SRC_CASEWH*/ - /*_.VALSTR___V551*/ curfptr[550] = (void*)&cdat->dstr_490__CLASS_SRC_CASEWH; + /*_.VALSTR___V552*/ curfptr[551] = (void*)&cdat->dstr_490__CLASS_SRC_CASEWH; cdat->dstr_490__CLASS_SRC_CASEWH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_490__CLASS_SRC_CASEWH.val, "CLASS_SRC_CASEWHENMATCH"); /*inimult dtup_491__CLASS_SRC_CASEWHENMATCH*/ - /*_.VALTUP___V552*/ curfptr[551] = (void*)&cdat->dtup_491__CLASS_SRC_CASEWHENMATCH; + /*_.VALTUP___V553*/ curfptr[552] = (void*)&cdat->dtup_491__CLASS_SRC_CASEWHENMATCH; cdat->dtup_491__CLASS_SRC_CASEWHENMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_491__CLASS_SRC_CASEWHENMATCH.nbval = 3; /*inimult dtup_492__CLASS_SRC_CASEWHENMATCH*/ - /*_.VALTUP___V555*/ curfptr[554] = (void*)&cdat->dtup_492__CLASS_SRC_CASEWHENMATCH; + /*_.VALTUP___V556*/ curfptr[555] = (void*)&cdat->dtup_492__CLASS_SRC_CASEWHENMATCH; cdat->dtup_492__CLASS_SRC_CASEWHENMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_492__CLASS_SRC_CASEWHENMATCH.nbval = 4; /*iniobj dsym_493__SCWM_WHEN*/ - if (!/*_.VALDATA___V556*/ curfptr[555]) /*_.VALDATA___V556*/ curfptr[555] = (void*)&cdat->dsym_493__SCWM_WHEN; + if (!/*_.VALDATA___V557*/ curfptr[556]) /*_.VALDATA___V557*/ curfptr[556] = (void*)&cdat->dsym_493__SCWM_WHEN; basilys_assertmsg("iniobj checkdiscr dsym_493__SCWM_WHEN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_493__SCWM_WHEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_493__SCWM_WHEN.obj_hash = 1029053080; @@ -47539,27 +49094,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_489__CLASS_SRC_CASE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_493__SCWM_WHEN)); /*inistring dstr_494__SCWM_WHEN*/ - /*_.VALSTR___V557*/ curfptr[556] = (void*)&cdat->dstr_494__SCWM_WHEN; + /*_.VALSTR___V558*/ curfptr[557] = (void*)&cdat->dstr_494__SCWM_WHEN; cdat->dstr_494__SCWM_WHEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_494__SCWM_WHEN.val, "SCWM_WHEN"); BASILYS_LOCATION("warmelt-macro.bysl:319:/ iniobj"); /*iniobj dobj_495__SCWM_WHEN*/ - if (!/*_.VALDATA___V553*/ curfptr[552]) /*_.VALDATA___V553*/ curfptr[552] = (void*)&cdat->dobj_495__SCWM_WHEN; + if (!/*_.VALDATA___V554*/ curfptr[553]) /*_.VALDATA___V554*/ curfptr[553] = (void*)&cdat->dobj_495__SCWM_WHEN; basilys_assertmsg("iniobj checkdiscr dobj_495__SCWM_WHEN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_495__SCWM_WHEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_495__SCWM_WHEN.obj_num = 3; - cdat->dobj_495__SCWM_WHEN.obj_hash = 998790202; + cdat->dobj_495__SCWM_WHEN.obj_hash = 871356348; cdat->dobj_495__SCWM_WHEN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_495__SCWM_WHEN)); /*inistring dstr_496__SCWM_WHEN*/ - /*_.VALSTR___V554*/ curfptr[553] = (void*)&cdat->dstr_496__SCWM_WHEN; + /*_.VALSTR___V555*/ curfptr[554] = (void*)&cdat->dstr_496__SCWM_WHEN; cdat->dstr_496__SCWM_WHEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_496__SCWM_WHEN.val, "SCWM_WHEN"); /*iniobj dsym_497__CLASS_SRC_LETBINDING*/ - if (!/*_.VALDATA___V558*/ curfptr[557]) /*_.VALDATA___V558*/ curfptr[557] = (void*)&cdat->dsym_497__CLASS_SRC_LETBINDING; + if (!/*_.VALDATA___V559*/ curfptr[558]) /*_.VALDATA___V559*/ curfptr[558] = (void*)&cdat->dsym_497__CLASS_SRC_LETBINDING; basilys_assertmsg("iniobj checkdiscr dsym_497__CLASS_SRC_LETBINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_497__CLASS_SRC_LETBINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_497__CLASS_SRC_LETBINDING.obj_hash = 644267771; @@ -47567,35 +49122,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_495__SCWM_WHEN)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_497__CLASS_SRC_LETBINDING)); /*inistring dstr_498__CLASS_SRC_LETBIN*/ - /*_.VALSTR___V559*/ curfptr[558] = (void*)&cdat->dstr_498__CLASS_SRC_LETBIN; + /*_.VALSTR___V560*/ curfptr[559] = (void*)&cdat->dstr_498__CLASS_SRC_LETBIN; cdat->dstr_498__CLASS_SRC_LETBIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_498__CLASS_SRC_LETBIN.val, "CLASS_SRC_LETBINDING"); BASILYS_LOCATION("warmelt-macro.bysl:326:/ iniobj"); /*iniobj dobj_499__CLASS_SRC_LETBINDING*/ - if (!/*_.VALDATA___V560*/ curfptr[559]) /*_.VALDATA___V560*/ curfptr[559] = (void*)&cdat->dobj_499__CLASS_SRC_LETBINDING; + if (!/*_.VALDATA___V561*/ curfptr[560]) /*_.VALDATA___V561*/ curfptr[560] = (void*)&cdat->dobj_499__CLASS_SRC_LETBINDING; basilys_assertmsg("iniobj checkdiscr dobj_499__CLASS_SRC_LETBINDING", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_499__CLASS_SRC_LETBINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_499__CLASS_SRC_LETBINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_499__CLASS_SRC_LETBINDING.obj_hash = 482552901; + cdat->dobj_499__CLASS_SRC_LETBINDING.obj_hash = 39040871; cdat->dobj_499__CLASS_SRC_LETBINDING.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_499__CLASS_SRC_LETBINDING)); /*inistring dstr_500__CLASS_SRC_LETBIN*/ - /*_.VALSTR___V561*/ curfptr[560] = (void*)&cdat->dstr_500__CLASS_SRC_LETBIN; + /*_.VALSTR___V562*/ curfptr[561] = (void*)&cdat->dstr_500__CLASS_SRC_LETBIN; cdat->dstr_500__CLASS_SRC_LETBIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_500__CLASS_SRC_LETBIN.val, "CLASS_SRC_LETBINDING"); /*inimult dtup_501__CLASS_SRC_LETBINDING*/ - /*_.VALTUP___V562*/ curfptr[561] = (void*)&cdat->dtup_501__CLASS_SRC_LETBINDING; + /*_.VALTUP___V563*/ curfptr[562] = (void*)&cdat->dtup_501__CLASS_SRC_LETBINDING; cdat->dtup_501__CLASS_SRC_LETBINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_501__CLASS_SRC_LETBINDING.nbval = 2; /*inimult dtup_502__CLASS_SRC_LETBINDING*/ - /*_.VALTUP___V569*/ curfptr[568] = (void*)&cdat->dtup_502__CLASS_SRC_LETBINDING; + /*_.VALTUP___V570*/ curfptr[569] = (void*)&cdat->dtup_502__CLASS_SRC_LETBINDING; cdat->dtup_502__CLASS_SRC_LETBINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_502__CLASS_SRC_LETBINDING.nbval = 4; /*iniobj dsym_503__SLETB_TYPE*/ - if (!/*_.VALDATA___V570*/ curfptr[569]) /*_.VALDATA___V570*/ curfptr[569] = (void*)&cdat->dsym_503__SLETB_TYPE; + if (!/*_.VALDATA___V571*/ curfptr[570]) /*_.VALDATA___V571*/ curfptr[570] = (void*)&cdat->dsym_503__SLETB_TYPE; basilys_assertmsg("iniobj checkdiscr dsym_503__SLETB_TYPE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_503__SLETB_TYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_503__SLETB_TYPE.obj_hash = 825191502; @@ -47603,27 +49158,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_499__CLASS_SRC_LETB basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_503__SLETB_TYPE)); /*inistring dstr_504__SLETB_TYPE*/ - /*_.VALSTR___V571*/ curfptr[570] = (void*)&cdat->dstr_504__SLETB_TYPE; + /*_.VALSTR___V572*/ curfptr[571] = (void*)&cdat->dstr_504__SLETB_TYPE; cdat->dstr_504__SLETB_TYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_504__SLETB_TYPE.val, "SLETB_TYPE"); BASILYS_LOCATION("warmelt-macro.bysl:326:/ iniobj"); /*iniobj dobj_505__SLETB_TYPE*/ - if (!/*_.VALDATA___V563*/ curfptr[562]) /*_.VALDATA___V563*/ curfptr[562] = (void*)&cdat->dobj_505__SLETB_TYPE; + if (!/*_.VALDATA___V564*/ curfptr[563]) /*_.VALDATA___V564*/ curfptr[563] = (void*)&cdat->dobj_505__SLETB_TYPE; basilys_assertmsg("iniobj checkdiscr dobj_505__SLETB_TYPE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_505__SLETB_TYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_505__SLETB_TYPE.obj_num = 1; - cdat->dobj_505__SLETB_TYPE.obj_hash = 102612089; + cdat->dobj_505__SLETB_TYPE.obj_hash = 963526846; cdat->dobj_505__SLETB_TYPE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_505__SLETB_TYPE)); /*inistring dstr_506__SLETB_TYPE*/ - /*_.VALSTR___V564*/ curfptr[563] = (void*)&cdat->dstr_506__SLETB_TYPE; + /*_.VALSTR___V565*/ curfptr[564] = (void*)&cdat->dstr_506__SLETB_TYPE; cdat->dstr_506__SLETB_TYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_506__SLETB_TYPE.val, "SLETB_TYPE"); /*iniobj dsym_507__SLETB_BINDER*/ - if (!/*_.VALDATA___V572*/ curfptr[571]) /*_.VALDATA___V572*/ curfptr[571] = (void*)&cdat->dsym_507__SLETB_BINDER; + if (!/*_.VALDATA___V573*/ curfptr[572]) /*_.VALDATA___V573*/ curfptr[572] = (void*)&cdat->dsym_507__SLETB_BINDER; basilys_assertmsg("iniobj checkdiscr dsym_507__SLETB_BINDER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_507__SLETB_BINDER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_507__SLETB_BINDER.obj_hash = 270217853; @@ -47631,27 +49186,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_505__SLETB_TYPE)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_507__SLETB_BINDER)); /*inistring dstr_508__SLETB_BINDER*/ - /*_.VALSTR___V573*/ curfptr[572] = (void*)&cdat->dstr_508__SLETB_BINDER; + /*_.VALSTR___V574*/ curfptr[573] = (void*)&cdat->dstr_508__SLETB_BINDER; cdat->dstr_508__SLETB_BINDER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_508__SLETB_BINDER.val, "SLETB_BINDER"); BASILYS_LOCATION("warmelt-macro.bysl:326:/ iniobj"); /*iniobj dobj_509__SLETB_BINDER*/ - if (!/*_.VALDATA___V565*/ curfptr[564]) /*_.VALDATA___V565*/ curfptr[564] = (void*)&cdat->dobj_509__SLETB_BINDER; + if (!/*_.VALDATA___V566*/ curfptr[565]) /*_.VALDATA___V566*/ curfptr[565] = (void*)&cdat->dobj_509__SLETB_BINDER; basilys_assertmsg("iniobj checkdiscr dobj_509__SLETB_BINDER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_509__SLETB_BINDER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_509__SLETB_BINDER.obj_num = 2; - cdat->dobj_509__SLETB_BINDER.obj_hash = 132919712; + cdat->dobj_509__SLETB_BINDER.obj_hash = 731123356; cdat->dobj_509__SLETB_BINDER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_509__SLETB_BINDER)); /*inistring dstr_510__SLETB_BINDER*/ - /*_.VALSTR___V566*/ curfptr[565] = (void*)&cdat->dstr_510__SLETB_BINDER; + /*_.VALSTR___V567*/ curfptr[566] = (void*)&cdat->dstr_510__SLETB_BINDER; cdat->dstr_510__SLETB_BINDER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_510__SLETB_BINDER.val, "SLETB_BINDER"); /*iniobj dsym_511__SLETB_EXPR*/ - if (!/*_.VALDATA___V574*/ curfptr[573]) /*_.VALDATA___V574*/ curfptr[573] = (void*)&cdat->dsym_511__SLETB_EXPR; + if (!/*_.VALDATA___V575*/ curfptr[574]) /*_.VALDATA___V575*/ curfptr[574] = (void*)&cdat->dsym_511__SLETB_EXPR; basilys_assertmsg("iniobj checkdiscr dsym_511__SLETB_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_511__SLETB_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_511__SLETB_EXPR.obj_hash = 314235873; @@ -47659,27 +49214,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_509__SLETB_BINDER)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_511__SLETB_EXPR)); /*inistring dstr_512__SLETB_EXPR*/ - /*_.VALSTR___V575*/ curfptr[574] = (void*)&cdat->dstr_512__SLETB_EXPR; + /*_.VALSTR___V576*/ curfptr[575] = (void*)&cdat->dstr_512__SLETB_EXPR; cdat->dstr_512__SLETB_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_512__SLETB_EXPR.val, "SLETB_EXPR"); BASILYS_LOCATION("warmelt-macro.bysl:326:/ iniobj"); /*iniobj dobj_513__SLETB_EXPR*/ - if (!/*_.VALDATA___V567*/ curfptr[566]) /*_.VALDATA___V567*/ curfptr[566] = (void*)&cdat->dobj_513__SLETB_EXPR; + if (!/*_.VALDATA___V568*/ curfptr[567]) /*_.VALDATA___V568*/ curfptr[567] = (void*)&cdat->dobj_513__SLETB_EXPR; basilys_assertmsg("iniobj checkdiscr dobj_513__SLETB_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_513__SLETB_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_513__SLETB_EXPR.obj_num = 3; - cdat->dobj_513__SLETB_EXPR.obj_hash = 933266378; + cdat->dobj_513__SLETB_EXPR.obj_hash = 70269871; cdat->dobj_513__SLETB_EXPR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_513__SLETB_EXPR)); /*inistring dstr_514__SLETB_EXPR*/ - /*_.VALSTR___V568*/ curfptr[567] = (void*)&cdat->dstr_514__SLETB_EXPR; + /*_.VALSTR___V569*/ curfptr[568] = (void*)&cdat->dstr_514__SLETB_EXPR; cdat->dstr_514__SLETB_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_514__SLETB_EXPR.val, "SLETB_EXPR"); /*iniobj dsym_515__CLASS_SRC_LET*/ - if (!/*_.VALDATA___V576*/ curfptr[575]) /*_.VALDATA___V576*/ curfptr[575] = (void*)&cdat->dsym_515__CLASS_SRC_LET; + if (!/*_.VALDATA___V577*/ curfptr[576]) /*_.VALDATA___V577*/ curfptr[576] = (void*)&cdat->dsym_515__CLASS_SRC_LET; basilys_assertmsg("iniobj checkdiscr dsym_515__CLASS_SRC_LET", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_515__CLASS_SRC_LET.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_515__CLASS_SRC_LET.obj_hash = 639003644; @@ -47687,35 +49242,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_513__SLETB_EXPR)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_515__CLASS_SRC_LET)); /*inistring dstr_516__CLASS_SRC_LET*/ - /*_.VALSTR___V577*/ curfptr[576] = (void*)&cdat->dstr_516__CLASS_SRC_LET; + /*_.VALSTR___V578*/ curfptr[577] = (void*)&cdat->dstr_516__CLASS_SRC_LET; cdat->dstr_516__CLASS_SRC_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_516__CLASS_SRC_LET.val, "CLASS_SRC_LET"); BASILYS_LOCATION("warmelt-macro.bysl:334:/ iniobj"); /*iniobj dobj_517__CLASS_SRC_LET*/ - if (!/*_.VALDATA___V578*/ curfptr[577]) /*_.VALDATA___V578*/ curfptr[577] = (void*)&cdat->dobj_517__CLASS_SRC_LET; + if (!/*_.VALDATA___V579*/ curfptr[578]) /*_.VALDATA___V579*/ curfptr[578] = (void*)&cdat->dobj_517__CLASS_SRC_LET; basilys_assertmsg("iniobj checkdiscr dobj_517__CLASS_SRC_LET", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_517__CLASS_SRC_LET.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_517__CLASS_SRC_LET.obj_num = OBMAG_OBJECT; - cdat->dobj_517__CLASS_SRC_LET.obj_hash = 471851312; + cdat->dobj_517__CLASS_SRC_LET.obj_hash = 64956032; cdat->dobj_517__CLASS_SRC_LET.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_517__CLASS_SRC_LET)); /*inistring dstr_518__CLASS_SRC_LET*/ - /*_.VALSTR___V579*/ curfptr[578] = (void*)&cdat->dstr_518__CLASS_SRC_LET; + /*_.VALSTR___V580*/ curfptr[579] = (void*)&cdat->dstr_518__CLASS_SRC_LET; cdat->dstr_518__CLASS_SRC_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_518__CLASS_SRC_LET.val, "CLASS_SRC_LET"); /*inimult dtup_519__CLASS_SRC_LET*/ - /*_.VALTUP___V580*/ curfptr[579] = (void*)&cdat->dtup_519__CLASS_SRC_LET; + /*_.VALTUP___V581*/ curfptr[580] = (void*)&cdat->dtup_519__CLASS_SRC_LET; cdat->dtup_519__CLASS_SRC_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_519__CLASS_SRC_LET.nbval = 2; /*inimult dtup_520__CLASS_SRC_LET*/ - /*_.VALTUP___V585*/ curfptr[584] = (void*)&cdat->dtup_520__CLASS_SRC_LET; + /*_.VALTUP___V586*/ curfptr[585] = (void*)&cdat->dtup_520__CLASS_SRC_LET; cdat->dtup_520__CLASS_SRC_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_520__CLASS_SRC_LET.nbval = 3; /*iniobj dsym_521__SLET_BINDINGS*/ - if (!/*_.VALDATA___V586*/ curfptr[585]) /*_.VALDATA___V586*/ curfptr[585] = (void*)&cdat->dsym_521__SLET_BINDINGS; + if (!/*_.VALDATA___V587*/ curfptr[586]) /*_.VALDATA___V587*/ curfptr[586] = (void*)&cdat->dsym_521__SLET_BINDINGS; basilys_assertmsg("iniobj checkdiscr dsym_521__SLET_BINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_521__SLET_BINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_521__SLET_BINDINGS.obj_hash = 942285125; @@ -47723,27 +49278,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_517__CLASS_SRC_LET) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_521__SLET_BINDINGS)); /*inistring dstr_522__SLET_BINDINGS*/ - /*_.VALSTR___V587*/ curfptr[586] = (void*)&cdat->dstr_522__SLET_BINDINGS; + /*_.VALSTR___V588*/ curfptr[587] = (void*)&cdat->dstr_522__SLET_BINDINGS; cdat->dstr_522__SLET_BINDINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_522__SLET_BINDINGS.val, "SLET_BINDINGS"); BASILYS_LOCATION("warmelt-macro.bysl:334:/ iniobj"); /*iniobj dobj_523__SLET_BINDINGS*/ - if (!/*_.VALDATA___V581*/ curfptr[580]) /*_.VALDATA___V581*/ curfptr[580] = (void*)&cdat->dobj_523__SLET_BINDINGS; + if (!/*_.VALDATA___V582*/ curfptr[581]) /*_.VALDATA___V582*/ curfptr[581] = (void*)&cdat->dobj_523__SLET_BINDINGS; basilys_assertmsg("iniobj checkdiscr dobj_523__SLET_BINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_523__SLET_BINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_523__SLET_BINDINGS.obj_num = 1; - cdat->dobj_523__SLET_BINDINGS.obj_hash = 499367201; + cdat->dobj_523__SLET_BINDINGS.obj_hash = 842833123; cdat->dobj_523__SLET_BINDINGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_523__SLET_BINDINGS)); /*inistring dstr_524__SLET_BINDINGS*/ - /*_.VALSTR___V582*/ curfptr[581] = (void*)&cdat->dstr_524__SLET_BINDINGS; + /*_.VALSTR___V583*/ curfptr[582] = (void*)&cdat->dstr_524__SLET_BINDINGS; cdat->dstr_524__SLET_BINDINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_524__SLET_BINDINGS.val, "SLET_BINDINGS"); /*iniobj dsym_525__SLET_BODY*/ - if (!/*_.VALDATA___V588*/ curfptr[587]) /*_.VALDATA___V588*/ curfptr[587] = (void*)&cdat->dsym_525__SLET_BODY; + if (!/*_.VALDATA___V589*/ curfptr[588]) /*_.VALDATA___V589*/ curfptr[588] = (void*)&cdat->dsym_525__SLET_BODY; basilys_assertmsg("iniobj checkdiscr dsym_525__SLET_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_525__SLET_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_525__SLET_BODY.obj_hash = 405353277; @@ -47751,27 +49306,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_523__SLET_BINDINGS) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_525__SLET_BODY)); /*inistring dstr_526__SLET_BODY*/ - /*_.VALSTR___V589*/ curfptr[588] = (void*)&cdat->dstr_526__SLET_BODY; + /*_.VALSTR___V590*/ curfptr[589] = (void*)&cdat->dstr_526__SLET_BODY; cdat->dstr_526__SLET_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_526__SLET_BODY.val, "SLET_BODY"); BASILYS_LOCATION("warmelt-macro.bysl:334:/ iniobj"); /*iniobj dobj_527__SLET_BODY*/ - if (!/*_.VALDATA___V583*/ curfptr[582]) /*_.VALDATA___V583*/ curfptr[582] = (void*)&cdat->dobj_527__SLET_BODY; + if (!/*_.VALDATA___V584*/ curfptr[583]) /*_.VALDATA___V584*/ curfptr[583] = (void*)&cdat->dobj_527__SLET_BODY; basilys_assertmsg("iniobj checkdiscr dobj_527__SLET_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_527__SLET_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_527__SLET_BODY.obj_num = 2; - cdat->dobj_527__SLET_BODY.obj_hash = 879636183; + cdat->dobj_527__SLET_BODY.obj_hash = 856823622; cdat->dobj_527__SLET_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_527__SLET_BODY)); /*inistring dstr_528__SLET_BODY*/ - /*_.VALSTR___V584*/ curfptr[583] = (void*)&cdat->dstr_528__SLET_BODY; + /*_.VALSTR___V585*/ curfptr[584] = (void*)&cdat->dstr_528__SLET_BODY; cdat->dstr_528__SLET_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_528__SLET_BODY.val, "SLET_BODY"); /*iniobj dsym_529__CLASS_SRC_LAMBDA*/ - if (!/*_.VALDATA___V590*/ curfptr[589]) /*_.VALDATA___V590*/ curfptr[589] = (void*)&cdat->dsym_529__CLASS_SRC_LAMBDA; + if (!/*_.VALDATA___V591*/ curfptr[590]) /*_.VALDATA___V591*/ curfptr[590] = (void*)&cdat->dsym_529__CLASS_SRC_LAMBDA; basilys_assertmsg("iniobj checkdiscr dsym_529__CLASS_SRC_LAMBDA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_529__CLASS_SRC_LAMBDA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_529__CLASS_SRC_LAMBDA.obj_hash = 701094695; @@ -47779,35 +49334,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_527__SLET_BODY)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_529__CLASS_SRC_LAMBDA)); /*inistring dstr_530__CLASS_SRC_LAMBDA*/ - /*_.VALSTR___V591*/ curfptr[590] = (void*)&cdat->dstr_530__CLASS_SRC_LAMBDA; + /*_.VALSTR___V592*/ curfptr[591] = (void*)&cdat->dstr_530__CLASS_SRC_LAMBDA; cdat->dstr_530__CLASS_SRC_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_530__CLASS_SRC_LAMBDA.val, "CLASS_SRC_LAMBDA"); BASILYS_LOCATION("warmelt-macro.bysl:341:/ iniobj"); /*iniobj dobj_531__CLASS_SRC_LAMBDA*/ - if (!/*_.VALDATA___V592*/ curfptr[591]) /*_.VALDATA___V592*/ curfptr[591] = (void*)&cdat->dobj_531__CLASS_SRC_LAMBDA; + if (!/*_.VALDATA___V593*/ curfptr[592]) /*_.VALDATA___V593*/ curfptr[592] = (void*)&cdat->dobj_531__CLASS_SRC_LAMBDA; basilys_assertmsg("iniobj checkdiscr dobj_531__CLASS_SRC_LAMBDA", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_531__CLASS_SRC_LAMBDA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_531__CLASS_SRC_LAMBDA.obj_num = OBMAG_OBJECT; - cdat->dobj_531__CLASS_SRC_LAMBDA.obj_hash = 922574406; + cdat->dobj_531__CLASS_SRC_LAMBDA.obj_hash = 530148806; cdat->dobj_531__CLASS_SRC_LAMBDA.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_531__CLASS_SRC_LAMBDA)); /*inistring dstr_532__CLASS_SRC_LAMBDA*/ - /*_.VALSTR___V593*/ curfptr[592] = (void*)&cdat->dstr_532__CLASS_SRC_LAMBDA; + /*_.VALSTR___V594*/ curfptr[593] = (void*)&cdat->dstr_532__CLASS_SRC_LAMBDA; cdat->dstr_532__CLASS_SRC_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_532__CLASS_SRC_LAMBDA.val, "CLASS_SRC_LAMBDA"); /*inimult dtup_533__CLASS_SRC_LAMBDA*/ - /*_.VALTUP___V594*/ curfptr[593] = (void*)&cdat->dtup_533__CLASS_SRC_LAMBDA; + /*_.VALTUP___V595*/ curfptr[594] = (void*)&cdat->dtup_533__CLASS_SRC_LAMBDA; cdat->dtup_533__CLASS_SRC_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_533__CLASS_SRC_LAMBDA.nbval = 2; /*inimult dtup_534__CLASS_SRC_LAMBDA*/ - /*_.VALTUP___V599*/ curfptr[598] = (void*)&cdat->dtup_534__CLASS_SRC_LAMBDA; + /*_.VALTUP___V600*/ curfptr[599] = (void*)&cdat->dtup_534__CLASS_SRC_LAMBDA; cdat->dtup_534__CLASS_SRC_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_534__CLASS_SRC_LAMBDA.nbval = 3; /*iniobj dsym_535__SLAM_ARGBIND*/ - if (!/*_.VALDATA___V600*/ curfptr[599]) /*_.VALDATA___V600*/ curfptr[599] = (void*)&cdat->dsym_535__SLAM_ARGBIND; + if (!/*_.VALDATA___V601*/ curfptr[600]) /*_.VALDATA___V601*/ curfptr[600] = (void*)&cdat->dsym_535__SLAM_ARGBIND; basilys_assertmsg("iniobj checkdiscr dsym_535__SLAM_ARGBIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_535__SLAM_ARGBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_535__SLAM_ARGBIND.obj_hash = 370871900; @@ -47815,27 +49370,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_531__CLASS_SRC_LAMB basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_535__SLAM_ARGBIND)); /*inistring dstr_536__SLAM_ARGBIND*/ - /*_.VALSTR___V601*/ curfptr[600] = (void*)&cdat->dstr_536__SLAM_ARGBIND; + /*_.VALSTR___V602*/ curfptr[601] = (void*)&cdat->dstr_536__SLAM_ARGBIND; cdat->dstr_536__SLAM_ARGBIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_536__SLAM_ARGBIND.val, "SLAM_ARGBIND"); BASILYS_LOCATION("warmelt-macro.bysl:341:/ iniobj"); /*iniobj dobj_537__SLAM_ARGBIND*/ - if (!/*_.VALDATA___V595*/ curfptr[594]) /*_.VALDATA___V595*/ curfptr[594] = (void*)&cdat->dobj_537__SLAM_ARGBIND; + if (!/*_.VALDATA___V596*/ curfptr[595]) /*_.VALDATA___V596*/ curfptr[595] = (void*)&cdat->dobj_537__SLAM_ARGBIND; basilys_assertmsg("iniobj checkdiscr dobj_537__SLAM_ARGBIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_537__SLAM_ARGBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_537__SLAM_ARGBIND.obj_num = 1; - cdat->dobj_537__SLAM_ARGBIND.obj_hash = 491252834; + cdat->dobj_537__SLAM_ARGBIND.obj_hash = 385575914; cdat->dobj_537__SLAM_ARGBIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_537__SLAM_ARGBIND)); /*inistring dstr_538__SLAM_ARGBIND*/ - /*_.VALSTR___V596*/ curfptr[595] = (void*)&cdat->dstr_538__SLAM_ARGBIND; + /*_.VALSTR___V597*/ curfptr[596] = (void*)&cdat->dstr_538__SLAM_ARGBIND; cdat->dstr_538__SLAM_ARGBIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_538__SLAM_ARGBIND.val, "SLAM_ARGBIND"); /*iniobj dsym_539__SLAM_BODY*/ - if (!/*_.VALDATA___V602*/ curfptr[601]) /*_.VALDATA___V602*/ curfptr[601] = (void*)&cdat->dsym_539__SLAM_BODY; + if (!/*_.VALDATA___V603*/ curfptr[602]) /*_.VALDATA___V603*/ curfptr[602] = (void*)&cdat->dsym_539__SLAM_BODY; basilys_assertmsg("iniobj checkdiscr dsym_539__SLAM_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_539__SLAM_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_539__SLAM_BODY.obj_hash = 405250012; @@ -47843,27 +49398,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_537__SLAM_ARGBIND)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_539__SLAM_BODY)); /*inistring dstr_540__SLAM_BODY*/ - /*_.VALSTR___V603*/ curfptr[602] = (void*)&cdat->dstr_540__SLAM_BODY; + /*_.VALSTR___V604*/ curfptr[603] = (void*)&cdat->dstr_540__SLAM_BODY; cdat->dstr_540__SLAM_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_540__SLAM_BODY.val, "SLAM_BODY"); BASILYS_LOCATION("warmelt-macro.bysl:341:/ iniobj"); /*iniobj dobj_541__SLAM_BODY*/ - if (!/*_.VALDATA___V597*/ curfptr[596]) /*_.VALDATA___V597*/ curfptr[596] = (void*)&cdat->dobj_541__SLAM_BODY; + if (!/*_.VALDATA___V598*/ curfptr[597]) /*_.VALDATA___V598*/ curfptr[597] = (void*)&cdat->dobj_541__SLAM_BODY; basilys_assertmsg("iniobj checkdiscr dobj_541__SLAM_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_541__SLAM_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_541__SLAM_BODY.obj_num = 2; - cdat->dobj_541__SLAM_BODY.obj_hash = 88025257; + cdat->dobj_541__SLAM_BODY.obj_hash = 271078614; cdat->dobj_541__SLAM_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_541__SLAM_BODY)); /*inistring dstr_542__SLAM_BODY*/ - /*_.VALSTR___V598*/ curfptr[597] = (void*)&cdat->dstr_542__SLAM_BODY; + /*_.VALSTR___V599*/ curfptr[598] = (void*)&cdat->dstr_542__SLAM_BODY; cdat->dstr_542__SLAM_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_542__SLAM_BODY.val, "SLAM_BODY"); /*iniobj dsym_543__CLASS_SRC_MULTICALL*/ - if (!/*_.VALDATA___V604*/ curfptr[603]) /*_.VALDATA___V604*/ curfptr[603] = (void*)&cdat->dsym_543__CLASS_SRC_MULTICALL; + if (!/*_.VALDATA___V605*/ curfptr[604]) /*_.VALDATA___V605*/ curfptr[604] = (void*)&cdat->dsym_543__CLASS_SRC_MULTICALL; basilys_assertmsg("iniobj checkdiscr dsym_543__CLASS_SRC_MULTICALL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_543__CLASS_SRC_MULTICALL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_543__CLASS_SRC_MULTICALL.obj_hash = 462163749; @@ -47871,35 +49426,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_541__SLAM_BODY)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_543__CLASS_SRC_MULTICALL)); /*inistring dstr_544__CLASS_SRC_MULTIC*/ - /*_.VALSTR___V605*/ curfptr[604] = (void*)&cdat->dstr_544__CLASS_SRC_MULTIC; + /*_.VALSTR___V606*/ curfptr[605] = (void*)&cdat->dstr_544__CLASS_SRC_MULTIC; cdat->dstr_544__CLASS_SRC_MULTIC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_544__CLASS_SRC_MULTIC.val, "CLASS_SRC_MULTICALL"); BASILYS_LOCATION("warmelt-macro.bysl:349:/ iniobj"); /*iniobj dobj_545__CLASS_SRC_MULTICALL*/ - if (!/*_.VALDATA___V606*/ curfptr[605]) /*_.VALDATA___V606*/ curfptr[605] = (void*)&cdat->dobj_545__CLASS_SRC_MULTICALL; + if (!/*_.VALDATA___V607*/ curfptr[606]) /*_.VALDATA___V607*/ curfptr[606] = (void*)&cdat->dobj_545__CLASS_SRC_MULTICALL; basilys_assertmsg("iniobj checkdiscr dobj_545__CLASS_SRC_MULTICALL", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_545__CLASS_SRC_MULTICALL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_545__CLASS_SRC_MULTICALL.obj_num = OBMAG_OBJECT; - cdat->dobj_545__CLASS_SRC_MULTICALL.obj_hash = 530073531; + cdat->dobj_545__CLASS_SRC_MULTICALL.obj_hash = 903632889; cdat->dobj_545__CLASS_SRC_MULTICALL.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_545__CLASS_SRC_MULTICALL)); /*inistring dstr_546__CLASS_SRC_MULTIC*/ - /*_.VALSTR___V607*/ curfptr[606] = (void*)&cdat->dstr_546__CLASS_SRC_MULTIC; + /*_.VALSTR___V608*/ curfptr[607] = (void*)&cdat->dstr_546__CLASS_SRC_MULTIC; cdat->dstr_546__CLASS_SRC_MULTIC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_546__CLASS_SRC_MULTIC.val, "CLASS_SRC_MULTICALL"); /*inimult dtup_547__CLASS_SRC_MULTICALL*/ - /*_.VALTUP___V608*/ curfptr[607] = (void*)&cdat->dtup_547__CLASS_SRC_MULTICALL; + /*_.VALTUP___V609*/ curfptr[608] = (void*)&cdat->dtup_547__CLASS_SRC_MULTICALL; cdat->dtup_547__CLASS_SRC_MULTICALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_547__CLASS_SRC_MULTICALL.nbval = 2; /*inimult dtup_548__CLASS_SRC_MULTICALL*/ - /*_.VALTUP___V615*/ curfptr[614] = (void*)&cdat->dtup_548__CLASS_SRC_MULTICALL; + /*_.VALTUP___V616*/ curfptr[615] = (void*)&cdat->dtup_548__CLASS_SRC_MULTICALL; cdat->dtup_548__CLASS_SRC_MULTICALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_548__CLASS_SRC_MULTICALL.nbval = 4; /*iniobj dsym_549__SMULC_RESBIND*/ - if (!/*_.VALDATA___V616*/ curfptr[615]) /*_.VALDATA___V616*/ curfptr[615] = (void*)&cdat->dsym_549__SMULC_RESBIND; + if (!/*_.VALDATA___V617*/ curfptr[616]) /*_.VALDATA___V617*/ curfptr[616] = (void*)&cdat->dsym_549__SMULC_RESBIND; basilys_assertmsg("iniobj checkdiscr dsym_549__SMULC_RESBIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_549__SMULC_RESBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_549__SMULC_RESBIND.obj_hash = 135599005; @@ -47907,27 +49462,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_545__CLASS_SRC_MULT basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_549__SMULC_RESBIND)); /*inistring dstr_550__SMULC_RESBIND*/ - /*_.VALSTR___V617*/ curfptr[616] = (void*)&cdat->dstr_550__SMULC_RESBIND; + /*_.VALSTR___V618*/ curfptr[617] = (void*)&cdat->dstr_550__SMULC_RESBIND; cdat->dstr_550__SMULC_RESBIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_550__SMULC_RESBIND.val, "SMULC_RESBIND"); BASILYS_LOCATION("warmelt-macro.bysl:349:/ iniobj"); /*iniobj dobj_551__SMULC_RESBIND*/ - if (!/*_.VALDATA___V609*/ curfptr[608]) /*_.VALDATA___V609*/ curfptr[608] = (void*)&cdat->dobj_551__SMULC_RESBIND; + if (!/*_.VALDATA___V610*/ curfptr[609]) /*_.VALDATA___V610*/ curfptr[609] = (void*)&cdat->dobj_551__SMULC_RESBIND; basilys_assertmsg("iniobj checkdiscr dobj_551__SMULC_RESBIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_551__SMULC_RESBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_551__SMULC_RESBIND.obj_num = 1; - cdat->dobj_551__SMULC_RESBIND.obj_hash = 939717384; + cdat->dobj_551__SMULC_RESBIND.obj_hash = 1030019357; cdat->dobj_551__SMULC_RESBIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_551__SMULC_RESBIND)); /*inistring dstr_552__SMULC_RESBIND*/ - /*_.VALSTR___V610*/ curfptr[609] = (void*)&cdat->dstr_552__SMULC_RESBIND; + /*_.VALSTR___V611*/ curfptr[610] = (void*)&cdat->dstr_552__SMULC_RESBIND; cdat->dstr_552__SMULC_RESBIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_552__SMULC_RESBIND.val, "SMULC_RESBIND"); /*iniobj dsym_553__SMULC_CALL*/ - if (!/*_.VALDATA___V618*/ curfptr[617]) /*_.VALDATA___V618*/ curfptr[617] = (void*)&cdat->dsym_553__SMULC_CALL; + if (!/*_.VALDATA___V619*/ curfptr[618]) /*_.VALDATA___V619*/ curfptr[618] = (void*)&cdat->dsym_553__SMULC_CALL; basilys_assertmsg("iniobj checkdiscr dsym_553__SMULC_CALL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_553__SMULC_CALL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_553__SMULC_CALL.obj_hash = 918745495; @@ -47935,27 +49490,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_551__SMULC_RESBIND) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_553__SMULC_CALL)); /*inistring dstr_554__SMULC_CALL*/ - /*_.VALSTR___V619*/ curfptr[618] = (void*)&cdat->dstr_554__SMULC_CALL; + /*_.VALSTR___V620*/ curfptr[619] = (void*)&cdat->dstr_554__SMULC_CALL; cdat->dstr_554__SMULC_CALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_554__SMULC_CALL.val, "SMULC_CALL"); BASILYS_LOCATION("warmelt-macro.bysl:349:/ iniobj"); /*iniobj dobj_555__SMULC_CALL*/ - if (!/*_.VALDATA___V611*/ curfptr[610]) /*_.VALDATA___V611*/ curfptr[610] = (void*)&cdat->dobj_555__SMULC_CALL; + if (!/*_.VALDATA___V612*/ curfptr[611]) /*_.VALDATA___V612*/ curfptr[611] = (void*)&cdat->dobj_555__SMULC_CALL; basilys_assertmsg("iniobj checkdiscr dobj_555__SMULC_CALL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_555__SMULC_CALL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_555__SMULC_CALL.obj_num = 2; - cdat->dobj_555__SMULC_CALL.obj_hash = 218403824; + cdat->dobj_555__SMULC_CALL.obj_hash = 880493919; cdat->dobj_555__SMULC_CALL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_555__SMULC_CALL)); /*inistring dstr_556__SMULC_CALL*/ - /*_.VALSTR___V612*/ curfptr[611] = (void*)&cdat->dstr_556__SMULC_CALL; + /*_.VALSTR___V613*/ curfptr[612] = (void*)&cdat->dstr_556__SMULC_CALL; cdat->dstr_556__SMULC_CALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_556__SMULC_CALL.val, "SMULC_CALL"); /*iniobj dsym_557__SMULC_BODY*/ - if (!/*_.VALDATA___V620*/ curfptr[619]) /*_.VALDATA___V620*/ curfptr[619] = (void*)&cdat->dsym_557__SMULC_BODY; + if (!/*_.VALDATA___V621*/ curfptr[620]) /*_.VALDATA___V621*/ curfptr[620] = (void*)&cdat->dsym_557__SMULC_BODY; basilys_assertmsg("iniobj checkdiscr dsym_557__SMULC_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_557__SMULC_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_557__SMULC_BODY.obj_hash = 828944150; @@ -47963,27 +49518,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_555__SMULC_CALL)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_557__SMULC_BODY)); /*inistring dstr_558__SMULC_BODY*/ - /*_.VALSTR___V621*/ curfptr[620] = (void*)&cdat->dstr_558__SMULC_BODY; + /*_.VALSTR___V622*/ curfptr[621] = (void*)&cdat->dstr_558__SMULC_BODY; cdat->dstr_558__SMULC_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_558__SMULC_BODY.val, "SMULC_BODY"); BASILYS_LOCATION("warmelt-macro.bysl:349:/ iniobj"); /*iniobj dobj_559__SMULC_BODY*/ - if (!/*_.VALDATA___V613*/ curfptr[612]) /*_.VALDATA___V613*/ curfptr[612] = (void*)&cdat->dobj_559__SMULC_BODY; + if (!/*_.VALDATA___V614*/ curfptr[613]) /*_.VALDATA___V614*/ curfptr[613] = (void*)&cdat->dobj_559__SMULC_BODY; basilys_assertmsg("iniobj checkdiscr dobj_559__SMULC_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_559__SMULC_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_559__SMULC_BODY.obj_num = 3; - cdat->dobj_559__SMULC_BODY.obj_hash = 58470863; + cdat->dobj_559__SMULC_BODY.obj_hash = 106636796; cdat->dobj_559__SMULC_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_559__SMULC_BODY)); /*inistring dstr_560__SMULC_BODY*/ - /*_.VALSTR___V614*/ curfptr[613] = (void*)&cdat->dstr_560__SMULC_BODY; + /*_.VALSTR___V615*/ curfptr[614] = (void*)&cdat->dstr_560__SMULC_BODY; cdat->dstr_560__SMULC_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_560__SMULC_BODY.val, "SMULC_BODY"); /*iniobj dsym_561__CLASS_SRC_LABELLED*/ - if (!/*_.VALDATA___V622*/ curfptr[621]) /*_.VALDATA___V622*/ curfptr[621] = (void*)&cdat->dsym_561__CLASS_SRC_LABELLED; + if (!/*_.VALDATA___V623*/ curfptr[622]) /*_.VALDATA___V623*/ curfptr[622] = (void*)&cdat->dsym_561__CLASS_SRC_LABELLED; basilys_assertmsg("iniobj checkdiscr dsym_561__CLASS_SRC_LABELLED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_561__CLASS_SRC_LABELLED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_561__CLASS_SRC_LABELLED.obj_hash = 723667246; @@ -47991,35 +49546,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_559__SMULC_BODY)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_561__CLASS_SRC_LABELLED)); /*inistring dstr_562__CLASS_SRC_LABELL*/ - /*_.VALSTR___V623*/ curfptr[622] = (void*)&cdat->dstr_562__CLASS_SRC_LABELL; + /*_.VALSTR___V624*/ curfptr[623] = (void*)&cdat->dstr_562__CLASS_SRC_LABELL; cdat->dstr_562__CLASS_SRC_LABELL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_562__CLASS_SRC_LABELL.val, "CLASS_SRC_LABELLED"); BASILYS_LOCATION("warmelt-macro.bysl:357:/ iniobj"); /*iniobj dobj_563__CLASS_SRC_LABELLED*/ - if (!/*_.VALDATA___V624*/ curfptr[623]) /*_.VALDATA___V624*/ curfptr[623] = (void*)&cdat->dobj_563__CLASS_SRC_LABELLED; + if (!/*_.VALDATA___V625*/ curfptr[624]) /*_.VALDATA___V625*/ curfptr[624] = (void*)&cdat->dobj_563__CLASS_SRC_LABELLED; basilys_assertmsg("iniobj checkdiscr dobj_563__CLASS_SRC_LABELLED", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_563__CLASS_SRC_LABELLED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_563__CLASS_SRC_LABELLED.obj_num = OBMAG_OBJECT; - cdat->dobj_563__CLASS_SRC_LABELLED.obj_hash = 698169248; + cdat->dobj_563__CLASS_SRC_LABELLED.obj_hash = 991067814; cdat->dobj_563__CLASS_SRC_LABELLED.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_563__CLASS_SRC_LABELLED)); /*inistring dstr_564__CLASS_SRC_LABELL*/ - /*_.VALSTR___V625*/ curfptr[624] = (void*)&cdat->dstr_564__CLASS_SRC_LABELL; + /*_.VALSTR___V626*/ curfptr[625] = (void*)&cdat->dstr_564__CLASS_SRC_LABELL; cdat->dstr_564__CLASS_SRC_LABELL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_564__CLASS_SRC_LABELL.val, "CLASS_SRC_LABELLED"); /*inimult dtup_565__CLASS_SRC_LABELLED*/ - /*_.VALTUP___V626*/ curfptr[625] = (void*)&cdat->dtup_565__CLASS_SRC_LABELLED; + /*_.VALTUP___V627*/ curfptr[626] = (void*)&cdat->dtup_565__CLASS_SRC_LABELLED; cdat->dtup_565__CLASS_SRC_LABELLED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_565__CLASS_SRC_LABELLED.nbval = 2; /*inimult dtup_566__CLASS_SRC_LABELLED*/ - /*_.VALTUP___V629*/ curfptr[628] = (void*)&cdat->dtup_566__CLASS_SRC_LABELLED; + /*_.VALTUP___V630*/ curfptr[629] = (void*)&cdat->dtup_566__CLASS_SRC_LABELLED; cdat->dtup_566__CLASS_SRC_LABELLED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_566__CLASS_SRC_LABELLED.nbval = 2; /*iniobj dsym_567__SLABEL_BIND*/ - if (!/*_.VALDATA___V630*/ curfptr[629]) /*_.VALDATA___V630*/ curfptr[629] = (void*)&cdat->dsym_567__SLABEL_BIND; + if (!/*_.VALDATA___V631*/ curfptr[630]) /*_.VALDATA___V631*/ curfptr[630] = (void*)&cdat->dsym_567__SLABEL_BIND; basilys_assertmsg("iniobj checkdiscr dsym_567__SLABEL_BIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_567__SLABEL_BIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_567__SLABEL_BIND.obj_hash = 418843843; @@ -48027,27 +49582,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_563__CLASS_SRC_LABE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_567__SLABEL_BIND)); /*inistring dstr_568__SLABEL_BIND*/ - /*_.VALSTR___V631*/ curfptr[630] = (void*)&cdat->dstr_568__SLABEL_BIND; + /*_.VALSTR___V632*/ curfptr[631] = (void*)&cdat->dstr_568__SLABEL_BIND; cdat->dstr_568__SLABEL_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_568__SLABEL_BIND.val, "SLABEL_BIND"); BASILYS_LOCATION("warmelt-macro.bysl:357:/ iniobj"); /*iniobj dobj_569__SLABEL_BIND*/ - if (!/*_.VALDATA___V627*/ curfptr[626]) /*_.VALDATA___V627*/ curfptr[626] = (void*)&cdat->dobj_569__SLABEL_BIND; + if (!/*_.VALDATA___V628*/ curfptr[627]) /*_.VALDATA___V628*/ curfptr[627] = (void*)&cdat->dobj_569__SLABEL_BIND; basilys_assertmsg("iniobj checkdiscr dobj_569__SLABEL_BIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_569__SLABEL_BIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_569__SLABEL_BIND.obj_num = 1; - cdat->dobj_569__SLABEL_BIND.obj_hash = 1070791054; + cdat->dobj_569__SLABEL_BIND.obj_hash = 902854225; cdat->dobj_569__SLABEL_BIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_569__SLABEL_BIND)); /*inistring dstr_570__SLABEL_BIND*/ - /*_.VALSTR___V628*/ curfptr[627] = (void*)&cdat->dstr_570__SLABEL_BIND; + /*_.VALSTR___V629*/ curfptr[628] = (void*)&cdat->dstr_570__SLABEL_BIND; cdat->dstr_570__SLABEL_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_570__SLABEL_BIND.val, "SLABEL_BIND"); /*iniobj dsym_571__CLASS_SRC_FOREVER*/ - if (!/*_.VALDATA___V632*/ curfptr[631]) /*_.VALDATA___V632*/ curfptr[631] = (void*)&cdat->dsym_571__CLASS_SRC_FOREVER; + if (!/*_.VALDATA___V633*/ curfptr[632]) /*_.VALDATA___V633*/ curfptr[632] = (void*)&cdat->dsym_571__CLASS_SRC_FOREVER; basilys_assertmsg("iniobj checkdiscr dsym_571__CLASS_SRC_FOREVER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_571__CLASS_SRC_FOREVER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_571__CLASS_SRC_FOREVER.obj_hash = 967265882; @@ -48055,35 +49610,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_569__SLABEL_BIND)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_571__CLASS_SRC_FOREVER)); /*inistring dstr_572__CLASS_SRC_FOREVE*/ - /*_.VALSTR___V633*/ curfptr[632] = (void*)&cdat->dstr_572__CLASS_SRC_FOREVE; + /*_.VALSTR___V634*/ curfptr[633] = (void*)&cdat->dstr_572__CLASS_SRC_FOREVE; cdat->dstr_572__CLASS_SRC_FOREVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_572__CLASS_SRC_FOREVE.val, "CLASS_SRC_FOREVER"); BASILYS_LOCATION("warmelt-macro.bysl:363:/ iniobj"); /*iniobj dobj_573__CLASS_SRC_FOREVER*/ - if (!/*_.VALDATA___V634*/ curfptr[633]) /*_.VALDATA___V634*/ curfptr[633] = (void*)&cdat->dobj_573__CLASS_SRC_FOREVER; + if (!/*_.VALDATA___V635*/ curfptr[634]) /*_.VALDATA___V635*/ curfptr[634] = (void*)&cdat->dobj_573__CLASS_SRC_FOREVER; basilys_assertmsg("iniobj checkdiscr dobj_573__CLASS_SRC_FOREVER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_573__CLASS_SRC_FOREVER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_573__CLASS_SRC_FOREVER.obj_num = OBMAG_OBJECT; - cdat->dobj_573__CLASS_SRC_FOREVER.obj_hash = 638080932; + cdat->dobj_573__CLASS_SRC_FOREVER.obj_hash = 244000338; cdat->dobj_573__CLASS_SRC_FOREVER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_573__CLASS_SRC_FOREVER)); /*inistring dstr_574__CLASS_SRC_FOREVE*/ - /*_.VALSTR___V635*/ curfptr[634] = (void*)&cdat->dstr_574__CLASS_SRC_FOREVE; + /*_.VALSTR___V636*/ curfptr[635] = (void*)&cdat->dstr_574__CLASS_SRC_FOREVE; cdat->dstr_574__CLASS_SRC_FOREVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_574__CLASS_SRC_FOREVE.val, "CLASS_SRC_FOREVER"); /*inimult dtup_575__CLASS_SRC_FOREVER*/ - /*_.VALTUP___V636*/ curfptr[635] = (void*)&cdat->dtup_575__CLASS_SRC_FOREVER; + /*_.VALTUP___V637*/ curfptr[636] = (void*)&cdat->dtup_575__CLASS_SRC_FOREVER; cdat->dtup_575__CLASS_SRC_FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_575__CLASS_SRC_FOREVER.nbval = 3; /*inimult dtup_576__CLASS_SRC_FOREVER*/ - /*_.VALTUP___V639*/ curfptr[638] = (void*)&cdat->dtup_576__CLASS_SRC_FOREVER; + /*_.VALTUP___V640*/ curfptr[639] = (void*)&cdat->dtup_576__CLASS_SRC_FOREVER; cdat->dtup_576__CLASS_SRC_FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_576__CLASS_SRC_FOREVER.nbval = 3; /*iniobj dsym_577__SFRV_BODY*/ - if (!/*_.VALDATA___V640*/ curfptr[639]) /*_.VALDATA___V640*/ curfptr[639] = (void*)&cdat->dsym_577__SFRV_BODY; + if (!/*_.VALDATA___V641*/ curfptr[640]) /*_.VALDATA___V641*/ curfptr[640] = (void*)&cdat->dsym_577__SFRV_BODY; basilys_assertmsg("iniobj checkdiscr dsym_577__SFRV_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_577__SFRV_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_577__SFRV_BODY.obj_hash = 321317727; @@ -48091,27 +49646,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_573__CLASS_SRC_FORE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_577__SFRV_BODY)); /*inistring dstr_578__SFRV_BODY*/ - /*_.VALSTR___V641*/ curfptr[640] = (void*)&cdat->dstr_578__SFRV_BODY; + /*_.VALSTR___V642*/ curfptr[641] = (void*)&cdat->dstr_578__SFRV_BODY; cdat->dstr_578__SFRV_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_578__SFRV_BODY.val, "SFRV_BODY"); BASILYS_LOCATION("warmelt-macro.bysl:363:/ iniobj"); /*iniobj dobj_579__SFRV_BODY*/ - if (!/*_.VALDATA___V637*/ curfptr[636]) /*_.VALDATA___V637*/ curfptr[636] = (void*)&cdat->dobj_579__SFRV_BODY; + if (!/*_.VALDATA___V638*/ curfptr[637]) /*_.VALDATA___V638*/ curfptr[637] = (void*)&cdat->dobj_579__SFRV_BODY; basilys_assertmsg("iniobj checkdiscr dobj_579__SFRV_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_579__SFRV_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_579__SFRV_BODY.obj_num = 2; - cdat->dobj_579__SFRV_BODY.obj_hash = 853272174; + cdat->dobj_579__SFRV_BODY.obj_hash = 1027796367; cdat->dobj_579__SFRV_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_579__SFRV_BODY)); /*inistring dstr_580__SFRV_BODY*/ - /*_.VALSTR___V638*/ curfptr[637] = (void*)&cdat->dstr_580__SFRV_BODY; + /*_.VALSTR___V639*/ curfptr[638] = (void*)&cdat->dstr_580__SFRV_BODY; cdat->dstr_580__SFRV_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_580__SFRV_BODY.val, "SFRV_BODY"); /*iniobj dsym_581__CLASS_SRC_EXIT*/ - if (!/*_.VALDATA___V642*/ curfptr[641]) /*_.VALDATA___V642*/ curfptr[641] = (void*)&cdat->dsym_581__CLASS_SRC_EXIT; + if (!/*_.VALDATA___V643*/ curfptr[642]) /*_.VALDATA___V643*/ curfptr[642] = (void*)&cdat->dsym_581__CLASS_SRC_EXIT; basilys_assertmsg("iniobj checkdiscr dsym_581__CLASS_SRC_EXIT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_581__CLASS_SRC_EXIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_581__CLASS_SRC_EXIT.obj_hash = 924679147; @@ -48119,35 +49674,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_579__SFRV_BODY)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_581__CLASS_SRC_EXIT)); /*inistring dstr_582__CLASS_SRC_EXIT*/ - /*_.VALSTR___V643*/ curfptr[642] = (void*)&cdat->dstr_582__CLASS_SRC_EXIT; + /*_.VALSTR___V644*/ curfptr[643] = (void*)&cdat->dstr_582__CLASS_SRC_EXIT; cdat->dstr_582__CLASS_SRC_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_582__CLASS_SRC_EXIT.val, "CLASS_SRC_EXIT"); BASILYS_LOCATION("warmelt-macro.bysl:369:/ iniobj"); /*iniobj dobj_583__CLASS_SRC_EXIT*/ - if (!/*_.VALDATA___V644*/ curfptr[643]) /*_.VALDATA___V644*/ curfptr[643] = (void*)&cdat->dobj_583__CLASS_SRC_EXIT; + if (!/*_.VALDATA___V645*/ curfptr[644]) /*_.VALDATA___V645*/ curfptr[644] = (void*)&cdat->dobj_583__CLASS_SRC_EXIT; basilys_assertmsg("iniobj checkdiscr dobj_583__CLASS_SRC_EXIT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_583__CLASS_SRC_EXIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_583__CLASS_SRC_EXIT.obj_num = OBMAG_OBJECT; - cdat->dobj_583__CLASS_SRC_EXIT.obj_hash = 989058835; + cdat->dobj_583__CLASS_SRC_EXIT.obj_hash = 387653011; cdat->dobj_583__CLASS_SRC_EXIT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_583__CLASS_SRC_EXIT)); /*inistring dstr_584__CLASS_SRC_EXIT*/ - /*_.VALSTR___V645*/ curfptr[644] = (void*)&cdat->dstr_584__CLASS_SRC_EXIT; + /*_.VALSTR___V646*/ curfptr[645] = (void*)&cdat->dstr_584__CLASS_SRC_EXIT; cdat->dstr_584__CLASS_SRC_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_584__CLASS_SRC_EXIT.val, "CLASS_SRC_EXIT"); /*inimult dtup_585__CLASS_SRC_EXIT*/ - /*_.VALTUP___V646*/ curfptr[645] = (void*)&cdat->dtup_585__CLASS_SRC_EXIT; + /*_.VALTUP___V647*/ curfptr[646] = (void*)&cdat->dtup_585__CLASS_SRC_EXIT; cdat->dtup_585__CLASS_SRC_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_585__CLASS_SRC_EXIT.nbval = 3; /*inimult dtup_586__CLASS_SRC_EXIT*/ - /*_.VALTUP___V649*/ curfptr[648] = (void*)&cdat->dtup_586__CLASS_SRC_EXIT; + /*_.VALTUP___V650*/ curfptr[649] = (void*)&cdat->dtup_586__CLASS_SRC_EXIT; cdat->dtup_586__CLASS_SRC_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_586__CLASS_SRC_EXIT.nbval = 3; /*iniobj dsym_587__SEXI_BODY*/ - if (!/*_.VALDATA___V650*/ curfptr[649]) /*_.VALDATA___V650*/ curfptr[649] = (void*)&cdat->dsym_587__SEXI_BODY; + if (!/*_.VALDATA___V651*/ curfptr[650]) /*_.VALDATA___V651*/ curfptr[650] = (void*)&cdat->dsym_587__SEXI_BODY; basilys_assertmsg("iniobj checkdiscr dsym_587__SEXI_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_587__SEXI_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_587__SEXI_BODY.obj_hash = 795764559; @@ -48155,27 +49710,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_583__CLASS_SRC_EXIT basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_587__SEXI_BODY)); /*inistring dstr_588__SEXI_BODY*/ - /*_.VALSTR___V651*/ curfptr[650] = (void*)&cdat->dstr_588__SEXI_BODY; + /*_.VALSTR___V652*/ curfptr[651] = (void*)&cdat->dstr_588__SEXI_BODY; cdat->dstr_588__SEXI_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_588__SEXI_BODY.val, "SEXI_BODY"); BASILYS_LOCATION("warmelt-macro.bysl:369:/ iniobj"); /*iniobj dobj_589__SEXI_BODY*/ - if (!/*_.VALDATA___V647*/ curfptr[646]) /*_.VALDATA___V647*/ curfptr[646] = (void*)&cdat->dobj_589__SEXI_BODY; + if (!/*_.VALDATA___V648*/ curfptr[647]) /*_.VALDATA___V648*/ curfptr[647] = (void*)&cdat->dobj_589__SEXI_BODY; basilys_assertmsg("iniobj checkdiscr dobj_589__SEXI_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_589__SEXI_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_589__SEXI_BODY.obj_num = 2; - cdat->dobj_589__SEXI_BODY.obj_hash = 797552486; + cdat->dobj_589__SEXI_BODY.obj_hash = 394820330; cdat->dobj_589__SEXI_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_589__SEXI_BODY)); /*inistring dstr_590__SEXI_BODY*/ - /*_.VALSTR___V648*/ curfptr[647] = (void*)&cdat->dstr_590__SEXI_BODY; + /*_.VALSTR___V649*/ curfptr[648] = (void*)&cdat->dstr_590__SEXI_BODY; cdat->dstr_590__SEXI_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_590__SEXI_BODY.val, "SEXI_BODY"); /*iniobj dsym_591__CLASS_SRC_COMPILEWARNING*/ - if (!/*_.VALDATA___V652*/ curfptr[651]) /*_.VALDATA___V652*/ curfptr[651] = (void*)&cdat->dsym_591__CLASS_SRC_COMPILEWARNING; + if (!/*_.VALDATA___V653*/ curfptr[652]) /*_.VALDATA___V653*/ curfptr[652] = (void*)&cdat->dsym_591__CLASS_SRC_COMPILEWARNING; basilys_assertmsg("iniobj checkdiscr dsym_591__CLASS_SRC_COMPILEWARNING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_591__CLASS_SRC_COMPILEWARNING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_591__CLASS_SRC_COMPILEWARNING.obj_hash = 631779221; @@ -48183,35 +49738,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_589__SEXI_BODY)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_591__CLASS_SRC_COMPILEWARNING)); /*inistring dstr_592__CLASS_SRC_COMPIL*/ - /*_.VALSTR___V653*/ curfptr[652] = (void*)&cdat->dstr_592__CLASS_SRC_COMPIL; + /*_.VALSTR___V654*/ curfptr[653] = (void*)&cdat->dstr_592__CLASS_SRC_COMPIL; cdat->dstr_592__CLASS_SRC_COMPIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_592__CLASS_SRC_COMPIL.val, "CLASS_SRC_COMPILEWARNING"); BASILYS_LOCATION("warmelt-macro.bysl:375:/ iniobj"); /*iniobj dobj_593__CLASS_SRC_COMPILEWARNING*/ - if (!/*_.VALDATA___V654*/ curfptr[653]) /*_.VALDATA___V654*/ curfptr[653] = (void*)&cdat->dobj_593__CLASS_SRC_COMPILEWARNING; + if (!/*_.VALDATA___V655*/ curfptr[654]) /*_.VALDATA___V655*/ curfptr[654] = (void*)&cdat->dobj_593__CLASS_SRC_COMPILEWARNING; basilys_assertmsg("iniobj checkdiscr dobj_593__CLASS_SRC_COMPILEWARNING", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_593__CLASS_SRC_COMPILEWARNING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_593__CLASS_SRC_COMPILEWARNING.obj_num = OBMAG_OBJECT; - cdat->dobj_593__CLASS_SRC_COMPILEWARNING.obj_hash = 586405751; + cdat->dobj_593__CLASS_SRC_COMPILEWARNING.obj_hash = 293670395; cdat->dobj_593__CLASS_SRC_COMPILEWARNING.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_593__CLASS_SRC_COMPILEWARNING)); /*inistring dstr_594__CLASS_SRC_COMPIL*/ - /*_.VALSTR___V655*/ curfptr[654] = (void*)&cdat->dstr_594__CLASS_SRC_COMPIL; + /*_.VALSTR___V656*/ curfptr[655] = (void*)&cdat->dstr_594__CLASS_SRC_COMPIL; cdat->dstr_594__CLASS_SRC_COMPIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_594__CLASS_SRC_COMPIL.val, "CLASS_SRC_COMPILEWARNING"); /*inimult dtup_595__CLASS_SRC_COMPILEWARNING*/ - /*_.VALTUP___V656*/ curfptr[655] = (void*)&cdat->dtup_595__CLASS_SRC_COMPILEWARNING; + /*_.VALTUP___V657*/ curfptr[656] = (void*)&cdat->dtup_595__CLASS_SRC_COMPILEWARNING; cdat->dtup_595__CLASS_SRC_COMPILEWARNING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_595__CLASS_SRC_COMPILEWARNING.nbval = 2; /*inimult dtup_596__CLASS_SRC_COMPILEWARNING*/ - /*_.VALTUP___V661*/ curfptr[660] = (void*)&cdat->dtup_596__CLASS_SRC_COMPILEWARNING; + /*_.VALTUP___V662*/ curfptr[661] = (void*)&cdat->dtup_596__CLASS_SRC_COMPILEWARNING; cdat->dtup_596__CLASS_SRC_COMPILEWARNING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_596__CLASS_SRC_COMPILEWARNING.nbval = 3; /*iniobj dsym_597__SCWARN_MSG*/ - if (!/*_.VALDATA___V662*/ curfptr[661]) /*_.VALDATA___V662*/ curfptr[661] = (void*)&cdat->dsym_597__SCWARN_MSG; + if (!/*_.VALDATA___V663*/ curfptr[662]) /*_.VALDATA___V663*/ curfptr[662] = (void*)&cdat->dsym_597__SCWARN_MSG; basilys_assertmsg("iniobj checkdiscr dsym_597__SCWARN_MSG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_597__SCWARN_MSG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_597__SCWARN_MSG.obj_hash = 98598467; @@ -48219,27 +49774,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_593__CLASS_SRC_COMP basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_597__SCWARN_MSG)); /*inistring dstr_598__SCWARN_MSG*/ - /*_.VALSTR___V663*/ curfptr[662] = (void*)&cdat->dstr_598__SCWARN_MSG; + /*_.VALSTR___V664*/ curfptr[663] = (void*)&cdat->dstr_598__SCWARN_MSG; cdat->dstr_598__SCWARN_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_598__SCWARN_MSG.val, "SCWARN_MSG"); BASILYS_LOCATION("warmelt-macro.bysl:375:/ iniobj"); /*iniobj dobj_599__SCWARN_MSG*/ - if (!/*_.VALDATA___V657*/ curfptr[656]) /*_.VALDATA___V657*/ curfptr[656] = (void*)&cdat->dobj_599__SCWARN_MSG; + if (!/*_.VALDATA___V658*/ curfptr[657]) /*_.VALDATA___V658*/ curfptr[657] = (void*)&cdat->dobj_599__SCWARN_MSG; basilys_assertmsg("iniobj checkdiscr dobj_599__SCWARN_MSG", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_599__SCWARN_MSG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_599__SCWARN_MSG.obj_num = 1; - cdat->dobj_599__SCWARN_MSG.obj_hash = 114282089; + cdat->dobj_599__SCWARN_MSG.obj_hash = 395092476; cdat->dobj_599__SCWARN_MSG.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_599__SCWARN_MSG)); /*inistring dstr_600__SCWARN_MSG*/ - /*_.VALSTR___V658*/ curfptr[657] = (void*)&cdat->dstr_600__SCWARN_MSG; + /*_.VALSTR___V659*/ curfptr[658] = (void*)&cdat->dstr_600__SCWARN_MSG; cdat->dstr_600__SCWARN_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_600__SCWARN_MSG.val, "SCWARN_MSG"); /*iniobj dsym_601__SCWARN_EXPR*/ - if (!/*_.VALDATA___V664*/ curfptr[663]) /*_.VALDATA___V664*/ curfptr[663] = (void*)&cdat->dsym_601__SCWARN_EXPR; + if (!/*_.VALDATA___V665*/ curfptr[664]) /*_.VALDATA___V665*/ curfptr[664] = (void*)&cdat->dsym_601__SCWARN_EXPR; basilys_assertmsg("iniobj checkdiscr dsym_601__SCWARN_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_601__SCWARN_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_601__SCWARN_EXPR.obj_hash = 375567380; @@ -48247,27 +49802,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_599__SCWARN_MSG)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_601__SCWARN_EXPR)); /*inistring dstr_602__SCWARN_EXPR*/ - /*_.VALSTR___V665*/ curfptr[664] = (void*)&cdat->dstr_602__SCWARN_EXPR; + /*_.VALSTR___V666*/ curfptr[665] = (void*)&cdat->dstr_602__SCWARN_EXPR; cdat->dstr_602__SCWARN_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_602__SCWARN_EXPR.val, "SCWARN_EXPR"); BASILYS_LOCATION("warmelt-macro.bysl:375:/ iniobj"); /*iniobj dobj_603__SCWARN_EXPR*/ - if (!/*_.VALDATA___V659*/ curfptr[658]) /*_.VALDATA___V659*/ curfptr[658] = (void*)&cdat->dobj_603__SCWARN_EXPR; + if (!/*_.VALDATA___V660*/ curfptr[659]) /*_.VALDATA___V660*/ curfptr[659] = (void*)&cdat->dobj_603__SCWARN_EXPR; basilys_assertmsg("iniobj checkdiscr dobj_603__SCWARN_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_603__SCWARN_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_603__SCWARN_EXPR.obj_num = 2; - cdat->dobj_603__SCWARN_EXPR.obj_hash = 193303993; + cdat->dobj_603__SCWARN_EXPR.obj_hash = 914445498; cdat->dobj_603__SCWARN_EXPR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_603__SCWARN_EXPR)); /*inistring dstr_604__SCWARN_EXPR*/ - /*_.VALSTR___V660*/ curfptr[659] = (void*)&cdat->dstr_604__SCWARN_EXPR; + /*_.VALSTR___V661*/ curfptr[660] = (void*)&cdat->dstr_604__SCWARN_EXPR; cdat->dstr_604__SCWARN_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_604__SCWARN_EXPR.val, "SCWARN_EXPR"); /*iniobj dsym_605__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - if (!/*_.VALDATA___V666*/ curfptr[665]) /*_.VALDATA___V666*/ curfptr[665] = (void*)&cdat->dsym_605__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + if (!/*_.VALDATA___V667*/ curfptr[666]) /*_.VALDATA___V667*/ curfptr[666] = (void*)&cdat->dsym_605__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_605__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_605__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_605__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 281133492; @@ -48275,35 +49830,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_603__SCWARN_EXPR)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_605__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_606__CLASS_SRC_CURREN*/ - /*_.VALSTR___V667*/ curfptr[666] = (void*)&cdat->dstr_606__CLASS_SRC_CURREN; + /*_.VALSTR___V668*/ curfptr[667] = (void*)&cdat->dstr_606__CLASS_SRC_CURREN; cdat->dstr_606__CLASS_SRC_CURREN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_606__CLASS_SRC_CURREN.val, "CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); BASILYS_LOCATION("warmelt-macro.bysl:382:/ iniobj"); /*iniobj dobj_607__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - if (!/*_.VALDATA___V668*/ curfptr[667]) /*_.VALDATA___V668*/ curfptr[667] = (void*)&cdat->dobj_607__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + if (!/*_.VALDATA___V669*/ curfptr[668]) /*_.VALDATA___V669*/ curfptr[668] = (void*)&cdat->dobj_607__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dobj_607__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_607__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_607__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; - cdat->dobj_607__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 511995841; + cdat->dobj_607__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 723497108; cdat->dobj_607__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_607__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_608__CLASS_SRC_CURREN*/ - /*_.VALSTR___V669*/ curfptr[668] = (void*)&cdat->dstr_608__CLASS_SRC_CURREN; + /*_.VALSTR___V670*/ curfptr[669] = (void*)&cdat->dstr_608__CLASS_SRC_CURREN; cdat->dstr_608__CLASS_SRC_CURREN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_608__CLASS_SRC_CURREN.val, "CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); /*inimult dtup_609__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALTUP___V670*/ curfptr[669] = (void*)&cdat->dtup_609__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + /*_.VALTUP___V671*/ curfptr[670] = (void*)&cdat->dtup_609__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_609__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_609__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 2; /*inimult dtup_610__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALTUP___V673*/ curfptr[672] = (void*)&cdat->dtup_610__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + /*_.VALTUP___V674*/ curfptr[673] = (void*)&cdat->dtup_610__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_610__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_610__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 2; /*iniobj dsym_611__CMEC_COMMENT*/ - if (!/*_.VALDATA___V674*/ curfptr[673]) /*_.VALDATA___V674*/ curfptr[673] = (void*)&cdat->dsym_611__CMEC_COMMENT; + if (!/*_.VALDATA___V675*/ curfptr[674]) /*_.VALDATA___V675*/ curfptr[674] = (void*)&cdat->dsym_611__CMEC_COMMENT; basilys_assertmsg("iniobj checkdiscr dsym_611__CMEC_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_611__CMEC_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_611__CMEC_COMMENT.obj_hash = 809800780; @@ -48311,27 +49866,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_607__CLASS_SRC_CURR basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_611__CMEC_COMMENT)); /*inistring dstr_612__CMEC_COMMENT*/ - /*_.VALSTR___V675*/ curfptr[674] = (void*)&cdat->dstr_612__CMEC_COMMENT; + /*_.VALSTR___V676*/ curfptr[675] = (void*)&cdat->dstr_612__CMEC_COMMENT; cdat->dstr_612__CMEC_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_612__CMEC_COMMENT.val, "CMEC_COMMENT"); BASILYS_LOCATION("warmelt-macro.bysl:382:/ iniobj"); /*iniobj dobj_613__CMEC_COMMENT*/ - if (!/*_.VALDATA___V671*/ curfptr[670]) /*_.VALDATA___V671*/ curfptr[670] = (void*)&cdat->dobj_613__CMEC_COMMENT; + if (!/*_.VALDATA___V672*/ curfptr[671]) /*_.VALDATA___V672*/ curfptr[671] = (void*)&cdat->dobj_613__CMEC_COMMENT; basilys_assertmsg("iniobj checkdiscr dobj_613__CMEC_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_613__CMEC_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_613__CMEC_COMMENT.obj_num = 1; - cdat->dobj_613__CMEC_COMMENT.obj_hash = 556681687; + cdat->dobj_613__CMEC_COMMENT.obj_hash = 384732337; cdat->dobj_613__CMEC_COMMENT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_613__CMEC_COMMENT)); /*inistring dstr_614__CMEC_COMMENT*/ - /*_.VALSTR___V672*/ curfptr[671] = (void*)&cdat->dstr_614__CMEC_COMMENT; + /*_.VALSTR___V673*/ curfptr[672] = (void*)&cdat->dstr_614__CMEC_COMMENT; cdat->dstr_614__CMEC_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_614__CMEC_COMMENT.val, "CMEC_COMMENT"); /*iniobj dsym_615__CLASS_SRC_PARENT_MODULE_ENVIRONMENT*/ - if (!/*_.VALDATA___V676*/ curfptr[675]) /*_.VALDATA___V676*/ curfptr[675] = (void*)&cdat->dsym_615__CLASS_SRC_PARENT_MODULE_ENVIRONMENT; + if (!/*_.VALDATA___V677*/ curfptr[676]) /*_.VALDATA___V677*/ curfptr[676] = (void*)&cdat->dsym_615__CLASS_SRC_PARENT_MODULE_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dsym_615__CLASS_SRC_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_615__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_615__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_hash = 98598467; @@ -48339,35 +49894,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_613__CMEC_COMMENT)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_615__CLASS_SRC_PARENT_MODULE_ENVIRONMENT)); /*inistring dstr_616__CLASS_SRC_PARENT*/ - /*_.VALSTR___V677*/ curfptr[676] = (void*)&cdat->dstr_616__CLASS_SRC_PARENT; + /*_.VALSTR___V678*/ curfptr[677] = (void*)&cdat->dstr_616__CLASS_SRC_PARENT; cdat->dstr_616__CLASS_SRC_PARENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_616__CLASS_SRC_PARENT.val, "CLASS_SRC_PARENT_MODULE_ENVIRONMENT"); BASILYS_LOCATION("warmelt-macro.bysl:390:/ iniobj"); /*iniobj dobj_617__CLASS_SRC_PARENT_MODULE_ENVIRONMENT*/ - if (!/*_.VALDATA___V678*/ curfptr[677]) /*_.VALDATA___V678*/ curfptr[677] = (void*)&cdat->dobj_617__CLASS_SRC_PARENT_MODULE_ENVIRONMENT; + if (!/*_.VALDATA___V679*/ curfptr[678]) /*_.VALDATA___V679*/ curfptr[678] = (void*)&cdat->dobj_617__CLASS_SRC_PARENT_MODULE_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dobj_617__CLASS_SRC_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_617__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_617__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_617__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_hash = 898017033; + cdat->dobj_617__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_hash = 70942239; cdat->dobj_617__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_617__CLASS_SRC_PARENT_MODULE_ENVIRONMENT)); /*inistring dstr_618__CLASS_SRC_PARENT*/ - /*_.VALSTR___V679*/ curfptr[678] = (void*)&cdat->dstr_618__CLASS_SRC_PARENT; + /*_.VALSTR___V680*/ curfptr[679] = (void*)&cdat->dstr_618__CLASS_SRC_PARENT; cdat->dstr_618__CLASS_SRC_PARENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_618__CLASS_SRC_PARENT.val, "CLASS_SRC_PARENT_MODULE_ENVIRONMENT"); /*inimult dtup_619__CLASS_SRC_PARENT_MODULE_ENVIRONMENT*/ - /*_.VALTUP___V680*/ curfptr[679] = (void*)&cdat->dtup_619__CLASS_SRC_PARENT_MODULE_ENVIRONMENT; + /*_.VALTUP___V681*/ curfptr[680] = (void*)&cdat->dtup_619__CLASS_SRC_PARENT_MODULE_ENVIRONMENT; cdat->dtup_619__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_619__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.nbval = 2; /*inimult dtup_620__CLASS_SRC_PARENT_MODULE_ENVIRONMENT*/ - /*_.VALTUP___V681*/ curfptr[680] = (void*)&cdat->dtup_620__CLASS_SRC_PARENT_MODULE_ENVIRONMENT; + /*_.VALTUP___V682*/ curfptr[681] = (void*)&cdat->dtup_620__CLASS_SRC_PARENT_MODULE_ENVIRONMENT; cdat->dtup_620__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_620__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.nbval = 1; /*iniobj dsym_621__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - if (!/*_.VALDATA___V682*/ curfptr[681]) /*_.VALDATA___V682*/ curfptr[681] = (void*)&cdat->dsym_621__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + if (!/*_.VALDATA___V683*/ curfptr[682]) /*_.VALDATA___V683*/ curfptr[682] = (void*)&cdat->dsym_621__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_621__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_621__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_621__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 165024192; @@ -48375,35 +49930,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_617__CLASS_SRC_PARE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_621__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_622__CLASS_SRC_UPDATE*/ - /*_.VALSTR___V683*/ curfptr[682] = (void*)&cdat->dstr_622__CLASS_SRC_UPDATE; + /*_.VALSTR___V684*/ curfptr[683] = (void*)&cdat->dstr_622__CLASS_SRC_UPDATE; cdat->dstr_622__CLASS_SRC_UPDATE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_622__CLASS_SRC_UPDATE.val, "CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); BASILYS_LOCATION("warmelt-macro.bysl:398:/ iniobj"); /*iniobj dobj_623__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - if (!/*_.VALDATA___V684*/ curfptr[683]) /*_.VALDATA___V684*/ curfptr[683] = (void*)&cdat->dobj_623__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + if (!/*_.VALDATA___V685*/ curfptr[684]) /*_.VALDATA___V685*/ curfptr[684] = (void*)&cdat->dobj_623__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dobj_623__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_623__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_623__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; - cdat->dobj_623__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 699349476; + cdat->dobj_623__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 828178150; cdat->dobj_623__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_623__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_624__CLASS_SRC_UPDATE*/ - /*_.VALSTR___V685*/ curfptr[684] = (void*)&cdat->dstr_624__CLASS_SRC_UPDATE; + /*_.VALSTR___V686*/ curfptr[685] = (void*)&cdat->dstr_624__CLASS_SRC_UPDATE; cdat->dstr_624__CLASS_SRC_UPDATE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_624__CLASS_SRC_UPDATE.val, "CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); /*inimult dtup_625__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALTUP___V686*/ curfptr[685] = (void*)&cdat->dtup_625__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + /*_.VALTUP___V687*/ curfptr[686] = (void*)&cdat->dtup_625__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_625__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_625__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 2; /*inimult dtup_626__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALTUP___V689*/ curfptr[688] = (void*)&cdat->dtup_626__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + /*_.VALTUP___V690*/ curfptr[689] = (void*)&cdat->dtup_626__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_626__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_626__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 2; /*iniobj dsym_627__SUCME_COMMENT*/ - if (!/*_.VALDATA___V690*/ curfptr[689]) /*_.VALDATA___V690*/ curfptr[689] = (void*)&cdat->dsym_627__SUCME_COMMENT; + if (!/*_.VALDATA___V691*/ curfptr[690]) /*_.VALDATA___V691*/ curfptr[690] = (void*)&cdat->dsym_627__SUCME_COMMENT; basilys_assertmsg("iniobj checkdiscr dsym_627__SUCME_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_627__SUCME_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_627__SUCME_COMMENT.obj_hash = 214159674; @@ -48411,27 +49966,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_623__CLASS_SRC_UPDA basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_627__SUCME_COMMENT)); /*inistring dstr_628__SUCME_COMMENT*/ - /*_.VALSTR___V691*/ curfptr[690] = (void*)&cdat->dstr_628__SUCME_COMMENT; + /*_.VALSTR___V692*/ curfptr[691] = (void*)&cdat->dstr_628__SUCME_COMMENT; cdat->dstr_628__SUCME_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_628__SUCME_COMMENT.val, "SUCME_COMMENT"); BASILYS_LOCATION("warmelt-macro.bysl:398:/ iniobj"); /*iniobj dobj_629__SUCME_COMMENT*/ - if (!/*_.VALDATA___V687*/ curfptr[686]) /*_.VALDATA___V687*/ curfptr[686] = (void*)&cdat->dobj_629__SUCME_COMMENT; + if (!/*_.VALDATA___V688*/ curfptr[687]) /*_.VALDATA___V688*/ curfptr[687] = (void*)&cdat->dobj_629__SUCME_COMMENT; basilys_assertmsg("iniobj checkdiscr dobj_629__SUCME_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_629__SUCME_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_629__SUCME_COMMENT.obj_num = 1; - cdat->dobj_629__SUCME_COMMENT.obj_hash = 271291082; + cdat->dobj_629__SUCME_COMMENT.obj_hash = 214576039; cdat->dobj_629__SUCME_COMMENT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_629__SUCME_COMMENT)); /*inistring dstr_630__SUCME_COMMENT*/ - /*_.VALSTR___V688*/ curfptr[687] = (void*)&cdat->dstr_630__SUCME_COMMENT; + /*_.VALSTR___V689*/ curfptr[688] = (void*)&cdat->dstr_630__SUCME_COMMENT; cdat->dstr_630__SUCME_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_630__SUCME_COMMENT.val, "SUCME_COMMENT"); /*iniobj dsym_631__CLASS_SRC_FETCH_PREDEFINED*/ - if (!/*_.VALDATA___V692*/ curfptr[691]) /*_.VALDATA___V692*/ curfptr[691] = (void*)&cdat->dsym_631__CLASS_SRC_FETCH_PREDEFINED; + if (!/*_.VALDATA___V693*/ curfptr[692]) /*_.VALDATA___V693*/ curfptr[692] = (void*)&cdat->dsym_631__CLASS_SRC_FETCH_PREDEFINED; basilys_assertmsg("iniobj checkdiscr dsym_631__CLASS_SRC_FETCH_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_631__CLASS_SRC_FETCH_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_631__CLASS_SRC_FETCH_PREDEFINED.obj_hash = 742491529; @@ -48439,35 +49994,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_629__SUCME_COMMENT) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_631__CLASS_SRC_FETCH_PREDEFINED)); /*inistring dstr_632__CLASS_SRC_FETCH_*/ - /*_.VALSTR___V693*/ curfptr[692] = (void*)&cdat->dstr_632__CLASS_SRC_FETCH_; + /*_.VALSTR___V694*/ curfptr[693] = (void*)&cdat->dstr_632__CLASS_SRC_FETCH_; cdat->dstr_632__CLASS_SRC_FETCH_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_632__CLASS_SRC_FETCH_.val, "CLASS_SRC_FETCH_PREDEFINED"); BASILYS_LOCATION("warmelt-macro.bysl:407:/ iniobj"); /*iniobj dobj_633__CLASS_SRC_FETCH_PREDEFINED*/ - if (!/*_.VALDATA___V694*/ curfptr[693]) /*_.VALDATA___V694*/ curfptr[693] = (void*)&cdat->dobj_633__CLASS_SRC_FETCH_PREDEFINED; + if (!/*_.VALDATA___V695*/ curfptr[694]) /*_.VALDATA___V695*/ curfptr[694] = (void*)&cdat->dobj_633__CLASS_SRC_FETCH_PREDEFINED; basilys_assertmsg("iniobj checkdiscr dobj_633__CLASS_SRC_FETCH_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_633__CLASS_SRC_FETCH_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_633__CLASS_SRC_FETCH_PREDEFINED.obj_num = OBMAG_OBJECT; - cdat->dobj_633__CLASS_SRC_FETCH_PREDEFINED.obj_hash = 180515637; + cdat->dobj_633__CLASS_SRC_FETCH_PREDEFINED.obj_hash = 614140187; cdat->dobj_633__CLASS_SRC_FETCH_PREDEFINED.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_633__CLASS_SRC_FETCH_PREDEFINED)); /*inistring dstr_634__CLASS_SRC_FETCH_*/ - /*_.VALSTR___V695*/ curfptr[694] = (void*)&cdat->dstr_634__CLASS_SRC_FETCH_; + /*_.VALSTR___V696*/ curfptr[695] = (void*)&cdat->dstr_634__CLASS_SRC_FETCH_; cdat->dstr_634__CLASS_SRC_FETCH_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_634__CLASS_SRC_FETCH_.val, "CLASS_SRC_FETCH_PREDEFINED"); /*inimult dtup_635__CLASS_SRC_FETCH_PREDEFINED*/ - /*_.VALTUP___V696*/ curfptr[695] = (void*)&cdat->dtup_635__CLASS_SRC_FETCH_PREDEFINED; + /*_.VALTUP___V697*/ curfptr[696] = (void*)&cdat->dtup_635__CLASS_SRC_FETCH_PREDEFINED; cdat->dtup_635__CLASS_SRC_FETCH_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_635__CLASS_SRC_FETCH_PREDEFINED.nbval = 2; /*inimult dtup_636__CLASS_SRC_FETCH_PREDEFINED*/ - /*_.VALTUP___V699*/ curfptr[698] = (void*)&cdat->dtup_636__CLASS_SRC_FETCH_PREDEFINED; + /*_.VALTUP___V700*/ curfptr[699] = (void*)&cdat->dtup_636__CLASS_SRC_FETCH_PREDEFINED; cdat->dtup_636__CLASS_SRC_FETCH_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_636__CLASS_SRC_FETCH_PREDEFINED.nbval = 2; /*iniobj dsym_637__SFEPD_PREDEF*/ - if (!/*_.VALDATA___V700*/ curfptr[699]) /*_.VALDATA___V700*/ curfptr[699] = (void*)&cdat->dsym_637__SFEPD_PREDEF; + if (!/*_.VALDATA___V701*/ curfptr[700]) /*_.VALDATA___V701*/ curfptr[700] = (void*)&cdat->dsym_637__SFEPD_PREDEF; basilys_assertmsg("iniobj checkdiscr dsym_637__SFEPD_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_637__SFEPD_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_637__SFEPD_PREDEF.obj_hash = 1070703811; @@ -48475,27 +50030,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_633__CLASS_SRC_FETC basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_637__SFEPD_PREDEF)); /*inistring dstr_638__SFEPD_PREDEF*/ - /*_.VALSTR___V701*/ curfptr[700] = (void*)&cdat->dstr_638__SFEPD_PREDEF; + /*_.VALSTR___V702*/ curfptr[701] = (void*)&cdat->dstr_638__SFEPD_PREDEF; cdat->dstr_638__SFEPD_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_638__SFEPD_PREDEF.val, "SFEPD_PREDEF"); BASILYS_LOCATION("warmelt-macro.bysl:407:/ iniobj"); /*iniobj dobj_639__SFEPD_PREDEF*/ - if (!/*_.VALDATA___V697*/ curfptr[696]) /*_.VALDATA___V697*/ curfptr[696] = (void*)&cdat->dobj_639__SFEPD_PREDEF; + if (!/*_.VALDATA___V698*/ curfptr[697]) /*_.VALDATA___V698*/ curfptr[697] = (void*)&cdat->dobj_639__SFEPD_PREDEF; basilys_assertmsg("iniobj checkdiscr dobj_639__SFEPD_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_639__SFEPD_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_639__SFEPD_PREDEF.obj_num = 1; - cdat->dobj_639__SFEPD_PREDEF.obj_hash = 1044460770; + cdat->dobj_639__SFEPD_PREDEF.obj_hash = 67681472; cdat->dobj_639__SFEPD_PREDEF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_639__SFEPD_PREDEF)); /*inistring dstr_640__SFEPD_PREDEF*/ - /*_.VALSTR___V698*/ curfptr[697] = (void*)&cdat->dstr_640__SFEPD_PREDEF; + /*_.VALSTR___V699*/ curfptr[698] = (void*)&cdat->dstr_640__SFEPD_PREDEF; cdat->dstr_640__SFEPD_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_640__SFEPD_PREDEF.val, "SFEPD_PREDEF"); /*iniobj dsym_641__CLASS_SRC_STORE_PREDEFINED*/ - if (!/*_.VALDATA___V702*/ curfptr[701]) /*_.VALDATA___V702*/ curfptr[701] = (void*)&cdat->dsym_641__CLASS_SRC_STORE_PREDEFINED; + if (!/*_.VALDATA___V703*/ curfptr[702]) /*_.VALDATA___V703*/ curfptr[702] = (void*)&cdat->dsym_641__CLASS_SRC_STORE_PREDEFINED; basilys_assertmsg("iniobj checkdiscr dsym_641__CLASS_SRC_STORE_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_641__CLASS_SRC_STORE_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_641__CLASS_SRC_STORE_PREDEFINED.obj_hash = 60451158; @@ -48503,35 +50058,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_639__SFEPD_PREDEF)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_641__CLASS_SRC_STORE_PREDEFINED)); /*inistring dstr_642__CLASS_SRC_STORE_*/ - /*_.VALSTR___V703*/ curfptr[702] = (void*)&cdat->dstr_642__CLASS_SRC_STORE_; + /*_.VALSTR___V704*/ curfptr[703] = (void*)&cdat->dstr_642__CLASS_SRC_STORE_; cdat->dstr_642__CLASS_SRC_STORE_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_642__CLASS_SRC_STORE_.val, "CLASS_SRC_STORE_PREDEFINED"); BASILYS_LOCATION("warmelt-macro.bysl:413:/ iniobj"); /*iniobj dobj_643__CLASS_SRC_STORE_PREDEFINED*/ - if (!/*_.VALDATA___V704*/ curfptr[703]) /*_.VALDATA___V704*/ curfptr[703] = (void*)&cdat->dobj_643__CLASS_SRC_STORE_PREDEFINED; + if (!/*_.VALDATA___V705*/ curfptr[704]) /*_.VALDATA___V705*/ curfptr[704] = (void*)&cdat->dobj_643__CLASS_SRC_STORE_PREDEFINED; basilys_assertmsg("iniobj checkdiscr dobj_643__CLASS_SRC_STORE_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_643__CLASS_SRC_STORE_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_643__CLASS_SRC_STORE_PREDEFINED.obj_num = OBMAG_OBJECT; - cdat->dobj_643__CLASS_SRC_STORE_PREDEFINED.obj_hash = 709492459; + cdat->dobj_643__CLASS_SRC_STORE_PREDEFINED.obj_hash = 190530824; cdat->dobj_643__CLASS_SRC_STORE_PREDEFINED.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_643__CLASS_SRC_STORE_PREDEFINED)); /*inistring dstr_644__CLASS_SRC_STORE_*/ - /*_.VALSTR___V705*/ curfptr[704] = (void*)&cdat->dstr_644__CLASS_SRC_STORE_; + /*_.VALSTR___V706*/ curfptr[705] = (void*)&cdat->dstr_644__CLASS_SRC_STORE_; cdat->dstr_644__CLASS_SRC_STORE_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_644__CLASS_SRC_STORE_.val, "CLASS_SRC_STORE_PREDEFINED"); /*inimult dtup_645__CLASS_SRC_STORE_PREDEFINED*/ - /*_.VALTUP___V706*/ curfptr[705] = (void*)&cdat->dtup_645__CLASS_SRC_STORE_PREDEFINED; + /*_.VALTUP___V707*/ curfptr[706] = (void*)&cdat->dtup_645__CLASS_SRC_STORE_PREDEFINED; cdat->dtup_645__CLASS_SRC_STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_645__CLASS_SRC_STORE_PREDEFINED.nbval = 2; /*inimult dtup_646__CLASS_SRC_STORE_PREDEFINED*/ - /*_.VALTUP___V711*/ curfptr[710] = (void*)&cdat->dtup_646__CLASS_SRC_STORE_PREDEFINED; + /*_.VALTUP___V712*/ curfptr[711] = (void*)&cdat->dtup_646__CLASS_SRC_STORE_PREDEFINED; cdat->dtup_646__CLASS_SRC_STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_646__CLASS_SRC_STORE_PREDEFINED.nbval = 3; /*iniobj dsym_647__SSTPD_PREDEF*/ - if (!/*_.VALDATA___V712*/ curfptr[711]) /*_.VALDATA___V712*/ curfptr[711] = (void*)&cdat->dsym_647__SSTPD_PREDEF; + if (!/*_.VALDATA___V713*/ curfptr[712]) /*_.VALDATA___V713*/ curfptr[712] = (void*)&cdat->dsym_647__SSTPD_PREDEF; basilys_assertmsg("iniobj checkdiscr dsym_647__SSTPD_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_647__SSTPD_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_647__SSTPD_PREDEF.obj_hash = 43999277; @@ -48539,27 +50094,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_643__CLASS_SRC_STOR basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_647__SSTPD_PREDEF)); /*inistring dstr_648__SSTPD_PREDEF*/ - /*_.VALSTR___V713*/ curfptr[712] = (void*)&cdat->dstr_648__SSTPD_PREDEF; + /*_.VALSTR___V714*/ curfptr[713] = (void*)&cdat->dstr_648__SSTPD_PREDEF; cdat->dstr_648__SSTPD_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_648__SSTPD_PREDEF.val, "SSTPD_PREDEF"); BASILYS_LOCATION("warmelt-macro.bysl:413:/ iniobj"); /*iniobj dobj_649__SSTPD_PREDEF*/ - if (!/*_.VALDATA___V707*/ curfptr[706]) /*_.VALDATA___V707*/ curfptr[706] = (void*)&cdat->dobj_649__SSTPD_PREDEF; + if (!/*_.VALDATA___V708*/ curfptr[707]) /*_.VALDATA___V708*/ curfptr[707] = (void*)&cdat->dobj_649__SSTPD_PREDEF; basilys_assertmsg("iniobj checkdiscr dobj_649__SSTPD_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_649__SSTPD_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_649__SSTPD_PREDEF.obj_num = 1; - cdat->dobj_649__SSTPD_PREDEF.obj_hash = 336016665; + cdat->dobj_649__SSTPD_PREDEF.obj_hash = 876881297; cdat->dobj_649__SSTPD_PREDEF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_649__SSTPD_PREDEF)); /*inistring dstr_650__SSTPD_PREDEF*/ - /*_.VALSTR___V708*/ curfptr[707] = (void*)&cdat->dstr_650__SSTPD_PREDEF; + /*_.VALSTR___V709*/ curfptr[708] = (void*)&cdat->dstr_650__SSTPD_PREDEF; cdat->dstr_650__SSTPD_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_650__SSTPD_PREDEF.val, "SSTPD_PREDEF"); /*iniobj dsym_651__SSTPD_VALUE*/ - if (!/*_.VALDATA___V714*/ curfptr[713]) /*_.VALDATA___V714*/ curfptr[713] = (void*)&cdat->dsym_651__SSTPD_VALUE; + if (!/*_.VALDATA___V715*/ curfptr[714]) /*_.VALDATA___V715*/ curfptr[714] = (void*)&cdat->dsym_651__SSTPD_VALUE; basilys_assertmsg("iniobj checkdiscr dsym_651__SSTPD_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_651__SSTPD_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_651__SSTPD_VALUE.obj_hash = 43381534; @@ -48567,27 +50122,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_649__SSTPD_PREDEF)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_651__SSTPD_VALUE)); /*inistring dstr_652__SSTPD_VALUE*/ - /*_.VALSTR___V715*/ curfptr[714] = (void*)&cdat->dstr_652__SSTPD_VALUE; + /*_.VALSTR___V716*/ curfptr[715] = (void*)&cdat->dstr_652__SSTPD_VALUE; cdat->dstr_652__SSTPD_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_652__SSTPD_VALUE.val, "SSTPD_VALUE"); BASILYS_LOCATION("warmelt-macro.bysl:413:/ iniobj"); /*iniobj dobj_653__SSTPD_VALUE*/ - if (!/*_.VALDATA___V709*/ curfptr[708]) /*_.VALDATA___V709*/ curfptr[708] = (void*)&cdat->dobj_653__SSTPD_VALUE; + if (!/*_.VALDATA___V710*/ curfptr[709]) /*_.VALDATA___V710*/ curfptr[709] = (void*)&cdat->dobj_653__SSTPD_VALUE; basilys_assertmsg("iniobj checkdiscr dobj_653__SSTPD_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_653__SSTPD_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_653__SSTPD_VALUE.obj_num = 2; - cdat->dobj_653__SSTPD_VALUE.obj_hash = 848717652; + cdat->dobj_653__SSTPD_VALUE.obj_hash = 234939610; cdat->dobj_653__SSTPD_VALUE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_653__SSTPD_VALUE)); /*inistring dstr_654__SSTPD_VALUE*/ - /*_.VALSTR___V710*/ curfptr[709] = (void*)&cdat->dstr_654__SSTPD_VALUE; + /*_.VALSTR___V711*/ curfptr[710] = (void*)&cdat->dstr_654__SSTPD_VALUE; cdat->dstr_654__SSTPD_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_654__SSTPD_VALUE.val, "SSTPD_VALUE"); /*iniobj dsym_655__CLASS_SRCPATTERN_ANY*/ - if (!/*_.VALDATA___V716*/ curfptr[715]) /*_.VALDATA___V716*/ curfptr[715] = (void*)&cdat->dsym_655__CLASS_SRCPATTERN_ANY; + if (!/*_.VALDATA___V717*/ curfptr[716]) /*_.VALDATA___V717*/ curfptr[716] = (void*)&cdat->dsym_655__CLASS_SRCPATTERN_ANY; basilys_assertmsg("iniobj checkdiscr dsym_655__CLASS_SRCPATTERN_ANY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_655__CLASS_SRCPATTERN_ANY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_655__CLASS_SRCPATTERN_ANY.obj_hash = 855771772; @@ -48595,35 +50150,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_653__SSTPD_VALUE)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_655__CLASS_SRCPATTERN_ANY)); /*inistring dstr_656__CLASS_SRCPATTERN*/ - /*_.VALSTR___V717*/ curfptr[716] = (void*)&cdat->dstr_656__CLASS_SRCPATTERN; + /*_.VALSTR___V718*/ curfptr[717] = (void*)&cdat->dstr_656__CLASS_SRCPATTERN; cdat->dstr_656__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_656__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_ANY"); BASILYS_LOCATION("warmelt-macro.bysl:420:/ iniobj"); /*iniobj dobj_657__CLASS_SRCPATTERN_ANY*/ - if (!/*_.VALDATA___V718*/ curfptr[717]) /*_.VALDATA___V718*/ curfptr[717] = (void*)&cdat->dobj_657__CLASS_SRCPATTERN_ANY; + if (!/*_.VALDATA___V719*/ curfptr[718]) /*_.VALDATA___V719*/ curfptr[718] = (void*)&cdat->dobj_657__CLASS_SRCPATTERN_ANY; basilys_assertmsg("iniobj checkdiscr dobj_657__CLASS_SRCPATTERN_ANY", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_657__CLASS_SRCPATTERN_ANY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_657__CLASS_SRCPATTERN_ANY.obj_num = OBMAG_OBJECT; - cdat->dobj_657__CLASS_SRCPATTERN_ANY.obj_hash = 561501058; + cdat->dobj_657__CLASS_SRCPATTERN_ANY.obj_hash = 179065217; cdat->dobj_657__CLASS_SRCPATTERN_ANY.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_657__CLASS_SRCPATTERN_ANY)); /*inistring dstr_658__CLASS_SRCPATTERN*/ - /*_.VALSTR___V719*/ curfptr[718] = (void*)&cdat->dstr_658__CLASS_SRCPATTERN; + /*_.VALSTR___V720*/ curfptr[719] = (void*)&cdat->dstr_658__CLASS_SRCPATTERN; cdat->dstr_658__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_658__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_ANY"); /*inimult dtup_659__CLASS_SRCPATTERN_ANY*/ - /*_.VALTUP___V720*/ curfptr[719] = (void*)&cdat->dtup_659__CLASS_SRCPATTERN_ANY; + /*_.VALTUP___V721*/ curfptr[720] = (void*)&cdat->dtup_659__CLASS_SRCPATTERN_ANY; cdat->dtup_659__CLASS_SRCPATTERN_ANY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_659__CLASS_SRCPATTERN_ANY.nbval = 2; /*inimult dtup_660__CLASS_SRCPATTERN_ANY*/ - /*_.VALTUP___V721*/ curfptr[720] = (void*)&cdat->dtup_660__CLASS_SRCPATTERN_ANY; + /*_.VALTUP___V722*/ curfptr[721] = (void*)&cdat->dtup_660__CLASS_SRCPATTERN_ANY; cdat->dtup_660__CLASS_SRCPATTERN_ANY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_660__CLASS_SRCPATTERN_ANY.nbval = 1; /*iniobj dsym_661__CLASS_SRCPATTERN_OR*/ - if (!/*_.VALDATA___V722*/ curfptr[721]) /*_.VALDATA___V722*/ curfptr[721] = (void*)&cdat->dsym_661__CLASS_SRCPATTERN_OR; + if (!/*_.VALDATA___V723*/ curfptr[722]) /*_.VALDATA___V723*/ curfptr[722] = (void*)&cdat->dsym_661__CLASS_SRCPATTERN_OR; basilys_assertmsg("iniobj checkdiscr dsym_661__CLASS_SRCPATTERN_OR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_661__CLASS_SRCPATTERN_OR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_661__CLASS_SRCPATTERN_OR.obj_hash = 920875001; @@ -48631,35 +50186,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_657__CLASS_SRCPATTE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_661__CLASS_SRCPATTERN_OR)); /*inistring dstr_662__CLASS_SRCPATTERN*/ - /*_.VALSTR___V723*/ curfptr[722] = (void*)&cdat->dstr_662__CLASS_SRCPATTERN; + /*_.VALSTR___V724*/ curfptr[723] = (void*)&cdat->dstr_662__CLASS_SRCPATTERN; cdat->dstr_662__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_662__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_OR"); BASILYS_LOCATION("warmelt-macro.bysl:426:/ iniobj"); /*iniobj dobj_663__CLASS_SRCPATTERN_OR*/ - if (!/*_.VALDATA___V724*/ curfptr[723]) /*_.VALDATA___V724*/ curfptr[723] = (void*)&cdat->dobj_663__CLASS_SRCPATTERN_OR; + if (!/*_.VALDATA___V725*/ curfptr[724]) /*_.VALDATA___V725*/ curfptr[724] = (void*)&cdat->dobj_663__CLASS_SRCPATTERN_OR; basilys_assertmsg("iniobj checkdiscr dobj_663__CLASS_SRCPATTERN_OR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_663__CLASS_SRCPATTERN_OR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_663__CLASS_SRCPATTERN_OR.obj_num = OBMAG_OBJECT; - cdat->dobj_663__CLASS_SRCPATTERN_OR.obj_hash = 288433889; + cdat->dobj_663__CLASS_SRCPATTERN_OR.obj_hash = 592249256; cdat->dobj_663__CLASS_SRCPATTERN_OR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_663__CLASS_SRCPATTERN_OR)); /*inistring dstr_664__CLASS_SRCPATTERN*/ - /*_.VALSTR___V725*/ curfptr[724] = (void*)&cdat->dstr_664__CLASS_SRCPATTERN; + /*_.VALSTR___V726*/ curfptr[725] = (void*)&cdat->dstr_664__CLASS_SRCPATTERN; cdat->dstr_664__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_664__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_OR"); /*inimult dtup_665__CLASS_SRCPATTERN_OR*/ - /*_.VALTUP___V726*/ curfptr[725] = (void*)&cdat->dtup_665__CLASS_SRCPATTERN_OR; + /*_.VALTUP___V727*/ curfptr[726] = (void*)&cdat->dtup_665__CLASS_SRCPATTERN_OR; cdat->dtup_665__CLASS_SRCPATTERN_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_665__CLASS_SRCPATTERN_OR.nbval = 3; /*inimult dtup_666__CLASS_SRCPATTERN_OR*/ - /*_.VALTUP___V729*/ curfptr[728] = (void*)&cdat->dtup_666__CLASS_SRCPATTERN_OR; + /*_.VALTUP___V730*/ curfptr[729] = (void*)&cdat->dtup_666__CLASS_SRCPATTERN_OR; cdat->dtup_666__CLASS_SRCPATTERN_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_666__CLASS_SRCPATTERN_OR.nbval = 2; /*iniobj dsym_667__ORPAT_DISJ*/ - if (!/*_.VALDATA___V730*/ curfptr[729]) /*_.VALDATA___V730*/ curfptr[729] = (void*)&cdat->dsym_667__ORPAT_DISJ; + if (!/*_.VALDATA___V731*/ curfptr[730]) /*_.VALDATA___V731*/ curfptr[730] = (void*)&cdat->dsym_667__ORPAT_DISJ; basilys_assertmsg("iniobj checkdiscr dsym_667__ORPAT_DISJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_667__ORPAT_DISJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_667__ORPAT_DISJ.obj_hash = 216093398; @@ -48667,27 +50222,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_663__CLASS_SRCPATTE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_667__ORPAT_DISJ)); /*inistring dstr_668__ORPAT_DISJ*/ - /*_.VALSTR___V731*/ curfptr[730] = (void*)&cdat->dstr_668__ORPAT_DISJ; + /*_.VALSTR___V732*/ curfptr[731] = (void*)&cdat->dstr_668__ORPAT_DISJ; cdat->dstr_668__ORPAT_DISJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_668__ORPAT_DISJ.val, "ORPAT_DISJ"); BASILYS_LOCATION("warmelt-macro.bysl:426:/ iniobj"); /*iniobj dobj_669__ORPAT_DISJ*/ - if (!/*_.VALDATA___V727*/ curfptr[726]) /*_.VALDATA___V727*/ curfptr[726] = (void*)&cdat->dobj_669__ORPAT_DISJ; + if (!/*_.VALDATA___V728*/ curfptr[727]) /*_.VALDATA___V728*/ curfptr[727] = (void*)&cdat->dobj_669__ORPAT_DISJ; basilys_assertmsg("iniobj checkdiscr dobj_669__ORPAT_DISJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_669__ORPAT_DISJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_669__ORPAT_DISJ.obj_num = 1; - cdat->dobj_669__ORPAT_DISJ.obj_hash = 687829063; + cdat->dobj_669__ORPAT_DISJ.obj_hash = 672078109; cdat->dobj_669__ORPAT_DISJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_669__ORPAT_DISJ)); /*inistring dstr_670__ORPAT_DISJ*/ - /*_.VALSTR___V728*/ curfptr[727] = (void*)&cdat->dstr_670__ORPAT_DISJ; + /*_.VALSTR___V729*/ curfptr[728] = (void*)&cdat->dstr_670__ORPAT_DISJ; cdat->dstr_670__ORPAT_DISJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_670__ORPAT_DISJ.val, "ORPAT_DISJ"); /*iniobj dsym_671__CLASS_SRCPATTERN_AND*/ - if (!/*_.VALDATA___V732*/ curfptr[731]) /*_.VALDATA___V732*/ curfptr[731] = (void*)&cdat->dsym_671__CLASS_SRCPATTERN_AND; + if (!/*_.VALDATA___V733*/ curfptr[732]) /*_.VALDATA___V733*/ curfptr[732] = (void*)&cdat->dsym_671__CLASS_SRCPATTERN_AND; basilys_assertmsg("iniobj checkdiscr dsym_671__CLASS_SRCPATTERN_AND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_671__CLASS_SRCPATTERN_AND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_671__CLASS_SRCPATTERN_AND.obj_hash = 181310597; @@ -48695,35 +50250,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_669__ORPAT_DISJ)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_671__CLASS_SRCPATTERN_AND)); /*inistring dstr_672__CLASS_SRCPATTERN*/ - /*_.VALSTR___V733*/ curfptr[732] = (void*)&cdat->dstr_672__CLASS_SRCPATTERN; + /*_.VALSTR___V734*/ curfptr[733] = (void*)&cdat->dstr_672__CLASS_SRCPATTERN; cdat->dstr_672__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_672__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_AND"); BASILYS_LOCATION("warmelt-macro.bysl:432:/ iniobj"); /*iniobj dobj_673__CLASS_SRCPATTERN_AND*/ - if (!/*_.VALDATA___V734*/ curfptr[733]) /*_.VALDATA___V734*/ curfptr[733] = (void*)&cdat->dobj_673__CLASS_SRCPATTERN_AND; + if (!/*_.VALDATA___V735*/ curfptr[734]) /*_.VALDATA___V735*/ curfptr[734] = (void*)&cdat->dobj_673__CLASS_SRCPATTERN_AND; basilys_assertmsg("iniobj checkdiscr dobj_673__CLASS_SRCPATTERN_AND", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_673__CLASS_SRCPATTERN_AND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_673__CLASS_SRCPATTERN_AND.obj_num = OBMAG_OBJECT; - cdat->dobj_673__CLASS_SRCPATTERN_AND.obj_hash = 94875172; + cdat->dobj_673__CLASS_SRCPATTERN_AND.obj_hash = 606426943; cdat->dobj_673__CLASS_SRCPATTERN_AND.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_673__CLASS_SRCPATTERN_AND)); /*inistring dstr_674__CLASS_SRCPATTERN*/ - /*_.VALSTR___V735*/ curfptr[734] = (void*)&cdat->dstr_674__CLASS_SRCPATTERN; + /*_.VALSTR___V736*/ curfptr[735] = (void*)&cdat->dstr_674__CLASS_SRCPATTERN; cdat->dstr_674__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_674__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_AND"); /*inimult dtup_675__CLASS_SRCPATTERN_AND*/ - /*_.VALTUP___V736*/ curfptr[735] = (void*)&cdat->dtup_675__CLASS_SRCPATTERN_AND; + /*_.VALTUP___V737*/ curfptr[736] = (void*)&cdat->dtup_675__CLASS_SRCPATTERN_AND; cdat->dtup_675__CLASS_SRCPATTERN_AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_675__CLASS_SRCPATTERN_AND.nbval = 3; /*inimult dtup_676__CLASS_SRCPATTERN_AND*/ - /*_.VALTUP___V739*/ curfptr[738] = (void*)&cdat->dtup_676__CLASS_SRCPATTERN_AND; + /*_.VALTUP___V740*/ curfptr[739] = (void*)&cdat->dtup_676__CLASS_SRCPATTERN_AND; cdat->dtup_676__CLASS_SRCPATTERN_AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_676__CLASS_SRCPATTERN_AND.nbval = 2; /*iniobj dsym_677__ANDPAT_CONJ*/ - if (!/*_.VALDATA___V740*/ curfptr[739]) /*_.VALDATA___V740*/ curfptr[739] = (void*)&cdat->dsym_677__ANDPAT_CONJ; + if (!/*_.VALDATA___V741*/ curfptr[740]) /*_.VALDATA___V741*/ curfptr[740] = (void*)&cdat->dsym_677__ANDPAT_CONJ; basilys_assertmsg("iniobj checkdiscr dsym_677__ANDPAT_CONJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_677__ANDPAT_CONJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_677__ANDPAT_CONJ.obj_hash = 118332178; @@ -48731,27 +50286,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_673__CLASS_SRCPATTE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_677__ANDPAT_CONJ)); /*inistring dstr_678__ANDPAT_CONJ*/ - /*_.VALSTR___V741*/ curfptr[740] = (void*)&cdat->dstr_678__ANDPAT_CONJ; + /*_.VALSTR___V742*/ curfptr[741] = (void*)&cdat->dstr_678__ANDPAT_CONJ; cdat->dstr_678__ANDPAT_CONJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_678__ANDPAT_CONJ.val, "ANDPAT_CONJ"); BASILYS_LOCATION("warmelt-macro.bysl:432:/ iniobj"); /*iniobj dobj_679__ANDPAT_CONJ*/ - if (!/*_.VALDATA___V737*/ curfptr[736]) /*_.VALDATA___V737*/ curfptr[736] = (void*)&cdat->dobj_679__ANDPAT_CONJ; + if (!/*_.VALDATA___V738*/ curfptr[737]) /*_.VALDATA___V738*/ curfptr[737] = (void*)&cdat->dobj_679__ANDPAT_CONJ; basilys_assertmsg("iniobj checkdiscr dobj_679__ANDPAT_CONJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_679__ANDPAT_CONJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_679__ANDPAT_CONJ.obj_num = 1; - cdat->dobj_679__ANDPAT_CONJ.obj_hash = 746585529; + cdat->dobj_679__ANDPAT_CONJ.obj_hash = 642024374; cdat->dobj_679__ANDPAT_CONJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_679__ANDPAT_CONJ)); /*inistring dstr_680__ANDPAT_CONJ*/ - /*_.VALSTR___V738*/ curfptr[737] = (void*)&cdat->dstr_680__ANDPAT_CONJ; + /*_.VALSTR___V739*/ curfptr[738] = (void*)&cdat->dstr_680__ANDPAT_CONJ; cdat->dstr_680__ANDPAT_CONJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_680__ANDPAT_CONJ.val, "ANDPAT_CONJ"); /*iniobj dsym_681__CLASS_SRCPATTERN_AS*/ - if (!/*_.VALDATA___V742*/ curfptr[741]) /*_.VALDATA___V742*/ curfptr[741] = (void*)&cdat->dsym_681__CLASS_SRCPATTERN_AS; + if (!/*_.VALDATA___V743*/ curfptr[742]) /*_.VALDATA___V743*/ curfptr[742] = (void*)&cdat->dsym_681__CLASS_SRCPATTERN_AS; basilys_assertmsg("iniobj checkdiscr dsym_681__CLASS_SRCPATTERN_AS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_681__CLASS_SRCPATTERN_AS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_681__CLASS_SRCPATTERN_AS.obj_hash = 945333852; @@ -48759,35 +50314,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_679__ANDPAT_CONJ)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_681__CLASS_SRCPATTERN_AS)); /*inistring dstr_682__CLASS_SRCPATTERN*/ - /*_.VALSTR___V743*/ curfptr[742] = (void*)&cdat->dstr_682__CLASS_SRCPATTERN; + /*_.VALSTR___V744*/ curfptr[743] = (void*)&cdat->dstr_682__CLASS_SRCPATTERN; cdat->dstr_682__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_682__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_AS"); BASILYS_LOCATION("warmelt-macro.bysl:439:/ iniobj"); /*iniobj dobj_683__CLASS_SRCPATTERN_AS*/ - if (!/*_.VALDATA___V744*/ curfptr[743]) /*_.VALDATA___V744*/ curfptr[743] = (void*)&cdat->dobj_683__CLASS_SRCPATTERN_AS; + if (!/*_.VALDATA___V745*/ curfptr[744]) /*_.VALDATA___V745*/ curfptr[744] = (void*)&cdat->dobj_683__CLASS_SRCPATTERN_AS; basilys_assertmsg("iniobj checkdiscr dobj_683__CLASS_SRCPATTERN_AS", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_683__CLASS_SRCPATTERN_AS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_683__CLASS_SRCPATTERN_AS.obj_num = OBMAG_OBJECT; - cdat->dobj_683__CLASS_SRCPATTERN_AS.obj_hash = 200906081; + cdat->dobj_683__CLASS_SRCPATTERN_AS.obj_hash = 953091704; cdat->dobj_683__CLASS_SRCPATTERN_AS.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_683__CLASS_SRCPATTERN_AS)); /*inistring dstr_684__CLASS_SRCPATTERN*/ - /*_.VALSTR___V745*/ curfptr[744] = (void*)&cdat->dstr_684__CLASS_SRCPATTERN; + /*_.VALSTR___V746*/ curfptr[745] = (void*)&cdat->dstr_684__CLASS_SRCPATTERN; cdat->dstr_684__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_684__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_AS"); /*inimult dtup_685__CLASS_SRCPATTERN_AS*/ - /*_.VALTUP___V746*/ curfptr[745] = (void*)&cdat->dtup_685__CLASS_SRCPATTERN_AS; + /*_.VALTUP___V747*/ curfptr[746] = (void*)&cdat->dtup_685__CLASS_SRCPATTERN_AS; cdat->dtup_685__CLASS_SRCPATTERN_AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_685__CLASS_SRCPATTERN_AS.nbval = 3; /*inimult dtup_686__CLASS_SRCPATTERN_AS*/ - /*_.VALTUP___V751*/ curfptr[750] = (void*)&cdat->dtup_686__CLASS_SRCPATTERN_AS; + /*_.VALTUP___V752*/ curfptr[751] = (void*)&cdat->dtup_686__CLASS_SRCPATTERN_AS; cdat->dtup_686__CLASS_SRCPATTERN_AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_686__CLASS_SRCPATTERN_AS.nbval = 3; /*iniobj dsym_687__ASPAT_VARPAT*/ - if (!/*_.VALDATA___V752*/ curfptr[751]) /*_.VALDATA___V752*/ curfptr[751] = (void*)&cdat->dsym_687__ASPAT_VARPAT; + if (!/*_.VALDATA___V753*/ curfptr[752]) /*_.VALDATA___V753*/ curfptr[752] = (void*)&cdat->dsym_687__ASPAT_VARPAT; basilys_assertmsg("iniobj checkdiscr dsym_687__ASPAT_VARPAT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_687__ASPAT_VARPAT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_687__ASPAT_VARPAT.obj_hash = 67846915; @@ -48795,27 +50350,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_683__CLASS_SRCPATTE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_687__ASPAT_VARPAT)); /*inistring dstr_688__ASPAT_VARPAT*/ - /*_.VALSTR___V753*/ curfptr[752] = (void*)&cdat->dstr_688__ASPAT_VARPAT; + /*_.VALSTR___V754*/ curfptr[753] = (void*)&cdat->dstr_688__ASPAT_VARPAT; cdat->dstr_688__ASPAT_VARPAT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_688__ASPAT_VARPAT.val, "ASPAT_VARPAT"); BASILYS_LOCATION("warmelt-macro.bysl:439:/ iniobj"); /*iniobj dobj_689__ASPAT_VARPAT*/ - if (!/*_.VALDATA___V747*/ curfptr[746]) /*_.VALDATA___V747*/ curfptr[746] = (void*)&cdat->dobj_689__ASPAT_VARPAT; + if (!/*_.VALDATA___V748*/ curfptr[747]) /*_.VALDATA___V748*/ curfptr[747] = (void*)&cdat->dobj_689__ASPAT_VARPAT; basilys_assertmsg("iniobj checkdiscr dobj_689__ASPAT_VARPAT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_689__ASPAT_VARPAT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_689__ASPAT_VARPAT.obj_num = 1; - cdat->dobj_689__ASPAT_VARPAT.obj_hash = 516468948; + cdat->dobj_689__ASPAT_VARPAT.obj_hash = 659887018; cdat->dobj_689__ASPAT_VARPAT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_689__ASPAT_VARPAT)); /*inistring dstr_690__ASPAT_VARPAT*/ - /*_.VALSTR___V748*/ curfptr[747] = (void*)&cdat->dstr_690__ASPAT_VARPAT; + /*_.VALSTR___V749*/ curfptr[748] = (void*)&cdat->dstr_690__ASPAT_VARPAT; cdat->dstr_690__ASPAT_VARPAT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_690__ASPAT_VARPAT.val, "ASPAT_VARPAT"); /*iniobj dsym_691__ASPAT_SUBPAT*/ - if (!/*_.VALDATA___V754*/ curfptr[753]) /*_.VALDATA___V754*/ curfptr[753] = (void*)&cdat->dsym_691__ASPAT_SUBPAT; + if (!/*_.VALDATA___V755*/ curfptr[754]) /*_.VALDATA___V755*/ curfptr[754] = (void*)&cdat->dsym_691__ASPAT_SUBPAT; basilys_assertmsg("iniobj checkdiscr dsym_691__ASPAT_SUBPAT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_691__ASPAT_SUBPAT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_691__ASPAT_SUBPAT.obj_hash = 106065240; @@ -48823,27 +50378,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_689__ASPAT_VARPAT)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_691__ASPAT_SUBPAT)); /*inistring dstr_692__ASPAT_SUBPAT*/ - /*_.VALSTR___V755*/ curfptr[754] = (void*)&cdat->dstr_692__ASPAT_SUBPAT; + /*_.VALSTR___V756*/ curfptr[755] = (void*)&cdat->dstr_692__ASPAT_SUBPAT; cdat->dstr_692__ASPAT_SUBPAT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_692__ASPAT_SUBPAT.val, "ASPAT_SUBPAT"); BASILYS_LOCATION("warmelt-macro.bysl:439:/ iniobj"); /*iniobj dobj_693__ASPAT_SUBPAT*/ - if (!/*_.VALDATA___V749*/ curfptr[748]) /*_.VALDATA___V749*/ curfptr[748] = (void*)&cdat->dobj_693__ASPAT_SUBPAT; + if (!/*_.VALDATA___V750*/ curfptr[749]) /*_.VALDATA___V750*/ curfptr[749] = (void*)&cdat->dobj_693__ASPAT_SUBPAT; basilys_assertmsg("iniobj checkdiscr dobj_693__ASPAT_SUBPAT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_693__ASPAT_SUBPAT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_693__ASPAT_SUBPAT.obj_num = 2; - cdat->dobj_693__ASPAT_SUBPAT.obj_hash = 193069782; + cdat->dobj_693__ASPAT_SUBPAT.obj_hash = 395146543; cdat->dobj_693__ASPAT_SUBPAT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_693__ASPAT_SUBPAT)); /*inistring dstr_694__ASPAT_SUBPAT*/ - /*_.VALSTR___V750*/ curfptr[749] = (void*)&cdat->dstr_694__ASPAT_SUBPAT; + /*_.VALSTR___V751*/ curfptr[750] = (void*)&cdat->dstr_694__ASPAT_SUBPAT; cdat->dstr_694__ASPAT_SUBPAT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_694__ASPAT_SUBPAT.val, "ASPAT_SUBPAT"); /*iniobj dsym_695__CLASS_SRCPATTERN_VARIABLE*/ - if (!/*_.VALDATA___V756*/ curfptr[755]) /*_.VALDATA___V756*/ curfptr[755] = (void*)&cdat->dsym_695__CLASS_SRCPATTERN_VARIABLE; + if (!/*_.VALDATA___V757*/ curfptr[756]) /*_.VALDATA___V757*/ curfptr[756] = (void*)&cdat->dsym_695__CLASS_SRCPATTERN_VARIABLE; basilys_assertmsg("iniobj checkdiscr dsym_695__CLASS_SRCPATTERN_VARIABLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_695__CLASS_SRCPATTERN_VARIABLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_695__CLASS_SRCPATTERN_VARIABLE.obj_hash = 280604106; @@ -48851,35 +50406,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_693__ASPAT_SUBPAT)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_695__CLASS_SRCPATTERN_VARIABLE)); /*inistring dstr_696__CLASS_SRCPATTERN*/ - /*_.VALSTR___V757*/ curfptr[756] = (void*)&cdat->dstr_696__CLASS_SRCPATTERN; + /*_.VALSTR___V758*/ curfptr[757] = (void*)&cdat->dstr_696__CLASS_SRCPATTERN; cdat->dstr_696__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_696__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_VARIABLE"); BASILYS_LOCATION("warmelt-macro.bysl:446:/ iniobj"); /*iniobj dobj_697__CLASS_SRCPATTERN_VARIABLE*/ - if (!/*_.VALDATA___V758*/ curfptr[757]) /*_.VALDATA___V758*/ curfptr[757] = (void*)&cdat->dobj_697__CLASS_SRCPATTERN_VARIABLE; + if (!/*_.VALDATA___V759*/ curfptr[758]) /*_.VALDATA___V759*/ curfptr[758] = (void*)&cdat->dobj_697__CLASS_SRCPATTERN_VARIABLE; basilys_assertmsg("iniobj checkdiscr dobj_697__CLASS_SRCPATTERN_VARIABLE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_697__CLASS_SRCPATTERN_VARIABLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_697__CLASS_SRCPATTERN_VARIABLE.obj_num = OBMAG_OBJECT; - cdat->dobj_697__CLASS_SRCPATTERN_VARIABLE.obj_hash = 1059270827; + cdat->dobj_697__CLASS_SRCPATTERN_VARIABLE.obj_hash = 7078581; cdat->dobj_697__CLASS_SRCPATTERN_VARIABLE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_697__CLASS_SRCPATTERN_VARIABLE)); /*inistring dstr_698__CLASS_SRCPATTERN*/ - /*_.VALSTR___V759*/ curfptr[758] = (void*)&cdat->dstr_698__CLASS_SRCPATTERN; + /*_.VALSTR___V760*/ curfptr[759] = (void*)&cdat->dstr_698__CLASS_SRCPATTERN; cdat->dstr_698__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_698__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_VARIABLE"); /*inimult dtup_699__CLASS_SRCPATTERN_VARIABLE*/ - /*_.VALTUP___V760*/ curfptr[759] = (void*)&cdat->dtup_699__CLASS_SRCPATTERN_VARIABLE; + /*_.VALTUP___V761*/ curfptr[760] = (void*)&cdat->dtup_699__CLASS_SRCPATTERN_VARIABLE; cdat->dtup_699__CLASS_SRCPATTERN_VARIABLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_699__CLASS_SRCPATTERN_VARIABLE.nbval = 3; /*inimult dtup_700__CLASS_SRCPATTERN_VARIABLE*/ - /*_.VALTUP___V763*/ curfptr[762] = (void*)&cdat->dtup_700__CLASS_SRCPATTERN_VARIABLE; + /*_.VALTUP___V764*/ curfptr[763] = (void*)&cdat->dtup_700__CLASS_SRCPATTERN_VARIABLE; cdat->dtup_700__CLASS_SRCPATTERN_VARIABLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_700__CLASS_SRCPATTERN_VARIABLE.nbval = 2; /*iniobj dsym_701__SPAT_VAR*/ - if (!/*_.VALDATA___V764*/ curfptr[763]) /*_.VALDATA___V764*/ curfptr[763] = (void*)&cdat->dsym_701__SPAT_VAR; + if (!/*_.VALDATA___V765*/ curfptr[764]) /*_.VALDATA___V765*/ curfptr[764] = (void*)&cdat->dsym_701__SPAT_VAR; basilys_assertmsg("iniobj checkdiscr dsym_701__SPAT_VAR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_701__SPAT_VAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_701__SPAT_VAR.obj_hash = 911310249; @@ -48887,27 +50442,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_697__CLASS_SRCPATTE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_701__SPAT_VAR)); /*inistring dstr_702__SPAT_VAR*/ - /*_.VALSTR___V765*/ curfptr[764] = (void*)&cdat->dstr_702__SPAT_VAR; + /*_.VALSTR___V766*/ curfptr[765] = (void*)&cdat->dstr_702__SPAT_VAR; cdat->dstr_702__SPAT_VAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_702__SPAT_VAR.val, "SPAT_VAR"); BASILYS_LOCATION("warmelt-macro.bysl:446:/ iniobj"); /*iniobj dobj_703__SPAT_VAR*/ - if (!/*_.VALDATA___V761*/ curfptr[760]) /*_.VALDATA___V761*/ curfptr[760] = (void*)&cdat->dobj_703__SPAT_VAR; + if (!/*_.VALDATA___V762*/ curfptr[761]) /*_.VALDATA___V762*/ curfptr[761] = (void*)&cdat->dobj_703__SPAT_VAR; basilys_assertmsg("iniobj checkdiscr dobj_703__SPAT_VAR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_703__SPAT_VAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_703__SPAT_VAR.obj_num = 1; - cdat->dobj_703__SPAT_VAR.obj_hash = 166404597; + cdat->dobj_703__SPAT_VAR.obj_hash = 875257134; cdat->dobj_703__SPAT_VAR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_703__SPAT_VAR)); /*inistring dstr_704__SPAT_VAR*/ - /*_.VALSTR___V762*/ curfptr[761] = (void*)&cdat->dstr_704__SPAT_VAR; + /*_.VALSTR___V763*/ curfptr[762] = (void*)&cdat->dstr_704__SPAT_VAR; cdat->dstr_704__SPAT_VAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_704__SPAT_VAR.val, "SPAT_VAR"); /*iniobj dsym_705__CLASS_SRCPATTERN_JOKERVAR*/ - if (!/*_.VALDATA___V766*/ curfptr[765]) /*_.VALDATA___V766*/ curfptr[765] = (void*)&cdat->dsym_705__CLASS_SRCPATTERN_JOKERVAR; + if (!/*_.VALDATA___V767*/ curfptr[766]) /*_.VALDATA___V767*/ curfptr[766] = (void*)&cdat->dsym_705__CLASS_SRCPATTERN_JOKERVAR; basilys_assertmsg("iniobj checkdiscr dsym_705__CLASS_SRCPATTERN_JOKERVAR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_705__CLASS_SRCPATTERN_JOKERVAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_705__CLASS_SRCPATTERN_JOKERVAR.obj_hash = 233170336; @@ -48915,35 +50470,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_703__SPAT_VAR)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_705__CLASS_SRCPATTERN_JOKERVAR)); /*inistring dstr_706__CLASS_SRCPATTERN*/ - /*_.VALSTR___V767*/ curfptr[766] = (void*)&cdat->dstr_706__CLASS_SRCPATTERN; + /*_.VALSTR___V768*/ curfptr[767] = (void*)&cdat->dstr_706__CLASS_SRCPATTERN; cdat->dstr_706__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_706__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_JOKERVAR"); BASILYS_LOCATION("warmelt-macro.bysl:452:/ iniobj"); /*iniobj dobj_707__CLASS_SRCPATTERN_JOKERVAR*/ - if (!/*_.VALDATA___V768*/ curfptr[767]) /*_.VALDATA___V768*/ curfptr[767] = (void*)&cdat->dobj_707__CLASS_SRCPATTERN_JOKERVAR; + if (!/*_.VALDATA___V769*/ curfptr[768]) /*_.VALDATA___V769*/ curfptr[768] = (void*)&cdat->dobj_707__CLASS_SRCPATTERN_JOKERVAR; basilys_assertmsg("iniobj checkdiscr dobj_707__CLASS_SRCPATTERN_JOKERVAR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_707__CLASS_SRCPATTERN_JOKERVAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_707__CLASS_SRCPATTERN_JOKERVAR.obj_num = OBMAG_OBJECT; - cdat->dobj_707__CLASS_SRCPATTERN_JOKERVAR.obj_hash = 220171238; + cdat->dobj_707__CLASS_SRCPATTERN_JOKERVAR.obj_hash = 1005934972; cdat->dobj_707__CLASS_SRCPATTERN_JOKERVAR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_707__CLASS_SRCPATTERN_JOKERVAR)); /*inistring dstr_708__CLASS_SRCPATTERN*/ - /*_.VALSTR___V769*/ curfptr[768] = (void*)&cdat->dstr_708__CLASS_SRCPATTERN; + /*_.VALSTR___V770*/ curfptr[769] = (void*)&cdat->dstr_708__CLASS_SRCPATTERN; cdat->dstr_708__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_708__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_JOKERVAR"); /*inimult dtup_709__CLASS_SRCPATTERN_JOKERVAR*/ - /*_.VALTUP___V770*/ curfptr[769] = (void*)&cdat->dtup_709__CLASS_SRCPATTERN_JOKERVAR; + /*_.VALTUP___V771*/ curfptr[770] = (void*)&cdat->dtup_709__CLASS_SRCPATTERN_JOKERVAR; cdat->dtup_709__CLASS_SRCPATTERN_JOKERVAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_709__CLASS_SRCPATTERN_JOKERVAR.nbval = 4; /*inimult dtup_710__CLASS_SRCPATTERN_JOKERVAR*/ - /*_.VALTUP___V771*/ curfptr[770] = (void*)&cdat->dtup_710__CLASS_SRCPATTERN_JOKERVAR; + /*_.VALTUP___V772*/ curfptr[771] = (void*)&cdat->dtup_710__CLASS_SRCPATTERN_JOKERVAR; cdat->dtup_710__CLASS_SRCPATTERN_JOKERVAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_710__CLASS_SRCPATTERN_JOKERVAR.nbval = 2; /*iniobj dsym_711__CLASS_SRCPATTERN_CONSTANT*/ - if (!/*_.VALDATA___V772*/ curfptr[771]) /*_.VALDATA___V772*/ curfptr[771] = (void*)&cdat->dsym_711__CLASS_SRCPATTERN_CONSTANT; + if (!/*_.VALDATA___V773*/ curfptr[772]) /*_.VALDATA___V773*/ curfptr[772] = (void*)&cdat->dsym_711__CLASS_SRCPATTERN_CONSTANT; basilys_assertmsg("iniobj checkdiscr dsym_711__CLASS_SRCPATTERN_CONSTANT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_711__CLASS_SRCPATTERN_CONSTANT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_711__CLASS_SRCPATTERN_CONSTANT.obj_hash = 762423769; @@ -48951,35 +50506,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_707__CLASS_SRCPATTE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_711__CLASS_SRCPATTERN_CONSTANT)); /*inistring dstr_712__CLASS_SRCPATTERN*/ - /*_.VALSTR___V773*/ curfptr[772] = (void*)&cdat->dstr_712__CLASS_SRCPATTERN; + /*_.VALSTR___V774*/ curfptr[773] = (void*)&cdat->dstr_712__CLASS_SRCPATTERN; cdat->dstr_712__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_712__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_CONSTANT"); BASILYS_LOCATION("warmelt-macro.bysl:458:/ iniobj"); /*iniobj dobj_713__CLASS_SRCPATTERN_CONSTANT*/ - if (!/*_.VALDATA___V774*/ curfptr[773]) /*_.VALDATA___V774*/ curfptr[773] = (void*)&cdat->dobj_713__CLASS_SRCPATTERN_CONSTANT; + if (!/*_.VALDATA___V775*/ curfptr[774]) /*_.VALDATA___V775*/ curfptr[774] = (void*)&cdat->dobj_713__CLASS_SRCPATTERN_CONSTANT; basilys_assertmsg("iniobj checkdiscr dobj_713__CLASS_SRCPATTERN_CONSTANT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_713__CLASS_SRCPATTERN_CONSTANT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_713__CLASS_SRCPATTERN_CONSTANT.obj_num = OBMAG_OBJECT; - cdat->dobj_713__CLASS_SRCPATTERN_CONSTANT.obj_hash = 278750658; + cdat->dobj_713__CLASS_SRCPATTERN_CONSTANT.obj_hash = 252239305; cdat->dobj_713__CLASS_SRCPATTERN_CONSTANT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_713__CLASS_SRCPATTERN_CONSTANT)); /*inistring dstr_714__CLASS_SRCPATTERN*/ - /*_.VALSTR___V775*/ curfptr[774] = (void*)&cdat->dstr_714__CLASS_SRCPATTERN; + /*_.VALSTR___V776*/ curfptr[775] = (void*)&cdat->dstr_714__CLASS_SRCPATTERN; cdat->dstr_714__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_714__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_CONSTANT"); /*inimult dtup_715__CLASS_SRCPATTERN_CONSTANT*/ - /*_.VALTUP___V776*/ curfptr[775] = (void*)&cdat->dtup_715__CLASS_SRCPATTERN_CONSTANT; + /*_.VALTUP___V777*/ curfptr[776] = (void*)&cdat->dtup_715__CLASS_SRCPATTERN_CONSTANT; cdat->dtup_715__CLASS_SRCPATTERN_CONSTANT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_715__CLASS_SRCPATTERN_CONSTANT.nbval = 3; /*inimult dtup_716__CLASS_SRCPATTERN_CONSTANT*/ - /*_.VALTUP___V779*/ curfptr[778] = (void*)&cdat->dtup_716__CLASS_SRCPATTERN_CONSTANT; + /*_.VALTUP___V780*/ curfptr[779] = (void*)&cdat->dtup_716__CLASS_SRCPATTERN_CONSTANT; cdat->dtup_716__CLASS_SRCPATTERN_CONSTANT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_716__CLASS_SRCPATTERN_CONSTANT.nbval = 2; /*iniobj dsym_717__SPAT_CONSTX*/ - if (!/*_.VALDATA___V780*/ curfptr[779]) /*_.VALDATA___V780*/ curfptr[779] = (void*)&cdat->dsym_717__SPAT_CONSTX; + if (!/*_.VALDATA___V781*/ curfptr[780]) /*_.VALDATA___V781*/ curfptr[780] = (void*)&cdat->dsym_717__SPAT_CONSTX; basilys_assertmsg("iniobj checkdiscr dsym_717__SPAT_CONSTX", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_717__SPAT_CONSTX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_717__SPAT_CONSTX.obj_hash = 943580435; @@ -48987,27 +50542,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_713__CLASS_SRCPATTE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_717__SPAT_CONSTX)); /*inistring dstr_718__SPAT_CONSTX*/ - /*_.VALSTR___V781*/ curfptr[780] = (void*)&cdat->dstr_718__SPAT_CONSTX; + /*_.VALSTR___V782*/ curfptr[781] = (void*)&cdat->dstr_718__SPAT_CONSTX; cdat->dstr_718__SPAT_CONSTX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_718__SPAT_CONSTX.val, "SPAT_CONSTX"); BASILYS_LOCATION("warmelt-macro.bysl:458:/ iniobj"); /*iniobj dobj_719__SPAT_CONSTX*/ - if (!/*_.VALDATA___V777*/ curfptr[776]) /*_.VALDATA___V777*/ curfptr[776] = (void*)&cdat->dobj_719__SPAT_CONSTX; + if (!/*_.VALDATA___V778*/ curfptr[777]) /*_.VALDATA___V778*/ curfptr[777] = (void*)&cdat->dobj_719__SPAT_CONSTX; basilys_assertmsg("iniobj checkdiscr dobj_719__SPAT_CONSTX", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_719__SPAT_CONSTX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_719__SPAT_CONSTX.obj_num = 1; - cdat->dobj_719__SPAT_CONSTX.obj_hash = 150513371; + cdat->dobj_719__SPAT_CONSTX.obj_hash = 1006545382; cdat->dobj_719__SPAT_CONSTX.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_719__SPAT_CONSTX)); /*inistring dstr_720__SPAT_CONSTX*/ - /*_.VALSTR___V778*/ curfptr[777] = (void*)&cdat->dstr_720__SPAT_CONSTX; + /*_.VALSTR___V779*/ curfptr[778] = (void*)&cdat->dstr_720__SPAT_CONSTX; cdat->dstr_720__SPAT_CONSTX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_720__SPAT_CONSTX.val, "SPAT_CONSTX"); /*iniobj dsym_721__CLASS_SRCPATTERN_OBJECT*/ - if (!/*_.VALDATA___V782*/ curfptr[781]) /*_.VALDATA___V782*/ curfptr[781] = (void*)&cdat->dsym_721__CLASS_SRCPATTERN_OBJECT; + if (!/*_.VALDATA___V783*/ curfptr[782]) /*_.VALDATA___V783*/ curfptr[782] = (void*)&cdat->dsym_721__CLASS_SRCPATTERN_OBJECT; basilys_assertmsg("iniobj checkdiscr dsym_721__CLASS_SRCPATTERN_OBJECT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_721__CLASS_SRCPATTERN_OBJECT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_721__CLASS_SRCPATTERN_OBJECT.obj_hash = 666808646; @@ -49015,35 +50570,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_719__SPAT_CONSTX)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_721__CLASS_SRCPATTERN_OBJECT)); /*inistring dstr_722__CLASS_SRCPATTERN*/ - /*_.VALSTR___V783*/ curfptr[782] = (void*)&cdat->dstr_722__CLASS_SRCPATTERN; + /*_.VALSTR___V784*/ curfptr[783] = (void*)&cdat->dstr_722__CLASS_SRCPATTERN; cdat->dstr_722__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_722__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_OBJECT"); BASILYS_LOCATION("warmelt-macro.bysl:465:/ iniobj"); /*iniobj dobj_723__CLASS_SRCPATTERN_OBJECT*/ - if (!/*_.VALDATA___V784*/ curfptr[783]) /*_.VALDATA___V784*/ curfptr[783] = (void*)&cdat->dobj_723__CLASS_SRCPATTERN_OBJECT; + if (!/*_.VALDATA___V785*/ curfptr[784]) /*_.VALDATA___V785*/ curfptr[784] = (void*)&cdat->dobj_723__CLASS_SRCPATTERN_OBJECT; basilys_assertmsg("iniobj checkdiscr dobj_723__CLASS_SRCPATTERN_OBJECT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_723__CLASS_SRCPATTERN_OBJECT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_723__CLASS_SRCPATTERN_OBJECT.obj_num = OBMAG_OBJECT; - cdat->dobj_723__CLASS_SRCPATTERN_OBJECT.obj_hash = 604572771; + cdat->dobj_723__CLASS_SRCPATTERN_OBJECT.obj_hash = 722901870; cdat->dobj_723__CLASS_SRCPATTERN_OBJECT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_723__CLASS_SRCPATTERN_OBJECT)); /*inistring dstr_724__CLASS_SRCPATTERN*/ - /*_.VALSTR___V785*/ curfptr[784] = (void*)&cdat->dstr_724__CLASS_SRCPATTERN; + /*_.VALSTR___V786*/ curfptr[785] = (void*)&cdat->dstr_724__CLASS_SRCPATTERN; cdat->dstr_724__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_724__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_OBJECT"); /*inimult dtup_725__CLASS_SRCPATTERN_OBJECT*/ - /*_.VALTUP___V786*/ curfptr[785] = (void*)&cdat->dtup_725__CLASS_SRCPATTERN_OBJECT; + /*_.VALTUP___V787*/ curfptr[786] = (void*)&cdat->dtup_725__CLASS_SRCPATTERN_OBJECT; cdat->dtup_725__CLASS_SRCPATTERN_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_725__CLASS_SRCPATTERN_OBJECT.nbval = 3; /*inimult dtup_726__CLASS_SRCPATTERN_OBJECT*/ - /*_.VALTUP___V791*/ curfptr[790] = (void*)&cdat->dtup_726__CLASS_SRCPATTERN_OBJECT; + /*_.VALTUP___V792*/ curfptr[791] = (void*)&cdat->dtup_726__CLASS_SRCPATTERN_OBJECT; cdat->dtup_726__CLASS_SRCPATTERN_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_726__CLASS_SRCPATTERN_OBJECT.nbval = 3; /*iniobj dsym_727__SPAT_CLASS*/ - if (!/*_.VALDATA___V792*/ curfptr[791]) /*_.VALDATA___V792*/ curfptr[791] = (void*)&cdat->dsym_727__SPAT_CLASS; + if (!/*_.VALDATA___V793*/ curfptr[792]) /*_.VALDATA___V793*/ curfptr[792] = (void*)&cdat->dsym_727__SPAT_CLASS; basilys_assertmsg("iniobj checkdiscr dsym_727__SPAT_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_727__SPAT_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_727__SPAT_CLASS.obj_hash = 940142683; @@ -49051,27 +50606,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_723__CLASS_SRCPATTE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_727__SPAT_CLASS)); /*inistring dstr_728__SPAT_CLASS*/ - /*_.VALSTR___V793*/ curfptr[792] = (void*)&cdat->dstr_728__SPAT_CLASS; + /*_.VALSTR___V794*/ curfptr[793] = (void*)&cdat->dstr_728__SPAT_CLASS; cdat->dstr_728__SPAT_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_728__SPAT_CLASS.val, "SPAT_CLASS"); BASILYS_LOCATION("warmelt-macro.bysl:465:/ iniobj"); /*iniobj dobj_729__SPAT_CLASS*/ - if (!/*_.VALDATA___V787*/ curfptr[786]) /*_.VALDATA___V787*/ curfptr[786] = (void*)&cdat->dobj_729__SPAT_CLASS; + if (!/*_.VALDATA___V788*/ curfptr[787]) /*_.VALDATA___V788*/ curfptr[787] = (void*)&cdat->dobj_729__SPAT_CLASS; basilys_assertmsg("iniobj checkdiscr dobj_729__SPAT_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_729__SPAT_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_729__SPAT_CLASS.obj_num = 1; - cdat->dobj_729__SPAT_CLASS.obj_hash = 14020129; + cdat->dobj_729__SPAT_CLASS.obj_hash = 33769365; cdat->dobj_729__SPAT_CLASS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_729__SPAT_CLASS)); /*inistring dstr_730__SPAT_CLASS*/ - /*_.VALSTR___V788*/ curfptr[787] = (void*)&cdat->dstr_730__SPAT_CLASS; + /*_.VALSTR___V789*/ curfptr[788] = (void*)&cdat->dstr_730__SPAT_CLASS; cdat->dstr_730__SPAT_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_730__SPAT_CLASS.val, "SPAT_CLASS"); /*iniobj dsym_731__SPAT_FIELDS*/ - if (!/*_.VALDATA___V794*/ curfptr[793]) /*_.VALDATA___V794*/ curfptr[793] = (void*)&cdat->dsym_731__SPAT_FIELDS; + if (!/*_.VALDATA___V795*/ curfptr[794]) /*_.VALDATA___V795*/ curfptr[794] = (void*)&cdat->dsym_731__SPAT_FIELDS; basilys_assertmsg("iniobj checkdiscr dsym_731__SPAT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_731__SPAT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_731__SPAT_FIELDS.obj_hash = 875114227; @@ -49079,27 +50634,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_729__SPAT_CLASS)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_731__SPAT_FIELDS)); /*inistring dstr_732__SPAT_FIELDS*/ - /*_.VALSTR___V795*/ curfptr[794] = (void*)&cdat->dstr_732__SPAT_FIELDS; + /*_.VALSTR___V796*/ curfptr[795] = (void*)&cdat->dstr_732__SPAT_FIELDS; cdat->dstr_732__SPAT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_732__SPAT_FIELDS.val, "SPAT_FIELDS"); BASILYS_LOCATION("warmelt-macro.bysl:465:/ iniobj"); /*iniobj dobj_733__SPAT_FIELDS*/ - if (!/*_.VALDATA___V789*/ curfptr[788]) /*_.VALDATA___V789*/ curfptr[788] = (void*)&cdat->dobj_733__SPAT_FIELDS; + if (!/*_.VALDATA___V790*/ curfptr[789]) /*_.VALDATA___V790*/ curfptr[789] = (void*)&cdat->dobj_733__SPAT_FIELDS; basilys_assertmsg("iniobj checkdiscr dobj_733__SPAT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_733__SPAT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_733__SPAT_FIELDS.obj_num = 2; - cdat->dobj_733__SPAT_FIELDS.obj_hash = 7035631; + cdat->dobj_733__SPAT_FIELDS.obj_hash = 1067778838; cdat->dobj_733__SPAT_FIELDS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_733__SPAT_FIELDS)); /*inistring dstr_734__SPAT_FIELDS*/ - /*_.VALSTR___V790*/ curfptr[789] = (void*)&cdat->dstr_734__SPAT_FIELDS; + /*_.VALSTR___V791*/ curfptr[790] = (void*)&cdat->dstr_734__SPAT_FIELDS; cdat->dstr_734__SPAT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_734__SPAT_FIELDS.val, "SPAT_FIELDS"); /*iniobj dsym_735__CLASS_SRCPATTERN_INSTANCE*/ - if (!/*_.VALDATA___V796*/ curfptr[795]) /*_.VALDATA___V796*/ curfptr[795] = (void*)&cdat->dsym_735__CLASS_SRCPATTERN_INSTANCE; + if (!/*_.VALDATA___V797*/ curfptr[796]) /*_.VALDATA___V797*/ curfptr[796] = (void*)&cdat->dsym_735__CLASS_SRCPATTERN_INSTANCE; basilys_assertmsg("iniobj checkdiscr dsym_735__CLASS_SRCPATTERN_INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_735__CLASS_SRCPATTERN_INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_735__CLASS_SRCPATTERN_INSTANCE.obj_hash = 375415023; @@ -49107,35 +50662,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_733__SPAT_FIELDS)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_735__CLASS_SRCPATTERN_INSTANCE)); /*inistring dstr_736__CLASS_SRCPATTERN*/ - /*_.VALSTR___V797*/ curfptr[796] = (void*)&cdat->dstr_736__CLASS_SRCPATTERN; + /*_.VALSTR___V798*/ curfptr[797] = (void*)&cdat->dstr_736__CLASS_SRCPATTERN; cdat->dstr_736__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_736__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_INSTANCE"); BASILYS_LOCATION("warmelt-macro.bysl:473:/ iniobj"); /*iniobj dobj_737__CLASS_SRCPATTERN_INSTANCE*/ - if (!/*_.VALDATA___V798*/ curfptr[797]) /*_.VALDATA___V798*/ curfptr[797] = (void*)&cdat->dobj_737__CLASS_SRCPATTERN_INSTANCE; + if (!/*_.VALDATA___V799*/ curfptr[798]) /*_.VALDATA___V799*/ curfptr[798] = (void*)&cdat->dobj_737__CLASS_SRCPATTERN_INSTANCE; basilys_assertmsg("iniobj checkdiscr dobj_737__CLASS_SRCPATTERN_INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_737__CLASS_SRCPATTERN_INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_737__CLASS_SRCPATTERN_INSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_737__CLASS_SRCPATTERN_INSTANCE.obj_hash = 896380068; + cdat->dobj_737__CLASS_SRCPATTERN_INSTANCE.obj_hash = 889376330; cdat->dobj_737__CLASS_SRCPATTERN_INSTANCE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_737__CLASS_SRCPATTERN_INSTANCE)); /*inistring dstr_738__CLASS_SRCPATTERN*/ - /*_.VALSTR___V799*/ curfptr[798] = (void*)&cdat->dstr_738__CLASS_SRCPATTERN; + /*_.VALSTR___V800*/ curfptr[799] = (void*)&cdat->dstr_738__CLASS_SRCPATTERN; cdat->dstr_738__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_738__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_INSTANCE"); /*inimult dtup_739__CLASS_SRCPATTERN_INSTANCE*/ - /*_.VALTUP___V800*/ curfptr[799] = (void*)&cdat->dtup_739__CLASS_SRCPATTERN_INSTANCE; + /*_.VALTUP___V801*/ curfptr[800] = (void*)&cdat->dtup_739__CLASS_SRCPATTERN_INSTANCE; cdat->dtup_739__CLASS_SRCPATTERN_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_739__CLASS_SRCPATTERN_INSTANCE.nbval = 4; /*inimult dtup_740__CLASS_SRCPATTERN_INSTANCE*/ - /*_.VALTUP___V801*/ curfptr[800] = (void*)&cdat->dtup_740__CLASS_SRCPATTERN_INSTANCE; + /*_.VALTUP___V802*/ curfptr[801] = (void*)&cdat->dtup_740__CLASS_SRCPATTERN_INSTANCE; cdat->dtup_740__CLASS_SRCPATTERN_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_740__CLASS_SRCPATTERN_INSTANCE.nbval = 3; /*iniobj dsym_741__CLASS_SRCFIELDPATTERN*/ - if (!/*_.VALDATA___V802*/ curfptr[801]) /*_.VALDATA___V802*/ curfptr[801] = (void*)&cdat->dsym_741__CLASS_SRCFIELDPATTERN; + if (!/*_.VALDATA___V803*/ curfptr[802]) /*_.VALDATA___V803*/ curfptr[802] = (void*)&cdat->dsym_741__CLASS_SRCFIELDPATTERN; basilys_assertmsg("iniobj checkdiscr dsym_741__CLASS_SRCFIELDPATTERN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_741__CLASS_SRCFIELDPATTERN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_741__CLASS_SRCFIELDPATTERN.obj_hash = 780247789; @@ -49143,35 +50698,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_737__CLASS_SRCPATTE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_741__CLASS_SRCFIELDPATTERN)); /*inistring dstr_742__CLASS_SRCFIELDPA*/ - /*_.VALSTR___V803*/ curfptr[802] = (void*)&cdat->dstr_742__CLASS_SRCFIELDPA; + /*_.VALSTR___V804*/ curfptr[803] = (void*)&cdat->dstr_742__CLASS_SRCFIELDPA; cdat->dstr_742__CLASS_SRCFIELDPA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_742__CLASS_SRCFIELDPA.val, "CLASS_SRCFIELDPATTERN"); BASILYS_LOCATION("warmelt-macro.bysl:479:/ iniobj"); /*iniobj dobj_743__CLASS_SRCFIELDPATTERN*/ - if (!/*_.VALDATA___V804*/ curfptr[803]) /*_.VALDATA___V804*/ curfptr[803] = (void*)&cdat->dobj_743__CLASS_SRCFIELDPATTERN; + if (!/*_.VALDATA___V805*/ curfptr[804]) /*_.VALDATA___V805*/ curfptr[804] = (void*)&cdat->dobj_743__CLASS_SRCFIELDPATTERN; basilys_assertmsg("iniobj checkdiscr dobj_743__CLASS_SRCFIELDPATTERN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_743__CLASS_SRCFIELDPATTERN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_743__CLASS_SRCFIELDPATTERN.obj_num = OBMAG_OBJECT; - cdat->dobj_743__CLASS_SRCFIELDPATTERN.obj_hash = 449517758; + cdat->dobj_743__CLASS_SRCFIELDPATTERN.obj_hash = 112758625; cdat->dobj_743__CLASS_SRCFIELDPATTERN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_743__CLASS_SRCFIELDPATTERN)); /*inistring dstr_744__CLASS_SRCFIELDPA*/ - /*_.VALSTR___V805*/ curfptr[804] = (void*)&cdat->dstr_744__CLASS_SRCFIELDPA; + /*_.VALSTR___V806*/ curfptr[805] = (void*)&cdat->dstr_744__CLASS_SRCFIELDPA; cdat->dstr_744__CLASS_SRCFIELDPA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_744__CLASS_SRCFIELDPA.val, "CLASS_SRCFIELDPATTERN"); /*inimult dtup_745__CLASS_SRCFIELDPATTERN*/ - /*_.VALTUP___V806*/ curfptr[805] = (void*)&cdat->dtup_745__CLASS_SRCFIELDPATTERN; + /*_.VALTUP___V807*/ curfptr[806] = (void*)&cdat->dtup_745__CLASS_SRCFIELDPATTERN; cdat->dtup_745__CLASS_SRCFIELDPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_745__CLASS_SRCFIELDPATTERN.nbval = 2; /*inimult dtup_746__CLASS_SRCFIELDPATTERN*/ - /*_.VALTUP___V811*/ curfptr[810] = (void*)&cdat->dtup_746__CLASS_SRCFIELDPATTERN; + /*_.VALTUP___V812*/ curfptr[811] = (void*)&cdat->dtup_746__CLASS_SRCFIELDPATTERN; cdat->dtup_746__CLASS_SRCFIELDPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_746__CLASS_SRCFIELDPATTERN.nbval = 3; /*iniobj dsym_747__SPAF_FIELD*/ - if (!/*_.VALDATA___V812*/ curfptr[811]) /*_.VALDATA___V812*/ curfptr[811] = (void*)&cdat->dsym_747__SPAF_FIELD; + if (!/*_.VALDATA___V813*/ curfptr[812]) /*_.VALDATA___V813*/ curfptr[812] = (void*)&cdat->dsym_747__SPAF_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_747__SPAF_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_747__SPAF_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_747__SPAF_FIELD.obj_hash = 149103823; @@ -49179,27 +50734,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_743__CLASS_SRCFIELD basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_747__SPAF_FIELD)); /*inistring dstr_748__SPAF_FIELD*/ - /*_.VALSTR___V813*/ curfptr[812] = (void*)&cdat->dstr_748__SPAF_FIELD; + /*_.VALSTR___V814*/ curfptr[813] = (void*)&cdat->dstr_748__SPAF_FIELD; cdat->dstr_748__SPAF_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_748__SPAF_FIELD.val, "SPAF_FIELD"); BASILYS_LOCATION("warmelt-macro.bysl:479:/ iniobj"); /*iniobj dobj_749__SPAF_FIELD*/ - if (!/*_.VALDATA___V807*/ curfptr[806]) /*_.VALDATA___V807*/ curfptr[806] = (void*)&cdat->dobj_749__SPAF_FIELD; + if (!/*_.VALDATA___V808*/ curfptr[807]) /*_.VALDATA___V808*/ curfptr[807] = (void*)&cdat->dobj_749__SPAF_FIELD; basilys_assertmsg("iniobj checkdiscr dobj_749__SPAF_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_749__SPAF_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_749__SPAF_FIELD.obj_num = 1; - cdat->dobj_749__SPAF_FIELD.obj_hash = 271431772; + cdat->dobj_749__SPAF_FIELD.obj_hash = 582245031; cdat->dobj_749__SPAF_FIELD.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_749__SPAF_FIELD)); /*inistring dstr_750__SPAF_FIELD*/ - /*_.VALSTR___V808*/ curfptr[807] = (void*)&cdat->dstr_750__SPAF_FIELD; + /*_.VALSTR___V809*/ curfptr[808] = (void*)&cdat->dstr_750__SPAF_FIELD; cdat->dstr_750__SPAF_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_750__SPAF_FIELD.val, "SPAF_FIELD"); /*iniobj dsym_751__SPAF_PATTERN*/ - if (!/*_.VALDATA___V814*/ curfptr[813]) /*_.VALDATA___V814*/ curfptr[813] = (void*)&cdat->dsym_751__SPAF_PATTERN; + if (!/*_.VALDATA___V815*/ curfptr[814]) /*_.VALDATA___V815*/ curfptr[814] = (void*)&cdat->dsym_751__SPAF_PATTERN; basilys_assertmsg("iniobj checkdiscr dsym_751__SPAF_PATTERN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_751__SPAF_PATTERN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_751__SPAF_PATTERN.obj_hash = 35901231; @@ -49207,27 +50762,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_749__SPAF_FIELD)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_751__SPAF_PATTERN)); /*inistring dstr_752__SPAF_PATTERN*/ - /*_.VALSTR___V815*/ curfptr[814] = (void*)&cdat->dstr_752__SPAF_PATTERN; + /*_.VALSTR___V816*/ curfptr[815] = (void*)&cdat->dstr_752__SPAF_PATTERN; cdat->dstr_752__SPAF_PATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_752__SPAF_PATTERN.val, "SPAF_PATTERN"); BASILYS_LOCATION("warmelt-macro.bysl:479:/ iniobj"); /*iniobj dobj_753__SPAF_PATTERN*/ - if (!/*_.VALDATA___V809*/ curfptr[808]) /*_.VALDATA___V809*/ curfptr[808] = (void*)&cdat->dobj_753__SPAF_PATTERN; + if (!/*_.VALDATA___V810*/ curfptr[809]) /*_.VALDATA___V810*/ curfptr[809] = (void*)&cdat->dobj_753__SPAF_PATTERN; basilys_assertmsg("iniobj checkdiscr dobj_753__SPAF_PATTERN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_753__SPAF_PATTERN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_753__SPAF_PATTERN.obj_num = 2; - cdat->dobj_753__SPAF_PATTERN.obj_hash = 710864317; + cdat->dobj_753__SPAF_PATTERN.obj_hash = 284496078; cdat->dobj_753__SPAF_PATTERN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_753__SPAF_PATTERN)); /*inistring dstr_754__SPAF_PATTERN*/ - /*_.VALSTR___V810*/ curfptr[809] = (void*)&cdat->dstr_754__SPAF_PATTERN; + /*_.VALSTR___V811*/ curfptr[810] = (void*)&cdat->dstr_754__SPAF_PATTERN; cdat->dstr_754__SPAF_PATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_754__SPAF_PATTERN.val, "SPAF_PATTERN"); /*iniobj dsym_755__CLASS_SRCPATTERN_COMPOSITE*/ - if (!/*_.VALDATA___V816*/ curfptr[815]) /*_.VALDATA___V816*/ curfptr[815] = (void*)&cdat->dsym_755__CLASS_SRCPATTERN_COMPOSITE; + if (!/*_.VALDATA___V817*/ curfptr[816]) /*_.VALDATA___V817*/ curfptr[816] = (void*)&cdat->dsym_755__CLASS_SRCPATTERN_COMPOSITE; basilys_assertmsg("iniobj checkdiscr dsym_755__CLASS_SRCPATTERN_COMPOSITE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_755__CLASS_SRCPATTERN_COMPOSITE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_755__CLASS_SRCPATTERN_COMPOSITE.obj_hash = 228072300; @@ -49235,35 +50790,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_753__SPAF_PATTERN)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_755__CLASS_SRCPATTERN_COMPOSITE)); /*inistring dstr_756__CLASS_SRCPATTERN*/ - /*_.VALSTR___V817*/ curfptr[816] = (void*)&cdat->dstr_756__CLASS_SRCPATTERN; + /*_.VALSTR___V818*/ curfptr[817] = (void*)&cdat->dstr_756__CLASS_SRCPATTERN; cdat->dstr_756__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_756__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_COMPOSITE"); BASILYS_LOCATION("warmelt-macro.bysl:486:/ iniobj"); /*iniobj dobj_757__CLASS_SRCPATTERN_COMPOSITE*/ - if (!/*_.VALDATA___V818*/ curfptr[817]) /*_.VALDATA___V818*/ curfptr[817] = (void*)&cdat->dobj_757__CLASS_SRCPATTERN_COMPOSITE; + if (!/*_.VALDATA___V819*/ curfptr[818]) /*_.VALDATA___V819*/ curfptr[818] = (void*)&cdat->dobj_757__CLASS_SRCPATTERN_COMPOSITE; basilys_assertmsg("iniobj checkdiscr dobj_757__CLASS_SRCPATTERN_COMPOSITE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_757__CLASS_SRCPATTERN_COMPOSITE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_757__CLASS_SRCPATTERN_COMPOSITE.obj_num = OBMAG_OBJECT; - cdat->dobj_757__CLASS_SRCPATTERN_COMPOSITE.obj_hash = 316703905; + cdat->dobj_757__CLASS_SRCPATTERN_COMPOSITE.obj_hash = 889208840; cdat->dobj_757__CLASS_SRCPATTERN_COMPOSITE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_757__CLASS_SRCPATTERN_COMPOSITE)); /*inistring dstr_758__CLASS_SRCPATTERN*/ - /*_.VALSTR___V819*/ curfptr[818] = (void*)&cdat->dstr_758__CLASS_SRCPATTERN; + /*_.VALSTR___V820*/ curfptr[819] = (void*)&cdat->dstr_758__CLASS_SRCPATTERN; cdat->dstr_758__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_758__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_COMPOSITE"); /*inimult dtup_759__CLASS_SRCPATTERN_COMPOSITE*/ - /*_.VALTUP___V820*/ curfptr[819] = (void*)&cdat->dtup_759__CLASS_SRCPATTERN_COMPOSITE; + /*_.VALTUP___V821*/ curfptr[820] = (void*)&cdat->dtup_759__CLASS_SRCPATTERN_COMPOSITE; cdat->dtup_759__CLASS_SRCPATTERN_COMPOSITE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_759__CLASS_SRCPATTERN_COMPOSITE.nbval = 4; /*inimult dtup_760__CLASS_SRCPATTERN_COMPOSITE*/ - /*_.VALTUP___V827*/ curfptr[826] = (void*)&cdat->dtup_760__CLASS_SRCPATTERN_COMPOSITE; + /*_.VALTUP___V828*/ curfptr[827] = (void*)&cdat->dtup_760__CLASS_SRCPATTERN_COMPOSITE; cdat->dtup_760__CLASS_SRCPATTERN_COMPOSITE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_760__CLASS_SRCPATTERN_COMPOSITE.nbval = 6; /*iniobj dsym_761__SPAC_OPERATOR*/ - if (!/*_.VALDATA___V828*/ curfptr[827]) /*_.VALDATA___V828*/ curfptr[827] = (void*)&cdat->dsym_761__SPAC_OPERATOR; + if (!/*_.VALDATA___V829*/ curfptr[828]) /*_.VALDATA___V829*/ curfptr[828] = (void*)&cdat->dsym_761__SPAC_OPERATOR; basilys_assertmsg("iniobj checkdiscr dsym_761__SPAC_OPERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_761__SPAC_OPERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_761__SPAC_OPERATOR.obj_hash = 46865939; @@ -49271,27 +50826,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_757__CLASS_SRCPATTE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_761__SPAC_OPERATOR)); /*inistring dstr_762__SPAC_OPERATOR*/ - /*_.VALSTR___V829*/ curfptr[828] = (void*)&cdat->dstr_762__SPAC_OPERATOR; + /*_.VALSTR___V830*/ curfptr[829] = (void*)&cdat->dstr_762__SPAC_OPERATOR; cdat->dstr_762__SPAC_OPERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_762__SPAC_OPERATOR.val, "SPAC_OPERATOR"); BASILYS_LOCATION("warmelt-macro.bysl:486:/ iniobj"); /*iniobj dobj_763__SPAC_OPERATOR*/ - if (!/*_.VALDATA___V821*/ curfptr[820]) /*_.VALDATA___V821*/ curfptr[820] = (void*)&cdat->dobj_763__SPAC_OPERATOR; + if (!/*_.VALDATA___V822*/ curfptr[821]) /*_.VALDATA___V822*/ curfptr[821] = (void*)&cdat->dobj_763__SPAC_OPERATOR; basilys_assertmsg("iniobj checkdiscr dobj_763__SPAC_OPERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_763__SPAC_OPERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_763__SPAC_OPERATOR.obj_num = 3; - cdat->dobj_763__SPAC_OPERATOR.obj_hash = 888062111; + cdat->dobj_763__SPAC_OPERATOR.obj_hash = 701851892; cdat->dobj_763__SPAC_OPERATOR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_763__SPAC_OPERATOR)); /*inistring dstr_764__SPAC_OPERATOR*/ - /*_.VALSTR___V822*/ curfptr[821] = (void*)&cdat->dstr_764__SPAC_OPERATOR; + /*_.VALSTR___V823*/ curfptr[822] = (void*)&cdat->dstr_764__SPAC_OPERATOR; cdat->dstr_764__SPAC_OPERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_764__SPAC_OPERATOR.val, "SPAC_OPERATOR"); /*iniobj dsym_765__SPAC_INARGS*/ - if (!/*_.VALDATA___V830*/ curfptr[829]) /*_.VALDATA___V830*/ curfptr[829] = (void*)&cdat->dsym_765__SPAC_INARGS; + if (!/*_.VALDATA___V831*/ curfptr[830]) /*_.VALDATA___V831*/ curfptr[830] = (void*)&cdat->dsym_765__SPAC_INARGS; basilys_assertmsg("iniobj checkdiscr dsym_765__SPAC_INARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_765__SPAC_INARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_765__SPAC_INARGS.obj_hash = 641829338; @@ -49299,27 +50854,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_763__SPAC_OPERATOR) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_765__SPAC_INARGS)); /*inistring dstr_766__SPAC_INARGS*/ - /*_.VALSTR___V831*/ curfptr[830] = (void*)&cdat->dstr_766__SPAC_INARGS; + /*_.VALSTR___V832*/ curfptr[831] = (void*)&cdat->dstr_766__SPAC_INARGS; cdat->dstr_766__SPAC_INARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_766__SPAC_INARGS.val, "SPAC_INARGS"); BASILYS_LOCATION("warmelt-macro.bysl:486:/ iniobj"); /*iniobj dobj_767__SPAC_INARGS*/ - if (!/*_.VALDATA___V823*/ curfptr[822]) /*_.VALDATA___V823*/ curfptr[822] = (void*)&cdat->dobj_767__SPAC_INARGS; + if (!/*_.VALDATA___V824*/ curfptr[823]) /*_.VALDATA___V824*/ curfptr[823] = (void*)&cdat->dobj_767__SPAC_INARGS; basilys_assertmsg("iniobj checkdiscr dobj_767__SPAC_INARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_767__SPAC_INARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_767__SPAC_INARGS.obj_num = 4; - cdat->dobj_767__SPAC_INARGS.obj_hash = 790709921; + cdat->dobj_767__SPAC_INARGS.obj_hash = 487063118; cdat->dobj_767__SPAC_INARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_767__SPAC_INARGS)); /*inistring dstr_768__SPAC_INARGS*/ - /*_.VALSTR___V824*/ curfptr[823] = (void*)&cdat->dstr_768__SPAC_INARGS; + /*_.VALSTR___V825*/ curfptr[824] = (void*)&cdat->dstr_768__SPAC_INARGS; cdat->dstr_768__SPAC_INARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_768__SPAC_INARGS.val, "SPAC_INARGS"); /*iniobj dsym_769__SPAC_OUTARGS*/ - if (!/*_.VALDATA___V832*/ curfptr[831]) /*_.VALDATA___V832*/ curfptr[831] = (void*)&cdat->dsym_769__SPAC_OUTARGS; + if (!/*_.VALDATA___V833*/ curfptr[832]) /*_.VALDATA___V833*/ curfptr[832] = (void*)&cdat->dsym_769__SPAC_OUTARGS; basilys_assertmsg("iniobj checkdiscr dsym_769__SPAC_OUTARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_769__SPAC_OUTARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_769__SPAC_OUTARGS.obj_hash = 486574494; @@ -49327,27 +50882,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_767__SPAC_INARGS)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_769__SPAC_OUTARGS)); /*inistring dstr_770__SPAC_OUTARGS*/ - /*_.VALSTR___V833*/ curfptr[832] = (void*)&cdat->dstr_770__SPAC_OUTARGS; + /*_.VALSTR___V834*/ curfptr[833] = (void*)&cdat->dstr_770__SPAC_OUTARGS; cdat->dstr_770__SPAC_OUTARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_770__SPAC_OUTARGS.val, "SPAC_OUTARGS"); BASILYS_LOCATION("warmelt-macro.bysl:486:/ iniobj"); /*iniobj dobj_771__SPAC_OUTARGS*/ - if (!/*_.VALDATA___V825*/ curfptr[824]) /*_.VALDATA___V825*/ curfptr[824] = (void*)&cdat->dobj_771__SPAC_OUTARGS; + if (!/*_.VALDATA___V826*/ curfptr[825]) /*_.VALDATA___V826*/ curfptr[825] = (void*)&cdat->dobj_771__SPAC_OUTARGS; basilys_assertmsg("iniobj checkdiscr dobj_771__SPAC_OUTARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_771__SPAC_OUTARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_771__SPAC_OUTARGS.obj_num = 5; - cdat->dobj_771__SPAC_OUTARGS.obj_hash = 948919311; + cdat->dobj_771__SPAC_OUTARGS.obj_hash = 345747138; cdat->dobj_771__SPAC_OUTARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_771__SPAC_OUTARGS)); /*inistring dstr_772__SPAC_OUTARGS*/ - /*_.VALSTR___V826*/ curfptr[825] = (void*)&cdat->dstr_772__SPAC_OUTARGS; + /*_.VALSTR___V827*/ curfptr[826] = (void*)&cdat->dstr_772__SPAC_OUTARGS; cdat->dstr_772__SPAC_OUTARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_772__SPAC_OUTARGS.val, "SPAC_OUTARGS"); /*iniobj dsym_773__CLASS_SRCPATTERN_CMATCH*/ - if (!/*_.VALDATA___V834*/ curfptr[833]) /*_.VALDATA___V834*/ curfptr[833] = (void*)&cdat->dsym_773__CLASS_SRCPATTERN_CMATCH; + if (!/*_.VALDATA___V835*/ curfptr[834]) /*_.VALDATA___V835*/ curfptr[834] = (void*)&cdat->dsym_773__CLASS_SRCPATTERN_CMATCH; basilys_assertmsg("iniobj checkdiscr dsym_773__CLASS_SRCPATTERN_CMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_773__CLASS_SRCPATTERN_CMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_773__CLASS_SRCPATTERN_CMATCH.obj_hash = 810610332; @@ -49355,35 +50910,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_771__SPAC_OUTARGS)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_773__CLASS_SRCPATTERN_CMATCH)); /*inistring dstr_774__CLASS_SRCPATTERN*/ - /*_.VALSTR___V835*/ curfptr[834] = (void*)&cdat->dstr_774__CLASS_SRCPATTERN; + /*_.VALSTR___V836*/ curfptr[835] = (void*)&cdat->dstr_774__CLASS_SRCPATTERN; cdat->dstr_774__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_774__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_CMATCH"); BASILYS_LOCATION("warmelt-macro.bysl:495:/ iniobj"); /*iniobj dobj_775__CLASS_SRCPATTERN_CMATCH*/ - if (!/*_.VALDATA___V836*/ curfptr[835]) /*_.VALDATA___V836*/ curfptr[835] = (void*)&cdat->dobj_775__CLASS_SRCPATTERN_CMATCH; + if (!/*_.VALDATA___V837*/ curfptr[836]) /*_.VALDATA___V837*/ curfptr[836] = (void*)&cdat->dobj_775__CLASS_SRCPATTERN_CMATCH; basilys_assertmsg("iniobj checkdiscr dobj_775__CLASS_SRCPATTERN_CMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_775__CLASS_SRCPATTERN_CMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_775__CLASS_SRCPATTERN_CMATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_775__CLASS_SRCPATTERN_CMATCH.obj_hash = 345732504; + cdat->dobj_775__CLASS_SRCPATTERN_CMATCH.obj_hash = 131200470; cdat->dobj_775__CLASS_SRCPATTERN_CMATCH.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_775__CLASS_SRCPATTERN_CMATCH)); /*inistring dstr_776__CLASS_SRCPATTERN*/ - /*_.VALSTR___V837*/ curfptr[836] = (void*)&cdat->dstr_776__CLASS_SRCPATTERN; + /*_.VALSTR___V838*/ curfptr[837] = (void*)&cdat->dstr_776__CLASS_SRCPATTERN; cdat->dstr_776__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_776__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_CMATCH"); /*inimult dtup_777__CLASS_SRCPATTERN_CMATCH*/ - /*_.VALTUP___V838*/ curfptr[837] = (void*)&cdat->dtup_777__CLASS_SRCPATTERN_CMATCH; + /*_.VALTUP___V839*/ curfptr[838] = (void*)&cdat->dtup_777__CLASS_SRCPATTERN_CMATCH; cdat->dtup_777__CLASS_SRCPATTERN_CMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_777__CLASS_SRCPATTERN_CMATCH.nbval = 5; /*inimult dtup_778__CLASS_SRCPATTERN_CMATCH*/ - /*_.VALTUP___V839*/ curfptr[838] = (void*)&cdat->dtup_778__CLASS_SRCPATTERN_CMATCH; + /*_.VALTUP___V840*/ curfptr[839] = (void*)&cdat->dtup_778__CLASS_SRCPATTERN_CMATCH; cdat->dtup_778__CLASS_SRCPATTERN_CMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_778__CLASS_SRCPATTERN_CMATCH.nbval = 6; /*iniobj dsym_779__CLASS_SRCPATTERN_ANYMATCH*/ - if (!/*_.VALDATA___V840*/ curfptr[839]) /*_.VALDATA___V840*/ curfptr[839] = (void*)&cdat->dsym_779__CLASS_SRCPATTERN_ANYMATCH; + if (!/*_.VALDATA___V841*/ curfptr[840]) /*_.VALDATA___V841*/ curfptr[840] = (void*)&cdat->dsym_779__CLASS_SRCPATTERN_ANYMATCH; basilys_assertmsg("iniobj checkdiscr dsym_779__CLASS_SRCPATTERN_ANYMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_779__CLASS_SRCPATTERN_ANYMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_779__CLASS_SRCPATTERN_ANYMATCH.obj_hash = 211006227; @@ -49391,70 +50946,70 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_775__CLASS_SRCPATTE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_779__CLASS_SRCPATTERN_ANYMATCH)); /*inistring dstr_780__CLASS_SRCPATTERN*/ - /*_.VALSTR___V841*/ curfptr[840] = (void*)&cdat->dstr_780__CLASS_SRCPATTERN; + /*_.VALSTR___V842*/ curfptr[841] = (void*)&cdat->dstr_780__CLASS_SRCPATTERN; cdat->dstr_780__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_780__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_ANYMATCH"); BASILYS_LOCATION("warmelt-macro.bysl:501:/ iniobj"); /*iniobj dobj_781__CLASS_SRCPATTERN_ANYMATCH*/ - if (!/*_.VALDATA___V842*/ curfptr[841]) /*_.VALDATA___V842*/ curfptr[841] = (void*)&cdat->dobj_781__CLASS_SRCPATTERN_ANYMATCH; + if (!/*_.VALDATA___V843*/ curfptr[842]) /*_.VALDATA___V843*/ curfptr[842] = (void*)&cdat->dobj_781__CLASS_SRCPATTERN_ANYMATCH; basilys_assertmsg("iniobj checkdiscr dobj_781__CLASS_SRCPATTERN_ANYMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_781__CLASS_SRCPATTERN_ANYMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_781__CLASS_SRCPATTERN_ANYMATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_781__CLASS_SRCPATTERN_ANYMATCH.obj_hash = 328867295; + cdat->dobj_781__CLASS_SRCPATTERN_ANYMATCH.obj_hash = 530288907; cdat->dobj_781__CLASS_SRCPATTERN_ANYMATCH.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_781__CLASS_SRCPATTERN_ANYMATCH)); /*inistring dstr_782__CLASS_SRCPATTERN*/ - /*_.VALSTR___V843*/ curfptr[842] = (void*)&cdat->dstr_782__CLASS_SRCPATTERN; + /*_.VALSTR___V844*/ curfptr[843] = (void*)&cdat->dstr_782__CLASS_SRCPATTERN; cdat->dstr_782__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_782__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_ANYMATCH"); /*inimult dtup_783__CLASS_SRCPATTERN_ANYMATCH*/ - /*_.VALTUP___V844*/ curfptr[843] = (void*)&cdat->dtup_783__CLASS_SRCPATTERN_ANYMATCH; + /*_.VALTUP___V845*/ curfptr[844] = (void*)&cdat->dtup_783__CLASS_SRCPATTERN_ANYMATCH; cdat->dtup_783__CLASS_SRCPATTERN_ANYMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_783__CLASS_SRCPATTERN_ANYMATCH.nbval = 5; /*inimult dtup_784__CLASS_SRCPATTERN_ANYMATCH*/ - /*_.VALTUP___V845*/ curfptr[844] = (void*)&cdat->dtup_784__CLASS_SRCPATTERN_ANYMATCH; + /*_.VALTUP___V846*/ curfptr[845] = (void*)&cdat->dtup_784__CLASS_SRCPATTERN_ANYMATCH; cdat->dtup_784__CLASS_SRCPATTERN_ANYMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_784__CLASS_SRCPATTERN_ANYMATCH.nbval = 6; BASILYS_LOCATION("warmelt-macro.bysl:506:/ iniobj"); /*iniobj dobj_785__CLASS_SRCPATTERN_CMATCH*/ - if (!/*_.VALDATA___V846*/ curfptr[845]) /*_.VALDATA___V846*/ curfptr[845] = (void*)&cdat->dobj_785__CLASS_SRCPATTERN_CMATCH; + if (!/*_.VALDATA___V847*/ curfptr[846]) /*_.VALDATA___V847*/ curfptr[846] = (void*)&cdat->dobj_785__CLASS_SRCPATTERN_CMATCH; basilys_assertmsg("iniobj checkdiscr dobj_785__CLASS_SRCPATTERN_CMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_785__CLASS_SRCPATTERN_CMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_785__CLASS_SRCPATTERN_CMATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_785__CLASS_SRCPATTERN_CMATCH.obj_hash = 226190375; + cdat->dobj_785__CLASS_SRCPATTERN_CMATCH.obj_hash = 935612879; cdat->dobj_785__CLASS_SRCPATTERN_CMATCH.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_785__CLASS_SRCPATTERN_CMATCH)); /*inistring dstr_786__CLASS_SRCPATTERN*/ - /*_.VALSTR___V847*/ curfptr[846] = (void*)&cdat->dstr_786__CLASS_SRCPATTERN; + /*_.VALSTR___V848*/ curfptr[847] = (void*)&cdat->dstr_786__CLASS_SRCPATTERN; cdat->dstr_786__CLASS_SRCPATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_786__CLASS_SRCPATTERN.val, "CLASS_SRCPATTERN_CMATCH"); /*inimult dtup_787__CLASS_SRCPATTERN_CMATCH*/ - /*_.VALTUP___V848*/ curfptr[847] = (void*)&cdat->dtup_787__CLASS_SRCPATTERN_CMATCH; + /*_.VALTUP___V849*/ curfptr[848] = (void*)&cdat->dtup_787__CLASS_SRCPATTERN_CMATCH; cdat->dtup_787__CLASS_SRCPATTERN_CMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_787__CLASS_SRCPATTERN_CMATCH.nbval = 6; /*inimult dtup_788__CLASS_SRCPATTERN_CMATCH*/ - /*_.VALTUP___V849*/ curfptr[848] = (void*)&cdat->dtup_788__CLASS_SRCPATTERN_CMATCH; + /*_.VALTUP___V850*/ curfptr[849] = (void*)&cdat->dtup_788__CLASS_SRCPATTERN_CMATCH; cdat->dtup_788__CLASS_SRCPATTERN_CMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_788__CLASS_SRCPATTERN_CMATCH.nbval = 6; /*inirout drout_789__SEXPR_NTH_SON*/ - /*_.VALROUT___V850*/ curfptr[849] = (void*)&cdat->drout_789__SEXPR_NTH_SON; + /*_.VALROUT___V851*/ curfptr[850] = (void*)&cdat->drout_789__SEXPR_NTH_SON; cdat->drout_789__SEXPR_NTH_SON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_789__SEXPR_NTH_SON.routdescr, "SEXPR_NTH_SON @warmelt-macro.bysl:514", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_789__SEXPR_NTH_SON.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_789__SEXPR_NTH_SON, rout_1_SEXPR_NTH_SON); /*iniclos dclo_790__SEXPR_NTH_SON*/ - /*_.VALCLO___V851*/ curfptr[850] = (void*)&cdat->dclo_790__SEXPR_NTH_SON; + /*_.VALCLO___V852*/ curfptr[851] = (void*)&cdat->dclo_790__SEXPR_NTH_SON; cdat->dclo_790__SEXPR_NTH_SON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_790__SEXPR_NTH_SON.nbval = 0; /*iniobj dsym_791__CLASS_SEXPR*/ - if (!/*_.VALDATA___V852*/ curfptr[851]) /*_.VALDATA___V852*/ curfptr[851] = (void*)&cdat->dsym_791__CLASS_SEXPR; + if (!/*_.VALDATA___V853*/ curfptr[852]) /*_.VALDATA___V853*/ curfptr[852] = (void*)&cdat->dsym_791__CLASS_SEXPR; basilys_assertmsg("iniobj checkdiscr dsym_791__CLASS_SEXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_791__CLASS_SEXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_791__CLASS_SEXPR.obj_hash = 53411612; @@ -49462,24 +51017,24 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_785__CLASS_SRCPATTE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_791__CLASS_SEXPR)); /*inistring dstr_792__CLASS_SEXPR*/ - /*_.VALSTR___V853*/ curfptr[852] = (void*)&cdat->dstr_792__CLASS_SEXPR; + /*_.VALSTR___V854*/ curfptr[853] = (void*)&cdat->dstr_792__CLASS_SEXPR; cdat->dstr_792__CLASS_SEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_792__CLASS_SEXPR.val, "CLASS_SEXPR"); /*inirout drout_793__EXPAND_RESTLIST_AS_TUPLE*/ - /*_.VALROUT___V854*/ curfptr[853] = (void*)&cdat->drout_793__EXPAND_RESTLIST_AS_TUPLE; + /*_.VALROUT___V855*/ curfptr[854] = (void*)&cdat->drout_793__EXPAND_RESTLIST_AS_TUPLE; cdat->drout_793__EXPAND_RESTLIST_AS_TUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_793__EXPAND_RESTLIST_AS_TUPLE.routdescr, "EXPAND_RESTLIST_AS_TUPLE @warmelt-macro.bysl:527", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_793__EXPAND_RESTLIST_AS_TUPLE.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_793__EXPAND_RESTLIST_AS_TUPLE, rout_2_EXPAND_RESTLIST_AS_TUPLE); /*iniclos dclo_794__EXPAND_RESTLIST_AS_TUPLE*/ - /*_.VALCLO___V863*/ curfptr[862] = (void*)&cdat->dclo_794__EXPAND_RESTLIST_AS_TUPLE; + /*_.VALCLO___V864*/ curfptr[863] = (void*)&cdat->dclo_794__EXPAND_RESTLIST_AS_TUPLE; cdat->dclo_794__EXPAND_RESTLIST_AS_TUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_794__EXPAND_RESTLIST_AS_TUPLE.nbval = 0; /*iniobj dsym_795__CLASS_ENVIRONMENT*/ - if (!/*_.VALDATA___V878*/ curfptr[877]) /*_.VALDATA___V878*/ curfptr[877] = (void*)&cdat->dsym_795__CLASS_ENVIRONMENT; + if (!/*_.VALDATA___V879*/ curfptr[878]) /*_.VALDATA___V879*/ curfptr[878] = (void*)&cdat->dsym_795__CLASS_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dsym_795__CLASS_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_795__CLASS_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_795__CLASS_ENVIRONMENT.obj_hash = 59212821; @@ -49487,12 +51042,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_791__CLASS_SEXPR)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_795__CLASS_ENVIRONMENT)); /*inistring dstr_796__CLASS_ENVIRONMEN*/ - /*_.VALSTR___V879*/ curfptr[878] = (void*)&cdat->dstr_796__CLASS_ENVIRONMEN; + /*_.VALSTR___V880*/ curfptr[879] = (void*)&cdat->dstr_796__CLASS_ENVIRONMEN; cdat->dstr_796__CLASS_ENVIRONMEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_796__CLASS_ENVIRONMEN.val, "CLASS_ENVIRONMENT"); /*iniobj dsym_797__DISCR_MULTIPLE*/ - if (!/*_.VALDATA___V880*/ curfptr[879]) /*_.VALDATA___V880*/ curfptr[879] = (void*)&cdat->dsym_797__DISCR_MULTIPLE; + if (!/*_.VALDATA___V881*/ curfptr[880]) /*_.VALDATA___V881*/ curfptr[880] = (void*)&cdat->dsym_797__DISCR_MULTIPLE; basilys_assertmsg("iniobj checkdiscr dsym_797__DISCR_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_797__DISCR_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_797__DISCR_MULTIPLE.obj_hash = 91864583; @@ -49500,48 +51055,48 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_795__CLASS_ENVIRONM basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_797__DISCR_MULTIPLE)); /*inistring dstr_798__DISCR_MULTIPLE*/ - /*_.VALSTR___V881*/ curfptr[880] = (void*)&cdat->dstr_798__DISCR_MULTIPLE; + /*_.VALSTR___V882*/ curfptr[881] = (void*)&cdat->dstr_798__DISCR_MULTIPLE; cdat->dstr_798__DISCR_MULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_798__DISCR_MULTIPLE.val, "DISCR_MULTIPLE"); /*inirout drout_799__EXPAND_PAIRLIST_AS_TUPLE*/ - /*_.VALROUT___V860*/ curfptr[859] = (void*)&cdat->drout_799__EXPAND_PAIRLIST_AS_TUPLE; + /*_.VALROUT___V861*/ curfptr[860] = (void*)&cdat->drout_799__EXPAND_PAIRLIST_AS_TUPLE; cdat->drout_799__EXPAND_PAIRLIST_AS_TUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_799__EXPAND_PAIRLIST_AS_TUPLE.routdescr, "EXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.bysl:550", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_799__EXPAND_PAIRLIST_AS_TUPLE.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_799__EXPAND_PAIRLIST_AS_TUPLE, rout_3_EXPAND_PAIRLIST_AS_TUPLE); /*iniclos dclo_800__EXPAND_PAIRLIST_AS_TUPLE*/ - /*_.VALCLO___V859*/ curfptr[858] = (void*)&cdat->dclo_800__EXPAND_PAIRLIST_AS_TUPLE; + /*_.VALCLO___V860*/ curfptr[859] = (void*)&cdat->dclo_800__EXPAND_PAIRLIST_AS_TUPLE; cdat->dclo_800__EXPAND_PAIRLIST_AS_TUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_800__EXPAND_PAIRLIST_AS_TUPLE.nbval = 0; /*inirout drout_801__EXPAND_APPLY*/ - /*_.VALROUT___V871*/ curfptr[870] = (void*)&cdat->drout_801__EXPAND_APPLY; + /*_.VALROUT___V872*/ curfptr[871] = (void*)&cdat->drout_801__EXPAND_APPLY; cdat->drout_801__EXPAND_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_801__EXPAND_APPLY.routdescr, "EXPAND_APPLY @warmelt-macro.bysl:570", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_801__EXPAND_APPLY.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_801__EXPAND_APPLY, rout_4_EXPAND_APPLY); /*iniclos dclo_802__EXPAND_APPLY*/ - /*_.VALCLO___V870*/ curfptr[869] = (void*)&cdat->dclo_802__EXPAND_APPLY; + /*_.VALCLO___V871*/ curfptr[870] = (void*)&cdat->dclo_802__EXPAND_APPLY; cdat->dclo_802__EXPAND_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_802__EXPAND_APPLY.nbval = 0; /*inirout drout_803__EXPAND_MSEND*/ - /*_.VALROUT___V858*/ curfptr[857] = (void*)&cdat->drout_803__EXPAND_MSEND; + /*_.VALROUT___V859*/ curfptr[858] = (void*)&cdat->drout_803__EXPAND_MSEND; cdat->drout_803__EXPAND_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_803__EXPAND_MSEND.routdescr, "EXPAND_MSEND @warmelt-macro.bysl:589", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_803__EXPAND_MSEND.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_803__EXPAND_MSEND, rout_5_EXPAND_MSEND); /*iniclos dclo_804__EXPAND_MSEND*/ - /*_.VALCLO___V857*/ curfptr[856] = (void*)&cdat->dclo_804__EXPAND_MSEND; + /*_.VALCLO___V858*/ curfptr[857] = (void*)&cdat->dclo_804__EXPAND_MSEND; cdat->dclo_804__EXPAND_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_804__EXPAND_MSEND.nbval = 0; /*iniobj dsym_805__CLASS_SYMBOL*/ - if (!/*_.VALDATA___V882*/ curfptr[881]) /*_.VALDATA___V882*/ curfptr[881] = (void*)&cdat->dsym_805__CLASS_SYMBOL; + if (!/*_.VALDATA___V883*/ curfptr[882]) /*_.VALDATA___V883*/ curfptr[882] = (void*)&cdat->dsym_805__CLASS_SYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_805__CLASS_SYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_805__CLASS_SYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_805__CLASS_SYMBOL.obj_hash = 53524182; @@ -49549,12 +51104,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_797__DISCR_MULTIPLE basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_805__CLASS_SYMBOL)); /*inistring dstr_806__CLASS_SYMBOL*/ - /*_.VALSTR___V883*/ curfptr[882] = (void*)&cdat->dstr_806__CLASS_SYMBOL; + /*_.VALSTR___V884*/ curfptr[883] = (void*)&cdat->dstr_806__CLASS_SYMBOL; cdat->dstr_806__CLASS_SYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_806__CLASS_SYMBOL.val, "CLASS_SYMBOL"); /*iniobj dsym_807__DEBUG_MSG_FUN*/ - if (!/*_.VALDATA___V884*/ curfptr[883]) /*_.VALDATA___V884*/ curfptr[883] = (void*)&cdat->dsym_807__DEBUG_MSG_FUN; + if (!/*_.VALDATA___V885*/ curfptr[884]) /*_.VALDATA___V885*/ curfptr[884] = (void*)&cdat->dsym_807__DEBUG_MSG_FUN; basilys_assertmsg("iniobj checkdiscr dsym_807__DEBUG_MSG_FUN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_807__DEBUG_MSG_FUN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_807__DEBUG_MSG_FUN.obj_hash = 938829072; @@ -49562,24 +51117,24 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_805__CLASS_SYMBOL)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_807__DEBUG_MSG_FUN)); /*inistring dstr_808__DEBUG_MSG_FUN*/ - /*_.VALSTR___V885*/ curfptr[884] = (void*)&cdat->dstr_808__DEBUG_MSG_FUN; + /*_.VALSTR___V886*/ curfptr[885] = (void*)&cdat->dstr_808__DEBUG_MSG_FUN; cdat->dstr_808__DEBUG_MSG_FUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_808__DEBUG_MSG_FUN.val, "DEBUG_MSG_FUN"); /*inirout drout_809__EXPAND_CITERATION*/ - /*_.VALROUT___V865*/ curfptr[864] = (void*)&cdat->drout_809__EXPAND_CITERATION; + /*_.VALROUT___V866*/ curfptr[865] = (void*)&cdat->drout_809__EXPAND_CITERATION; cdat->drout_809__EXPAND_CITERATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_809__EXPAND_CITERATION.routdescr, "EXPAND_CITERATION @warmelt-macro.bysl:619", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_809__EXPAND_CITERATION.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_809__EXPAND_CITERATION, rout_6_EXPAND_CITERATION); /*iniclos dclo_810__EXPAND_CITERATION*/ - /*_.VALCLO___V864*/ curfptr[863] = (void*)&cdat->dclo_810__EXPAND_CITERATION; + /*_.VALCLO___V865*/ curfptr[864] = (void*)&cdat->dclo_810__EXPAND_CITERATION; cdat->dclo_810__EXPAND_CITERATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_810__EXPAND_CITERATION.nbval = 0; /*iniobj dsym_811__CLASS_CITERATOR*/ - if (!/*_.VALDATA___V886*/ curfptr[885]) /*_.VALDATA___V886*/ curfptr[885] = (void*)&cdat->dsym_811__CLASS_CITERATOR; + if (!/*_.VALDATA___V887*/ curfptr[886]) /*_.VALDATA___V887*/ curfptr[886] = (void*)&cdat->dsym_811__CLASS_CITERATOR; basilys_assertmsg("iniobj checkdiscr dsym_811__CLASS_CITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_811__CLASS_CITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_811__CLASS_CITERATOR.obj_hash = 650290054; @@ -49587,24 +51142,24 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_807__DEBUG_MSG_FUN) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_811__CLASS_CITERATOR)); /*inistring dstr_812__CLASS_CITERATOR*/ - /*_.VALSTR___V887*/ curfptr[886] = (void*)&cdat->dstr_812__CLASS_CITERATOR; + /*_.VALSTR___V888*/ curfptr[887] = (void*)&cdat->dstr_812__CLASS_CITERATOR; cdat->dstr_812__CLASS_CITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_812__CLASS_CITERATOR.val, "CLASS_CITERATOR"); /*inirout drout_813__EXPAND_CMATCHEXPR*/ - /*_.VALROUT___V869*/ curfptr[868] = (void*)&cdat->drout_813__EXPAND_CMATCHEXPR; + /*_.VALROUT___V870*/ curfptr[869] = (void*)&cdat->drout_813__EXPAND_CMATCHEXPR; cdat->drout_813__EXPAND_CMATCHEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_813__EXPAND_CMATCHEXPR.routdescr, "EXPAND_CMATCHEXPR @warmelt-macro.bysl:677", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_813__EXPAND_CMATCHEXPR.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_813__EXPAND_CMATCHEXPR, rout_7_EXPAND_CMATCHEXPR); /*iniclos dclo_814__EXPAND_CMATCHEXPR*/ - /*_.VALCLO___V868*/ curfptr[867] = (void*)&cdat->dclo_814__EXPAND_CMATCHEXPR; + /*_.VALCLO___V869*/ curfptr[868] = (void*)&cdat->dclo_814__EXPAND_CMATCHEXPR; cdat->dclo_814__EXPAND_CMATCHEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_814__EXPAND_CMATCHEXPR.nbval = 0; /*iniobj dsym_815__CLASS_CMATCHER*/ - if (!/*_.VALDATA___V888*/ curfptr[887]) /*_.VALDATA___V888*/ curfptr[887] = (void*)&cdat->dsym_815__CLASS_CMATCHER; + if (!/*_.VALDATA___V889*/ curfptr[888]) /*_.VALDATA___V889*/ curfptr[888] = (void*)&cdat->dsym_815__CLASS_CMATCHER; basilys_assertmsg("iniobj checkdiscr dsym_815__CLASS_CMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_815__CLASS_CMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_815__CLASS_CMATCHER.obj_hash = 544975672; @@ -49612,36 +51167,36 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_811__CLASS_CITERATO basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_815__CLASS_CMATCHER)); /*inistring dstr_816__CLASS_CMATCHER*/ - /*_.VALSTR___V889*/ curfptr[888] = (void*)&cdat->dstr_816__CLASS_CMATCHER; + /*_.VALSTR___V890*/ curfptr[889] = (void*)&cdat->dstr_816__CLASS_CMATCHER; cdat->dstr_816__CLASS_CMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_816__CLASS_CMATCHER.val, "CLASS_CMATCHER"); /*inirout drout_817__EXPAND_KEYWORDFUN*/ - /*_.VALROUT___V877*/ curfptr[876] = (void*)&cdat->drout_817__EXPAND_KEYWORDFUN; + /*_.VALROUT___V878*/ curfptr[877] = (void*)&cdat->drout_817__EXPAND_KEYWORDFUN; cdat->drout_817__EXPAND_KEYWORDFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_817__EXPAND_KEYWORDFUN.routdescr, "EXPAND_KEYWORDFUN @warmelt-macro.bysl:717", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_817__EXPAND_KEYWORDFUN.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_817__EXPAND_KEYWORDFUN, rout_8_EXPAND_KEYWORDFUN); /*iniclos dclo_818__EXPAND_KEYWORDFUN*/ - /*_.VALCLO___V876*/ curfptr[875] = (void*)&cdat->dclo_818__EXPAND_KEYWORDFUN; + /*_.VALCLO___V877*/ curfptr[876] = (void*)&cdat->dclo_818__EXPAND_KEYWORDFUN; cdat->dclo_818__EXPAND_KEYWORDFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_818__EXPAND_KEYWORDFUN.nbval = 0; /*inirout drout_819__MACROEXPAND_1*/ - /*_.VALROUT___V856*/ curfptr[855] = (void*)&cdat->drout_819__MACROEXPAND_1; + /*_.VALROUT___V857*/ curfptr[856] = (void*)&cdat->drout_819__MACROEXPAND_1; cdat->drout_819__MACROEXPAND_1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_819__MACROEXPAND_1.routdescr, "MACROEXPAND_1 @warmelt-macro.bysl:725", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_819__MACROEXPAND_1.nbval = 27; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_819__MACROEXPAND_1, rout_9_MACROEXPAND_1); /*iniclos dclo_820__MACROEXPAND_1*/ - /*_.VALCLO___V855*/ curfptr[854] = (void*)&cdat->dclo_820__MACROEXPAND_1; + /*_.VALCLO___V856*/ curfptr[855] = (void*)&cdat->dclo_820__MACROEXPAND_1; cdat->dclo_820__MACROEXPAND_1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_820__MACROEXPAND_1.nbval = 0; /*iniobj dsym_821__FIND_ENV*/ - if (!/*_.VALDATA___V890*/ curfptr[889]) /*_.VALDATA___V890*/ curfptr[889] = (void*)&cdat->dsym_821__FIND_ENV; + if (!/*_.VALDATA___V891*/ curfptr[890]) /*_.VALDATA___V891*/ curfptr[890] = (void*)&cdat->dsym_821__FIND_ENV; basilys_assertmsg("iniobj checkdiscr dsym_821__FIND_ENV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_821__FIND_ENV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_821__FIND_ENV.obj_hash = 233459738; @@ -49649,12 +51204,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_815__CLASS_CMATCHER basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_821__FIND_ENV)); /*inistring dstr_822__FIND_ENV*/ - /*_.VALSTR___V891*/ curfptr[890] = (void*)&cdat->dstr_822__FIND_ENV; + /*_.VALSTR___V892*/ curfptr[891] = (void*)&cdat->dstr_822__FIND_ENV; cdat->dstr_822__FIND_ENV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_822__FIND_ENV.val, "FIND_ENV"); /*iniobj dsym_823__CLASS_MACRO_BINDING*/ - if (!/*_.VALDATA___V892*/ curfptr[891]) /*_.VALDATA___V892*/ curfptr[891] = (void*)&cdat->dsym_823__CLASS_MACRO_BINDING; + if (!/*_.VALDATA___V893*/ curfptr[892]) /*_.VALDATA___V893*/ curfptr[892] = (void*)&cdat->dsym_823__CLASS_MACRO_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_823__CLASS_MACRO_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_823__CLASS_MACRO_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_823__CLASS_MACRO_BINDING.obj_hash = 628198824; @@ -49662,12 +51217,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_821__FIND_ENV)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_823__CLASS_MACRO_BINDING)); /*inistring dstr_824__CLASS_MACRO_BIND*/ - /*_.VALSTR___V893*/ curfptr[892] = (void*)&cdat->dstr_824__CLASS_MACRO_BIND; + /*_.VALSTR___V894*/ curfptr[893] = (void*)&cdat->dstr_824__CLASS_MACRO_BIND; cdat->dstr_824__CLASS_MACRO_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_824__CLASS_MACRO_BIND.val, "CLASS_MACRO_BINDING"); /*iniobj dsym_825__CLASS_SELECTOR_BINDING*/ - if (!/*_.VALDATA___V894*/ curfptr[893]) /*_.VALDATA___V894*/ curfptr[893] = (void*)&cdat->dsym_825__CLASS_SELECTOR_BINDING; + if (!/*_.VALDATA___V895*/ curfptr[894]) /*_.VALDATA___V895*/ curfptr[894] = (void*)&cdat->dsym_825__CLASS_SELECTOR_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_825__CLASS_SELECTOR_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_825__CLASS_SELECTOR_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_825__CLASS_SELECTOR_BINDING.obj_hash = 80713028; @@ -49675,12 +51230,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_823__CLASS_MACRO_BI basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_825__CLASS_SELECTOR_BINDING)); /*inistring dstr_826__CLASS_SELECTOR_B*/ - /*_.VALSTR___V895*/ curfptr[894] = (void*)&cdat->dstr_826__CLASS_SELECTOR_B; + /*_.VALSTR___V896*/ curfptr[895] = (void*)&cdat->dstr_826__CLASS_SELECTOR_B; cdat->dstr_826__CLASS_SELECTOR_B.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_826__CLASS_SELECTOR_B.val, "CLASS_SELECTOR_BINDING"); /*iniobj dsym_827__CLASS_PRIMITIVE_BINDING*/ - if (!/*_.VALDATA___V896*/ curfptr[895]) /*_.VALDATA___V896*/ curfptr[895] = (void*)&cdat->dsym_827__CLASS_PRIMITIVE_BINDING; + if (!/*_.VALDATA___V897*/ curfptr[896]) /*_.VALDATA___V897*/ curfptr[896] = (void*)&cdat->dsym_827__CLASS_PRIMITIVE_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_827__CLASS_PRIMITIVE_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_827__CLASS_PRIMITIVE_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_827__CLASS_PRIMITIVE_BINDING.obj_hash = 648418829; @@ -49688,12 +51243,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_825__CLASS_SELECTOR basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_827__CLASS_PRIMITIVE_BINDING)); /*inistring dstr_828__CLASS_PRIMITIVE_*/ - /*_.VALSTR___V897*/ curfptr[896] = (void*)&cdat->dstr_828__CLASS_PRIMITIVE_; + /*_.VALSTR___V898*/ curfptr[897] = (void*)&cdat->dstr_828__CLASS_PRIMITIVE_; cdat->dstr_828__CLASS_PRIMITIVE_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_828__CLASS_PRIMITIVE_.val, "CLASS_PRIMITIVE_BINDING"); /*iniobj dsym_829__CLASS_CITERATOR_BINDING*/ - if (!/*_.VALDATA___V898*/ curfptr[897]) /*_.VALDATA___V898*/ curfptr[897] = (void*)&cdat->dsym_829__CLASS_CITERATOR_BINDING; + if (!/*_.VALDATA___V899*/ curfptr[898]) /*_.VALDATA___V899*/ curfptr[898] = (void*)&cdat->dsym_829__CLASS_CITERATOR_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_829__CLASS_CITERATOR_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_829__CLASS_CITERATOR_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_829__CLASS_CITERATOR_BINDING.obj_hash = 241925087; @@ -49701,12 +51256,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_827__CLASS_PRIMITIV basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_829__CLASS_CITERATOR_BINDING)); /*inistring dstr_830__CLASS_CITERATOR_*/ - /*_.VALSTR___V899*/ curfptr[898] = (void*)&cdat->dstr_830__CLASS_CITERATOR_; + /*_.VALSTR___V900*/ curfptr[899] = (void*)&cdat->dstr_830__CLASS_CITERATOR_; cdat->dstr_830__CLASS_CITERATOR_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_830__CLASS_CITERATOR_.val, "CLASS_CITERATOR_BINDING"); /*iniobj dsym_831__CLASS_CMATCHER_BINDING*/ - if (!/*_.VALDATA___V900*/ curfptr[899]) /*_.VALDATA___V900*/ curfptr[899] = (void*)&cdat->dsym_831__CLASS_CMATCHER_BINDING; + if (!/*_.VALDATA___V901*/ curfptr[900]) /*_.VALDATA___V901*/ curfptr[900] = (void*)&cdat->dsym_831__CLASS_CMATCHER_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_831__CLASS_CMATCHER_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_831__CLASS_CMATCHER_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_831__CLASS_CMATCHER_BINDING.obj_hash = 386982082; @@ -49714,12 +51269,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_829__CLASS_CITERATO basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_831__CLASS_CMATCHER_BINDING)); /*inistring dstr_832__CLASS_CMATCHER_B*/ - /*_.VALSTR___V901*/ curfptr[900] = (void*)&cdat->dstr_832__CLASS_CMATCHER_B; + /*_.VALSTR___V902*/ curfptr[901] = (void*)&cdat->dstr_832__CLASS_CMATCHER_B; cdat->dstr_832__CLASS_CMATCHER_B.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_832__CLASS_CMATCHER_B.val, "CLASS_CMATCHER_BINDING"); /*iniobj dsym_833__CLASS_FUNMATCHER_BINDING*/ - if (!/*_.VALDATA___V902*/ curfptr[901]) /*_.VALDATA___V902*/ curfptr[901] = (void*)&cdat->dsym_833__CLASS_FUNMATCHER_BINDING; + if (!/*_.VALDATA___V903*/ curfptr[902]) /*_.VALDATA___V903*/ curfptr[902] = (void*)&cdat->dsym_833__CLASS_FUNMATCHER_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_833__CLASS_FUNMATCHER_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_833__CLASS_FUNMATCHER_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_833__CLASS_FUNMATCHER_BINDING.obj_hash = 81554237; @@ -49727,12 +51282,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_831__CLASS_CMATCHER basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_833__CLASS_FUNMATCHER_BINDING)); /*inistring dstr_834__CLASS_FUNMATCHER*/ - /*_.VALSTR___V903*/ curfptr[902] = (void*)&cdat->dstr_834__CLASS_FUNMATCHER; + /*_.VALSTR___V904*/ curfptr[903] = (void*)&cdat->dstr_834__CLASS_FUNMATCHER; cdat->dstr_834__CLASS_FUNMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_834__CLASS_FUNMATCHER.val, "CLASS_FUNMATCHER_BINDING"); /*iniobj dsym_835__CLASS_VALUE_BINDING*/ - if (!/*_.VALDATA___V904*/ curfptr[903]) /*_.VALDATA___V904*/ curfptr[903] = (void*)&cdat->dsym_835__CLASS_VALUE_BINDING; + if (!/*_.VALDATA___V905*/ curfptr[904]) /*_.VALDATA___V905*/ curfptr[904] = (void*)&cdat->dsym_835__CLASS_VALUE_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_835__CLASS_VALUE_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_835__CLASS_VALUE_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_835__CLASS_VALUE_BINDING.obj_hash = 952021086; @@ -49740,12 +51295,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_833__CLASS_FUNMATCH basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_835__CLASS_VALUE_BINDING)); /*inistring dstr_836__CLASS_VALUE_BIND*/ - /*_.VALSTR___V905*/ curfptr[904] = (void*)&cdat->dstr_836__CLASS_VALUE_BIND; + /*_.VALSTR___V906*/ curfptr[905] = (void*)&cdat->dstr_836__CLASS_VALUE_BIND; cdat->dstr_836__CLASS_VALUE_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_836__CLASS_VALUE_BIND.val, "CLASS_VALUE_BINDING"); /*iniobj dsym_837__CLASS_PRIMITIVE*/ - if (!/*_.VALDATA___V906*/ curfptr[905]) /*_.VALDATA___V906*/ curfptr[905] = (void*)&cdat->dsym_837__CLASS_PRIMITIVE; + if (!/*_.VALDATA___V907*/ curfptr[906]) /*_.VALDATA___V907*/ curfptr[906] = (void*)&cdat->dsym_837__CLASS_PRIMITIVE; basilys_assertmsg("iniobj checkdiscr dsym_837__CLASS_PRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_837__CLASS_PRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_837__CLASS_PRIMITIVE.obj_hash = 102527506; @@ -49753,12 +51308,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_835__CLASS_VALUE_BI basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_837__CLASS_PRIMITIVE)); /*inistring dstr_838__CLASS_PRIMITIVE*/ - /*_.VALSTR___V907*/ curfptr[906] = (void*)&cdat->dstr_838__CLASS_PRIMITIVE; + /*_.VALSTR___V908*/ curfptr[907] = (void*)&cdat->dstr_838__CLASS_PRIMITIVE; cdat->dstr_838__CLASS_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_838__CLASS_PRIMITIVE.val, "CLASS_PRIMITIVE"); /*iniobj dsym_839__CLASS_SELECTOR*/ - if (!/*_.VALDATA___V908*/ curfptr[907]) /*_.VALDATA___V908*/ curfptr[907] = (void*)&cdat->dsym_839__CLASS_SELECTOR; + if (!/*_.VALDATA___V909*/ curfptr[908]) /*_.VALDATA___V909*/ curfptr[908] = (void*)&cdat->dsym_839__CLASS_SELECTOR; basilys_assertmsg("iniobj checkdiscr dsym_839__CLASS_SELECTOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_839__CLASS_SELECTOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_839__CLASS_SELECTOR.obj_hash = 100646971; @@ -49766,12 +51321,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_837__CLASS_PRIMITIV basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_839__CLASS_SELECTOR)); /*inistring dstr_840__CLASS_SELECTOR*/ - /*_.VALSTR___V909*/ curfptr[908] = (void*)&cdat->dstr_840__CLASS_SELECTOR; + /*_.VALSTR___V910*/ curfptr[909] = (void*)&cdat->dstr_840__CLASS_SELECTOR; cdat->dstr_840__CLASS_SELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_840__CLASS_SELECTOR.val, "CLASS_SELECTOR"); /*iniobj dsym_841__CLASS_FUNMATCHER*/ - if (!/*_.VALDATA___V910*/ curfptr[909]) /*_.VALDATA___V910*/ curfptr[909] = (void*)&cdat->dsym_841__CLASS_FUNMATCHER; + if (!/*_.VALDATA___V911*/ curfptr[910]) /*_.VALDATA___V911*/ curfptr[910] = (void*)&cdat->dsym_841__CLASS_FUNMATCHER; basilys_assertmsg("iniobj checkdiscr dsym_841__CLASS_FUNMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_841__CLASS_FUNMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_841__CLASS_FUNMATCHER.obj_hash = 197743893; @@ -49779,12 +51334,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_839__CLASS_SELECTOR basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_841__CLASS_FUNMATCHER)); /*inistring dstr_842__CLASS_FUNMATCHER*/ - /*_.VALSTR___V911*/ curfptr[910] = (void*)&cdat->dstr_842__CLASS_FUNMATCHER; + /*_.VALSTR___V912*/ curfptr[911] = (void*)&cdat->dstr_842__CLASS_FUNMATCHER; cdat->dstr_842__CLASS_FUNMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_842__CLASS_FUNMATCHER.val, "CLASS_FUNMATCHER"); /*iniobj dsym_843__DEFUN*/ - if (!/*_.VALDATA___V872*/ curfptr[871]) /*_.VALDATA___V872*/ curfptr[871] = (void*)&cdat->dsym_843__DEFUN; + if (!/*_.VALDATA___V873*/ curfptr[872]) /*_.VALDATA___V873*/ curfptr[872] = (void*)&cdat->dsym_843__DEFUN; basilys_assertmsg("iniobj checkdiscr dsym_843__DEFUN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_843__DEFUN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_843__DEFUN.obj_hash = 98259022; @@ -49792,12 +51347,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_841__CLASS_FUNMATCH basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_843__DEFUN)); /*inistring dstr_844__DEFUN*/ - /*_.VALSTR___V873*/ curfptr[872] = (void*)&cdat->dstr_844__DEFUN; + /*_.VALSTR___V874*/ curfptr[873] = (void*)&cdat->dstr_844__DEFUN; cdat->dstr_844__DEFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_844__DEFUN.val, "DEFUN"); /*iniobj dsym_845__DEFCLASS*/ - if (!/*_.VALDATA___V874*/ curfptr[873]) /*_.VALDATA___V874*/ curfptr[873] = (void*)&cdat->dsym_845__DEFCLASS; + if (!/*_.VALDATA___V875*/ curfptr[874]) /*_.VALDATA___V875*/ curfptr[874] = (void*)&cdat->dsym_845__DEFCLASS; basilys_assertmsg("iniobj checkdiscr dsym_845__DEFCLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_845__DEFCLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_845__DEFCLASS.obj_hash = 67702184; @@ -49805,12 +51360,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_843__DEFUN)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_845__DEFCLASS)); /*inistring dstr_846__DEFCLASS*/ - /*_.VALSTR___V875*/ curfptr[874] = (void*)&cdat->dstr_846__DEFCLASS; + /*_.VALSTR___V876*/ curfptr[875] = (void*)&cdat->dstr_846__DEFCLASS; cdat->dstr_846__DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_846__DEFCLASS.val, "DEFCLASS"); /*iniobj dsym_847__CLASS_KEYWORD*/ - if (!/*_.VALDATA___V912*/ curfptr[911]) /*_.VALDATA___V912*/ curfptr[911] = (void*)&cdat->dsym_847__CLASS_KEYWORD; + if (!/*_.VALDATA___V913*/ curfptr[912]) /*_.VALDATA___V913*/ curfptr[912] = (void*)&cdat->dsym_847__CLASS_KEYWORD; basilys_assertmsg("iniobj checkdiscr dsym_847__CLASS_KEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_847__CLASS_KEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_847__CLASS_KEYWORD.obj_hash = 14992133; @@ -49818,24 +51373,24 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_845__DEFCLASS)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_847__CLASS_KEYWORD)); /*inistring dstr_848__CLASS_KEYWORD*/ - /*_.VALSTR___V913*/ curfptr[912] = (void*)&cdat->dstr_848__CLASS_KEYWORD; + /*_.VALSTR___V914*/ curfptr[913] = (void*)&cdat->dstr_848__CLASS_KEYWORD; cdat->dstr_848__CLASS_KEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_848__CLASS_KEYWORD.val, "CLASS_KEYWORD"); /*inirout drout_849__EXPAND_PRIMITIVE*/ - /*_.VALROUT___V862*/ curfptr[861] = (void*)&cdat->drout_849__EXPAND_PRIMITIVE; + /*_.VALROUT___V863*/ curfptr[862] = (void*)&cdat->drout_849__EXPAND_PRIMITIVE; cdat->drout_849__EXPAND_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_849__EXPAND_PRIMITIVE.routdescr, "EXPAND_PRIMITIVE @warmelt-macro.bysl:839", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_849__EXPAND_PRIMITIVE.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_849__EXPAND_PRIMITIVE, rout_10_EXPAND_PRIMITIVE); /*iniclos dclo_850__EXPAND_PRIMITIVE*/ - /*_.VALCLO___V861*/ curfptr[860] = (void*)&cdat->dclo_850__EXPAND_PRIMITIVE; + /*_.VALCLO___V862*/ curfptr[861] = (void*)&cdat->dclo_850__EXPAND_PRIMITIVE; cdat->dclo_850__EXPAND_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_850__EXPAND_PRIMITIVE.nbval = 0; /*iniobj dsym_851__CLASS_PATTEXPCONTEXT*/ - if (!/*_.VALDATA___V914*/ curfptr[913]) /*_.VALDATA___V914*/ curfptr[913] = (void*)&cdat->dsym_851__CLASS_PATTEXPCONTEXT; + if (!/*_.VALDATA___V915*/ curfptr[914]) /*_.VALDATA___V915*/ curfptr[914] = (void*)&cdat->dsym_851__CLASS_PATTEXPCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_851__CLASS_PATTEXPCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_851__CLASS_PATTEXPCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_851__CLASS_PATTEXPCONTEXT.obj_hash = 327293069; @@ -49843,12 +51398,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_847__CLASS_KEYWORD) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_851__CLASS_PATTEXPCONTEXT)); /*inistring dstr_852__CLASS_PATTEXPCON*/ - /*_.VALSTR___V915*/ curfptr[914] = (void*)&cdat->dstr_852__CLASS_PATTEXPCON; + /*_.VALSTR___V916*/ curfptr[915] = (void*)&cdat->dstr_852__CLASS_PATTEXPCON; cdat->dstr_852__CLASS_PATTEXPCON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_852__CLASS_PATTEXPCON.val, "CLASS_PATTEXPCONTEXT"); /*iniobj dsym_853__CLASS_ROOT*/ - if (!/*_.VALDATA___V916*/ curfptr[915]) /*_.VALDATA___V916*/ curfptr[915] = (void*)&cdat->dsym_853__CLASS_ROOT; + if (!/*_.VALDATA___V917*/ curfptr[916]) /*_.VALDATA___V917*/ curfptr[916] = (void*)&cdat->dsym_853__CLASS_ROOT; basilys_assertmsg("iniobj checkdiscr dsym_853__CLASS_ROOT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_853__CLASS_ROOT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_853__CLASS_ROOT.obj_hash = 60568825; @@ -49856,35 +51411,35 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_851__CLASS_PATTEXPC basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_853__CLASS_ROOT)); /*inistring dstr_854__CLASS_ROOT*/ - /*_.VALSTR___V917*/ curfptr[916] = (void*)&cdat->dstr_854__CLASS_ROOT; + /*_.VALSTR___V918*/ curfptr[917] = (void*)&cdat->dstr_854__CLASS_ROOT; cdat->dstr_854__CLASS_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_854__CLASS_ROOT.val, "CLASS_ROOT"); BASILYS_LOCATION("warmelt-macro.bysl:856:/ iniobj"); /*iniobj dobj_855__CLASS_PATTEXPCONTEXT*/ - if (!/*_.VALDATA___V918*/ curfptr[917]) /*_.VALDATA___V918*/ curfptr[917] = (void*)&cdat->dobj_855__CLASS_PATTEXPCONTEXT; + if (!/*_.VALDATA___V919*/ curfptr[918]) /*_.VALDATA___V919*/ curfptr[918] = (void*)&cdat->dobj_855__CLASS_PATTEXPCONTEXT; basilys_assertmsg("iniobj checkdiscr dobj_855__CLASS_PATTEXPCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_855__CLASS_PATTEXPCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_855__CLASS_PATTEXPCONTEXT.obj_num = OBMAG_OBJECT; - cdat->dobj_855__CLASS_PATTEXPCONTEXT.obj_hash = 249096482; + cdat->dobj_855__CLASS_PATTEXPCONTEXT.obj_hash = 757600310; cdat->dobj_855__CLASS_PATTEXPCONTEXT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_855__CLASS_PATTEXPCONTEXT)); /*inistring dstr_856__CLASS_PATTEXPCON*/ - /*_.VALSTR___V919*/ curfptr[918] = (void*)&cdat->dstr_856__CLASS_PATTEXPCON; + /*_.VALSTR___V920*/ curfptr[919] = (void*)&cdat->dstr_856__CLASS_PATTEXPCON; cdat->dstr_856__CLASS_PATTEXPCON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_856__CLASS_PATTEXPCON.val, "CLASS_PATTEXPCONTEXT"); /*inimult dtup_857__CLASS_PATTEXPCONTEXT*/ - /*_.VALTUP___V920*/ curfptr[919] = (void*)&cdat->dtup_857__CLASS_PATTEXPCONTEXT; + /*_.VALTUP___V921*/ curfptr[920] = (void*)&cdat->dtup_857__CLASS_PATTEXPCONTEXT; cdat->dtup_857__CLASS_PATTEXPCONTEXT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_857__CLASS_PATTEXPCONTEXT.nbval = 1; /*inimult dtup_858__CLASS_PATTEXPCONTEXT*/ - /*_.VALTUP___V927*/ curfptr[926] = (void*)&cdat->dtup_858__CLASS_PATTEXPCONTEXT; + /*_.VALTUP___V928*/ curfptr[927] = (void*)&cdat->dtup_858__CLASS_PATTEXPCONTEXT; cdat->dtup_858__CLASS_PATTEXPCONTEXT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_858__CLASS_PATTEXPCONTEXT.nbval = 3; /*iniobj dsym_859__PCTX_MEXPANDER*/ - if (!/*_.VALDATA___V928*/ curfptr[927]) /*_.VALDATA___V928*/ curfptr[927] = (void*)&cdat->dsym_859__PCTX_MEXPANDER; + if (!/*_.VALDATA___V929*/ curfptr[928]) /*_.VALDATA___V929*/ curfptr[928] = (void*)&cdat->dsym_859__PCTX_MEXPANDER; basilys_assertmsg("iniobj checkdiscr dsym_859__PCTX_MEXPANDER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_859__PCTX_MEXPANDER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_859__PCTX_MEXPANDER.obj_hash = 715065668; @@ -49892,27 +51447,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_855__CLASS_PATTEXPC basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_859__PCTX_MEXPANDER)); /*inistring dstr_860__PCTX_MEXPANDER*/ - /*_.VALSTR___V929*/ curfptr[928] = (void*)&cdat->dstr_860__PCTX_MEXPANDER; + /*_.VALSTR___V930*/ curfptr[929] = (void*)&cdat->dstr_860__PCTX_MEXPANDER; cdat->dstr_860__PCTX_MEXPANDER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_860__PCTX_MEXPANDER.val, "PCTX_MEXPANDER"); BASILYS_LOCATION("warmelt-macro.bysl:856:/ iniobj"); /*iniobj dobj_861__PCTX_MEXPANDER*/ - if (!/*_.VALDATA___V921*/ curfptr[920]) /*_.VALDATA___V921*/ curfptr[920] = (void*)&cdat->dobj_861__PCTX_MEXPANDER; + if (!/*_.VALDATA___V922*/ curfptr[921]) /*_.VALDATA___V922*/ curfptr[921] = (void*)&cdat->dobj_861__PCTX_MEXPANDER; basilys_assertmsg("iniobj checkdiscr dobj_861__PCTX_MEXPANDER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_861__PCTX_MEXPANDER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_861__PCTX_MEXPANDER.obj_num = 0; - cdat->dobj_861__PCTX_MEXPANDER.obj_hash = 360476299; + cdat->dobj_861__PCTX_MEXPANDER.obj_hash = 846811718; cdat->dobj_861__PCTX_MEXPANDER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_861__PCTX_MEXPANDER)); /*inistring dstr_862__PCTX_MEXPANDER*/ - /*_.VALSTR___V922*/ curfptr[921] = (void*)&cdat->dstr_862__PCTX_MEXPANDER; + /*_.VALSTR___V923*/ curfptr[922] = (void*)&cdat->dstr_862__PCTX_MEXPANDER; cdat->dstr_862__PCTX_MEXPANDER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_862__PCTX_MEXPANDER.val, "PCTX_MEXPANDER"); /*iniobj dsym_863__PCTX_PEXPANDER*/ - if (!/*_.VALDATA___V930*/ curfptr[929]) /*_.VALDATA___V930*/ curfptr[929] = (void*)&cdat->dsym_863__PCTX_PEXPANDER; + if (!/*_.VALDATA___V931*/ curfptr[930]) /*_.VALDATA___V931*/ curfptr[930] = (void*)&cdat->dsym_863__PCTX_PEXPANDER; basilys_assertmsg("iniobj checkdiscr dsym_863__PCTX_PEXPANDER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_863__PCTX_PEXPANDER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_863__PCTX_PEXPANDER.obj_hash = 169945608; @@ -49920,27 +51475,27 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_861__PCTX_MEXPANDER basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_863__PCTX_PEXPANDER)); /*inistring dstr_864__PCTX_PEXPANDER*/ - /*_.VALSTR___V931*/ curfptr[930] = (void*)&cdat->dstr_864__PCTX_PEXPANDER; + /*_.VALSTR___V932*/ curfptr[931] = (void*)&cdat->dstr_864__PCTX_PEXPANDER; cdat->dstr_864__PCTX_PEXPANDER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_864__PCTX_PEXPANDER.val, "PCTX_PEXPANDER"); BASILYS_LOCATION("warmelt-macro.bysl:856:/ iniobj"); /*iniobj dobj_865__PCTX_PEXPANDER*/ - if (!/*_.VALDATA___V923*/ curfptr[922]) /*_.VALDATA___V923*/ curfptr[922] = (void*)&cdat->dobj_865__PCTX_PEXPANDER; + if (!/*_.VALDATA___V924*/ curfptr[923]) /*_.VALDATA___V924*/ curfptr[923] = (void*)&cdat->dobj_865__PCTX_PEXPANDER; basilys_assertmsg("iniobj checkdiscr dobj_865__PCTX_PEXPANDER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_865__PCTX_PEXPANDER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_865__PCTX_PEXPANDER.obj_num = 1; - cdat->dobj_865__PCTX_PEXPANDER.obj_hash = 293375607; + cdat->dobj_865__PCTX_PEXPANDER.obj_hash = 699016563; cdat->dobj_865__PCTX_PEXPANDER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_865__PCTX_PEXPANDER)); /*inistring dstr_866__PCTX_PEXPANDER*/ - /*_.VALSTR___V924*/ curfptr[923] = (void*)&cdat->dstr_866__PCTX_PEXPANDER; + /*_.VALSTR___V925*/ curfptr[924] = (void*)&cdat->dstr_866__PCTX_PEXPANDER; cdat->dstr_866__PCTX_PEXPANDER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_866__PCTX_PEXPANDER.val, "PCTX_PEXPANDER"); /*iniobj dsym_867__PCTX_VARMAP*/ - if (!/*_.VALDATA___V932*/ curfptr[931]) /*_.VALDATA___V932*/ curfptr[931] = (void*)&cdat->dsym_867__PCTX_VARMAP; + if (!/*_.VALDATA___V933*/ curfptr[932]) /*_.VALDATA___V933*/ curfptr[932] = (void*)&cdat->dsym_867__PCTX_VARMAP; basilys_assertmsg("iniobj checkdiscr dsym_867__PCTX_VARMAP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_867__PCTX_VARMAP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_867__PCTX_VARMAP.obj_hash = 83805471; @@ -49948,39 +51503,39 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_865__PCTX_PEXPANDER basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_867__PCTX_VARMAP)); /*inistring dstr_868__PCTX_VARMAP*/ - /*_.VALSTR___V933*/ curfptr[932] = (void*)&cdat->dstr_868__PCTX_VARMAP; + /*_.VALSTR___V934*/ curfptr[933] = (void*)&cdat->dstr_868__PCTX_VARMAP; cdat->dstr_868__PCTX_VARMAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_868__PCTX_VARMAP.val, "PCTX_VARMAP"); BASILYS_LOCATION("warmelt-macro.bysl:856:/ iniobj"); /*iniobj dobj_869__PCTX_VARMAP*/ - if (!/*_.VALDATA___V925*/ curfptr[924]) /*_.VALDATA___V925*/ curfptr[924] = (void*)&cdat->dobj_869__PCTX_VARMAP; + if (!/*_.VALDATA___V926*/ curfptr[925]) /*_.VALDATA___V926*/ curfptr[925] = (void*)&cdat->dobj_869__PCTX_VARMAP; basilys_assertmsg("iniobj checkdiscr dobj_869__PCTX_VARMAP", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_869__PCTX_VARMAP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_869__PCTX_VARMAP.obj_num = 2; - cdat->dobj_869__PCTX_VARMAP.obj_hash = 948621343; + cdat->dobj_869__PCTX_VARMAP.obj_hash = 598364824; cdat->dobj_869__PCTX_VARMAP.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_869__PCTX_VARMAP)); /*inistring dstr_870__PCTX_VARMAP*/ - /*_.VALSTR___V926*/ curfptr[925] = (void*)&cdat->dstr_870__PCTX_VARMAP; + /*_.VALSTR___V927*/ curfptr[926] = (void*)&cdat->dstr_870__PCTX_VARMAP; cdat->dstr_870__PCTX_VARMAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_870__PCTX_VARMAP.val, "PCTX_VARMAP"); /*inirout drout_871__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ - /*_.VALROUT___V934*/ curfptr[933] = (void*)&cdat->drout_871__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + /*_.VALROUT___V935*/ curfptr[934] = (void*)&cdat->drout_871__PATTERNEXPAND_PAIRLIST_AS_TUPLE; cdat->drout_871__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_871__PATTERNEXPAND_PAIRLIST_AS_TUPLE.routdescr, "PATTERNEXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.bysl:864", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_871__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_871__PATTERNEXPAND_PAIRLIST_AS_TUPLE, rout_11_PATTERNEXPAND_PAIRLIST_AS_TUPLE); /*iniclos dclo_872__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ - /*_.VALCLO___V948*/ curfptr[947] = (void*)&cdat->dclo_872__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + /*_.VALCLO___V949*/ curfptr[948] = (void*)&cdat->dclo_872__PATTERNEXPAND_PAIRLIST_AS_TUPLE; cdat->dclo_872__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_872__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 0; /*iniobj dsym_873__PAIRLIST_TO_MULTIPLE*/ - if (!/*_.VALDATA___V949*/ curfptr[948]) /*_.VALDATA___V949*/ curfptr[948] = (void*)&cdat->dsym_873__PAIRLIST_TO_MULTIPLE; + if (!/*_.VALDATA___V950*/ curfptr[949]) /*_.VALDATA___V950*/ curfptr[949] = (void*)&cdat->dsym_873__PAIRLIST_TO_MULTIPLE; basilys_assertmsg("iniobj checkdiscr dsym_873__PAIRLIST_TO_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_873__PAIRLIST_TO_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_873__PAIRLIST_TO_MULTIPLE.obj_hash = 205669322; @@ -49988,31 +51543,31 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_869__PCTX_VARMAP)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_873__PAIRLIST_TO_MULTIPLE)); /*inistring dstr_874__PAIRLIST_TO_MULT*/ - /*_.VALSTR___V950*/ curfptr[949] = (void*)&cdat->dstr_874__PAIRLIST_TO_MULT; + /*_.VALSTR___V951*/ curfptr[950] = (void*)&cdat->dstr_874__PAIRLIST_TO_MULT; cdat->dstr_874__PAIRLIST_TO_MULT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_874__PAIRLIST_TO_MULT.val, "PAIRLIST_TO_MULTIPLE"); /*inirout drout_875__LAMBDA_*/ - /*_.VALROUT___V947*/ curfptr[946] = (void*)&cdat->drout_875__LAMBDA_; + /*_.VALROUT___V948*/ curfptr[947] = (void*)&cdat->drout_875__LAMBDA_; cdat->drout_875__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_875__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:866", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_875__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_875__LAMBDA_, rout_12_LAMBDA_); /*inirout drout_876__PATMACEXPAND_FOR_MATCHER*/ - /*_.VALROUT___V944*/ curfptr[943] = (void*)&cdat->drout_876__PATMACEXPAND_FOR_MATCHER; + /*_.VALROUT___V945*/ curfptr[944] = (void*)&cdat->drout_876__PATMACEXPAND_FOR_MATCHER; cdat->drout_876__PATMACEXPAND_FOR_MATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_876__PATMACEXPAND_FOR_MATCHER.routdescr, "PATMACEXPAND_FOR_MATCHER @warmelt-macro.bysl:873", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_876__PATMACEXPAND_FOR_MATCHER.nbval = 12; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_876__PATMACEXPAND_FOR_MATCHER, rout_13_PATMACEXPAND_FOR_MATCHER); /*iniclos dclo_877__PATMACEXPAND_FOR_MATCHER*/ - /*_.VALCLO___V943*/ curfptr[942] = (void*)&cdat->dclo_877__PATMACEXPAND_FOR_MATCHER; + /*_.VALCLO___V944*/ curfptr[943] = (void*)&cdat->dclo_877__PATMACEXPAND_FOR_MATCHER; cdat->dclo_877__PATMACEXPAND_FOR_MATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_877__PATMACEXPAND_FOR_MATCHER.nbval = 0; /*iniobj dsym_878__CLASS_ANY_MATCHER*/ - if (!/*_.VALDATA___V951*/ curfptr[950]) /*_.VALDATA___V951*/ curfptr[950] = (void*)&cdat->dsym_878__CLASS_ANY_MATCHER; + if (!/*_.VALDATA___V952*/ curfptr[951]) /*_.VALDATA___V952*/ curfptr[951] = (void*)&cdat->dsym_878__CLASS_ANY_MATCHER; basilys_assertmsg("iniobj checkdiscr dsym_878__CLASS_ANY_MATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_878__CLASS_ANY_MATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_878__CLASS_ANY_MATCHER.obj_hash = 781265508; @@ -50020,12 +51575,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_873__PAIRLIST_TO_MU basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_878__CLASS_ANY_MATCHER)); /*inistring dstr_879__CLASS_ANY_MATCHE*/ - /*_.VALSTR___V952*/ curfptr[951] = (void*)&cdat->dstr_879__CLASS_ANY_MATCHE; + /*_.VALSTR___V953*/ curfptr[952] = (void*)&cdat->dstr_879__CLASS_ANY_MATCHE; cdat->dstr_879__CLASS_ANY_MATCHE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_879__CLASS_ANY_MATCHE.val, "CLASS_ANY_MATCHER"); /*iniobj dsym_880__DISCR_BOX*/ - if (!/*_.VALDATA___V953*/ curfptr[952]) /*_.VALDATA___V953*/ curfptr[952] = (void*)&cdat->dsym_880__DISCR_BOX; + if (!/*_.VALDATA___V954*/ curfptr[953]) /*_.VALDATA___V954*/ curfptr[953] = (void*)&cdat->dsym_880__DISCR_BOX; basilys_assertmsg("iniobj checkdiscr dsym_880__DISCR_BOX", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_880__DISCR_BOX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_880__DISCR_BOX.obj_hash = 8042275; @@ -50033,12 +51588,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_878__CLASS_ANY_MATC basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_880__DISCR_BOX)); /*inistring dstr_881__DISCR_BOX*/ - /*_.VALSTR___V954*/ curfptr[953] = (void*)&cdat->dstr_881__DISCR_BOX; + /*_.VALSTR___V955*/ curfptr[954] = (void*)&cdat->dstr_881__DISCR_BOX; cdat->dstr_881__DISCR_BOX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_881__DISCR_BOX.val, "DISCR_BOX"); /*iniobj dsym_882__MULTIPLE_MAP*/ - if (!/*_.VALDATA___V955*/ curfptr[954]) /*_.VALDATA___V955*/ curfptr[954] = (void*)&cdat->dsym_882__MULTIPLE_MAP; + if (!/*_.VALDATA___V956*/ curfptr[955]) /*_.VALDATA___V956*/ curfptr[955] = (void*)&cdat->dsym_882__MULTIPLE_MAP; basilys_assertmsg("iniobj checkdiscr dsym_882__MULTIPLE_MAP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_882__MULTIPLE_MAP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_882__MULTIPLE_MAP.obj_hash = 218301686; @@ -50046,19 +51601,19 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_880__DISCR_BOX)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_882__MULTIPLE_MAP)); /*inistring dstr_883__MULTIPLE_MAP*/ - /*_.VALSTR___V956*/ curfptr[955] = (void*)&cdat->dstr_883__MULTIPLE_MAP; + /*_.VALSTR___V957*/ curfptr[956] = (void*)&cdat->dstr_883__MULTIPLE_MAP; cdat->dstr_883__MULTIPLE_MAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_883__MULTIPLE_MAP.val, "MULTIPLE_MAP"); /*inirout drout_884__LAMBDA_*/ - /*_.VALROUT___V945*/ curfptr[944] = (void*)&cdat->drout_884__LAMBDA_; + /*_.VALROUT___V946*/ curfptr[945] = (void*)&cdat->drout_884__LAMBDA_; cdat->drout_884__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_884__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:885", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_884__LAMBDA_.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_884__LAMBDA_, rout_14_LAMBDA_); /*iniobj dsym_885__CLASS_FORMAL_BINDING*/ - if (!/*_.VALDATA___V957*/ curfptr[956]) /*_.VALDATA___V957*/ curfptr[956] = (void*)&cdat->dsym_885__CLASS_FORMAL_BINDING; + if (!/*_.VALDATA___V958*/ curfptr[957]) /*_.VALDATA___V958*/ curfptr[957] = (void*)&cdat->dsym_885__CLASS_FORMAL_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_885__CLASS_FORMAL_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_885__CLASS_FORMAL_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_885__CLASS_FORMAL_BINDING.obj_hash = 3733780; @@ -50066,12 +51621,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_882__MULTIPLE_MAP)) basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_885__CLASS_FORMAL_BINDING)); /*inistring dstr_886__CLASS_FORMAL_BIN*/ - /*_.VALSTR___V958*/ curfptr[957] = (void*)&cdat->dstr_886__CLASS_FORMAL_BIN; + /*_.VALSTR___V959*/ curfptr[958] = (void*)&cdat->dstr_886__CLASS_FORMAL_BIN; cdat->dstr_886__CLASS_FORMAL_BIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_886__CLASS_FORMAL_BIN.val, "CLASS_FORMAL_BINDING"); /*iniobj dsym_887__CLASS_NAMED*/ - if (!/*_.VALDATA___V959*/ curfptr[958]) /*_.VALDATA___V959*/ curfptr[958] = (void*)&cdat->dsym_887__CLASS_NAMED; + if (!/*_.VALDATA___V960*/ curfptr[959]) /*_.VALDATA___V960*/ curfptr[959] = (void*)&cdat->dsym_887__CLASS_NAMED; basilys_assertmsg("iniobj checkdiscr dsym_887__CLASS_NAMED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_887__CLASS_NAMED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_887__CLASS_NAMED.obj_hash = 60407004; @@ -50079,31 +51634,31 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_885__CLASS_FORMAL_B basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_887__CLASS_NAMED)); /*inistring dstr_888__CLASS_NAMED*/ - /*_.VALSTR___V960*/ curfptr[959] = (void*)&cdat->dstr_888__CLASS_NAMED; + /*_.VALSTR___V961*/ curfptr[960] = (void*)&cdat->dstr_888__CLASS_NAMED; cdat->dstr_888__CLASS_NAMED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_888__CLASS_NAMED.val, "CLASS_NAMED"); /*inirout drout_889__LAMBDA_*/ - /*_.VALROUT___V946*/ curfptr[945] = (void*)&cdat->drout_889__LAMBDA_; + /*_.VALROUT___V947*/ curfptr[946] = (void*)&cdat->drout_889__LAMBDA_; cdat->drout_889__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_889__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:897", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_889__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_889__LAMBDA_, rout_15_LAMBDA_); /*inirout drout_890__PATTERNEXPAND_EXPR*/ - /*_.VALROUT___V942*/ curfptr[941] = (void*)&cdat->drout_890__PATTERNEXPAND_EXPR; + /*_.VALROUT___V943*/ curfptr[942] = (void*)&cdat->drout_890__PATTERNEXPAND_EXPR; cdat->drout_890__PATTERNEXPAND_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_890__PATTERNEXPAND_EXPR.routdescr, "PATTERNEXPAND_EXPR @warmelt-macro.bysl:911", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_890__PATTERNEXPAND_EXPR.nbval = 12; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_890__PATTERNEXPAND_EXPR, rout_16_PATTERNEXPAND_EXPR); /*iniclos dclo_891__PATTERNEXPAND_EXPR*/ - /*_.VALCLO___V941*/ curfptr[940] = (void*)&cdat->dclo_891__PATTERNEXPAND_EXPR; + /*_.VALCLO___V942*/ curfptr[941] = (void*)&cdat->dclo_891__PATTERNEXPAND_EXPR; cdat->dclo_891__PATTERNEXPAND_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_891__PATTERNEXPAND_EXPR.nbval = 0; /*iniobj dsym_892__CLASS_PATMACRO_BINDING*/ - if (!/*_.VALDATA___V961*/ curfptr[960]) /*_.VALDATA___V961*/ curfptr[960] = (void*)&cdat->dsym_892__CLASS_PATMACRO_BINDING; + if (!/*_.VALDATA___V962*/ curfptr[961]) /*_.VALDATA___V962*/ curfptr[961] = (void*)&cdat->dsym_892__CLASS_PATMACRO_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_892__CLASS_PATMACRO_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_892__CLASS_PATMACRO_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_892__CLASS_PATMACRO_BINDING.obj_hash = 202308327; @@ -50111,24 +51666,24 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_887__CLASS_NAMED)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_892__CLASS_PATMACRO_BINDING)); /*inistring dstr_893__CLASS_PATMACRO_B*/ - /*_.VALSTR___V962*/ curfptr[961] = (void*)&cdat->dstr_893__CLASS_PATMACRO_B; + /*_.VALSTR___V963*/ curfptr[962] = (void*)&cdat->dstr_893__CLASS_PATMACRO_B; cdat->dstr_893__CLASS_PATMACRO_B.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_893__CLASS_PATMACRO_B.val, "CLASS_PATMACRO_BINDING"); /*inirout drout_894__PATTERNEXPAND_1*/ - /*_.VALROUT___V936*/ curfptr[935] = (void*)&cdat->drout_894__PATTERNEXPAND_1; + /*_.VALROUT___V937*/ curfptr[936] = (void*)&cdat->drout_894__PATTERNEXPAND_1; cdat->drout_894__PATTERNEXPAND_1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_894__PATTERNEXPAND_1.routdescr, "PATTERNEXPAND_1 @warmelt-macro.bysl:992", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_894__PATTERNEXPAND_1.nbval = 12; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_894__PATTERNEXPAND_1, rout_17_PATTERNEXPAND_1); /*iniclos dclo_895__PATTERNEXPAND_1*/ - /*_.VALCLO___V935*/ curfptr[934] = (void*)&cdat->dclo_895__PATTERNEXPAND_1; + /*_.VALCLO___V936*/ curfptr[935] = (void*)&cdat->dclo_895__PATTERNEXPAND_1; cdat->dclo_895__PATTERNEXPAND_1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_895__PATTERNEXPAND_1.nbval = 0; /*iniobj dsym_896__QUESTION*/ - if (!/*_.VALDATA___V937*/ curfptr[936]) /*_.VALDATA___V937*/ curfptr[936] = (void*)&cdat->dsym_896__QUESTION; + if (!/*_.VALDATA___V938*/ curfptr[937]) /*_.VALDATA___V938*/ curfptr[937] = (void*)&cdat->dsym_896__QUESTION; basilys_assertmsg("iniobj checkdiscr dsym_896__QUESTION", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_896__QUESTION.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_896__QUESTION.obj_hash = 320539216; @@ -50136,12 +51691,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_892__CLASS_PATMACRO basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_896__QUESTION)); /*inistring dstr_897__QUESTION*/ - /*_.VALSTR___V938*/ curfptr[937] = (void*)&cdat->dstr_897__QUESTION; + /*_.VALSTR___V939*/ curfptr[938] = (void*)&cdat->dstr_897__QUESTION; cdat->dstr_897__QUESTION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_897__QUESTION.val, "QUESTION"); /*iniobj dsym_898__*/ - if (!/*_.VALDATA___V939*/ curfptr[938]) /*_.VALDATA___V939*/ curfptr[938] = (void*)&cdat->dsym_898__; + if (!/*_.VALDATA___V940*/ curfptr[939]) /*_.VALDATA___V940*/ curfptr[939] = (void*)&cdat->dsym_898__; basilys_assertmsg("iniobj checkdiscr dsym_898__", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_898__.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_898__.obj_hash = 331173307; @@ -50149,24 +51704,24 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_896__QUESTION)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_898__)); /*inistring dstr_899__*/ - /*_.VALSTR___V940*/ curfptr[939] = (void*)&cdat->dstr_899__; + /*_.VALSTR___V941*/ curfptr[940] = (void*)&cdat->dstr_899__; cdat->dstr_899__.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_899__.val, "_"); /*inirout drout_900__MACROEXPAND_TOPLEVEL_LIST*/ - /*_.VALROUT___V963*/ curfptr[962] = (void*)&cdat->drout_900__MACROEXPAND_TOPLEVEL_LIST; + /*_.VALROUT___V964*/ curfptr[963] = (void*)&cdat->drout_900__MACROEXPAND_TOPLEVEL_LIST; cdat->drout_900__MACROEXPAND_TOPLEVEL_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_900__MACROEXPAND_TOPLEVEL_LIST.routdescr, "MACROEXPAND_TOPLEVEL_LIST @warmelt-macro.bysl:1065", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_900__MACROEXPAND_TOPLEVEL_LIST.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_900__MACROEXPAND_TOPLEVEL_LIST, rout_18_MACROEXPAND_TOPLEVEL_LIST); /*iniclos dclo_901__MACROEXPAND_TOPLEVEL_LIST*/ - /*_.VALCLO___V965*/ curfptr[964] = (void*)&cdat->dclo_901__MACROEXPAND_TOPLEVEL_LIST; + /*_.VALCLO___V966*/ curfptr[965] = (void*)&cdat->dclo_901__MACROEXPAND_TOPLEVEL_LIST; cdat->dclo_901__MACROEXPAND_TOPLEVEL_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_901__MACROEXPAND_TOPLEVEL_LIST.nbval = 0; /*iniobj dsym_902__LIST_MAP*/ - if (!/*_.VALDATA___V966*/ curfptr[965]) /*_.VALDATA___V966*/ curfptr[965] = (void*)&cdat->dsym_902__LIST_MAP; + if (!/*_.VALDATA___V967*/ curfptr[966]) /*_.VALDATA___V967*/ curfptr[966] = (void*)&cdat->dsym_902__LIST_MAP; basilys_assertmsg("iniobj checkdiscr dsym_902__LIST_MAP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_902__LIST_MAP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_902__LIST_MAP.obj_hash = 941133477; @@ -50174,31 +51729,31 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_898__)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_902__LIST_MAP)); /*inistring dstr_903__LIST_MAP*/ - /*_.VALSTR___V967*/ curfptr[966] = (void*)&cdat->dstr_903__LIST_MAP; + /*_.VALSTR___V968*/ curfptr[967] = (void*)&cdat->dstr_903__LIST_MAP; cdat->dstr_903__LIST_MAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_903__LIST_MAP.val, "LIST_MAP"); /*inirout drout_904__LAMBDA_*/ - /*_.VALROUT___V964*/ curfptr[963] = (void*)&cdat->drout_904__LAMBDA_; + /*_.VALROUT___V965*/ curfptr[964] = (void*)&cdat->drout_904__LAMBDA_; cdat->drout_904__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_904__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:1072", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_904__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_904__LAMBDA_, rout_19_LAMBDA_); /*inirout drout_905__LAMBDA_ARG_BINDINGS*/ - /*_.VALROUT___V867*/ curfptr[866] = (void*)&cdat->drout_905__LAMBDA_ARG_BINDINGS; + /*_.VALROUT___V868*/ curfptr[867] = (void*)&cdat->drout_905__LAMBDA_ARG_BINDINGS; cdat->drout_905__LAMBDA_ARG_BINDINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_905__LAMBDA_ARG_BINDINGS.routdescr, "LAMBDA_ARG_BINDINGS @warmelt-macro.bysl:1088", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_905__LAMBDA_ARG_BINDINGS.nbval = 10; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_905__LAMBDA_ARG_BINDINGS, rout_20_LAMBDA_ARG_BINDINGS); /*iniclos dclo_906__LAMBDA_ARG_BINDINGS*/ - /*_.VALCLO___V866*/ curfptr[865] = (void*)&cdat->dclo_906__LAMBDA_ARG_BINDINGS; + /*_.VALCLO___V867*/ curfptr[866] = (void*)&cdat->dclo_906__LAMBDA_ARG_BINDINGS; cdat->dclo_906__LAMBDA_ARG_BINDINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_906__LAMBDA_ARG_BINDINGS.nbval = 0; /*iniobj dsym_907__CTYPE_VALUE*/ - if (!/*_.VALDATA___V968*/ curfptr[967]) /*_.VALDATA___V968*/ curfptr[967] = (void*)&cdat->dsym_907__CTYPE_VALUE; + if (!/*_.VALDATA___V969*/ curfptr[968]) /*_.VALDATA___V969*/ curfptr[968] = (void*)&cdat->dsym_907__CTYPE_VALUE; basilys_assertmsg("iniobj checkdiscr dsym_907__CTYPE_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_907__CTYPE_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_907__CTYPE_VALUE.obj_hash = 11062864; @@ -50206,12 +51761,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_902__LIST_MAP)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_907__CTYPE_VALUE)); /*inistring dstr_908__CTYPE_VALUE*/ - /*_.VALSTR___V969*/ curfptr[968] = (void*)&cdat->dstr_908__CTYPE_VALUE; + /*_.VALSTR___V970*/ curfptr[969] = (void*)&cdat->dstr_908__CTYPE_VALUE; cdat->dstr_908__CTYPE_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_908__CTYPE_VALUE.val, "CTYPE_VALUE"); /*iniobj dsym_909__DISCR_MAPOBJECTS*/ - if (!/*_.VALDATA___V970*/ curfptr[969]) /*_.VALDATA___V970*/ curfptr[969] = (void*)&cdat->dsym_909__DISCR_MAPOBJECTS; + if (!/*_.VALDATA___V971*/ curfptr[970]) /*_.VALDATA___V971*/ curfptr[970] = (void*)&cdat->dsym_909__DISCR_MAPOBJECTS; basilys_assertmsg("iniobj checkdiscr dsym_909__DISCR_MAPOBJECTS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_909__DISCR_MAPOBJECTS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_909__DISCR_MAPOBJECTS.obj_hash = 95669218; @@ -50219,12 +51774,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_907__CTYPE_VALUE)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_909__DISCR_MAPOBJECTS)); /*inistring dstr_910__DISCR_MAPOBJECTS*/ - /*_.VALSTR___V971*/ curfptr[970] = (void*)&cdat->dstr_910__DISCR_MAPOBJECTS; + /*_.VALSTR___V972*/ curfptr[971] = (void*)&cdat->dstr_910__DISCR_MAPOBJECTS; cdat->dstr_910__DISCR_MAPOBJECTS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_910__DISCR_MAPOBJECTS.val, "DISCR_MAPOBJECTS"); /*iniobj dsym_911__DISCR_LIST*/ - if (!/*_.VALDATA___V972*/ curfptr[971]) /*_.VALDATA___V972*/ curfptr[971] = (void*)&cdat->dsym_911__DISCR_LIST; + if (!/*_.VALDATA___V973*/ curfptr[972]) /*_.VALDATA___V973*/ curfptr[972] = (void*)&cdat->dsym_911__DISCR_LIST; basilys_assertmsg("iniobj checkdiscr dsym_911__DISCR_LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_911__DISCR_LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_911__DISCR_LIST.obj_hash = 98407634; @@ -50232,12 +51787,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_909__DISCR_MAPOBJEC basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_911__DISCR_LIST)); /*inistring dstr_912__DISCR_LIST*/ - /*_.VALSTR___V973*/ curfptr[972] = (void*)&cdat->dstr_912__DISCR_LIST; + /*_.VALSTR___V974*/ curfptr[973] = (void*)&cdat->dstr_912__DISCR_LIST; cdat->dstr_912__DISCR_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_912__DISCR_LIST.val, "DISCR_LIST"); /*iniobj dsym_913__CLASS_CTYPE*/ - if (!/*_.VALDATA___V974*/ curfptr[973]) /*_.VALDATA___V974*/ curfptr[973] = (void*)&cdat->dsym_913__CLASS_CTYPE; + if (!/*_.VALDATA___V975*/ curfptr[974]) /*_.VALDATA___V975*/ curfptr[974] = (void*)&cdat->dsym_913__CLASS_CTYPE; basilys_assertmsg("iniobj checkdiscr dsym_913__CLASS_CTYPE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_913__CLASS_CTYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_913__CLASS_CTYPE.obj_hash = 78610803; @@ -50245,24 +51800,24 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_911__DISCR_LIST)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_913__CLASS_CTYPE)); /*inistring dstr_914__CLASS_CTYPE*/ - /*_.VALSTR___V975*/ curfptr[974] = (void*)&cdat->dstr_914__CLASS_CTYPE; + /*_.VALSTR___V976*/ curfptr[975] = (void*)&cdat->dstr_914__CLASS_CTYPE; cdat->dstr_914__CLASS_CTYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_914__CLASS_CTYPE.val, "CLASS_CTYPE"); /*inirout drout_915__INSTALL_INITIAL_MACRO*/ - /*_.VALROUT___V976*/ curfptr[975] = (void*)&cdat->drout_915__INSTALL_INITIAL_MACRO; + /*_.VALROUT___V977*/ curfptr[976] = (void*)&cdat->drout_915__INSTALL_INITIAL_MACRO; cdat->drout_915__INSTALL_INITIAL_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_915__INSTALL_INITIAL_MACRO.routdescr, "INSTALL_INITIAL_MACRO @warmelt-macro.bysl:1172", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_915__INSTALL_INITIAL_MACRO.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_915__INSTALL_INITIAL_MACRO, rout_21_INSTALL_INITIAL_MACRO); /*iniclos dclo_916__INSTALL_INITIAL_MACRO*/ - /*_.VALCLO___V977*/ curfptr[976] = (void*)&cdat->dclo_916__INSTALL_INITIAL_MACRO; + /*_.VALCLO___V978*/ curfptr[977] = (void*)&cdat->dclo_916__INSTALL_INITIAL_MACRO; cdat->dclo_916__INSTALL_INITIAL_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_916__INSTALL_INITIAL_MACRO.nbval = 0; /*iniobj dsym_917__PUT_ENV*/ - if (!/*_.VALDATA___V978*/ curfptr[977]) /*_.VALDATA___V978*/ curfptr[977] = (void*)&cdat->dsym_917__PUT_ENV; + if (!/*_.VALDATA___V979*/ curfptr[978]) /*_.VALDATA___V979*/ curfptr[978] = (void*)&cdat->dsym_917__PUT_ENV; basilys_assertmsg("iniobj checkdiscr dsym_917__PUT_ENV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_917__PUT_ENV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_917__PUT_ENV.obj_hash = 440202203; @@ -50270,12 +51825,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_913__CLASS_CTYPE)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_917__PUT_ENV)); /*inistring dstr_918__PUT_ENV*/ - /*_.VALSTR___V979*/ curfptr[978] = (void*)&cdat->dstr_918__PUT_ENV; + /*_.VALSTR___V980*/ curfptr[979] = (void*)&cdat->dstr_918__PUT_ENV; cdat->dstr_918__PUT_ENV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_918__PUT_ENV.val, "PUT_ENV"); /*iniobj dsym_919__INITIAL_ENVIRONMENT*/ - if (!/*_.VALDATA___V980*/ curfptr[979]) /*_.VALDATA___V980*/ curfptr[979] = (void*)&cdat->dsym_919__INITIAL_ENVIRONMENT; + if (!/*_.VALDATA___V981*/ curfptr[980]) /*_.VALDATA___V981*/ curfptr[980] = (void*)&cdat->dsym_919__INITIAL_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dsym_919__INITIAL_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_919__INITIAL_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_919__INITIAL_ENVIRONMENT.obj_hash = 756729242; @@ -50283,24 +51838,24 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_917__PUT_ENV)); basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_919__INITIAL_ENVIRONMENT)); /*inistring dstr_920__INITIAL_ENVIRONM*/ - /*_.VALSTR___V981*/ curfptr[980] = (void*)&cdat->dstr_920__INITIAL_ENVIRONM; + /*_.VALSTR___V982*/ curfptr[981] = (void*)&cdat->dstr_920__INITIAL_ENVIRONM; cdat->dstr_920__INITIAL_ENVIRONM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_920__INITIAL_ENVIRONM.val, "INITIAL_ENVIRONMENT"); /*inirout drout_921__INSTALL_INITIAL_PATMACRO*/ - /*_.VALROUT___V982*/ curfptr[981] = (void*)&cdat->drout_921__INSTALL_INITIAL_PATMACRO; + /*_.VALROUT___V983*/ curfptr[982] = (void*)&cdat->drout_921__INSTALL_INITIAL_PATMACRO; cdat->drout_921__INSTALL_INITIAL_PATMACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_921__INSTALL_INITIAL_PATMACRO.routdescr, "INSTALL_INITIAL_PATMACRO @warmelt-macro.bysl:1198", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_921__INSTALL_INITIAL_PATMACRO.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_921__INSTALL_INITIAL_PATMACRO, rout_22_INSTALL_INITIAL_PATMACRO); /*iniclos dclo_922__INSTALL_INITIAL_PATMACRO*/ - /*_.VALCLO___V983*/ curfptr[982] = (void*)&cdat->dclo_922__INSTALL_INITIAL_PATMACRO; + /*_.VALCLO___V984*/ curfptr[983] = (void*)&cdat->dclo_922__INSTALL_INITIAL_PATMACRO; cdat->dclo_922__INSTALL_INITIAL_PATMACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_922__INSTALL_INITIAL_PATMACRO.nbval = 0; /*iniobj dsym_923__WARN_SHADOW*/ - if (!/*_.VALDATA___V984*/ curfptr[983]) /*_.VALDATA___V984*/ curfptr[983] = (void*)&cdat->dsym_923__WARN_SHADOW; + if (!/*_.VALDATA___V985*/ curfptr[984]) /*_.VALDATA___V985*/ curfptr[984] = (void*)&cdat->dsym_923__WARN_SHADOW; basilys_assertmsg("iniobj checkdiscr dsym_923__WARN_SHADOW", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_923__WARN_SHADOW.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_923__WARN_SHADOW.obj_hash = 463836272; @@ -50308,1955 +51863,1992 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_919__INITIAL_ENVIRO basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_923__WARN_SHADOW)); /*inistring dstr_924__WARN_SHADOW*/ - /*_.VALSTR___V985*/ curfptr[984] = (void*)&cdat->dstr_924__WARN_SHADOW; + /*_.VALSTR___V986*/ curfptr[985] = (void*)&cdat->dstr_924__WARN_SHADOW; cdat->dstr_924__WARN_SHADOW.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_924__WARN_SHADOW.val, "WARN_SHADOW"); BASILYS_LOCATION("warmelt-macro.bysl:1216:/ iniobj"); /*iniobj dobj_925__WARN_SHADOW*/ - if (!/*_.VALDATA___V986*/ curfptr[985]) /*_.VALDATA___V986*/ curfptr[985] = (void*)&cdat->dobj_925__WARN_SHADOW; + if (!/*_.VALDATA___V987*/ curfptr[986]) /*_.VALDATA___V987*/ curfptr[986] = (void*)&cdat->dobj_925__WARN_SHADOW; basilys_assertmsg("iniobj checkdiscr dobj_925__WARN_SHADOW", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_925__WARN_SHADOW.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); - cdat->dobj_925__WARN_SHADOW.obj_hash = 920637687; + cdat->dobj_925__WARN_SHADOW.obj_hash = 201588499; cdat->dobj_925__WARN_SHADOW.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_925__WARN_SHADOW)); /*inimult dtup_926__WARN_SHADOW*/ - /*_.VALTUP___V990*/ curfptr[989] = (void*)&cdat->dtup_926__WARN_SHADOW; + /*_.VALTUP___V991*/ curfptr[990] = (void*)&cdat->dtup_926__WARN_SHADOW; cdat->dtup_926__WARN_SHADOW.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_926__WARN_SHADOW.nbval = 1; /*inimult dtup_927__WARN_SHADOW*/ - /*_.VALTUP___V988*/ curfptr[987] = (void*)&cdat->dtup_927__WARN_SHADOW; + /*_.VALTUP___V989*/ curfptr[988] = (void*)&cdat->dtup_927__WARN_SHADOW; cdat->dtup_927__WARN_SHADOW.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_927__WARN_SHADOW.nbval = 0; /*inistring dstr_928__warn_shadow*/ - /*_.VALSTR___V989*/ curfptr[988] = (void*)&cdat->dstr_928__warn_shadow; + /*_.VALSTR___V990*/ curfptr[989] = (void*)&cdat->dstr_928__warn_shadow; cdat->dstr_928__warn_shadow.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_928__warn_shadow.val, "warn_shadow"); /*inistring dstr_929__WARN_SHADOW*/ - /*_.VALSTR___V987*/ curfptr[986] = (void*)&cdat->dstr_929__WARN_SHADOW; + /*_.VALSTR___V988*/ curfptr[987] = (void*)&cdat->dstr_929__WARN_SHADOW; cdat->dstr_929__WARN_SHADOW.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_929__WARN_SHADOW.val, "WARN_SHADOW"); /*inirout drout_930__WARN_IF_REDEFINED*/ - /*_.VALROUT___V991*/ curfptr[990] = (void*)&cdat->drout_930__WARN_IF_REDEFINED; + /*_.VALROUT___V992*/ curfptr[991] = (void*)&cdat->drout_930__WARN_IF_REDEFINED; cdat->drout_930__WARN_IF_REDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_930__WARN_IF_REDEFINED.routdescr, "WARN_IF_REDEFINED @warmelt-macro.bysl:1220", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_930__WARN_IF_REDEFINED.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_930__WARN_IF_REDEFINED, rout_23_WARN_IF_REDEFINED); /*iniclos dclo_931__WARN_IF_REDEFINED*/ - /*_.VALCLO___V992*/ curfptr[991] = (void*)&cdat->dclo_931__WARN_IF_REDEFINED; + /*_.VALCLO___V993*/ curfptr[992] = (void*)&cdat->dclo_931__WARN_IF_REDEFINED; cdat->dclo_931__WARN_IF_REDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_931__WARN_IF_REDEFINED.nbval = 0; - /*inirout drout_932__PARSE_PAIRLIST_C_CODE_EXPANSION*/ - /*_.VALROUT___V993*/ curfptr[992] = (void*)&cdat->drout_932__PARSE_PAIRLIST_C_CODE_EXPANSION; - cdat->drout_932__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_932__PARSE_PAIRLIST_C_CODE_EXPANSION.routdescr, "PARSE_PAIRLIST_C_CODE_EXPANSION @warmelt-macro.bysl:1232", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_932__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 4; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_932__PARSE_PAIRLIST_C_CODE_EXPANSION, rout_24_PARSE_PAIRLIST_C_CODE_EXPANSION); - - /*iniclos dclo_933__PARSE_PAIRLIST_C_CODE_EXPANSION*/ - /*_.VALCLO___V994*/ curfptr[993] = (void*)&cdat->dclo_933__PARSE_PAIRLIST_C_CODE_EXPANSION; - cdat->dclo_933__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_933__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 0; - - /*iniobj dsym_934__DISCR_STRING*/ - if (!/*_.VALDATA___V995*/ curfptr[994]) /*_.VALDATA___V995*/ curfptr[994] = (void*)&cdat->dsym_934__DISCR_STRING; - basilys_assertmsg("iniobj checkdiscr dsym_934__DISCR_STRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_934__DISCR_STRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_934__DISCR_STRING.obj_hash = 100436219; - cdat->dsym_934__DISCR_STRING.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_934__DISCR_STRING)); - - /*inistring dstr_935__DISCR_STRING*/ - /*_.VALSTR___V996*/ curfptr[995] = (void*)&cdat->dstr_935__DISCR_STRING; - cdat->dstr_935__DISCR_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_935__DISCR_STRING.val, "DISCR_STRING"); - - /*iniobj dsym_936__DISCR_VERBATIMSTRING*/ - if (!/*_.VALDATA___V997*/ curfptr[996]) /*_.VALDATA___V997*/ curfptr[996] = (void*)&cdat->dsym_936__DISCR_VERBATIMSTRING; - basilys_assertmsg("iniobj checkdiscr dsym_936__DISCR_VERBATIMSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_936__DISCR_VERBATIMSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_936__DISCR_VERBATIMSTRING.obj_hash = 6759605; - cdat->dsym_936__DISCR_VERBATIMSTRING.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_936__DISCR_VERBATIMSTRING)); - - /*inistring dstr_937__DISCR_VERBATIMST*/ - /*_.VALSTR___V998*/ curfptr[997] = (void*)&cdat->dstr_937__DISCR_VERBATIMST; - cdat->dstr_937__DISCR_VERBATIMST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_937__DISCR_VERBATIMST.val, "DISCR_VERBATIMSTRING"); - - /*inirout drout_938__MEXPAND_DEFPRIMITIVE*/ - /*_.VALROUT___V999*/ curfptr[998] = (void*)&cdat->drout_938__MEXPAND_DEFPRIMITIVE; - cdat->drout_938__MEXPAND_DEFPRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_938__MEXPAND_DEFPRIMITIVE.routdescr, "MEXPAND_DEFPRIMITIVE @warmelt-macro.bysl:1256", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_938__MEXPAND_DEFPRIMITIVE.nbval = 13; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_938__MEXPAND_DEFPRIMITIVE, rout_25_MEXPAND_DEFPRIMITIVE); - - /*iniclos dclo_939__MEXPAND_DEFPRIMITIVE*/ - /*_.VALCLO___V1000*/ curfptr[999] = (void*)&cdat->dclo_939__MEXPAND_DEFPRIMITIVE; - cdat->dclo_939__MEXPAND_DEFPRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_939__MEXPAND_DEFPRIMITIVE.nbval = 0; - - /*iniobj dsym_940__DEFPRIMITIVE*/ - if (!/*_.VALDATA___V1001*/ curfptr[1000]) /*_.VALDATA___V1001*/ curfptr[1000] = (void*)&cdat->dsym_940__DEFPRIMITIVE; - basilys_assertmsg("iniobj checkdiscr dsym_940__DEFPRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_940__DEFPRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_940__DEFPRIMITIVE.obj_hash = 68752716; - cdat->dsym_940__DEFPRIMITIVE.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_940__DEFPRIMITIVE)); - - /*inistring dstr_941__DEFPRIMITIVE*/ - /*_.VALSTR___V1002*/ curfptr[1001] = (void*)&cdat->dstr_941__DEFPRIMITIVE; - cdat->dstr_941__DEFPRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_941__DEFPRIMITIVE.val, "DEFPRIMITIVE"); - - /*inirout drout_942__MEXPAND_DEFCITERATOR*/ - /*_.VALROUT___V1003*/ curfptr[1002] = (void*)&cdat->drout_942__MEXPAND_DEFCITERATOR; - cdat->drout_942__MEXPAND_DEFCITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_942__MEXPAND_DEFCITERATOR.routdescr, "MEXPAND_DEFCITERATOR @warmelt-macro.bysl:1326", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_942__MEXPAND_DEFCITERATOR.nbval = 10; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_942__MEXPAND_DEFCITERATOR, rout_26_MEXPAND_DEFCITERATOR); - - /*iniclos dclo_943__MEXPAND_DEFCITERATOR*/ - /*_.VALCLO___V1004*/ curfptr[1003] = (void*)&cdat->dclo_943__MEXPAND_DEFCITERATOR; - cdat->dclo_943__MEXPAND_DEFCITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_943__MEXPAND_DEFCITERATOR.nbval = 0; - - /*iniobj dsym_944__DEFCITERATOR*/ - if (!/*_.VALDATA___V1005*/ curfptr[1004]) /*_.VALDATA___V1005*/ curfptr[1004] = (void*)&cdat->dsym_944__DEFCITERATOR; - basilys_assertmsg("iniobj checkdiscr dsym_944__DEFCITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_944__DEFCITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_944__DEFCITERATOR.obj_hash = 388838610; - cdat->dsym_944__DEFCITERATOR.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_944__DEFCITERATOR)); - - /*inistring dstr_945__DEFCITERATOR*/ - /*_.VALSTR___V1006*/ curfptr[1005] = (void*)&cdat->dstr_945__DEFCITERATOR; - cdat->dstr_945__DEFCITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_945__DEFCITERATOR.val, "DEFCITERATOR"); - - /*inirout drout_946__MEXPAND_DEFCMATCHER*/ - /*_.VALROUT___V1007*/ curfptr[1006] = (void*)&cdat->drout_946__MEXPAND_DEFCMATCHER; - cdat->drout_946__MEXPAND_DEFCMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_946__MEXPAND_DEFCMATCHER.routdescr, "MEXPAND_DEFCMATCHER @warmelt-macro.bysl:1409", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_946__MEXPAND_DEFCMATCHER.nbval = 14; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_946__MEXPAND_DEFCMATCHER, rout_27_MEXPAND_DEFCMATCHER); - - /*iniclos dclo_947__MEXPAND_DEFCMATCHER*/ - /*_.VALCLO___V1009*/ curfptr[1008] = (void*)&cdat->dclo_947__MEXPAND_DEFCMATCHER; - cdat->dclo_947__MEXPAND_DEFCMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_947__MEXPAND_DEFCMATCHER.nbval = 0; - - /*iniobj dsym_948__MULTIPLE_EVERY*/ - if (!/*_.VALDATA___V1010*/ curfptr[1009]) /*_.VALDATA___V1010*/ curfptr[1009] = (void*)&cdat->dsym_948__MULTIPLE_EVERY; - basilys_assertmsg("iniobj checkdiscr dsym_948__MULTIPLE_EVERY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_948__MULTIPLE_EVERY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_948__MULTIPLE_EVERY.obj_hash = 130098745; - cdat->dsym_948__MULTIPLE_EVERY.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_948__MULTIPLE_EVERY)); - - /*inistring dstr_949__MULTIPLE_EVERY*/ - /*_.VALSTR___V1011*/ curfptr[1010] = (void*)&cdat->dstr_949__MULTIPLE_EVERY; - cdat->dstr_949__MULTIPLE_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_949__MULTIPLE_EVERY.val, "MULTIPLE_EVERY"); - - /*inirout drout_950__LAMBDA_*/ - /*_.VALROUT___V1008*/ curfptr[1007] = (void*)&cdat->drout_950__LAMBDA_; - cdat->drout_950__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_950__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:1451", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_950__LAMBDA_.nbval = 0; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_950__LAMBDA_, rout_28_LAMBDA_); - - /*iniobj dsym_951__DEFCMATCHER*/ - if (!/*_.VALDATA___V1012*/ curfptr[1011]) /*_.VALDATA___V1012*/ curfptr[1011] = (void*)&cdat->dsym_951__DEFCMATCHER; - basilys_assertmsg("iniobj checkdiscr dsym_951__DEFCMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_951__DEFCMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_951__DEFCMATCHER.obj_hash = 63669746; - cdat->dsym_951__DEFCMATCHER.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_951__DEFCMATCHER)); - - /*inistring dstr_952__DEFCMATCHER*/ - /*_.VALSTR___V1013*/ curfptr[1012] = (void*)&cdat->dstr_952__DEFCMATCHER; - cdat->dstr_952__DEFCMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_952__DEFCMATCHER.val, "DEFCMATCHER"); - - /*inirout drout_953__MEXPAND_DEFUNMATCHER*/ - /*_.VALROUT___V1014*/ curfptr[1013] = (void*)&cdat->drout_953__MEXPAND_DEFUNMATCHER; - cdat->drout_953__MEXPAND_DEFUNMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_953__MEXPAND_DEFUNMATCHER.routdescr, "MEXPAND_DEFUNMATCHER @warmelt-macro.bysl:1544", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_953__MEXPAND_DEFUNMATCHER.nbval = 13; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_953__MEXPAND_DEFUNMATCHER, rout_29_MEXPAND_DEFUNMATCHER); - - /*iniclos dclo_954__MEXPAND_DEFUNMATCHER*/ - /*_.VALCLO___V1016*/ curfptr[1015] = (void*)&cdat->dclo_954__MEXPAND_DEFUNMATCHER; - cdat->dclo_954__MEXPAND_DEFUNMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_954__MEXPAND_DEFUNMATCHER.nbval = 0; - - /*inirout drout_955__LAMBDA_*/ - /*_.VALROUT___V1015*/ curfptr[1014] = (void*)&cdat->drout_955__LAMBDA_; - cdat->drout_955__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_955__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:1584", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_955__LAMBDA_.nbval = 0; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_955__LAMBDA_, rout_30_LAMBDA_); - - /*iniobj dsym_956__DEFUNMATCHER*/ - if (!/*_.VALDATA___V1017*/ curfptr[1016]) /*_.VALDATA___V1017*/ curfptr[1016] = (void*)&cdat->dsym_956__DEFUNMATCHER; - basilys_assertmsg("iniobj checkdiscr dsym_956__DEFUNMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_956__DEFUNMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_956__DEFUNMATCHER.obj_hash = 739727106; - cdat->dsym_956__DEFUNMATCHER.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_956__DEFUNMATCHER)); - - /*inistring dstr_957__DEFUNMATCHER*/ - /*_.VALSTR___V1018*/ curfptr[1017] = (void*)&cdat->dstr_957__DEFUNMATCHER; - cdat->dstr_957__DEFUNMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_957__DEFUNMATCHER.val, "DEFUNMATCHER"); - - /*inirout drout_958__MEXPAND_DEFUN*/ - /*_.VALROUT___V1019*/ curfptr[1018] = (void*)&cdat->drout_958__MEXPAND_DEFUN; - cdat->drout_958__MEXPAND_DEFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_958__MEXPAND_DEFUN.routdescr, "MEXPAND_DEFUN @warmelt-macro.bysl:1663", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_958__MEXPAND_DEFUN.nbval = 15; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_958__MEXPAND_DEFUN, rout_31_MEXPAND_DEFUN); - - /*iniclos dclo_959__MEXPAND_DEFUN*/ - /*_.VALCLO___V1021*/ curfptr[1020] = (void*)&cdat->dclo_959__MEXPAND_DEFUN; - cdat->dclo_959__MEXPAND_DEFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_959__MEXPAND_DEFUN.nbval = 0; - - /*iniobj dsym_960__FRESH_ENV*/ - if (!/*_.VALDATA___V1022*/ curfptr[1021]) /*_.VALDATA___V1022*/ curfptr[1021] = (void*)&cdat->dsym_960__FRESH_ENV; - basilys_assertmsg("iniobj checkdiscr dsym_960__FRESH_ENV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_960__FRESH_ENV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_960__FRESH_ENV.obj_hash = 1002363940; - cdat->dsym_960__FRESH_ENV.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_960__FRESH_ENV)); - - /*inistring dstr_961__FRESH_ENV*/ - /*_.VALSTR___V1023*/ curfptr[1022] = (void*)&cdat->dstr_961__FRESH_ENV; - cdat->dstr_961__FRESH_ENV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_961__FRESH_ENV.val, "FRESH_ENV"); - - /*inirout drout_962__LAMBDA_*/ - /*_.VALROUT___V1020*/ curfptr[1019] = (void*)&cdat->drout_962__LAMBDA_; - cdat->drout_962__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_962__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:1693", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_962__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_962__LAMBDA_, rout_32_LAMBDA_); - - /*iniobj dsym_963__CLASS_FUNCTION_BINDING*/ - if (!/*_.VALDATA___V1024*/ curfptr[1023]) /*_.VALDATA___V1024*/ curfptr[1023] = (void*)&cdat->dsym_963__CLASS_FUNCTION_BINDING; - basilys_assertmsg("iniobj checkdiscr dsym_963__CLASS_FUNCTION_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_963__CLASS_FUNCTION_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_963__CLASS_FUNCTION_BINDING.obj_hash = 942362333; - cdat->dsym_963__CLASS_FUNCTION_BINDING.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_963__CLASS_FUNCTION_BINDING)); - - /*inistring dstr_964__CLASS_FUNCTION_B*/ - /*_.VALSTR___V1025*/ curfptr[1024] = (void*)&cdat->dstr_964__CLASS_FUNCTION_B; - cdat->dstr_964__CLASS_FUNCTION_B.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_964__CLASS_FUNCTION_B.val, "CLASS_FUNCTION_BINDING"); - - /*inirout drout_965__SCAN_DEFCLASS*/ - /*_.VALROUT___V1026*/ curfptr[1025] = (void*)&cdat->drout_965__SCAN_DEFCLASS; - cdat->drout_965__SCAN_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_965__SCAN_DEFCLASS.routdescr, "SCAN_DEFCLASS @warmelt-macro.bysl:1720", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_965__SCAN_DEFCLASS.nbval = 15; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_965__SCAN_DEFCLASS, rout_33_SCAN_DEFCLASS); - - /*iniclos dclo_966__SCAN_DEFCLASS*/ - /*_.VALCLO___V1035*/ curfptr[1034] = (void*)&cdat->dclo_966__SCAN_DEFCLASS; - cdat->dclo_966__SCAN_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_966__SCAN_DEFCLASS.nbval = 0; - - /*iniobj dsym_967__SUPER*/ - if (!/*_.VALDATA___V1027*/ curfptr[1026]) /*_.VALDATA___V1027*/ curfptr[1026] = (void*)&cdat->dsym_967__SUPER; - basilys_assertmsg("iniobj checkdiscr dsym_967__SUPER", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_967__SUPER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_967__SUPER.obj_hash = 103938843; - cdat->dsym_967__SUPER.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_967__SUPER)); - - /*inistring dstr_968__SUPER*/ - /*_.VALSTR___V1028*/ curfptr[1027] = (void*)&cdat->dstr_968__SUPER; - cdat->dstr_968__SUPER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_968__SUPER.val, "SUPER"); - - /*iniobj dsym_969__CLASS_CLASS_BINDING*/ - if (!/*_.VALDATA___V1036*/ curfptr[1035]) /*_.VALDATA___V1036*/ curfptr[1035] = (void*)&cdat->dsym_969__CLASS_CLASS_BINDING; - basilys_assertmsg("iniobj checkdiscr dsym_969__CLASS_CLASS_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_969__CLASS_CLASS_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_969__CLASS_CLASS_BINDING.obj_hash = 848133131; - cdat->dsym_969__CLASS_CLASS_BINDING.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_969__CLASS_CLASS_BINDING)); - - /*inistring dstr_970__CLASS_CLASS_BIND*/ - /*_.VALSTR___V1037*/ curfptr[1036] = (void*)&cdat->dstr_970__CLASS_CLASS_BIND; - cdat->dstr_970__CLASS_CLASS_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_970__CLASS_CLASS_BIND.val, "CLASS_CLASS_BINDING"); - - /*iniobj dsym_971__CLASS_CLASS*/ - if (!/*_.VALDATA___V1038*/ curfptr[1037]) /*_.VALDATA___V1038*/ curfptr[1037] = (void*)&cdat->dsym_971__CLASS_CLASS; - basilys_assertmsg("iniobj checkdiscr dsym_971__CLASS_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_971__CLASS_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_971__CLASS_CLASS.obj_hash = 60141292; - cdat->dsym_971__CLASS_CLASS.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_971__CLASS_CLASS)); - - /*inistring dstr_972__CLASS_CLASS*/ - /*_.VALSTR___V1039*/ curfptr[1038] = (void*)&cdat->dstr_972__CLASS_CLASS; - cdat->dstr_972__CLASS_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_972__CLASS_CLASS.val, "CLASS_CLASS"); - - /*iniobj dsym_973__FIELDS*/ - if (!/*_.VALDATA___V1029*/ curfptr[1028]) /*_.VALDATA___V1029*/ curfptr[1028] = (void*)&cdat->dsym_973__FIELDS; - basilys_assertmsg("iniobj checkdiscr dsym_973__FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_973__FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_973__FIELDS.obj_hash = 63787385; - cdat->dsym_973__FIELDS.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_973__FIELDS)); - - /*inistring dstr_974__FIELDS*/ - /*_.VALSTR___V1030*/ curfptr[1029] = (void*)&cdat->dstr_974__FIELDS; - cdat->dstr_974__FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_974__FIELDS.val, "FIELDS"); - - /*iniobj dsym_975__PREDEF*/ - if (!/*_.VALDATA___V1031*/ curfptr[1030]) /*_.VALDATA___V1031*/ curfptr[1030] = (void*)&cdat->dsym_975__PREDEF; - basilys_assertmsg("iniobj checkdiscr dsym_975__PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_975__PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_975__PREDEF.obj_hash = 55393491; - cdat->dsym_975__PREDEF.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_975__PREDEF)); - - /*inistring dstr_976__PREDEF*/ - /*_.VALSTR___V1032*/ curfptr[1031] = (void*)&cdat->dstr_976__PREDEF; - cdat->dstr_976__PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_976__PREDEF.val, "PREDEF"); - - /*iniobj dsym_977__DOCSTR*/ - if (!/*_.VALDATA___V1033*/ curfptr[1032]) /*_.VALDATA___V1033*/ curfptr[1032] = (void*)&cdat->dsym_977__DOCSTR; - basilys_assertmsg("iniobj checkdiscr dsym_977__DOCSTR", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_977__DOCSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_977__DOCSTR.obj_hash = 108338516; - cdat->dsym_977__DOCSTR.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_977__DOCSTR)); - - /*inistring dstr_978__DOCSTR*/ - /*_.VALSTR___V1034*/ curfptr[1033] = (void*)&cdat->dstr_978__DOCSTR; - cdat->dstr_978__DOCSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_978__DOCSTR.val, "DOCSTR"); - - /*inirout drout_979__MEXPAND_DEFCLASS*/ - /*_.VALROUT___V1040*/ curfptr[1039] = (void*)&cdat->drout_979__MEXPAND_DEFCLASS; - cdat->drout_979__MEXPAND_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_979__MEXPAND_DEFCLASS.routdescr, "MEXPAND_DEFCLASS @warmelt-macro.bysl:1841", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_979__MEXPAND_DEFCLASS.nbval = 23; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_979__MEXPAND_DEFCLASS, rout_34_MEXPAND_DEFCLASS); - - /*iniclos dclo_980__MEXPAND_DEFCLASS*/ - /*_.VALCLO___V1043*/ curfptr[1042] = (void*)&cdat->dclo_980__MEXPAND_DEFCLASS; - cdat->dclo_980__MEXPAND_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_980__MEXPAND_DEFCLASS.nbval = 0; - - /*iniobj dsym_981__DISCR_SEQCLASS*/ - if (!/*_.VALDATA___V1044*/ curfptr[1043]) /*_.VALDATA___V1044*/ curfptr[1043] = (void*)&cdat->dsym_981__DISCR_SEQCLASS; - basilys_assertmsg("iniobj checkdiscr dsym_981__DISCR_SEQCLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_981__DISCR_SEQCLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_981__DISCR_SEQCLASS.obj_hash = 98036243; - cdat->dsym_981__DISCR_SEQCLASS.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_981__DISCR_SEQCLASS)); - - /*inistring dstr_982__DISCR_SEQCLASS*/ - /*_.VALSTR___V1045*/ curfptr[1044] = (void*)&cdat->dstr_982__DISCR_SEQCLASS; - cdat->dstr_982__DISCR_SEQCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_982__DISCR_SEQCLASS.val, "DISCR_SEQCLASS"); - - /*iniobj dsym_983__DISCR_INTEGER*/ - if (!/*_.VALDATA___V1046*/ curfptr[1045]) /*_.VALDATA___V1046*/ curfptr[1045] = (void*)&cdat->dsym_983__DISCR_INTEGER; - basilys_assertmsg("iniobj checkdiscr dsym_983__DISCR_INTEGER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_983__DISCR_INTEGER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_983__DISCR_INTEGER.obj_hash = 119182103; - cdat->dsym_983__DISCR_INTEGER.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_983__DISCR_INTEGER)); - - /*inistring dstr_984__DISCR_INTEGER*/ - /*_.VALSTR___V1047*/ curfptr[1046] = (void*)&cdat->dstr_984__DISCR_INTEGER; - cdat->dstr_984__DISCR_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_984__DISCR_INTEGER.val, "DISCR_INTEGER"); - - /*iniobj dsym_985__DISCR_MAPSTRINGS*/ - if (!/*_.VALDATA___V1048*/ curfptr[1047]) /*_.VALDATA___V1048*/ curfptr[1047] = (void*)&cdat->dsym_985__DISCR_MAPSTRINGS; - basilys_assertmsg("iniobj checkdiscr dsym_985__DISCR_MAPSTRINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_985__DISCR_MAPSTRINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_985__DISCR_MAPSTRINGS.obj_hash = 122797468; - cdat->dsym_985__DISCR_MAPSTRINGS.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_985__DISCR_MAPSTRINGS)); - - /*inistring dstr_986__DISCR_MAPSTRINGS*/ - /*_.VALSTR___V1049*/ curfptr[1048] = (void*)&cdat->dstr_986__DISCR_MAPSTRINGS; - cdat->dstr_986__DISCR_MAPSTRINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_986__DISCR_MAPSTRINGS.val, "DISCR_MAPSTRINGS"); - - /*iniobj dsym_987__DISCR_SEQFIELD*/ - if (!/*_.VALDATA___V1050*/ curfptr[1049]) /*_.VALDATA___V1050*/ curfptr[1049] = (void*)&cdat->dsym_987__DISCR_SEQFIELD; - basilys_assertmsg("iniobj checkdiscr dsym_987__DISCR_SEQFIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_987__DISCR_SEQFIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_987__DISCR_SEQFIELD.obj_hash = 118740612; - cdat->dsym_987__DISCR_SEQFIELD.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_987__DISCR_SEQFIELD)); - - /*inistring dstr_988__DISCR_SEQFIELD*/ - /*_.VALSTR___V1051*/ curfptr[1050] = (void*)&cdat->dstr_988__DISCR_SEQFIELD; - cdat->dstr_988__DISCR_SEQFIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_988__DISCR_SEQFIELD.val, "DISCR_SEQFIELD"); - - /*inirout drout_989__LAMBDA_*/ - /*_.VALROUT___V1041*/ curfptr[1040] = (void*)&cdat->drout_989__LAMBDA_; - cdat->drout_989__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_989__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:1897", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_989__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_989__LAMBDA_, rout_35_LAMBDA_); - - /*iniobj dsym_990__CLASS_FIELD*/ - if (!/*_.VALDATA___V1052*/ curfptr[1051]) /*_.VALDATA___V1052*/ curfptr[1051] = (void*)&cdat->dsym_990__CLASS_FIELD; - basilys_assertmsg("iniobj checkdiscr dsym_990__CLASS_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_990__CLASS_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_990__CLASS_FIELD.obj_hash = 523073; - cdat->dsym_990__CLASS_FIELD.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_990__CLASS_FIELD)); - - /*inistring dstr_991__CLASS_FIELD*/ - /*_.VALSTR___V1053*/ curfptr[1052] = (void*)&cdat->dstr_991__CLASS_FIELD; - cdat->dstr_991__CLASS_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_991__CLASS_FIELD.val, "CLASS_FIELD"); - - /*inirout drout_992__LAMBDA_*/ - /*_.VALROUT___V1042*/ curfptr[1041] = (void*)&cdat->drout_992__LAMBDA_; - cdat->drout_992__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_992__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:1906", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_992__LAMBDA_.nbval = 5; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_992__LAMBDA_, rout_36_LAMBDA_); - - /*iniobj dsym_993__CLASS_FIELD_BINDING*/ - if (!/*_.VALDATA___V1054*/ curfptr[1053]) /*_.VALDATA___V1054*/ curfptr[1053] = (void*)&cdat->dsym_993__CLASS_FIELD_BINDING; - basilys_assertmsg("iniobj checkdiscr dsym_993__CLASS_FIELD_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_993__CLASS_FIELD_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_993__CLASS_FIELD_BINDING.obj_hash = 412002748; - cdat->dsym_993__CLASS_FIELD_BINDING.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_993__CLASS_FIELD_BINDING)); - - /*inistring dstr_994__CLASS_FIELD_BIND*/ - /*_.VALSTR___V1055*/ curfptr[1054] = (void*)&cdat->dstr_994__CLASS_FIELD_BIND; - cdat->dstr_994__CLASS_FIELD_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_994__CLASS_FIELD_BIND.val, "CLASS_FIELD_BINDING"); - - /*inirout drout_995__PARSE_FIELD_ASSIGNMENT*/ - /*_.VALROUT___V1056*/ curfptr[1055] = (void*)&cdat->drout_995__PARSE_FIELD_ASSIGNMENT; - cdat->drout_995__PARSE_FIELD_ASSIGNMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_995__PARSE_FIELD_ASSIGNMENT.routdescr, "PARSE_FIELD_ASSIGNMENT @warmelt-macro.bysl:1951", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_995__PARSE_FIELD_ASSIGNMENT.nbval = 13; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_995__PARSE_FIELD_ASSIGNMENT, rout_37_PARSE_FIELD_ASSIGNMENT); - - /*iniclos dclo_996__PARSE_FIELD_ASSIGNMENT*/ - /*_.VALCLO___V1058*/ curfptr[1057] = (void*)&cdat->dclo_996__PARSE_FIELD_ASSIGNMENT; - cdat->dclo_996__PARSE_FIELD_ASSIGNMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_996__PARSE_FIELD_ASSIGNMENT.nbval = 0; - - /*iniobj dsym_997__MULTIPLE_ITERATE_TEST*/ - if (!/*_.VALDATA___V1059*/ curfptr[1058]) /*_.VALDATA___V1059*/ curfptr[1058] = (void*)&cdat->dsym_997__MULTIPLE_ITERATE_TEST; - basilys_assertmsg("iniobj checkdiscr dsym_997__MULTIPLE_ITERATE_TEST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_997__MULTIPLE_ITERATE_TEST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_997__MULTIPLE_ITERATE_TEST.obj_hash = 823464346; - cdat->dsym_997__MULTIPLE_ITERATE_TEST.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_997__MULTIPLE_ITERATE_TEST)); - - /*inistring dstr_998__MULTIPLE_ITERATE*/ - /*_.VALSTR___V1060*/ curfptr[1059] = (void*)&cdat->dstr_998__MULTIPLE_ITERATE; - cdat->dstr_998__MULTIPLE_ITERATE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_998__MULTIPLE_ITERATE.val, "MULTIPLE_ITERATE_TEST"); - - /*inirout drout_999__LAMBDA_*/ - /*_.VALROUT___V1057*/ curfptr[1056] = (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.bysl:1963", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_999__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_999__LAMBDA_, rout_38_LAMBDA_); - - /*inirout drout_1000__MEXPAND_DEFINSTANCE*/ - /*_.VALROUT___V1061*/ curfptr[1060] = (void*)&cdat->drout_1000__MEXPAND_DEFINSTANCE; - cdat->drout_1000__MEXPAND_DEFINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1000__MEXPAND_DEFINSTANCE.routdescr, "MEXPAND_DEFINSTANCE @warmelt-macro.bysl:2004", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1000__MEXPAND_DEFINSTANCE.nbval = 20; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1000__MEXPAND_DEFINSTANCE, rout_39_MEXPAND_DEFINSTANCE); - - /*iniclos dclo_1001__MEXPAND_DEFINSTANCE*/ - /*_.VALCLO___V1064*/ curfptr[1063] = (void*)&cdat->dclo_1001__MEXPAND_DEFINSTANCE; - cdat->dclo_1001__MEXPAND_DEFINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1001__MEXPAND_DEFINSTANCE.nbval = 0; - - /*iniobj dsym_1002__OBJ_NUM*/ - if (!/*_.VALDATA___V1062*/ curfptr[1061]) /*_.VALDATA___V1062*/ curfptr[1061] = (void*)&cdat->dsym_1002__OBJ_NUM; - basilys_assertmsg("iniobj checkdiscr dsym_1002__OBJ_NUM", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_1002__OBJ_NUM.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_1002__OBJ_NUM.obj_hash = 56861275; - cdat->dsym_1002__OBJ_NUM.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1002__OBJ_NUM)); - - /*inistring dstr_1003__OBJ_NUM*/ - /*_.VALSTR___V1063*/ curfptr[1062] = (void*)&cdat->dstr_1003__OBJ_NUM; - cdat->dstr_1003__OBJ_NUM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1003__OBJ_NUM.val, "OBJ_NUM"); - - /*iniobj dsym_1004__LIST_TO_MULTIPLE*/ - if (!/*_.VALDATA___V1065*/ curfptr[1064]) /*_.VALDATA___V1065*/ curfptr[1064] = (void*)&cdat->dsym_1004__LIST_TO_MULTIPLE; - basilys_assertmsg("iniobj checkdiscr dsym_1004__LIST_TO_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1004__LIST_TO_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1004__LIST_TO_MULTIPLE.obj_hash = 987171205; - cdat->dsym_1004__LIST_TO_MULTIPLE.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1004__LIST_TO_MULTIPLE)); - - /*inistring dstr_1005__LIST_TO_MULTIPLE*/ - /*_.VALSTR___V1066*/ curfptr[1065] = (void*)&cdat->dstr_1005__LIST_TO_MULTIPLE; - cdat->dstr_1005__LIST_TO_MULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1005__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE"); - - /*iniobj dsym_1006__CLASS_INSTANCE_BINDING*/ - if (!/*_.VALDATA___V1067*/ curfptr[1066]) /*_.VALDATA___V1067*/ curfptr[1066] = (void*)&cdat->dsym_1006__CLASS_INSTANCE_BINDING; - basilys_assertmsg("iniobj checkdiscr dsym_1006__CLASS_INSTANCE_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1006__CLASS_INSTANCE_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1006__CLASS_INSTANCE_BINDING.obj_hash = 401143458; - cdat->dsym_1006__CLASS_INSTANCE_BINDING.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1006__CLASS_INSTANCE_BINDING)); - - /*inistring dstr_1007__CLASS_INSTANCE_B*/ - /*_.VALSTR___V1068*/ curfptr[1067] = (void*)&cdat->dstr_1007__CLASS_INSTANCE_B; - cdat->dstr_1007__CLASS_INSTANCE_B.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1007__CLASS_INSTANCE_B.val, "CLASS_INSTANCE_BINDING"); - - /*iniobj dsym_1008__DEFINSTANCE*/ - if (!/*_.VALDATA___V1069*/ curfptr[1068]) /*_.VALDATA___V1069*/ curfptr[1068] = (void*)&cdat->dsym_1008__DEFINSTANCE; - basilys_assertmsg("iniobj checkdiscr dsym_1008__DEFINSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1008__DEFINSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1008__DEFINSTANCE.obj_hash = 28184141; - cdat->dsym_1008__DEFINSTANCE.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1008__DEFINSTANCE)); - - /*inistring dstr_1009__DEFINSTANCE*/ - /*_.VALSTR___V1070*/ curfptr[1069] = (void*)&cdat->dstr_1009__DEFINSTANCE; - cdat->dstr_1009__DEFINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1009__DEFINSTANCE.val, "DEFINSTANCE"); - - /*inirout drout_1010__MEXPAND_DEFSELECTOR*/ - /*_.VALROUT___V1071*/ curfptr[1070] = (void*)&cdat->drout_1010__MEXPAND_DEFSELECTOR; - cdat->drout_1010__MEXPAND_DEFSELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1010__MEXPAND_DEFSELECTOR.routdescr, "MEXPAND_DEFSELECTOR @warmelt-macro.bysl:2101", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1010__MEXPAND_DEFSELECTOR.nbval = 20; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1010__MEXPAND_DEFSELECTOR, rout_40_MEXPAND_DEFSELECTOR); - - /*iniclos dclo_1011__MEXPAND_DEFSELECTOR*/ - /*_.VALCLO___V1072*/ curfptr[1071] = (void*)&cdat->dclo_1011__MEXPAND_DEFSELECTOR; - cdat->dclo_1011__MEXPAND_DEFSELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1011__MEXPAND_DEFSELECTOR.nbval = 0; - - /*iniobj dsym_1012__DEFSELECTOR*/ - if (!/*_.VALDATA___V1073*/ curfptr[1072]) /*_.VALDATA___V1073*/ curfptr[1072] = (void*)&cdat->dsym_1012__DEFSELECTOR; - basilys_assertmsg("iniobj checkdiscr dsym_1012__DEFSELECTOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1012__DEFSELECTOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1012__DEFSELECTOR.obj_hash = 34255542; - cdat->dsym_1012__DEFSELECTOR.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1012__DEFSELECTOR)); - - /*inistring dstr_1013__DEFSELECTOR*/ - /*_.VALSTR___V1074*/ curfptr[1073] = (void*)&cdat->dstr_1013__DEFSELECTOR; - cdat->dstr_1013__DEFSELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1013__DEFSELECTOR.val, "DEFSELECTOR"); - - /*inirout drout_1014__MEXPAND_INSTANCE*/ - /*_.VALROUT___V1075*/ curfptr[1074] = (void*)&cdat->drout_1014__MEXPAND_INSTANCE; - cdat->drout_1014__MEXPAND_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1014__MEXPAND_INSTANCE.routdescr, "MEXPAND_INSTANCE @warmelt-macro.bysl:2195", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1014__MEXPAND_INSTANCE.nbval = 14; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1014__MEXPAND_INSTANCE, rout_41_MEXPAND_INSTANCE); - - /*iniclos dclo_1015__MEXPAND_INSTANCE*/ - /*_.VALCLO___V1076*/ curfptr[1075] = (void*)&cdat->dclo_1015__MEXPAND_INSTANCE; - cdat->dclo_1015__MEXPAND_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1015__MEXPAND_INSTANCE.nbval = 0; - - /*iniobj dsym_1016__MAKE_INSTANCE*/ - if (!/*_.VALDATA___V1077*/ curfptr[1076]) /*_.VALDATA___V1077*/ curfptr[1076] = (void*)&cdat->dsym_1016__MAKE_INSTANCE; - basilys_assertmsg("iniobj checkdiscr dsym_1016__MAKE_INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1016__MAKE_INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1016__MAKE_INSTANCE.obj_hash = 33118389; - cdat->dsym_1016__MAKE_INSTANCE.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1016__MAKE_INSTANCE)); - - /*inistring dstr_1017__MAKE_INSTANCE*/ - /*_.VALSTR___V1078*/ curfptr[1077] = (void*)&cdat->dstr_1017__MAKE_INSTANCE; - cdat->dstr_1017__MAKE_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1017__MAKE_INSTANCE.val, "MAKE_INSTANCE"); - - /*inirout drout_1018__PARSE_FIELD_PATTERN*/ - /*_.VALROUT___V1079*/ curfptr[1078] = (void*)&cdat->drout_1018__PARSE_FIELD_PATTERN; - cdat->drout_1018__PARSE_FIELD_PATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1018__PARSE_FIELD_PATTERN.routdescr, "PARSE_FIELD_PATTERN @warmelt-macro.bysl:2258", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1018__PARSE_FIELD_PATTERN.nbval = 12; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1018__PARSE_FIELD_PATTERN, rout_42_PARSE_FIELD_PATTERN); - - /*iniclos dclo_1019__PARSE_FIELD_PATTERN*/ - /*_.VALCLO___V1081*/ curfptr[1080] = (void*)&cdat->dclo_1019__PARSE_FIELD_PATTERN; - cdat->dclo_1019__PARSE_FIELD_PATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1019__PARSE_FIELD_PATTERN.nbval = 0; - - /*inirout drout_1020__LAMBDA_*/ - /*_.VALROUT___V1080*/ curfptr[1079] = (void*)&cdat->drout_1020__LAMBDA_; - cdat->drout_1020__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1020__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:2272", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1020__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1020__LAMBDA_, rout_43_LAMBDA_); - - /*inirout drout_1021__PATEXPAND_INSTANCE*/ - /*_.VALROUT___V1082*/ curfptr[1081] = (void*)&cdat->drout_1021__PATEXPAND_INSTANCE; - cdat->drout_1021__PATEXPAND_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1021__PATEXPAND_INSTANCE.routdescr, "PATEXPAND_INSTANCE @warmelt-macro.bysl:2300", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1021__PATEXPAND_INSTANCE.nbval = 15; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1021__PATEXPAND_INSTANCE, rout_44_PATEXPAND_INSTANCE); - - /*iniclos dclo_1022__PATEXPAND_INSTANCE*/ - /*_.VALCLO___V1083*/ curfptr[1082] = (void*)&cdat->dclo_1022__PATEXPAND_INSTANCE; - cdat->dclo_1022__PATEXPAND_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1022__PATEXPAND_INSTANCE.nbval = 0; - - /*iniobj dsym_1023__INSTANCE*/ - if (!/*_.VALDATA___V1084*/ curfptr[1083]) /*_.VALDATA___V1084*/ curfptr[1083] = (void*)&cdat->dsym_1023__INSTANCE; - basilys_assertmsg("iniobj checkdiscr dsym_1023__INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1023__INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1023__INSTANCE.obj_hash = 837795892; - cdat->dsym_1023__INSTANCE.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1023__INSTANCE)); - - /*inistring dstr_1024__INSTANCE*/ - /*_.VALSTR___V1085*/ curfptr[1084] = (void*)&cdat->dstr_1024__INSTANCE; - cdat->dstr_1024__INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1024__INSTANCE.val, "INSTANCE"); - - /*inirout drout_1025__PATEXPAND_OBJECT*/ - /*_.VALROUT___V1086*/ curfptr[1085] = (void*)&cdat->drout_1025__PATEXPAND_OBJECT; - cdat->drout_1025__PATEXPAND_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1025__PATEXPAND_OBJECT.routdescr, "PATEXPAND_OBJECT @warmelt-macro.bysl:2367", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1025__PATEXPAND_OBJECT.nbval = 15; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1025__PATEXPAND_OBJECT, rout_45_PATEXPAND_OBJECT); - - /*iniclos dclo_1026__PATEXPAND_OBJECT*/ - /*_.VALCLO___V1087*/ curfptr[1086] = (void*)&cdat->dclo_1026__PATEXPAND_OBJECT; - cdat->dclo_1026__PATEXPAND_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1026__PATEXPAND_OBJECT.nbval = 0; - - /*inirout drout_1027__MEXPAND_OBJECT*/ - /*_.VALROUT___V1088*/ curfptr[1087] = (void*)&cdat->drout_1027__MEXPAND_OBJECT; - cdat->drout_1027__MEXPAND_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1027__MEXPAND_OBJECT.routdescr, "MEXPAND_OBJECT @warmelt-macro.bysl:2432", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1027__MEXPAND_OBJECT.nbval = 3; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1027__MEXPAND_OBJECT, rout_46_MEXPAND_OBJECT); - - /*iniclos dclo_1028__MEXPAND_OBJECT*/ - /*_.VALCLO___V1089*/ curfptr[1088] = (void*)&cdat->dclo_1028__MEXPAND_OBJECT; - cdat->dclo_1028__MEXPAND_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1028__MEXPAND_OBJECT.nbval = 0; - - /*iniobj dsym_1029__OBJECT*/ - if (!/*_.VALDATA___V1090*/ curfptr[1089]) /*_.VALDATA___V1090*/ curfptr[1089] = (void*)&cdat->dsym_1029__OBJECT; - basilys_assertmsg("iniobj checkdiscr dsym_1029__OBJECT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1029__OBJECT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1029__OBJECT.obj_hash = 680382828; - cdat->dsym_1029__OBJECT.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1029__OBJECT)); - - /*inistring dstr_1030__OBJECT*/ - /*_.VALSTR___V1091*/ curfptr[1090] = (void*)&cdat->dstr_1030__OBJECT; - cdat->dstr_1030__OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1030__OBJECT.val, "OBJECT"); - - /*inirout drout_1031__MEXPAND_UNSAFE_PUT_FIELDS*/ - /*_.VALROUT___V1092*/ curfptr[1091] = (void*)&cdat->drout_1031__MEXPAND_UNSAFE_PUT_FIELDS; - cdat->drout_1031__MEXPAND_UNSAFE_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1031__MEXPAND_UNSAFE_PUT_FIELDS.routdescr, "MEXPAND_UNSAFE_PUT_FIELDS @warmelt-macro.bysl:2448", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1031__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 9; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1031__MEXPAND_UNSAFE_PUT_FIELDS, rout_47_MEXPAND_UNSAFE_PUT_FIELDS); - - /*iniclos dclo_1032__MEXPAND_UNSAFE_PUT_FIELDS*/ - /*_.VALCLO___V1093*/ curfptr[1092] = (void*)&cdat->dclo_1032__MEXPAND_UNSAFE_PUT_FIELDS; - cdat->dclo_1032__MEXPAND_UNSAFE_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1032__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 0; - - /*iniobj dsym_1033__UNSAFE_PUT_FIELDS*/ - if (!/*_.VALDATA___V1094*/ curfptr[1093]) /*_.VALDATA___V1094*/ curfptr[1093] = (void*)&cdat->dsym_1033__UNSAFE_PUT_FIELDS; - basilys_assertmsg("iniobj checkdiscr dsym_1033__UNSAFE_PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1033__UNSAFE_PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1033__UNSAFE_PUT_FIELDS.obj_hash = 2805843; - cdat->dsym_1033__UNSAFE_PUT_FIELDS.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1033__UNSAFE_PUT_FIELDS)); - - /*inistring dstr_1034__UNSAFE_PUT_FIELD*/ - /*_.VALSTR___V1095*/ curfptr[1094] = (void*)&cdat->dstr_1034__UNSAFE_PUT_FIELD; - cdat->dstr_1034__UNSAFE_PUT_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1034__UNSAFE_PUT_FIELD.val, "UNSAFE_PUT_FIELDS"); - - /*inirout drout_1035__MEXPAND_PUT_FIELDS*/ - /*_.VALROUT___V1096*/ curfptr[1095] = (void*)&cdat->drout_1035__MEXPAND_PUT_FIELDS; - cdat->drout_1035__MEXPAND_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1035__MEXPAND_PUT_FIELDS.routdescr, "MEXPAND_PUT_FIELDS @warmelt-macro.bysl:2488", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1035__MEXPAND_PUT_FIELDS.nbval = 9; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1035__MEXPAND_PUT_FIELDS, rout_48_MEXPAND_PUT_FIELDS); - - /*iniclos dclo_1036__MEXPAND_PUT_FIELDS*/ - /*_.VALCLO___V1097*/ curfptr[1096] = (void*)&cdat->dclo_1036__MEXPAND_PUT_FIELDS; - cdat->dclo_1036__MEXPAND_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1036__MEXPAND_PUT_FIELDS.nbval = 0; - - /*iniobj dsym_1037__PUT_FIELDS*/ - if (!/*_.VALDATA___V1098*/ curfptr[1097]) /*_.VALDATA___V1098*/ curfptr[1097] = (void*)&cdat->dsym_1037__PUT_FIELDS; - basilys_assertmsg("iniobj checkdiscr dsym_1037__PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1037__PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1037__PUT_FIELDS.obj_hash = 370297609; - cdat->dsym_1037__PUT_FIELDS.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1037__PUT_FIELDS)); - - /*inistring dstr_1038__PUT_FIELDS*/ - /*_.VALSTR___V1099*/ curfptr[1098] = (void*)&cdat->dstr_1038__PUT_FIELDS; - cdat->dstr_1038__PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1038__PUT_FIELDS.val, "PUT_FIELDS"); - - /*inirout drout_1039__MEXPAND_UNSAFE_GET_FIELD*/ - /*_.VALROUT___V1100*/ curfptr[1099] = (void*)&cdat->drout_1039__MEXPAND_UNSAFE_GET_FIELD; - cdat->drout_1039__MEXPAND_UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1039__MEXPAND_UNSAFE_GET_FIELD.routdescr, "MEXPAND_UNSAFE_GET_FIELD @warmelt-macro.bysl:2528", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1039__MEXPAND_UNSAFE_GET_FIELD.nbval = 6; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1039__MEXPAND_UNSAFE_GET_FIELD, rout_49_MEXPAND_UNSAFE_GET_FIELD); - - /*iniclos dclo_1040__MEXPAND_UNSAFE_GET_FIELD*/ - /*_.VALCLO___V1101*/ curfptr[1100] = (void*)&cdat->dclo_1040__MEXPAND_UNSAFE_GET_FIELD; - cdat->dclo_1040__MEXPAND_UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1040__MEXPAND_UNSAFE_GET_FIELD.nbval = 0; - - /*iniobj dsym_1041__UNSAFE_GET_FIELD*/ - if (!/*_.VALDATA___V1102*/ curfptr[1101]) /*_.VALDATA___V1102*/ curfptr[1101] = (void*)&cdat->dsym_1041__UNSAFE_GET_FIELD; - basilys_assertmsg("iniobj checkdiscr dsym_1041__UNSAFE_GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1041__UNSAFE_GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1041__UNSAFE_GET_FIELD.obj_hash = 38069390; - cdat->dsym_1041__UNSAFE_GET_FIELD.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1041__UNSAFE_GET_FIELD)); - - /*inistring dstr_1042__UNSAFE_GET_FIELD*/ - /*_.VALSTR___V1103*/ curfptr[1102] = (void*)&cdat->dstr_1042__UNSAFE_GET_FIELD; - cdat->dstr_1042__UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1042__UNSAFE_GET_FIELD.val, "UNSAFE_GET_FIELD"); - - /*inirout drout_1043__MEXPAND_GET_FIELD*/ - /*_.VALROUT___V1104*/ curfptr[1103] = (void*)&cdat->drout_1043__MEXPAND_GET_FIELD; - cdat->drout_1043__MEXPAND_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1043__MEXPAND_GET_FIELD.routdescr, "MEXPAND_GET_FIELD @warmelt-macro.bysl:2562", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1043__MEXPAND_GET_FIELD.nbval = 6; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1043__MEXPAND_GET_FIELD, rout_50_MEXPAND_GET_FIELD); - - /*iniclos dclo_1044__MEXPAND_GET_FIELD*/ - /*_.VALCLO___V1105*/ curfptr[1104] = (void*)&cdat->dclo_1044__MEXPAND_GET_FIELD; - cdat->dclo_1044__MEXPAND_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1044__MEXPAND_GET_FIELD.nbval = 0; - - /*iniobj dsym_1045__GET_FIELD*/ - if (!/*_.VALDATA___V1106*/ curfptr[1105]) /*_.VALDATA___V1106*/ curfptr[1105] = (void*)&cdat->dsym_1045__GET_FIELD; - basilys_assertmsg("iniobj checkdiscr dsym_1045__GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1045__GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1045__GET_FIELD.obj_hash = 203020234; - cdat->dsym_1045__GET_FIELD.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1045__GET_FIELD)); - - /*inistring dstr_1046__GET_FIELD*/ - /*_.VALSTR___V1107*/ curfptr[1106] = (void*)&cdat->dstr_1046__GET_FIELD; - cdat->dstr_1046__GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1046__GET_FIELD.val, "GET_FIELD"); - - /*inirout drout_1047__MEXPAND_SETQ*/ - /*_.VALROUT___V1108*/ curfptr[1107] = (void*)&cdat->drout_1047__MEXPAND_SETQ; - cdat->drout_1047__MEXPAND_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1047__MEXPAND_SETQ.routdescr, "MEXPAND_SETQ @warmelt-macro.bysl:2597", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1047__MEXPAND_SETQ.nbval = 5; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1047__MEXPAND_SETQ, rout_51_MEXPAND_SETQ); - - /*iniclos dclo_1048__MEXPAND_SETQ*/ - /*_.VALCLO___V1109*/ curfptr[1108] = (void*)&cdat->dclo_1048__MEXPAND_SETQ; - cdat->dclo_1048__MEXPAND_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1048__MEXPAND_SETQ.nbval = 0; - - /*iniobj dsym_1049__SETQ*/ - if (!/*_.VALDATA___V1110*/ curfptr[1109]) /*_.VALDATA___V1110*/ curfptr[1109] = (void*)&cdat->dsym_1049__SETQ; - basilys_assertmsg("iniobj checkdiscr dsym_1049__SETQ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1049__SETQ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1049__SETQ.obj_hash = 46296512; - cdat->dsym_1049__SETQ.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1049__SETQ)); - - /*inistring dstr_1050__SETQ*/ - /*_.VALSTR___V1111*/ curfptr[1110] = (void*)&cdat->dstr_1050__SETQ; - cdat->dstr_1050__SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1050__SETQ.val, "SETQ"); - - /*inirout drout_1051__MEXPAND_IF*/ - /*_.VALROUT___V1112*/ curfptr[1111] = (void*)&cdat->drout_1051__MEXPAND_IF; - cdat->drout_1051__MEXPAND_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1051__MEXPAND_IF.routdescr, "MEXPAND_IF @warmelt-macro.bysl:2623", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1051__MEXPAND_IF.nbval = 6; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1051__MEXPAND_IF, rout_52_MEXPAND_IF); - - /*iniclos dclo_1052__MEXPAND_IF*/ - /*_.VALCLO___V1113*/ curfptr[1112] = (void*)&cdat->dclo_1052__MEXPAND_IF; - cdat->dclo_1052__MEXPAND_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1052__MEXPAND_IF.nbval = 0; - - /*iniobj dsym_1053__IF*/ - if (!/*_.VALDATA___V1114*/ curfptr[1113]) /*_.VALDATA___V1114*/ curfptr[1113] = (void*)&cdat->dsym_1053__IF; - basilys_assertmsg("iniobj checkdiscr dsym_1053__IF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1053__IF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1053__IF.obj_hash = 117586816; - cdat->dsym_1053__IF.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1053__IF)); - - /*inistring dstr_1054__IF*/ - /*_.VALSTR___V1115*/ curfptr[1114] = (void*)&cdat->dstr_1054__IF; - cdat->dstr_1054__IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1054__IF.val, "IF"); - - /*inirout drout_1055__MEXPAND_CPPIF*/ - /*_.VALROUT___V1116*/ curfptr[1115] = (void*)&cdat->drout_1055__MEXPAND_CPPIF; - cdat->drout_1055__MEXPAND_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1055__MEXPAND_CPPIF.routdescr, "MEXPAND_CPPIF @warmelt-macro.bysl:2670", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1055__MEXPAND_CPPIF.nbval = 6; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1055__MEXPAND_CPPIF, rout_53_MEXPAND_CPPIF); - - /*iniclos dclo_1056__MEXPAND_CPPIF*/ - /*_.VALCLO___V1117*/ curfptr[1116] = (void*)&cdat->dclo_1056__MEXPAND_CPPIF; - cdat->dclo_1056__MEXPAND_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1056__MEXPAND_CPPIF.nbval = 0; - - /*iniobj dsym_1057__CPPIF*/ - if (!/*_.VALDATA___V1118*/ curfptr[1117]) /*_.VALDATA___V1118*/ curfptr[1117] = (void*)&cdat->dsym_1057__CPPIF; - basilys_assertmsg("iniobj checkdiscr dsym_1057__CPPIF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1057__CPPIF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1057__CPPIF.obj_hash = 829409177; - cdat->dsym_1057__CPPIF.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1057__CPPIF)); - - /*inistring dstr_1058__CPPIF*/ - /*_.VALSTR___V1119*/ curfptr[1118] = (void*)&cdat->dstr_1058__CPPIF; - cdat->dstr_1058__CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1058__CPPIF.val, "CPPIF"); - - /*inirout drout_1059__MEXPAND_COND*/ - /*_.VALROUT___V1120*/ curfptr[1119] = (void*)&cdat->drout_1059__MEXPAND_COND; - cdat->drout_1059__MEXPAND_COND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1059__MEXPAND_COND.routdescr, "MEXPAND_COND @warmelt-macro.bysl:2722", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1059__MEXPAND_COND.nbval = 12; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1059__MEXPAND_COND, rout_54_MEXPAND_COND); - - /*iniclos dclo_1060__MEXPAND_COND*/ - /*_.VALCLO___V1127*/ curfptr[1126] = (void*)&cdat->dclo_1060__MEXPAND_COND; - cdat->dclo_1060__MEXPAND_COND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1060__MEXPAND_COND.nbval = 0; - - /*inirout drout_1061__LAMBDA_*/ - /*_.VALROUT___V1121*/ curfptr[1120] = (void*)&cdat->drout_1061__LAMBDA_; - cdat->drout_1061__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1061__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:2732", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1061__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1061__LAMBDA_, rout_55_LAMBDA_); - - /*iniobj dsym_1062__ELSE*/ - if (!/*_.VALDATA___V1122*/ curfptr[1121]) /*_.VALDATA___V1122*/ curfptr[1121] = (void*)&cdat->dsym_1062__ELSE; - basilys_assertmsg("iniobj checkdiscr dsym_1062__ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_1062__ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_1062__ELSE.obj_hash = 34374860; - cdat->dsym_1062__ELSE.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1062__ELSE)); - - /*inistring dstr_1063__ELSE*/ - /*_.VALSTR___V1123*/ curfptr[1122] = (void*)&cdat->dstr_1063__ELSE; - cdat->dstr_1063__ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1063__ELSE.val, "ELSE"); - - /*iniobj dsym_1064__COND*/ - if (!/*_.VALDATA___V1128*/ curfptr[1127]) /*_.VALDATA___V1128*/ curfptr[1127] = (void*)&cdat->dsym_1064__COND; - basilys_assertmsg("iniobj checkdiscr dsym_1064__COND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1064__COND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1064__COND.obj_hash = 51211759; - cdat->dsym_1064__COND.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1064__COND)); - - /*inistring dstr_1065__COND*/ - /*_.VALSTR___V1129*/ curfptr[1128] = (void*)&cdat->dstr_1065__COND; - cdat->dstr_1065__COND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1065__COND.val, "COND"); - - /*inirout drout_1066__MEXPAND_AND*/ - /*_.VALROUT___V1130*/ curfptr[1129] = (void*)&cdat->drout_1066__MEXPAND_AND; - cdat->drout_1066__MEXPAND_AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1066__MEXPAND_AND.routdescr, "MEXPAND_AND @warmelt-macro.bysl:2817", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1066__MEXPAND_AND.nbval = 8; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1066__MEXPAND_AND, rout_56_MEXPAND_AND); - - /*iniclos dclo_1067__MEXPAND_AND*/ - /*_.VALCLO___V1132*/ curfptr[1131] = (void*)&cdat->dclo_1067__MEXPAND_AND; - cdat->dclo_1067__MEXPAND_AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1067__MEXPAND_AND.nbval = 0; - - /*inirout drout_1068__LAMBDA_*/ - /*_.VALROUT___V1131*/ curfptr[1130] = (void*)&cdat->drout_1068__LAMBDA_; - cdat->drout_1068__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1068__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:2828", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1068__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1068__LAMBDA_, rout_57_LAMBDA_); - - /*inirout drout_1069__PATEXPAND_AS*/ - /*_.VALROUT___V1133*/ curfptr[1132] = (void*)&cdat->drout_1069__PATEXPAND_AS; - cdat->drout_1069__PATEXPAND_AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1069__PATEXPAND_AS.routdescr, "PATEXPAND_AS @warmelt-macro.bysl:2855", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1069__PATEXPAND_AS.nbval = 8; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1069__PATEXPAND_AS, rout_58_PATEXPAND_AS); - - /*iniclos dclo_1070__PATEXPAND_AS*/ - /*_.VALCLO___V1134*/ curfptr[1133] = (void*)&cdat->dclo_1070__PATEXPAND_AS; - cdat->dclo_1070__PATEXPAND_AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1070__PATEXPAND_AS.nbval = 0; - - /*inirout drout_1071__MEXPAND_AS*/ - /*_.VALROUT___V1135*/ curfptr[1134] = (void*)&cdat->drout_1071__MEXPAND_AS; - cdat->drout_1071__MEXPAND_AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1071__MEXPAND_AS.routdescr, "MEXPAND_AS @warmelt-macro.bysl:2891", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1071__MEXPAND_AS.nbval = 3; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1071__MEXPAND_AS, rout_59_MEXPAND_AS); - - /*iniclos dclo_1072__MEXPAND_AS*/ - /*_.VALCLO___V1136*/ curfptr[1135] = (void*)&cdat->dclo_1072__MEXPAND_AS; - cdat->dclo_1072__MEXPAND_AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1072__MEXPAND_AS.nbval = 0; - - /*iniobj dsym_1073__AS*/ - if (!/*_.VALDATA___V1137*/ curfptr[1136]) /*_.VALDATA___V1137*/ curfptr[1136] = (void*)&cdat->dsym_1073__AS; - basilys_assertmsg("iniobj checkdiscr dsym_1073__AS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1073__AS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1073__AS.obj_hash = 76496773; - cdat->dsym_1073__AS.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1073__AS)); - - /*inistring dstr_1074__AS*/ - /*_.VALSTR___V1138*/ curfptr[1137] = (void*)&cdat->dstr_1074__AS; - cdat->dstr_1074__AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1074__AS.val, "AS"); - - /*inirout drout_1075__PATEXPAND_AND*/ - /*_.VALROUT___V1139*/ curfptr[1138] = (void*)&cdat->drout_1075__PATEXPAND_AND; - cdat->drout_1075__PATEXPAND_AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1075__PATEXPAND_AND.routdescr, "PATEXPAND_AND @warmelt-macro.bysl:2906", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1075__PATEXPAND_AND.nbval = 6; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1075__PATEXPAND_AND, rout_60_PATEXPAND_AND); - - /*iniclos dclo_1076__PATEXPAND_AND*/ - /*_.VALCLO___V1140*/ curfptr[1139] = (void*)&cdat->dclo_1076__PATEXPAND_AND; - cdat->dclo_1076__PATEXPAND_AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1076__PATEXPAND_AND.nbval = 0; - - /*iniobj dsym_1077__AND*/ - if (!/*_.VALDATA___V1141*/ curfptr[1140]) /*_.VALDATA___V1141*/ curfptr[1140] = (void*)&cdat->dsym_1077__AND; - basilys_assertmsg("iniobj checkdiscr dsym_1077__AND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1077__AND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1077__AND.obj_hash = 123533605; - cdat->dsym_1077__AND.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1077__AND)); - - /*inistring dstr_1078__AND*/ - /*_.VALSTR___V1142*/ curfptr[1141] = (void*)&cdat->dstr_1078__AND; - cdat->dstr_1078__AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1078__AND.val, "AND"); - - /*inirout drout_1079__MEXPAND_OR*/ - /*_.VALROUT___V1143*/ curfptr[1142] = (void*)&cdat->drout_1079__MEXPAND_OR; - cdat->drout_1079__MEXPAND_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1079__MEXPAND_OR.routdescr, "MEXPAND_OR @warmelt-macro.bysl:2929", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1079__MEXPAND_OR.nbval = 8; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1079__MEXPAND_OR, rout_61_MEXPAND_OR); - - /*iniclos dclo_1080__MEXPAND_OR*/ - /*_.VALCLO___V1145*/ curfptr[1144] = (void*)&cdat->dclo_1080__MEXPAND_OR; - cdat->dclo_1080__MEXPAND_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1080__MEXPAND_OR.nbval = 0; - - /*inirout drout_1081__LAMBDA_*/ - /*_.VALROUT___V1144*/ curfptr[1143] = (void*)&cdat->drout_1081__LAMBDA_; - cdat->drout_1081__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1081__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:2939", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1081__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1081__LAMBDA_, rout_62_LAMBDA_); - - /*inirout drout_1082__PATEXPAND_OR*/ - /*_.VALROUT___V1146*/ curfptr[1145] = (void*)&cdat->drout_1082__PATEXPAND_OR; - cdat->drout_1082__PATEXPAND_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1082__PATEXPAND_OR.routdescr, "PATEXPAND_OR @warmelt-macro.bysl:2956", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1082__PATEXPAND_OR.nbval = 6; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1082__PATEXPAND_OR, rout_63_PATEXPAND_OR); - - /*iniclos dclo_1083__PATEXPAND_OR*/ - /*_.VALCLO___V1147*/ curfptr[1146] = (void*)&cdat->dclo_1083__PATEXPAND_OR; - cdat->dclo_1083__PATEXPAND_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1083__PATEXPAND_OR.nbval = 0; - - /*iniobj dsym_1084__OR*/ - if (!/*_.VALDATA___V1148*/ curfptr[1147]) /*_.VALDATA___V1148*/ curfptr[1147] = (void*)&cdat->dsym_1084__OR; - basilys_assertmsg("iniobj checkdiscr dsym_1084__OR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1084__OR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1084__OR.obj_hash = 44588765; - cdat->dsym_1084__OR.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1084__OR)); - - /*inistring dstr_1085__OR*/ - /*_.VALSTR___V1149*/ curfptr[1148] = (void*)&cdat->dstr_1085__OR; - cdat->dstr_1085__OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1085__OR.val, "OR"); - - /*inirout drout_1086__MEXPAND_MATCH*/ - /*_.VALROUT___V1150*/ curfptr[1149] = (void*)&cdat->drout_1086__MEXPAND_MATCH; - cdat->drout_1086__MEXPAND_MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1086__MEXPAND_MATCH.routdescr, "MEXPAND_MATCH @warmelt-macro.bysl:2979", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1086__MEXPAND_MATCH.nbval = 18; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1086__MEXPAND_MATCH, rout_64_MEXPAND_MATCH); - - /*iniclos dclo_1087__MEXPAND_MATCH*/ - /*_.VALCLO___V1154*/ curfptr[1153] = (void*)&cdat->dclo_1087__MEXPAND_MATCH; - cdat->dclo_1087__MEXPAND_MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1087__MEXPAND_MATCH.nbval = 0; - - /*inirout drout_1088__LAMBDA_*/ - /*_.VALROUT___V1151*/ curfptr[1150] = (void*)&cdat->drout_1088__LAMBDA_; - cdat->drout_1088__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1088__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:2991", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1088__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1088__LAMBDA_, rout_65_LAMBDA_); - - /*iniobj dsym_1089__WHEN*/ - if (!/*_.VALDATA___V1152*/ curfptr[1151]) /*_.VALDATA___V1152*/ curfptr[1151] = (void*)&cdat->dsym_1089__WHEN; - basilys_assertmsg("iniobj checkdiscr dsym_1089__WHEN", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_1089__WHEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); - cdat->dsym_1089__WHEN.obj_hash = 513049466; - cdat->dsym_1089__WHEN.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1089__WHEN)); - - /*inistring dstr_1090__WHEN*/ - /*_.VALSTR___V1153*/ curfptr[1152] = (void*)&cdat->dstr_1090__WHEN; - cdat->dstr_1090__WHEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1090__WHEN.val, "WHEN"); - - /*iniobj dsym_1091__MATCH*/ - if (!/*_.VALDATA___V1155*/ curfptr[1154]) /*_.VALDATA___V1155*/ curfptr[1154] = (void*)&cdat->dsym_1091__MATCH; - basilys_assertmsg("iniobj checkdiscr dsym_1091__MATCH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1091__MATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1091__MATCH.obj_hash = 996778084; - cdat->dsym_1091__MATCH.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1091__MATCH)); - - /*inistring dstr_1092__MATCH*/ - /*_.VALSTR___V1156*/ curfptr[1155] = (void*)&cdat->dstr_1092__MATCH; - cdat->dstr_1092__MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1092__MATCH.val, "MATCH"); - - /*inirout drout_1093__MEXPAND_LETBINDING*/ - /*_.VALROUT___V1157*/ curfptr[1156] = (void*)&cdat->drout_1093__MEXPAND_LETBINDING; - cdat->drout_1093__MEXPAND_LETBINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1093__MEXPAND_LETBINDING.routdescr, "MEXPAND_LETBINDING @warmelt-macro.bysl:3078", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1093__MEXPAND_LETBINDING.nbval = 9; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1093__MEXPAND_LETBINDING, rout_66_MEXPAND_LETBINDING); - - /*iniclos dclo_1094__MEXPAND_LETBINDING*/ - /*_.VALCLO___V1158*/ curfptr[1157] = (void*)&cdat->dclo_1094__MEXPAND_LETBINDING; - cdat->dclo_1094__MEXPAND_LETBINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1094__MEXPAND_LETBINDING.nbval = 0; - - /*inirout drout_1095__MEXPAND_LET*/ - /*_.VALROUT___V1159*/ curfptr[1158] = (void*)&cdat->drout_1095__MEXPAND_LET; - cdat->drout_1095__MEXPAND_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1095__MEXPAND_LET.routdescr, "MEXPAND_LET @warmelt-macro.bysl:3129", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1095__MEXPAND_LET.nbval = 16; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1095__MEXPAND_LET, rout_67_MEXPAND_LET); - - /*iniclos dclo_1096__MEXPAND_LET*/ - /*_.VALCLO___V1163*/ curfptr[1162] = (void*)&cdat->dclo_1096__MEXPAND_LET; - cdat->dclo_1096__MEXPAND_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1096__MEXPAND_LET.nbval = 0; - - /*inirout drout_1097__LAMBDA_*/ - /*_.VALROUT___V1160*/ curfptr[1159] = (void*)&cdat->drout_1097__LAMBDA_; - cdat->drout_1097__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1097__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3148", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1097__LAMBDA_.nbval = 2; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1097__LAMBDA_, rout_68_LAMBDA_); - - /*inirout drout_1098__LAMBDA_*/ - /*_.VALROUT___V1161*/ curfptr[1160] = (void*)&cdat->drout_1098__LAMBDA_; - cdat->drout_1098__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1098__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3156", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1098__LAMBDA_.nbval = 3; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1098__LAMBDA_, rout_69_LAMBDA_); - - /*iniobj dsym_1099__CLASS_LET_BINDING*/ - if (!/*_.VALDATA___V1164*/ curfptr[1163]) /*_.VALDATA___V1164*/ curfptr[1163] = (void*)&cdat->dsym_1099__CLASS_LET_BINDING; - basilys_assertmsg("iniobj checkdiscr dsym_1099__CLASS_LET_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1099__CLASS_LET_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1099__CLASS_LET_BINDING.obj_hash = 373730517; - cdat->dsym_1099__CLASS_LET_BINDING.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1099__CLASS_LET_BINDING)); - - /*inistring dstr_1100__CLASS_LET_BINDIN*/ - /*_.VALSTR___V1165*/ curfptr[1164] = (void*)&cdat->dstr_1100__CLASS_LET_BINDIN; - cdat->dstr_1100__CLASS_LET_BINDIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1100__CLASS_LET_BINDIN.val, "CLASS_LET_BINDING"); - - /*inirout drout_1101__LAMBDA_*/ - /*_.VALROUT___V1162*/ curfptr[1161] = (void*)&cdat->drout_1101__LAMBDA_; - cdat->drout_1101__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1101__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3168", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1101__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1101__LAMBDA_, rout_70_LAMBDA_); - - /*iniobj dsym_1102__LET*/ - if (!/*_.VALDATA___V1166*/ curfptr[1165]) /*_.VALDATA___V1166*/ curfptr[1165] = (void*)&cdat->dsym_1102__LET; - basilys_assertmsg("iniobj checkdiscr dsym_1102__LET", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1102__LET.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1102__LET.obj_hash = 70931144; - cdat->dsym_1102__LET.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1102__LET)); - - /*inistring dstr_1103__LET*/ - /*_.VALSTR___V1167*/ curfptr[1166] = (void*)&cdat->dstr_1103__LET; - cdat->dstr_1103__LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1103__LET.val, "LET"); - - /*inirout drout_1104__MEXPAND_LAMBDA*/ - /*_.VALROUT___V1168*/ curfptr[1167] = (void*)&cdat->drout_1104__MEXPAND_LAMBDA; - cdat->drout_1104__MEXPAND_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1104__MEXPAND_LAMBDA.routdescr, "MEXPAND_LAMBDA @warmelt-macro.bysl:3180", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1104__MEXPAND_LAMBDA.nbval = 12; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1104__MEXPAND_LAMBDA, rout_71_MEXPAND_LAMBDA); - - /*iniclos dclo_1105__MEXPAND_LAMBDA*/ - /*_.VALCLO___V1171*/ curfptr[1170] = (void*)&cdat->dclo_1105__MEXPAND_LAMBDA; - cdat->dclo_1105__MEXPAND_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1105__MEXPAND_LAMBDA.nbval = 0; - - /*inirout drout_1106__LAMBDA_*/ - /*_.VALROUT___V1169*/ curfptr[1168] = (void*)&cdat->drout_1106__LAMBDA_; - cdat->drout_1106__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1106__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3195", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1106__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1106__LAMBDA_, rout_72_LAMBDA_); + /*inirout drout_932__FLATTEN_FOR_C_CODE_EXPANSION*/ + /*_.VALROUT___V994*/ curfptr[993] = (void*)&cdat->drout_932__FLATTEN_FOR_C_CODE_EXPANSION; + cdat->drout_932__FLATTEN_FOR_C_CODE_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_932__FLATTEN_FOR_C_CODE_EXPANSION.routdescr, "FLATTEN_FOR_C_CODE_EXPANSION @warmelt-macro.bysl:1233", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_932__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 6; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_932__FLATTEN_FOR_C_CODE_EXPANSION, rout_24_FLATTEN_FOR_C_CODE_EXPANSION); + + /*iniclos dclo_933__FLATTEN_FOR_C_CODE_EXPANSION*/ + /*_.VALCLO___V995*/ curfptr[994] = (void*)&cdat->dclo_933__FLATTEN_FOR_C_CODE_EXPANSION; + cdat->dclo_933__FLATTEN_FOR_C_CODE_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_933__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 0; + + /*iniobj dsym_934__DISCR_VERBATIMSTRING*/ + if (!/*_.VALDATA___V996*/ curfptr[995]) /*_.VALDATA___V996*/ curfptr[995] = (void*)&cdat->dsym_934__DISCR_VERBATIMSTRING; + basilys_assertmsg("iniobj checkdiscr dsym_934__DISCR_VERBATIMSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_934__DISCR_VERBATIMSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_934__DISCR_VERBATIMSTRING.obj_hash = 6759605; + cdat->dsym_934__DISCR_VERBATIMSTRING.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_934__DISCR_VERBATIMSTRING)); + + /*inistring dstr_935__DISCR_VERBATIMST*/ + /*_.VALSTR___V997*/ curfptr[996] = (void*)&cdat->dstr_935__DISCR_VERBATIMST; + cdat->dstr_935__DISCR_VERBATIMST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_935__DISCR_VERBATIMST.val, "DISCR_VERBATIMSTRING"); + + /*iniobj dsym_936__CLASS_LOCATED*/ + if (!/*_.VALDATA___V998*/ curfptr[997]) /*_.VALDATA___V998*/ curfptr[997] = (void*)&cdat->dsym_936__CLASS_LOCATED; + basilys_assertmsg("iniobj checkdiscr dsym_936__CLASS_LOCATED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_936__CLASS_LOCATED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_936__CLASS_LOCATED.obj_hash = 979003; + cdat->dsym_936__CLASS_LOCATED.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_936__CLASS_LOCATED)); + + /*inistring dstr_937__CLASS_LOCATED*/ + /*_.VALSTR___V999*/ curfptr[998] = (void*)&cdat->dstr_937__CLASS_LOCATED; + cdat->dstr_937__CLASS_LOCATED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_937__CLASS_LOCATED.val, "CLASS_LOCATED"); + + /*inirout drout_938__PARSE_PAIRLIST_C_CODE_EXPANSION*/ + /*_.VALROUT___V1000*/ curfptr[999] = (void*)&cdat->drout_938__PARSE_PAIRLIST_C_CODE_EXPANSION; + cdat->drout_938__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_938__PARSE_PAIRLIST_C_CODE_EXPANSION.routdescr, "PARSE_PAIRLIST_C_CODE_EXPANSION @warmelt-macro.bysl:1279", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_938__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 5; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_938__PARSE_PAIRLIST_C_CODE_EXPANSION, rout_25_PARSE_PAIRLIST_C_CODE_EXPANSION); + + /*iniclos dclo_939__PARSE_PAIRLIST_C_CODE_EXPANSION*/ + /*_.VALCLO___V1001*/ curfptr[1000] = (void*)&cdat->dclo_939__PARSE_PAIRLIST_C_CODE_EXPANSION; + cdat->dclo_939__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_939__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 0; + + /*iniobj dsym_940__LIST_TO_MULTIPLE*/ + if (!/*_.VALDATA___V1002*/ curfptr[1001]) /*_.VALDATA___V1002*/ curfptr[1001] = (void*)&cdat->dsym_940__LIST_TO_MULTIPLE; + basilys_assertmsg("iniobj checkdiscr dsym_940__LIST_TO_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_940__LIST_TO_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_940__LIST_TO_MULTIPLE.obj_hash = 987171205; + cdat->dsym_940__LIST_TO_MULTIPLE.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_940__LIST_TO_MULTIPLE)); + + /*inistring dstr_941__LIST_TO_MULTIPLE*/ + /*_.VALSTR___V1003*/ curfptr[1002] = (void*)&cdat->dstr_941__LIST_TO_MULTIPLE; + cdat->dstr_941__LIST_TO_MULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_941__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE"); + + /*inirout drout_942__CHECK_C_EXPANSION*/ + /*_.VALROUT___V1004*/ curfptr[1003] = (void*)&cdat->drout_942__CHECK_C_EXPANSION; + cdat->drout_942__CHECK_C_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_942__CHECK_C_EXPANSION.routdescr, "CHECK_C_EXPANSION @warmelt-macro.bysl:1300", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_942__CHECK_C_EXPANSION.nbval = 3; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_942__CHECK_C_EXPANSION, rout_26_CHECK_C_EXPANSION); + + /*iniclos dclo_943__CHECK_C_EXPANSION*/ + /*_.VALCLO___V1005*/ curfptr[1004] = (void*)&cdat->dclo_943__CHECK_C_EXPANSION; + cdat->dclo_943__CHECK_C_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_943__CHECK_C_EXPANSION.nbval = 0; + + /*inirout drout_944__MEXPAND_DEFPRIMITIVE*/ + /*_.VALROUT___V1006*/ curfptr[1005] = (void*)&cdat->drout_944__MEXPAND_DEFPRIMITIVE; + cdat->drout_944__MEXPAND_DEFPRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_944__MEXPAND_DEFPRIMITIVE.routdescr, "MEXPAND_DEFPRIMITIVE @warmelt-macro.bysl:1326", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_944__MEXPAND_DEFPRIMITIVE.nbval = 17; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_944__MEXPAND_DEFPRIMITIVE, rout_27_MEXPAND_DEFPRIMITIVE); + + /*iniclos dclo_945__MEXPAND_DEFPRIMITIVE*/ + /*_.VALCLO___V1007*/ curfptr[1006] = (void*)&cdat->dclo_945__MEXPAND_DEFPRIMITIVE; + cdat->dclo_945__MEXPAND_DEFPRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_945__MEXPAND_DEFPRIMITIVE.nbval = 0; + + /*iniobj dsym_946__CLASS_ANY_BINDING*/ + if (!/*_.VALDATA___V1008*/ curfptr[1007]) /*_.VALDATA___V1008*/ curfptr[1007] = (void*)&cdat->dsym_946__CLASS_ANY_BINDING; + basilys_assertmsg("iniobj checkdiscr dsym_946__CLASS_ANY_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_946__CLASS_ANY_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_946__CLASS_ANY_BINDING.obj_hash = 935770; + cdat->dsym_946__CLASS_ANY_BINDING.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_946__CLASS_ANY_BINDING)); + + /*inistring dstr_947__CLASS_ANY_BINDIN*/ + /*_.VALSTR___V1009*/ curfptr[1008] = (void*)&cdat->dstr_947__CLASS_ANY_BINDIN; + cdat->dstr_947__CLASS_ANY_BINDIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_947__CLASS_ANY_BINDIN.val, "CLASS_ANY_BINDING"); + + /*iniobj dsym_948__DEFPRIMITIVE*/ + if (!/*_.VALDATA___V1010*/ curfptr[1009]) /*_.VALDATA___V1010*/ curfptr[1009] = (void*)&cdat->dsym_948__DEFPRIMITIVE; + basilys_assertmsg("iniobj checkdiscr dsym_948__DEFPRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_948__DEFPRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_948__DEFPRIMITIVE.obj_hash = 68752716; + cdat->dsym_948__DEFPRIMITIVE.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_948__DEFPRIMITIVE)); + + /*inistring dstr_949__DEFPRIMITIVE*/ + /*_.VALSTR___V1011*/ curfptr[1010] = (void*)&cdat->dstr_949__DEFPRIMITIVE; + cdat->dstr_949__DEFPRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_949__DEFPRIMITIVE.val, "DEFPRIMITIVE"); + + /*inirout drout_950__MEXPAND_DEFCITERATOR*/ + /*_.VALROUT___V1012*/ curfptr[1011] = (void*)&cdat->drout_950__MEXPAND_DEFCITERATOR; + cdat->drout_950__MEXPAND_DEFCITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_950__MEXPAND_DEFCITERATOR.routdescr, "MEXPAND_DEFCITERATOR @warmelt-macro.bysl:1408", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_950__MEXPAND_DEFCITERATOR.nbval = 14; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_950__MEXPAND_DEFCITERATOR, rout_28_MEXPAND_DEFCITERATOR); + + /*iniclos dclo_951__MEXPAND_DEFCITERATOR*/ + /*_.VALCLO___V1013*/ curfptr[1012] = (void*)&cdat->dclo_951__MEXPAND_DEFCITERATOR; + cdat->dclo_951__MEXPAND_DEFCITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_951__MEXPAND_DEFCITERATOR.nbval = 0; + + /*iniobj dsym_952__DEFCITERATOR*/ + if (!/*_.VALDATA___V1014*/ curfptr[1013]) /*_.VALDATA___V1014*/ curfptr[1013] = (void*)&cdat->dsym_952__DEFCITERATOR; + basilys_assertmsg("iniobj checkdiscr dsym_952__DEFCITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_952__DEFCITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_952__DEFCITERATOR.obj_hash = 388838610; + cdat->dsym_952__DEFCITERATOR.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_952__DEFCITERATOR)); + + /*inistring dstr_953__DEFCITERATOR*/ + /*_.VALSTR___V1015*/ curfptr[1014] = (void*)&cdat->dstr_953__DEFCITERATOR; + cdat->dstr_953__DEFCITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_953__DEFCITERATOR.val, "DEFCITERATOR"); + + /*inirout drout_954__MEXPAND_DEFCMATCHER*/ + /*_.VALROUT___V1016*/ curfptr[1015] = (void*)&cdat->drout_954__MEXPAND_DEFCMATCHER; + cdat->drout_954__MEXPAND_DEFCMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_954__MEXPAND_DEFCMATCHER.routdescr, "MEXPAND_DEFCMATCHER @warmelt-macro.bysl:1515", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_954__MEXPAND_DEFCMATCHER.nbval = 17; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_954__MEXPAND_DEFCMATCHER, rout_29_MEXPAND_DEFCMATCHER); + + /*iniclos dclo_955__MEXPAND_DEFCMATCHER*/ + /*_.VALCLO___V1018*/ curfptr[1017] = (void*)&cdat->dclo_955__MEXPAND_DEFCMATCHER; + cdat->dclo_955__MEXPAND_DEFCMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_955__MEXPAND_DEFCMATCHER.nbval = 0; + + /*iniobj dsym_956__MULTIPLE_EVERY*/ + if (!/*_.VALDATA___V1019*/ curfptr[1018]) /*_.VALDATA___V1019*/ curfptr[1018] = (void*)&cdat->dsym_956__MULTIPLE_EVERY; + basilys_assertmsg("iniobj checkdiscr dsym_956__MULTIPLE_EVERY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_956__MULTIPLE_EVERY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_956__MULTIPLE_EVERY.obj_hash = 130098745; + cdat->dsym_956__MULTIPLE_EVERY.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_956__MULTIPLE_EVERY)); + + /*inistring dstr_957__MULTIPLE_EVERY*/ + /*_.VALSTR___V1020*/ curfptr[1019] = (void*)&cdat->dstr_957__MULTIPLE_EVERY; + cdat->dstr_957__MULTIPLE_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_957__MULTIPLE_EVERY.val, "MULTIPLE_EVERY"); + + /*inirout drout_958__LAMBDA_*/ + /*_.VALROUT___V1017*/ curfptr[1016] = (void*)&cdat->drout_958__LAMBDA_; + cdat->drout_958__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_958__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:1557", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_958__LAMBDA_.nbval = 0; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_958__LAMBDA_, rout_30_LAMBDA_); + + /*iniobj dsym_959__DEFCMATCHER*/ + if (!/*_.VALDATA___V1021*/ curfptr[1020]) /*_.VALDATA___V1021*/ curfptr[1020] = (void*)&cdat->dsym_959__DEFCMATCHER; + basilys_assertmsg("iniobj checkdiscr dsym_959__DEFCMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_959__DEFCMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_959__DEFCMATCHER.obj_hash = 63669746; + cdat->dsym_959__DEFCMATCHER.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_959__DEFCMATCHER)); + + /*inistring dstr_960__DEFCMATCHER*/ + /*_.VALSTR___V1022*/ curfptr[1021] = (void*)&cdat->dstr_960__DEFCMATCHER; + cdat->dstr_960__DEFCMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_960__DEFCMATCHER.val, "DEFCMATCHER"); + + /*inirout drout_961__MEXPAND_DEFUNMATCHER*/ + /*_.VALROUT___V1023*/ curfptr[1022] = (void*)&cdat->drout_961__MEXPAND_DEFUNMATCHER; + cdat->drout_961__MEXPAND_DEFUNMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_961__MEXPAND_DEFUNMATCHER.routdescr, "MEXPAND_DEFUNMATCHER @warmelt-macro.bysl:1672", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_961__MEXPAND_DEFUNMATCHER.nbval = 13; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_961__MEXPAND_DEFUNMATCHER, rout_31_MEXPAND_DEFUNMATCHER); + + /*iniclos dclo_962__MEXPAND_DEFUNMATCHER*/ + /*_.VALCLO___V1025*/ curfptr[1024] = (void*)&cdat->dclo_962__MEXPAND_DEFUNMATCHER; + cdat->dclo_962__MEXPAND_DEFUNMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_962__MEXPAND_DEFUNMATCHER.nbval = 0; + + /*inirout drout_963__LAMBDA_*/ + /*_.VALROUT___V1024*/ curfptr[1023] = (void*)&cdat->drout_963__LAMBDA_; + cdat->drout_963__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_963__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:1712", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_963__LAMBDA_.nbval = 0; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_963__LAMBDA_, rout_32_LAMBDA_); + + /*iniobj dsym_964__DEFUNMATCHER*/ + if (!/*_.VALDATA___V1026*/ curfptr[1025]) /*_.VALDATA___V1026*/ curfptr[1025] = (void*)&cdat->dsym_964__DEFUNMATCHER; + basilys_assertmsg("iniobj checkdiscr dsym_964__DEFUNMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_964__DEFUNMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_964__DEFUNMATCHER.obj_hash = 739727106; + cdat->dsym_964__DEFUNMATCHER.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_964__DEFUNMATCHER)); + + /*inistring dstr_965__DEFUNMATCHER*/ + /*_.VALSTR___V1027*/ curfptr[1026] = (void*)&cdat->dstr_965__DEFUNMATCHER; + cdat->dstr_965__DEFUNMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_965__DEFUNMATCHER.val, "DEFUNMATCHER"); + + /*inirout drout_966__MEXPAND_DEFUN*/ + /*_.VALROUT___V1028*/ curfptr[1027] = (void*)&cdat->drout_966__MEXPAND_DEFUN; + cdat->drout_966__MEXPAND_DEFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_966__MEXPAND_DEFUN.routdescr, "MEXPAND_DEFUN @warmelt-macro.bysl:1791", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_966__MEXPAND_DEFUN.nbval = 15; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_966__MEXPAND_DEFUN, rout_33_MEXPAND_DEFUN); + + /*iniclos dclo_967__MEXPAND_DEFUN*/ + /*_.VALCLO___V1030*/ curfptr[1029] = (void*)&cdat->dclo_967__MEXPAND_DEFUN; + cdat->dclo_967__MEXPAND_DEFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_967__MEXPAND_DEFUN.nbval = 0; + + /*iniobj dsym_968__FRESH_ENV*/ + if (!/*_.VALDATA___V1031*/ curfptr[1030]) /*_.VALDATA___V1031*/ curfptr[1030] = (void*)&cdat->dsym_968__FRESH_ENV; + basilys_assertmsg("iniobj checkdiscr dsym_968__FRESH_ENV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_968__FRESH_ENV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_968__FRESH_ENV.obj_hash = 1002363940; + cdat->dsym_968__FRESH_ENV.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_968__FRESH_ENV)); + + /*inistring dstr_969__FRESH_ENV*/ + /*_.VALSTR___V1032*/ curfptr[1031] = (void*)&cdat->dstr_969__FRESH_ENV; + cdat->dstr_969__FRESH_ENV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_969__FRESH_ENV.val, "FRESH_ENV"); + + /*inirout drout_970__LAMBDA_*/ + /*_.VALROUT___V1029*/ curfptr[1028] = (void*)&cdat->drout_970__LAMBDA_; + cdat->drout_970__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_970__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:1821", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_970__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_970__LAMBDA_, rout_34_LAMBDA_); + + /*iniobj dsym_971__CLASS_FUNCTION_BINDING*/ + if (!/*_.VALDATA___V1033*/ curfptr[1032]) /*_.VALDATA___V1033*/ curfptr[1032] = (void*)&cdat->dsym_971__CLASS_FUNCTION_BINDING; + basilys_assertmsg("iniobj checkdiscr dsym_971__CLASS_FUNCTION_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_971__CLASS_FUNCTION_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_971__CLASS_FUNCTION_BINDING.obj_hash = 942362333; + cdat->dsym_971__CLASS_FUNCTION_BINDING.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_971__CLASS_FUNCTION_BINDING)); + + /*inistring dstr_972__CLASS_FUNCTION_B*/ + /*_.VALSTR___V1034*/ curfptr[1033] = (void*)&cdat->dstr_972__CLASS_FUNCTION_B; + cdat->dstr_972__CLASS_FUNCTION_B.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_972__CLASS_FUNCTION_B.val, "CLASS_FUNCTION_BINDING"); + + /*inirout drout_973__SCAN_DEFCLASS*/ + /*_.VALROUT___V1035*/ curfptr[1034] = (void*)&cdat->drout_973__SCAN_DEFCLASS; + cdat->drout_973__SCAN_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_973__SCAN_DEFCLASS.routdescr, "SCAN_DEFCLASS @warmelt-macro.bysl:1848", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_973__SCAN_DEFCLASS.nbval = 15; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_973__SCAN_DEFCLASS, rout_35_SCAN_DEFCLASS); + + /*iniclos dclo_974__SCAN_DEFCLASS*/ + /*_.VALCLO___V1044*/ curfptr[1043] = (void*)&cdat->dclo_974__SCAN_DEFCLASS; + cdat->dclo_974__SCAN_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_974__SCAN_DEFCLASS.nbval = 0; + + /*iniobj dsym_975__SUPER*/ + if (!/*_.VALDATA___V1036*/ curfptr[1035]) /*_.VALDATA___V1036*/ curfptr[1035] = (void*)&cdat->dsym_975__SUPER; + basilys_assertmsg("iniobj checkdiscr dsym_975__SUPER", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_975__SUPER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_975__SUPER.obj_hash = 103938843; + cdat->dsym_975__SUPER.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_975__SUPER)); + + /*inistring dstr_976__SUPER*/ + /*_.VALSTR___V1037*/ curfptr[1036] = (void*)&cdat->dstr_976__SUPER; + cdat->dstr_976__SUPER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_976__SUPER.val, "SUPER"); + + /*iniobj dsym_977__CLASS_CLASS_BINDING*/ + if (!/*_.VALDATA___V1045*/ curfptr[1044]) /*_.VALDATA___V1045*/ curfptr[1044] = (void*)&cdat->dsym_977__CLASS_CLASS_BINDING; + basilys_assertmsg("iniobj checkdiscr dsym_977__CLASS_CLASS_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_977__CLASS_CLASS_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_977__CLASS_CLASS_BINDING.obj_hash = 848133131; + cdat->dsym_977__CLASS_CLASS_BINDING.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_977__CLASS_CLASS_BINDING)); + + /*inistring dstr_978__CLASS_CLASS_BIND*/ + /*_.VALSTR___V1046*/ curfptr[1045] = (void*)&cdat->dstr_978__CLASS_CLASS_BIND; + cdat->dstr_978__CLASS_CLASS_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_978__CLASS_CLASS_BIND.val, "CLASS_CLASS_BINDING"); + + /*iniobj dsym_979__CLASS_CLASS*/ + if (!/*_.VALDATA___V1047*/ curfptr[1046]) /*_.VALDATA___V1047*/ curfptr[1046] = (void*)&cdat->dsym_979__CLASS_CLASS; + basilys_assertmsg("iniobj checkdiscr dsym_979__CLASS_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_979__CLASS_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_979__CLASS_CLASS.obj_hash = 60141292; + cdat->dsym_979__CLASS_CLASS.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_979__CLASS_CLASS)); + + /*inistring dstr_980__CLASS_CLASS*/ + /*_.VALSTR___V1048*/ curfptr[1047] = (void*)&cdat->dstr_980__CLASS_CLASS; + cdat->dstr_980__CLASS_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_980__CLASS_CLASS.val, "CLASS_CLASS"); + + /*iniobj dsym_981__FIELDS*/ + if (!/*_.VALDATA___V1038*/ curfptr[1037]) /*_.VALDATA___V1038*/ curfptr[1037] = (void*)&cdat->dsym_981__FIELDS; + basilys_assertmsg("iniobj checkdiscr dsym_981__FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_981__FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_981__FIELDS.obj_hash = 63787385; + cdat->dsym_981__FIELDS.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_981__FIELDS)); + + /*inistring dstr_982__FIELDS*/ + /*_.VALSTR___V1039*/ curfptr[1038] = (void*)&cdat->dstr_982__FIELDS; + cdat->dstr_982__FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_982__FIELDS.val, "FIELDS"); + + /*iniobj dsym_983__PREDEF*/ + if (!/*_.VALDATA___V1040*/ curfptr[1039]) /*_.VALDATA___V1040*/ curfptr[1039] = (void*)&cdat->dsym_983__PREDEF; + basilys_assertmsg("iniobj checkdiscr dsym_983__PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_983__PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_983__PREDEF.obj_hash = 55393491; + cdat->dsym_983__PREDEF.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_983__PREDEF)); + + /*inistring dstr_984__PREDEF*/ + /*_.VALSTR___V1041*/ curfptr[1040] = (void*)&cdat->dstr_984__PREDEF; + cdat->dstr_984__PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_984__PREDEF.val, "PREDEF"); + + /*iniobj dsym_985__DOCSTR*/ + if (!/*_.VALDATA___V1042*/ curfptr[1041]) /*_.VALDATA___V1042*/ curfptr[1041] = (void*)&cdat->dsym_985__DOCSTR; + basilys_assertmsg("iniobj checkdiscr dsym_985__DOCSTR", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_985__DOCSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_985__DOCSTR.obj_hash = 108338516; + cdat->dsym_985__DOCSTR.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_985__DOCSTR)); + + /*inistring dstr_986__DOCSTR*/ + /*_.VALSTR___V1043*/ curfptr[1042] = (void*)&cdat->dstr_986__DOCSTR; + cdat->dstr_986__DOCSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_986__DOCSTR.val, "DOCSTR"); + + /*inirout drout_987__MEXPAND_DEFCLASS*/ + /*_.VALROUT___V1049*/ curfptr[1048] = (void*)&cdat->drout_987__MEXPAND_DEFCLASS; + cdat->drout_987__MEXPAND_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_987__MEXPAND_DEFCLASS.routdescr, "MEXPAND_DEFCLASS @warmelt-macro.bysl:1969", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_987__MEXPAND_DEFCLASS.nbval = 23; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_987__MEXPAND_DEFCLASS, rout_36_MEXPAND_DEFCLASS); + + /*iniclos dclo_988__MEXPAND_DEFCLASS*/ + /*_.VALCLO___V1052*/ curfptr[1051] = (void*)&cdat->dclo_988__MEXPAND_DEFCLASS; + cdat->dclo_988__MEXPAND_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_988__MEXPAND_DEFCLASS.nbval = 0; + + /*iniobj dsym_989__DISCR_SEQCLASS*/ + if (!/*_.VALDATA___V1053*/ curfptr[1052]) /*_.VALDATA___V1053*/ curfptr[1052] = (void*)&cdat->dsym_989__DISCR_SEQCLASS; + basilys_assertmsg("iniobj checkdiscr dsym_989__DISCR_SEQCLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_989__DISCR_SEQCLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_989__DISCR_SEQCLASS.obj_hash = 98036243; + cdat->dsym_989__DISCR_SEQCLASS.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_989__DISCR_SEQCLASS)); + + /*inistring dstr_990__DISCR_SEQCLASS*/ + /*_.VALSTR___V1054*/ curfptr[1053] = (void*)&cdat->dstr_990__DISCR_SEQCLASS; + cdat->dstr_990__DISCR_SEQCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_990__DISCR_SEQCLASS.val, "DISCR_SEQCLASS"); + + /*iniobj dsym_991__DISCR_INTEGER*/ + if (!/*_.VALDATA___V1055*/ curfptr[1054]) /*_.VALDATA___V1055*/ curfptr[1054] = (void*)&cdat->dsym_991__DISCR_INTEGER; + basilys_assertmsg("iniobj checkdiscr dsym_991__DISCR_INTEGER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_991__DISCR_INTEGER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_991__DISCR_INTEGER.obj_hash = 119182103; + cdat->dsym_991__DISCR_INTEGER.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_991__DISCR_INTEGER)); + + /*inistring dstr_992__DISCR_INTEGER*/ + /*_.VALSTR___V1056*/ curfptr[1055] = (void*)&cdat->dstr_992__DISCR_INTEGER; + cdat->dstr_992__DISCR_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_992__DISCR_INTEGER.val, "DISCR_INTEGER"); + + /*iniobj dsym_993__DISCR_MAPSTRINGS*/ + if (!/*_.VALDATA___V1057*/ curfptr[1056]) /*_.VALDATA___V1057*/ curfptr[1056] = (void*)&cdat->dsym_993__DISCR_MAPSTRINGS; + basilys_assertmsg("iniobj checkdiscr dsym_993__DISCR_MAPSTRINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_993__DISCR_MAPSTRINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_993__DISCR_MAPSTRINGS.obj_hash = 122797468; + cdat->dsym_993__DISCR_MAPSTRINGS.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_993__DISCR_MAPSTRINGS)); + + /*inistring dstr_994__DISCR_MAPSTRINGS*/ + /*_.VALSTR___V1058*/ curfptr[1057] = (void*)&cdat->dstr_994__DISCR_MAPSTRINGS; + cdat->dstr_994__DISCR_MAPSTRINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_994__DISCR_MAPSTRINGS.val, "DISCR_MAPSTRINGS"); + + /*iniobj dsym_995__DISCR_SEQFIELD*/ + if (!/*_.VALDATA___V1059*/ curfptr[1058]) /*_.VALDATA___V1059*/ curfptr[1058] = (void*)&cdat->dsym_995__DISCR_SEQFIELD; + basilys_assertmsg("iniobj checkdiscr dsym_995__DISCR_SEQFIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_995__DISCR_SEQFIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_995__DISCR_SEQFIELD.obj_hash = 118740612; + cdat->dsym_995__DISCR_SEQFIELD.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_995__DISCR_SEQFIELD)); + + /*inistring dstr_996__DISCR_SEQFIELD*/ + /*_.VALSTR___V1060*/ curfptr[1059] = (void*)&cdat->dstr_996__DISCR_SEQFIELD; + cdat->dstr_996__DISCR_SEQFIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_996__DISCR_SEQFIELD.val, "DISCR_SEQFIELD"); + + /*inirout drout_997__LAMBDA_*/ + /*_.VALROUT___V1050*/ curfptr[1049] = (void*)&cdat->drout_997__LAMBDA_; + cdat->drout_997__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_997__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:2025", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_997__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_997__LAMBDA_, rout_37_LAMBDA_); + + /*iniobj dsym_998__CLASS_FIELD*/ + if (!/*_.VALDATA___V1061*/ curfptr[1060]) /*_.VALDATA___V1061*/ curfptr[1060] = (void*)&cdat->dsym_998__CLASS_FIELD; + basilys_assertmsg("iniobj checkdiscr dsym_998__CLASS_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_998__CLASS_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_998__CLASS_FIELD.obj_hash = 523073; + cdat->dsym_998__CLASS_FIELD.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_998__CLASS_FIELD)); + + /*inistring dstr_999__CLASS_FIELD*/ + /*_.VALSTR___V1062*/ curfptr[1061] = (void*)&cdat->dstr_999__CLASS_FIELD; + cdat->dstr_999__CLASS_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_999__CLASS_FIELD.val, "CLASS_FIELD"); + + /*inirout drout_1000__LAMBDA_*/ + /*_.VALROUT___V1051*/ curfptr[1050] = (void*)&cdat->drout_1000__LAMBDA_; + cdat->drout_1000__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1000__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:2034", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1000__LAMBDA_.nbval = 5; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1000__LAMBDA_, rout_38_LAMBDA_); + + /*iniobj dsym_1001__CLASS_FIELD_BINDING*/ + if (!/*_.VALDATA___V1063*/ curfptr[1062]) /*_.VALDATA___V1063*/ curfptr[1062] = (void*)&cdat->dsym_1001__CLASS_FIELD_BINDING; + basilys_assertmsg("iniobj checkdiscr dsym_1001__CLASS_FIELD_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1001__CLASS_FIELD_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1001__CLASS_FIELD_BINDING.obj_hash = 412002748; + cdat->dsym_1001__CLASS_FIELD_BINDING.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1001__CLASS_FIELD_BINDING)); + + /*inistring dstr_1002__CLASS_FIELD_BIND*/ + /*_.VALSTR___V1064*/ curfptr[1063] = (void*)&cdat->dstr_1002__CLASS_FIELD_BIND; + cdat->dstr_1002__CLASS_FIELD_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1002__CLASS_FIELD_BIND.val, "CLASS_FIELD_BINDING"); + + /*inirout drout_1003__PARSE_FIELD_ASSIGNMENT*/ + /*_.VALROUT___V1065*/ curfptr[1064] = (void*)&cdat->drout_1003__PARSE_FIELD_ASSIGNMENT; + cdat->drout_1003__PARSE_FIELD_ASSIGNMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1003__PARSE_FIELD_ASSIGNMENT.routdescr, "PARSE_FIELD_ASSIGNMENT @warmelt-macro.bysl:2079", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1003__PARSE_FIELD_ASSIGNMENT.nbval = 13; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1003__PARSE_FIELD_ASSIGNMENT, rout_39_PARSE_FIELD_ASSIGNMENT); + + /*iniclos dclo_1004__PARSE_FIELD_ASSIGNMENT*/ + /*_.VALCLO___V1067*/ curfptr[1066] = (void*)&cdat->dclo_1004__PARSE_FIELD_ASSIGNMENT; + cdat->dclo_1004__PARSE_FIELD_ASSIGNMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1004__PARSE_FIELD_ASSIGNMENT.nbval = 0; + + /*iniobj dsym_1005__MULTIPLE_ITERATE_TEST*/ + if (!/*_.VALDATA___V1068*/ curfptr[1067]) /*_.VALDATA___V1068*/ curfptr[1067] = (void*)&cdat->dsym_1005__MULTIPLE_ITERATE_TEST; + basilys_assertmsg("iniobj checkdiscr dsym_1005__MULTIPLE_ITERATE_TEST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1005__MULTIPLE_ITERATE_TEST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1005__MULTIPLE_ITERATE_TEST.obj_hash = 823464346; + cdat->dsym_1005__MULTIPLE_ITERATE_TEST.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1005__MULTIPLE_ITERATE_TEST)); + + /*inistring dstr_1006__MULTIPLE_ITERATE*/ + /*_.VALSTR___V1069*/ curfptr[1068] = (void*)&cdat->dstr_1006__MULTIPLE_ITERATE; + cdat->dstr_1006__MULTIPLE_ITERATE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1006__MULTIPLE_ITERATE.val, "MULTIPLE_ITERATE_TEST"); + + /*inirout drout_1007__LAMBDA_*/ + /*_.VALROUT___V1066*/ curfptr[1065] = (void*)&cdat->drout_1007__LAMBDA_; + cdat->drout_1007__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1007__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:2091", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1007__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1007__LAMBDA_, rout_40_LAMBDA_); + + /*inirout drout_1008__MEXPAND_DEFINSTANCE*/ + /*_.VALROUT___V1070*/ curfptr[1069] = (void*)&cdat->drout_1008__MEXPAND_DEFINSTANCE; + cdat->drout_1008__MEXPAND_DEFINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1008__MEXPAND_DEFINSTANCE.routdescr, "MEXPAND_DEFINSTANCE @warmelt-macro.bysl:2132", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1008__MEXPAND_DEFINSTANCE.nbval = 20; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1008__MEXPAND_DEFINSTANCE, rout_41_MEXPAND_DEFINSTANCE); + + /*iniclos dclo_1009__MEXPAND_DEFINSTANCE*/ + /*_.VALCLO___V1073*/ curfptr[1072] = (void*)&cdat->dclo_1009__MEXPAND_DEFINSTANCE; + cdat->dclo_1009__MEXPAND_DEFINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1009__MEXPAND_DEFINSTANCE.nbval = 0; + + /*iniobj dsym_1010__OBJ_NUM*/ + if (!/*_.VALDATA___V1071*/ curfptr[1070]) /*_.VALDATA___V1071*/ curfptr[1070] = (void*)&cdat->dsym_1010__OBJ_NUM; + basilys_assertmsg("iniobj checkdiscr dsym_1010__OBJ_NUM", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_1010__OBJ_NUM.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_1010__OBJ_NUM.obj_hash = 56861275; + cdat->dsym_1010__OBJ_NUM.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1010__OBJ_NUM)); + + /*inistring dstr_1011__OBJ_NUM*/ + /*_.VALSTR___V1072*/ curfptr[1071] = (void*)&cdat->dstr_1011__OBJ_NUM; + cdat->dstr_1011__OBJ_NUM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1011__OBJ_NUM.val, "OBJ_NUM"); + + /*iniobj dsym_1012__CLASS_INSTANCE_BINDING*/ + if (!/*_.VALDATA___V1074*/ curfptr[1073]) /*_.VALDATA___V1074*/ curfptr[1073] = (void*)&cdat->dsym_1012__CLASS_INSTANCE_BINDING; + basilys_assertmsg("iniobj checkdiscr dsym_1012__CLASS_INSTANCE_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1012__CLASS_INSTANCE_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1012__CLASS_INSTANCE_BINDING.obj_hash = 401143458; + cdat->dsym_1012__CLASS_INSTANCE_BINDING.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1012__CLASS_INSTANCE_BINDING)); + + /*inistring dstr_1013__CLASS_INSTANCE_B*/ + /*_.VALSTR___V1075*/ curfptr[1074] = (void*)&cdat->dstr_1013__CLASS_INSTANCE_B; + cdat->dstr_1013__CLASS_INSTANCE_B.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1013__CLASS_INSTANCE_B.val, "CLASS_INSTANCE_BINDING"); + + /*iniobj dsym_1014__DEFINSTANCE*/ + if (!/*_.VALDATA___V1076*/ curfptr[1075]) /*_.VALDATA___V1076*/ curfptr[1075] = (void*)&cdat->dsym_1014__DEFINSTANCE; + basilys_assertmsg("iniobj checkdiscr dsym_1014__DEFINSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1014__DEFINSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1014__DEFINSTANCE.obj_hash = 28184141; + cdat->dsym_1014__DEFINSTANCE.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1014__DEFINSTANCE)); + + /*inistring dstr_1015__DEFINSTANCE*/ + /*_.VALSTR___V1077*/ curfptr[1076] = (void*)&cdat->dstr_1015__DEFINSTANCE; + cdat->dstr_1015__DEFINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1015__DEFINSTANCE.val, "DEFINSTANCE"); + + /*inirout drout_1016__MEXPAND_DEFSELECTOR*/ + /*_.VALROUT___V1078*/ curfptr[1077] = (void*)&cdat->drout_1016__MEXPAND_DEFSELECTOR; + cdat->drout_1016__MEXPAND_DEFSELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1016__MEXPAND_DEFSELECTOR.routdescr, "MEXPAND_DEFSELECTOR @warmelt-macro.bysl:2229", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1016__MEXPAND_DEFSELECTOR.nbval = 20; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1016__MEXPAND_DEFSELECTOR, rout_42_MEXPAND_DEFSELECTOR); + + /*iniclos dclo_1017__MEXPAND_DEFSELECTOR*/ + /*_.VALCLO___V1079*/ curfptr[1078] = (void*)&cdat->dclo_1017__MEXPAND_DEFSELECTOR; + cdat->dclo_1017__MEXPAND_DEFSELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1017__MEXPAND_DEFSELECTOR.nbval = 0; + + /*iniobj dsym_1018__DEFSELECTOR*/ + if (!/*_.VALDATA___V1080*/ curfptr[1079]) /*_.VALDATA___V1080*/ curfptr[1079] = (void*)&cdat->dsym_1018__DEFSELECTOR; + basilys_assertmsg("iniobj checkdiscr dsym_1018__DEFSELECTOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1018__DEFSELECTOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1018__DEFSELECTOR.obj_hash = 34255542; + cdat->dsym_1018__DEFSELECTOR.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1018__DEFSELECTOR)); + + /*inistring dstr_1019__DEFSELECTOR*/ + /*_.VALSTR___V1081*/ curfptr[1080] = (void*)&cdat->dstr_1019__DEFSELECTOR; + cdat->dstr_1019__DEFSELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1019__DEFSELECTOR.val, "DEFSELECTOR"); + + /*inirout drout_1020__MEXPAND_INSTANCE*/ + /*_.VALROUT___V1082*/ curfptr[1081] = (void*)&cdat->drout_1020__MEXPAND_INSTANCE; + cdat->drout_1020__MEXPAND_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1020__MEXPAND_INSTANCE.routdescr, "MEXPAND_INSTANCE @warmelt-macro.bysl:2323", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1020__MEXPAND_INSTANCE.nbval = 14; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1020__MEXPAND_INSTANCE, rout_43_MEXPAND_INSTANCE); + + /*iniclos dclo_1021__MEXPAND_INSTANCE*/ + /*_.VALCLO___V1083*/ curfptr[1082] = (void*)&cdat->dclo_1021__MEXPAND_INSTANCE; + cdat->dclo_1021__MEXPAND_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1021__MEXPAND_INSTANCE.nbval = 0; + + /*iniobj dsym_1022__MAKE_INSTANCE*/ + if (!/*_.VALDATA___V1084*/ curfptr[1083]) /*_.VALDATA___V1084*/ curfptr[1083] = (void*)&cdat->dsym_1022__MAKE_INSTANCE; + basilys_assertmsg("iniobj checkdiscr dsym_1022__MAKE_INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1022__MAKE_INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1022__MAKE_INSTANCE.obj_hash = 33118389; + cdat->dsym_1022__MAKE_INSTANCE.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1022__MAKE_INSTANCE)); + + /*inistring dstr_1023__MAKE_INSTANCE*/ + /*_.VALSTR___V1085*/ curfptr[1084] = (void*)&cdat->dstr_1023__MAKE_INSTANCE; + cdat->dstr_1023__MAKE_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1023__MAKE_INSTANCE.val, "MAKE_INSTANCE"); + + /*inirout drout_1024__PARSE_FIELD_PATTERN*/ + /*_.VALROUT___V1086*/ curfptr[1085] = (void*)&cdat->drout_1024__PARSE_FIELD_PATTERN; + cdat->drout_1024__PARSE_FIELD_PATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1024__PARSE_FIELD_PATTERN.routdescr, "PARSE_FIELD_PATTERN @warmelt-macro.bysl:2386", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1024__PARSE_FIELD_PATTERN.nbval = 12; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1024__PARSE_FIELD_PATTERN, rout_44_PARSE_FIELD_PATTERN); + + /*iniclos dclo_1025__PARSE_FIELD_PATTERN*/ + /*_.VALCLO___V1088*/ curfptr[1087] = (void*)&cdat->dclo_1025__PARSE_FIELD_PATTERN; + cdat->dclo_1025__PARSE_FIELD_PATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1025__PARSE_FIELD_PATTERN.nbval = 0; + + /*inirout drout_1026__LAMBDA_*/ + /*_.VALROUT___V1087*/ curfptr[1086] = (void*)&cdat->drout_1026__LAMBDA_; + cdat->drout_1026__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1026__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:2400", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1026__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1026__LAMBDA_, rout_45_LAMBDA_); + + /*inirout drout_1027__PATEXPAND_INSTANCE*/ + /*_.VALROUT___V1089*/ curfptr[1088] = (void*)&cdat->drout_1027__PATEXPAND_INSTANCE; + cdat->drout_1027__PATEXPAND_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1027__PATEXPAND_INSTANCE.routdescr, "PATEXPAND_INSTANCE @warmelt-macro.bysl:2428", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1027__PATEXPAND_INSTANCE.nbval = 15; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1027__PATEXPAND_INSTANCE, rout_46_PATEXPAND_INSTANCE); + + /*iniclos dclo_1028__PATEXPAND_INSTANCE*/ + /*_.VALCLO___V1090*/ curfptr[1089] = (void*)&cdat->dclo_1028__PATEXPAND_INSTANCE; + cdat->dclo_1028__PATEXPAND_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1028__PATEXPAND_INSTANCE.nbval = 0; + + /*iniobj dsym_1029__INSTANCE*/ + if (!/*_.VALDATA___V1091*/ curfptr[1090]) /*_.VALDATA___V1091*/ curfptr[1090] = (void*)&cdat->dsym_1029__INSTANCE; + basilys_assertmsg("iniobj checkdiscr dsym_1029__INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1029__INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1029__INSTANCE.obj_hash = 837795892; + cdat->dsym_1029__INSTANCE.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1029__INSTANCE)); + + /*inistring dstr_1030__INSTANCE*/ + /*_.VALSTR___V1092*/ curfptr[1091] = (void*)&cdat->dstr_1030__INSTANCE; + cdat->dstr_1030__INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1030__INSTANCE.val, "INSTANCE"); + + /*inirout drout_1031__PATEXPAND_OBJECT*/ + /*_.VALROUT___V1093*/ curfptr[1092] = (void*)&cdat->drout_1031__PATEXPAND_OBJECT; + cdat->drout_1031__PATEXPAND_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1031__PATEXPAND_OBJECT.routdescr, "PATEXPAND_OBJECT @warmelt-macro.bysl:2495", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1031__PATEXPAND_OBJECT.nbval = 15; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1031__PATEXPAND_OBJECT, rout_47_PATEXPAND_OBJECT); + + /*iniclos dclo_1032__PATEXPAND_OBJECT*/ + /*_.VALCLO___V1094*/ curfptr[1093] = (void*)&cdat->dclo_1032__PATEXPAND_OBJECT; + cdat->dclo_1032__PATEXPAND_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1032__PATEXPAND_OBJECT.nbval = 0; + + /*inirout drout_1033__MEXPAND_OBJECT*/ + /*_.VALROUT___V1095*/ curfptr[1094] = (void*)&cdat->drout_1033__MEXPAND_OBJECT; + cdat->drout_1033__MEXPAND_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1033__MEXPAND_OBJECT.routdescr, "MEXPAND_OBJECT @warmelt-macro.bysl:2560", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1033__MEXPAND_OBJECT.nbval = 3; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1033__MEXPAND_OBJECT, rout_48_MEXPAND_OBJECT); + + /*iniclos dclo_1034__MEXPAND_OBJECT*/ + /*_.VALCLO___V1096*/ curfptr[1095] = (void*)&cdat->dclo_1034__MEXPAND_OBJECT; + cdat->dclo_1034__MEXPAND_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1034__MEXPAND_OBJECT.nbval = 0; + + /*iniobj dsym_1035__OBJECT*/ + if (!/*_.VALDATA___V1097*/ curfptr[1096]) /*_.VALDATA___V1097*/ curfptr[1096] = (void*)&cdat->dsym_1035__OBJECT; + basilys_assertmsg("iniobj checkdiscr dsym_1035__OBJECT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1035__OBJECT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1035__OBJECT.obj_hash = 680382828; + cdat->dsym_1035__OBJECT.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1035__OBJECT)); + + /*inistring dstr_1036__OBJECT*/ + /*_.VALSTR___V1098*/ curfptr[1097] = (void*)&cdat->dstr_1036__OBJECT; + cdat->dstr_1036__OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1036__OBJECT.val, "OBJECT"); + + /*inirout drout_1037__MEXPAND_UNSAFE_PUT_FIELDS*/ + /*_.VALROUT___V1099*/ curfptr[1098] = (void*)&cdat->drout_1037__MEXPAND_UNSAFE_PUT_FIELDS; + cdat->drout_1037__MEXPAND_UNSAFE_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1037__MEXPAND_UNSAFE_PUT_FIELDS.routdescr, "MEXPAND_UNSAFE_PUT_FIELDS @warmelt-macro.bysl:2576", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1037__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 9; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1037__MEXPAND_UNSAFE_PUT_FIELDS, rout_49_MEXPAND_UNSAFE_PUT_FIELDS); + + /*iniclos dclo_1038__MEXPAND_UNSAFE_PUT_FIELDS*/ + /*_.VALCLO___V1100*/ curfptr[1099] = (void*)&cdat->dclo_1038__MEXPAND_UNSAFE_PUT_FIELDS; + cdat->dclo_1038__MEXPAND_UNSAFE_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1038__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 0; + + /*iniobj dsym_1039__UNSAFE_PUT_FIELDS*/ + if (!/*_.VALDATA___V1101*/ curfptr[1100]) /*_.VALDATA___V1101*/ curfptr[1100] = (void*)&cdat->dsym_1039__UNSAFE_PUT_FIELDS; + basilys_assertmsg("iniobj checkdiscr dsym_1039__UNSAFE_PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1039__UNSAFE_PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1039__UNSAFE_PUT_FIELDS.obj_hash = 2805843; + cdat->dsym_1039__UNSAFE_PUT_FIELDS.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1039__UNSAFE_PUT_FIELDS)); + + /*inistring dstr_1040__UNSAFE_PUT_FIELD*/ + /*_.VALSTR___V1102*/ curfptr[1101] = (void*)&cdat->dstr_1040__UNSAFE_PUT_FIELD; + cdat->dstr_1040__UNSAFE_PUT_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1040__UNSAFE_PUT_FIELD.val, "UNSAFE_PUT_FIELDS"); + + /*inirout drout_1041__MEXPAND_PUT_FIELDS*/ + /*_.VALROUT___V1103*/ curfptr[1102] = (void*)&cdat->drout_1041__MEXPAND_PUT_FIELDS; + cdat->drout_1041__MEXPAND_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1041__MEXPAND_PUT_FIELDS.routdescr, "MEXPAND_PUT_FIELDS @warmelt-macro.bysl:2616", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1041__MEXPAND_PUT_FIELDS.nbval = 9; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1041__MEXPAND_PUT_FIELDS, rout_50_MEXPAND_PUT_FIELDS); + + /*iniclos dclo_1042__MEXPAND_PUT_FIELDS*/ + /*_.VALCLO___V1104*/ curfptr[1103] = (void*)&cdat->dclo_1042__MEXPAND_PUT_FIELDS; + cdat->dclo_1042__MEXPAND_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1042__MEXPAND_PUT_FIELDS.nbval = 0; + + /*iniobj dsym_1043__PUT_FIELDS*/ + if (!/*_.VALDATA___V1105*/ curfptr[1104]) /*_.VALDATA___V1105*/ curfptr[1104] = (void*)&cdat->dsym_1043__PUT_FIELDS; + basilys_assertmsg("iniobj checkdiscr dsym_1043__PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1043__PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1043__PUT_FIELDS.obj_hash = 370297609; + cdat->dsym_1043__PUT_FIELDS.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1043__PUT_FIELDS)); + + /*inistring dstr_1044__PUT_FIELDS*/ + /*_.VALSTR___V1106*/ curfptr[1105] = (void*)&cdat->dstr_1044__PUT_FIELDS; + cdat->dstr_1044__PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1044__PUT_FIELDS.val, "PUT_FIELDS"); + + /*inirout drout_1045__MEXPAND_UNSAFE_GET_FIELD*/ + /*_.VALROUT___V1107*/ curfptr[1106] = (void*)&cdat->drout_1045__MEXPAND_UNSAFE_GET_FIELD; + cdat->drout_1045__MEXPAND_UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1045__MEXPAND_UNSAFE_GET_FIELD.routdescr, "MEXPAND_UNSAFE_GET_FIELD @warmelt-macro.bysl:2656", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1045__MEXPAND_UNSAFE_GET_FIELD.nbval = 6; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1045__MEXPAND_UNSAFE_GET_FIELD, rout_51_MEXPAND_UNSAFE_GET_FIELD); + + /*iniclos dclo_1046__MEXPAND_UNSAFE_GET_FIELD*/ + /*_.VALCLO___V1108*/ curfptr[1107] = (void*)&cdat->dclo_1046__MEXPAND_UNSAFE_GET_FIELD; + cdat->dclo_1046__MEXPAND_UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1046__MEXPAND_UNSAFE_GET_FIELD.nbval = 0; + + /*iniobj dsym_1047__UNSAFE_GET_FIELD*/ + if (!/*_.VALDATA___V1109*/ curfptr[1108]) /*_.VALDATA___V1109*/ curfptr[1108] = (void*)&cdat->dsym_1047__UNSAFE_GET_FIELD; + basilys_assertmsg("iniobj checkdiscr dsym_1047__UNSAFE_GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1047__UNSAFE_GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1047__UNSAFE_GET_FIELD.obj_hash = 38069390; + cdat->dsym_1047__UNSAFE_GET_FIELD.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1047__UNSAFE_GET_FIELD)); + + /*inistring dstr_1048__UNSAFE_GET_FIELD*/ + /*_.VALSTR___V1110*/ curfptr[1109] = (void*)&cdat->dstr_1048__UNSAFE_GET_FIELD; + cdat->dstr_1048__UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1048__UNSAFE_GET_FIELD.val, "UNSAFE_GET_FIELD"); + + /*inirout drout_1049__MEXPAND_GET_FIELD*/ + /*_.VALROUT___V1111*/ curfptr[1110] = (void*)&cdat->drout_1049__MEXPAND_GET_FIELD; + cdat->drout_1049__MEXPAND_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1049__MEXPAND_GET_FIELD.routdescr, "MEXPAND_GET_FIELD @warmelt-macro.bysl:2690", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1049__MEXPAND_GET_FIELD.nbval = 6; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1049__MEXPAND_GET_FIELD, rout_52_MEXPAND_GET_FIELD); + + /*iniclos dclo_1050__MEXPAND_GET_FIELD*/ + /*_.VALCLO___V1112*/ curfptr[1111] = (void*)&cdat->dclo_1050__MEXPAND_GET_FIELD; + cdat->dclo_1050__MEXPAND_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1050__MEXPAND_GET_FIELD.nbval = 0; + + /*iniobj dsym_1051__GET_FIELD*/ + if (!/*_.VALDATA___V1113*/ curfptr[1112]) /*_.VALDATA___V1113*/ curfptr[1112] = (void*)&cdat->dsym_1051__GET_FIELD; + basilys_assertmsg("iniobj checkdiscr dsym_1051__GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1051__GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1051__GET_FIELD.obj_hash = 203020234; + cdat->dsym_1051__GET_FIELD.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1051__GET_FIELD)); + + /*inistring dstr_1052__GET_FIELD*/ + /*_.VALSTR___V1114*/ curfptr[1113] = (void*)&cdat->dstr_1052__GET_FIELD; + cdat->dstr_1052__GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1052__GET_FIELD.val, "GET_FIELD"); + + /*inirout drout_1053__MEXPAND_SETQ*/ + /*_.VALROUT___V1115*/ curfptr[1114] = (void*)&cdat->drout_1053__MEXPAND_SETQ; + cdat->drout_1053__MEXPAND_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1053__MEXPAND_SETQ.routdescr, "MEXPAND_SETQ @warmelt-macro.bysl:2725", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1053__MEXPAND_SETQ.nbval = 5; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1053__MEXPAND_SETQ, rout_53_MEXPAND_SETQ); + + /*iniclos dclo_1054__MEXPAND_SETQ*/ + /*_.VALCLO___V1116*/ curfptr[1115] = (void*)&cdat->dclo_1054__MEXPAND_SETQ; + cdat->dclo_1054__MEXPAND_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1054__MEXPAND_SETQ.nbval = 0; + + /*iniobj dsym_1055__SETQ*/ + if (!/*_.VALDATA___V1117*/ curfptr[1116]) /*_.VALDATA___V1117*/ curfptr[1116] = (void*)&cdat->dsym_1055__SETQ; + basilys_assertmsg("iniobj checkdiscr dsym_1055__SETQ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1055__SETQ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1055__SETQ.obj_hash = 46296512; + cdat->dsym_1055__SETQ.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1055__SETQ)); + + /*inistring dstr_1056__SETQ*/ + /*_.VALSTR___V1118*/ curfptr[1117] = (void*)&cdat->dstr_1056__SETQ; + cdat->dstr_1056__SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1056__SETQ.val, "SETQ"); + + /*inirout drout_1057__MEXPAND_IF*/ + /*_.VALROUT___V1119*/ curfptr[1118] = (void*)&cdat->drout_1057__MEXPAND_IF; + cdat->drout_1057__MEXPAND_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1057__MEXPAND_IF.routdescr, "MEXPAND_IF @warmelt-macro.bysl:2751", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1057__MEXPAND_IF.nbval = 6; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1057__MEXPAND_IF, rout_54_MEXPAND_IF); + + /*iniclos dclo_1058__MEXPAND_IF*/ + /*_.VALCLO___V1120*/ curfptr[1119] = (void*)&cdat->dclo_1058__MEXPAND_IF; + cdat->dclo_1058__MEXPAND_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1058__MEXPAND_IF.nbval = 0; + + /*iniobj dsym_1059__IF*/ + if (!/*_.VALDATA___V1121*/ curfptr[1120]) /*_.VALDATA___V1121*/ curfptr[1120] = (void*)&cdat->dsym_1059__IF; + basilys_assertmsg("iniobj checkdiscr dsym_1059__IF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1059__IF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1059__IF.obj_hash = 117586816; + cdat->dsym_1059__IF.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1059__IF)); + + /*inistring dstr_1060__IF*/ + /*_.VALSTR___V1122*/ curfptr[1121] = (void*)&cdat->dstr_1060__IF; + cdat->dstr_1060__IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1060__IF.val, "IF"); + + /*inirout drout_1061__MEXPAND_CPPIF*/ + /*_.VALROUT___V1123*/ curfptr[1122] = (void*)&cdat->drout_1061__MEXPAND_CPPIF; + cdat->drout_1061__MEXPAND_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1061__MEXPAND_CPPIF.routdescr, "MEXPAND_CPPIF @warmelt-macro.bysl:2798", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1061__MEXPAND_CPPIF.nbval = 6; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1061__MEXPAND_CPPIF, rout_55_MEXPAND_CPPIF); + + /*iniclos dclo_1062__MEXPAND_CPPIF*/ + /*_.VALCLO___V1124*/ curfptr[1123] = (void*)&cdat->dclo_1062__MEXPAND_CPPIF; + cdat->dclo_1062__MEXPAND_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1062__MEXPAND_CPPIF.nbval = 0; + + /*iniobj dsym_1063__CPPIF*/ + if (!/*_.VALDATA___V1125*/ curfptr[1124]) /*_.VALDATA___V1125*/ curfptr[1124] = (void*)&cdat->dsym_1063__CPPIF; + basilys_assertmsg("iniobj checkdiscr dsym_1063__CPPIF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1063__CPPIF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1063__CPPIF.obj_hash = 829409177; + cdat->dsym_1063__CPPIF.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1063__CPPIF)); + + /*inistring dstr_1064__CPPIF*/ + /*_.VALSTR___V1126*/ curfptr[1125] = (void*)&cdat->dstr_1064__CPPIF; + cdat->dstr_1064__CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1064__CPPIF.val, "CPPIF"); + + /*inirout drout_1065__MEXPAND_COND*/ + /*_.VALROUT___V1127*/ curfptr[1126] = (void*)&cdat->drout_1065__MEXPAND_COND; + cdat->drout_1065__MEXPAND_COND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1065__MEXPAND_COND.routdescr, "MEXPAND_COND @warmelt-macro.bysl:2850", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1065__MEXPAND_COND.nbval = 12; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1065__MEXPAND_COND, rout_56_MEXPAND_COND); + + /*iniclos dclo_1066__MEXPAND_COND*/ + /*_.VALCLO___V1134*/ curfptr[1133] = (void*)&cdat->dclo_1066__MEXPAND_COND; + cdat->dclo_1066__MEXPAND_COND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1066__MEXPAND_COND.nbval = 0; + + /*inirout drout_1067__LAMBDA_*/ + /*_.VALROUT___V1128*/ curfptr[1127] = (void*)&cdat->drout_1067__LAMBDA_; + cdat->drout_1067__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1067__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:2860", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1067__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1067__LAMBDA_, rout_57_LAMBDA_); + + /*iniobj dsym_1068__ELSE*/ + if (!/*_.VALDATA___V1129*/ curfptr[1128]) /*_.VALDATA___V1129*/ curfptr[1128] = (void*)&cdat->dsym_1068__ELSE; + basilys_assertmsg("iniobj checkdiscr dsym_1068__ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_1068__ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_1068__ELSE.obj_hash = 34374860; + cdat->dsym_1068__ELSE.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1068__ELSE)); + + /*inistring dstr_1069__ELSE*/ + /*_.VALSTR___V1130*/ curfptr[1129] = (void*)&cdat->dstr_1069__ELSE; + cdat->dstr_1069__ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1069__ELSE.val, "ELSE"); + + /*iniobj dsym_1070__COND*/ + if (!/*_.VALDATA___V1135*/ curfptr[1134]) /*_.VALDATA___V1135*/ curfptr[1134] = (void*)&cdat->dsym_1070__COND; + basilys_assertmsg("iniobj checkdiscr dsym_1070__COND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1070__COND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1070__COND.obj_hash = 51211759; + cdat->dsym_1070__COND.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1070__COND)); + + /*inistring dstr_1071__COND*/ + /*_.VALSTR___V1136*/ curfptr[1135] = (void*)&cdat->dstr_1071__COND; + cdat->dstr_1071__COND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1071__COND.val, "COND"); + + /*inirout drout_1072__MEXPAND_AND*/ + /*_.VALROUT___V1137*/ curfptr[1136] = (void*)&cdat->drout_1072__MEXPAND_AND; + cdat->drout_1072__MEXPAND_AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1072__MEXPAND_AND.routdescr, "MEXPAND_AND @warmelt-macro.bysl:2945", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1072__MEXPAND_AND.nbval = 8; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1072__MEXPAND_AND, rout_58_MEXPAND_AND); + + /*iniclos dclo_1073__MEXPAND_AND*/ + /*_.VALCLO___V1139*/ curfptr[1138] = (void*)&cdat->dclo_1073__MEXPAND_AND; + cdat->dclo_1073__MEXPAND_AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1073__MEXPAND_AND.nbval = 0; + + /*inirout drout_1074__LAMBDA_*/ + /*_.VALROUT___V1138*/ curfptr[1137] = (void*)&cdat->drout_1074__LAMBDA_; + cdat->drout_1074__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1074__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:2956", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1074__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1074__LAMBDA_, rout_59_LAMBDA_); + + /*inirout drout_1075__PATEXPAND_AS*/ + /*_.VALROUT___V1140*/ curfptr[1139] = (void*)&cdat->drout_1075__PATEXPAND_AS; + cdat->drout_1075__PATEXPAND_AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1075__PATEXPAND_AS.routdescr, "PATEXPAND_AS @warmelt-macro.bysl:2983", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1075__PATEXPAND_AS.nbval = 8; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1075__PATEXPAND_AS, rout_60_PATEXPAND_AS); + + /*iniclos dclo_1076__PATEXPAND_AS*/ + /*_.VALCLO___V1141*/ curfptr[1140] = (void*)&cdat->dclo_1076__PATEXPAND_AS; + cdat->dclo_1076__PATEXPAND_AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1076__PATEXPAND_AS.nbval = 0; + + /*inirout drout_1077__MEXPAND_AS*/ + /*_.VALROUT___V1142*/ curfptr[1141] = (void*)&cdat->drout_1077__MEXPAND_AS; + cdat->drout_1077__MEXPAND_AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1077__MEXPAND_AS.routdescr, "MEXPAND_AS @warmelt-macro.bysl:3019", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1077__MEXPAND_AS.nbval = 3; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1077__MEXPAND_AS, rout_61_MEXPAND_AS); + + /*iniclos dclo_1078__MEXPAND_AS*/ + /*_.VALCLO___V1143*/ curfptr[1142] = (void*)&cdat->dclo_1078__MEXPAND_AS; + cdat->dclo_1078__MEXPAND_AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1078__MEXPAND_AS.nbval = 0; + + /*iniobj dsym_1079__AS*/ + if (!/*_.VALDATA___V1144*/ curfptr[1143]) /*_.VALDATA___V1144*/ curfptr[1143] = (void*)&cdat->dsym_1079__AS; + basilys_assertmsg("iniobj checkdiscr dsym_1079__AS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1079__AS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1079__AS.obj_hash = 76496773; + cdat->dsym_1079__AS.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1079__AS)); + + /*inistring dstr_1080__AS*/ + /*_.VALSTR___V1145*/ curfptr[1144] = (void*)&cdat->dstr_1080__AS; + cdat->dstr_1080__AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1080__AS.val, "AS"); + + /*inirout drout_1081__PATEXPAND_AND*/ + /*_.VALROUT___V1146*/ curfptr[1145] = (void*)&cdat->drout_1081__PATEXPAND_AND; + cdat->drout_1081__PATEXPAND_AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1081__PATEXPAND_AND.routdescr, "PATEXPAND_AND @warmelt-macro.bysl:3034", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1081__PATEXPAND_AND.nbval = 6; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1081__PATEXPAND_AND, rout_62_PATEXPAND_AND); + + /*iniclos dclo_1082__PATEXPAND_AND*/ + /*_.VALCLO___V1147*/ curfptr[1146] = (void*)&cdat->dclo_1082__PATEXPAND_AND; + cdat->dclo_1082__PATEXPAND_AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1082__PATEXPAND_AND.nbval = 0; + + /*iniobj dsym_1083__AND*/ + if (!/*_.VALDATA___V1148*/ curfptr[1147]) /*_.VALDATA___V1148*/ curfptr[1147] = (void*)&cdat->dsym_1083__AND; + basilys_assertmsg("iniobj checkdiscr dsym_1083__AND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1083__AND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1083__AND.obj_hash = 123533605; + cdat->dsym_1083__AND.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1083__AND)); + + /*inistring dstr_1084__AND*/ + /*_.VALSTR___V1149*/ curfptr[1148] = (void*)&cdat->dstr_1084__AND; + cdat->dstr_1084__AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1084__AND.val, "AND"); + + /*inirout drout_1085__MEXPAND_OR*/ + /*_.VALROUT___V1150*/ curfptr[1149] = (void*)&cdat->drout_1085__MEXPAND_OR; + cdat->drout_1085__MEXPAND_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1085__MEXPAND_OR.routdescr, "MEXPAND_OR @warmelt-macro.bysl:3057", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1085__MEXPAND_OR.nbval = 8; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1085__MEXPAND_OR, rout_63_MEXPAND_OR); + + /*iniclos dclo_1086__MEXPAND_OR*/ + /*_.VALCLO___V1152*/ curfptr[1151] = (void*)&cdat->dclo_1086__MEXPAND_OR; + cdat->dclo_1086__MEXPAND_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1086__MEXPAND_OR.nbval = 0; + + /*inirout drout_1087__LAMBDA_*/ + /*_.VALROUT___V1151*/ curfptr[1150] = (void*)&cdat->drout_1087__LAMBDA_; + cdat->drout_1087__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1087__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3067", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1087__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1087__LAMBDA_, rout_64_LAMBDA_); + + /*inirout drout_1088__PATEXPAND_OR*/ + /*_.VALROUT___V1153*/ curfptr[1152] = (void*)&cdat->drout_1088__PATEXPAND_OR; + cdat->drout_1088__PATEXPAND_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1088__PATEXPAND_OR.routdescr, "PATEXPAND_OR @warmelt-macro.bysl:3084", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1088__PATEXPAND_OR.nbval = 6; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1088__PATEXPAND_OR, rout_65_PATEXPAND_OR); + + /*iniclos dclo_1089__PATEXPAND_OR*/ + /*_.VALCLO___V1154*/ curfptr[1153] = (void*)&cdat->dclo_1089__PATEXPAND_OR; + cdat->dclo_1089__PATEXPAND_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1089__PATEXPAND_OR.nbval = 0; + + /*iniobj dsym_1090__OR*/ + if (!/*_.VALDATA___V1155*/ curfptr[1154]) /*_.VALDATA___V1155*/ curfptr[1154] = (void*)&cdat->dsym_1090__OR; + basilys_assertmsg("iniobj checkdiscr dsym_1090__OR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1090__OR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1090__OR.obj_hash = 44588765; + cdat->dsym_1090__OR.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1090__OR)); + + /*inistring dstr_1091__OR*/ + /*_.VALSTR___V1156*/ curfptr[1155] = (void*)&cdat->dstr_1091__OR; + cdat->dstr_1091__OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1091__OR.val, "OR"); + + /*inirout drout_1092__MEXPAND_MATCH*/ + /*_.VALROUT___V1157*/ curfptr[1156] = (void*)&cdat->drout_1092__MEXPAND_MATCH; + cdat->drout_1092__MEXPAND_MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1092__MEXPAND_MATCH.routdescr, "MEXPAND_MATCH @warmelt-macro.bysl:3107", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1092__MEXPAND_MATCH.nbval = 18; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1092__MEXPAND_MATCH, rout_66_MEXPAND_MATCH); + + /*iniclos dclo_1093__MEXPAND_MATCH*/ + /*_.VALCLO___V1161*/ curfptr[1160] = (void*)&cdat->dclo_1093__MEXPAND_MATCH; + cdat->dclo_1093__MEXPAND_MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1093__MEXPAND_MATCH.nbval = 0; + + /*inirout drout_1094__LAMBDA_*/ + /*_.VALROUT___V1158*/ curfptr[1157] = (void*)&cdat->drout_1094__LAMBDA_; + cdat->drout_1094__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1094__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3119", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1094__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1094__LAMBDA_, rout_67_LAMBDA_); + + /*iniobj dsym_1095__WHEN*/ + if (!/*_.VALDATA___V1159*/ curfptr[1158]) /*_.VALDATA___V1159*/ curfptr[1158] = (void*)&cdat->dsym_1095__WHEN; + basilys_assertmsg("iniobj checkdiscr dsym_1095__WHEN", NULL != (void*)((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_1095__WHEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_KEYWORD)))); + cdat->dsym_1095__WHEN.obj_hash = 513049466; + cdat->dsym_1095__WHEN.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1095__WHEN)); + + /*inistring dstr_1096__WHEN*/ + /*_.VALSTR___V1160*/ curfptr[1159] = (void*)&cdat->dstr_1096__WHEN; + cdat->dstr_1096__WHEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1096__WHEN.val, "WHEN"); + + /*iniobj dsym_1097__MATCH*/ + if (!/*_.VALDATA___V1162*/ curfptr[1161]) /*_.VALDATA___V1162*/ curfptr[1161] = (void*)&cdat->dsym_1097__MATCH; + basilys_assertmsg("iniobj checkdiscr dsym_1097__MATCH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1097__MATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1097__MATCH.obj_hash = 996778084; + cdat->dsym_1097__MATCH.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1097__MATCH)); + + /*inistring dstr_1098__MATCH*/ + /*_.VALSTR___V1163*/ curfptr[1162] = (void*)&cdat->dstr_1098__MATCH; + cdat->dstr_1098__MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1098__MATCH.val, "MATCH"); + + /*inirout drout_1099__MEXPAND_LETBINDING*/ + /*_.VALROUT___V1164*/ curfptr[1163] = (void*)&cdat->drout_1099__MEXPAND_LETBINDING; + cdat->drout_1099__MEXPAND_LETBINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1099__MEXPAND_LETBINDING.routdescr, "MEXPAND_LETBINDING @warmelt-macro.bysl:3206", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1099__MEXPAND_LETBINDING.nbval = 9; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1099__MEXPAND_LETBINDING, rout_68_MEXPAND_LETBINDING); + + /*iniclos dclo_1100__MEXPAND_LETBINDING*/ + /*_.VALCLO___V1165*/ curfptr[1164] = (void*)&cdat->dclo_1100__MEXPAND_LETBINDING; + cdat->dclo_1100__MEXPAND_LETBINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1100__MEXPAND_LETBINDING.nbval = 0; + + /*inirout drout_1101__MEXPAND_LET*/ + /*_.VALROUT___V1166*/ curfptr[1165] = (void*)&cdat->drout_1101__MEXPAND_LET; + cdat->drout_1101__MEXPAND_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1101__MEXPAND_LET.routdescr, "MEXPAND_LET @warmelt-macro.bysl:3257", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1101__MEXPAND_LET.nbval = 16; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1101__MEXPAND_LET, rout_69_MEXPAND_LET); + + /*iniclos dclo_1102__MEXPAND_LET*/ + /*_.VALCLO___V1170*/ curfptr[1169] = (void*)&cdat->dclo_1102__MEXPAND_LET; + cdat->dclo_1102__MEXPAND_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1102__MEXPAND_LET.nbval = 0; + + /*inirout drout_1103__LAMBDA_*/ + /*_.VALROUT___V1167*/ curfptr[1166] = (void*)&cdat->drout_1103__LAMBDA_; + cdat->drout_1103__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1103__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3276", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1103__LAMBDA_.nbval = 2; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1103__LAMBDA_, rout_70_LAMBDA_); + + /*inirout drout_1104__LAMBDA_*/ + /*_.VALROUT___V1168*/ curfptr[1167] = (void*)&cdat->drout_1104__LAMBDA_; + cdat->drout_1104__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1104__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3284", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1104__LAMBDA_.nbval = 3; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1104__LAMBDA_, rout_71_LAMBDA_); + + /*iniobj dsym_1105__CLASS_LET_BINDING*/ + if (!/*_.VALDATA___V1171*/ curfptr[1170]) /*_.VALDATA___V1171*/ curfptr[1170] = (void*)&cdat->dsym_1105__CLASS_LET_BINDING; + basilys_assertmsg("iniobj checkdiscr dsym_1105__CLASS_LET_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1105__CLASS_LET_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1105__CLASS_LET_BINDING.obj_hash = 373730517; + cdat->dsym_1105__CLASS_LET_BINDING.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1105__CLASS_LET_BINDING)); + + /*inistring dstr_1106__CLASS_LET_BINDIN*/ + /*_.VALSTR___V1172*/ curfptr[1171] = (void*)&cdat->dstr_1106__CLASS_LET_BINDIN; + cdat->dstr_1106__CLASS_LET_BINDIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1106__CLASS_LET_BINDIN.val, "CLASS_LET_BINDING"); /*inirout drout_1107__LAMBDA_*/ - /*_.VALROUT___V1170*/ curfptr[1169] = (void*)&cdat->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.bysl:3197", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1107__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3296", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1107__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1107__LAMBDA_, rout_73_LAMBDA_); - - /*iniobj dsym_1108__LAMBDA*/ - if (!/*_.VALDATA___V1172*/ curfptr[1171]) /*_.VALDATA___V1172*/ curfptr[1171] = (void*)&cdat->dsym_1108__LAMBDA; - basilys_assertmsg("iniobj checkdiscr dsym_1108__LAMBDA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1108__LAMBDA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1108__LAMBDA.obj_hash = 15346448; - cdat->dsym_1108__LAMBDA.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1108__LAMBDA)); - - /*inistring dstr_1109__LAMBDA*/ - /*_.VALSTR___V1173*/ curfptr[1172] = (void*)&cdat->dstr_1109__LAMBDA; - cdat->dstr_1109__LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1109__LAMBDA.val, "LAMBDA"); - - /*inirout drout_1110__MEXPAND_MULTICALL*/ - /*_.VALROUT___V1174*/ curfptr[1173] = (void*)&cdat->drout_1110__MEXPAND_MULTICALL; - cdat->drout_1110__MEXPAND_MULTICALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1110__MEXPAND_MULTICALL.routdescr, "MEXPAND_MULTICALL @warmelt-macro.bysl:3210", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1110__MEXPAND_MULTICALL.nbval = 13; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1110__MEXPAND_MULTICALL, rout_74_MEXPAND_MULTICALL); - - /*iniclos dclo_1111__MEXPAND_MULTICALL*/ - /*_.VALCLO___V1177*/ curfptr[1176] = (void*)&cdat->dclo_1111__MEXPAND_MULTICALL; - cdat->dclo_1111__MEXPAND_MULTICALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1111__MEXPAND_MULTICALL.nbval = 0; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1107__LAMBDA_, rout_72_LAMBDA_); + + /*iniobj dsym_1108__LET*/ + if (!/*_.VALDATA___V1173*/ curfptr[1172]) /*_.VALDATA___V1173*/ curfptr[1172] = (void*)&cdat->dsym_1108__LET; + basilys_assertmsg("iniobj checkdiscr dsym_1108__LET", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1108__LET.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1108__LET.obj_hash = 70931144; + cdat->dsym_1108__LET.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1108__LET)); + + /*inistring dstr_1109__LET*/ + /*_.VALSTR___V1174*/ curfptr[1173] = (void*)&cdat->dstr_1109__LET; + cdat->dstr_1109__LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1109__LET.val, "LET"); + + /*inirout drout_1110__MEXPAND_LAMBDA*/ + /*_.VALROUT___V1175*/ curfptr[1174] = (void*)&cdat->drout_1110__MEXPAND_LAMBDA; + cdat->drout_1110__MEXPAND_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1110__MEXPAND_LAMBDA.routdescr, "MEXPAND_LAMBDA @warmelt-macro.bysl:3308", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1110__MEXPAND_LAMBDA.nbval = 12; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1110__MEXPAND_LAMBDA, rout_73_MEXPAND_LAMBDA); + + /*iniclos dclo_1111__MEXPAND_LAMBDA*/ + /*_.VALCLO___V1178*/ curfptr[1177] = (void*)&cdat->dclo_1111__MEXPAND_LAMBDA; + cdat->dclo_1111__MEXPAND_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1111__MEXPAND_LAMBDA.nbval = 0; /*inirout drout_1112__LAMBDA_*/ - /*_.VALROUT___V1175*/ curfptr[1174] = (void*)&cdat->drout_1112__LAMBDA_; + /*_.VALROUT___V1176*/ curfptr[1175] = (void*)&cdat->drout_1112__LAMBDA_; cdat->drout_1112__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1112__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3227", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1112__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3323", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1112__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1112__LAMBDA_, rout_75_LAMBDA_); + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1112__LAMBDA_, rout_74_LAMBDA_); /*inirout drout_1113__LAMBDA_*/ - /*_.VALROUT___V1176*/ curfptr[1175] = (void*)&cdat->drout_1113__LAMBDA_; + /*_.VALROUT___V1177*/ curfptr[1176] = (void*)&cdat->drout_1113__LAMBDA_; cdat->drout_1113__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1113__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3230", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1113__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3325", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1113__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1113__LAMBDA_, rout_76_LAMBDA_); - - /*iniobj dsym_1114__MULTICALL*/ - if (!/*_.VALDATA___V1178*/ curfptr[1177]) /*_.VALDATA___V1178*/ curfptr[1177] = (void*)&cdat->dsym_1114__MULTICALL; - basilys_assertmsg("iniobj checkdiscr dsym_1114__MULTICALL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1114__MULTICALL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1114__MULTICALL.obj_hash = 128361181; - cdat->dsym_1114__MULTICALL.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1114__MULTICALL)); - - /*inistring dstr_1115__MULTICALL*/ - /*_.VALSTR___V1179*/ curfptr[1178] = (void*)&cdat->dstr_1115__MULTICALL; - cdat->dstr_1115__MULTICALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1115__MULTICALL.val, "MULTICALL"); - - /*inirout drout_1116__MEXPAND_QUOTE*/ - /*_.VALROUT___V1180*/ curfptr[1179] = (void*)&cdat->drout_1116__MEXPAND_QUOTE; - cdat->drout_1116__MEXPAND_QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1116__MEXPAND_QUOTE.routdescr, "MEXPAND_QUOTE @warmelt-macro.bysl:3246", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1116__MEXPAND_QUOTE.nbval = 5; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1116__MEXPAND_QUOTE, rout_77_MEXPAND_QUOTE); - - /*iniclos dclo_1117__MEXPAND_QUOTE*/ - /*_.VALCLO___V1181*/ curfptr[1180] = (void*)&cdat->dclo_1117__MEXPAND_QUOTE; - cdat->dclo_1117__MEXPAND_QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1117__MEXPAND_QUOTE.nbval = 0; - - /*iniobj dsym_1118__QUOTE*/ - if (!/*_.VALDATA___V1182*/ curfptr[1181]) /*_.VALDATA___V1182*/ curfptr[1181] = (void*)&cdat->dsym_1118__QUOTE; - basilys_assertmsg("iniobj checkdiscr dsym_1118__QUOTE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1118__QUOTE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1118__QUOTE.obj_hash = 18202130; - cdat->dsym_1118__QUOTE.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1118__QUOTE)); - - /*inistring dstr_1119__QUOTE*/ - /*_.VALSTR___V1183*/ curfptr[1182] = (void*)&cdat->dstr_1119__QUOTE; - cdat->dstr_1119__QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1119__QUOTE.val, "QUOTE"); - - /*inirout drout_1120__MEXPAND_COMMENT*/ - /*_.VALROUT___V1184*/ curfptr[1183] = (void*)&cdat->drout_1120__MEXPAND_COMMENT; - cdat->drout_1120__MEXPAND_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1120__MEXPAND_COMMENT.routdescr, "MEXPAND_COMMENT @warmelt-macro.bysl:3269", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1120__MEXPAND_COMMENT.nbval = 3; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1120__MEXPAND_COMMENT, rout_78_MEXPAND_COMMENT); - - /*iniclos dclo_1121__MEXPAND_COMMENT*/ - /*_.VALCLO___V1185*/ curfptr[1184] = (void*)&cdat->dclo_1121__MEXPAND_COMMENT; - cdat->dclo_1121__MEXPAND_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1121__MEXPAND_COMMENT.nbval = 0; - - /*iniobj dsym_1122__COMMENT*/ - if (!/*_.VALDATA___V1186*/ curfptr[1185]) /*_.VALDATA___V1186*/ curfptr[1185] = (void*)&cdat->dsym_1122__COMMENT; - basilys_assertmsg("iniobj checkdiscr dsym_1122__COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1122__COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1122__COMMENT.obj_hash = 922859745; - cdat->dsym_1122__COMMENT.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1122__COMMENT)); - - /*inistring dstr_1123__COMMENT*/ - /*_.VALSTR___V1187*/ curfptr[1186] = (void*)&cdat->dstr_1123__COMMENT; - cdat->dstr_1123__COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1123__COMMENT.val, "COMMENT"); - - /*inirout drout_1124__PAIRLIST_TO_PROGN*/ - /*_.VALROUT___V1125*/ curfptr[1124] = (void*)&cdat->drout_1124__PAIRLIST_TO_PROGN; - cdat->drout_1124__PAIRLIST_TO_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1124__PAIRLIST_TO_PROGN.routdescr, "PAIRLIST_TO_PROGN @warmelt-macro.bysl:3294", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1124__PAIRLIST_TO_PROGN.nbval = 7; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1124__PAIRLIST_TO_PROGN, rout_79_PAIRLIST_TO_PROGN); - - /*iniclos dclo_1125__PAIRLIST_TO_PROGN*/ - /*_.VALCLO___V1124*/ curfptr[1123] = (void*)&cdat->dclo_1125__PAIRLIST_TO_PROGN; - cdat->dclo_1125__PAIRLIST_TO_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1125__PAIRLIST_TO_PROGN.nbval = 0; - - /*inirout drout_1126__LAMBDA_*/ - /*_.VALROUT___V1126*/ curfptr[1125] = (void*)&cdat->drout_1126__LAMBDA_; - cdat->drout_1126__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1126__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3301", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1126__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1126__LAMBDA_, rout_80_LAMBDA_); - - /*inirout drout_1127__PAIRLIST_TO_RETURN*/ - /*_.VALROUT___V1188*/ curfptr[1187] = (void*)&cdat->drout_1127__PAIRLIST_TO_RETURN; - cdat->drout_1127__PAIRLIST_TO_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1127__PAIRLIST_TO_RETURN.routdescr, "PAIRLIST_TO_RETURN @warmelt-macro.bysl:3312", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1127__PAIRLIST_TO_RETURN.nbval = 6; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1127__PAIRLIST_TO_RETURN, rout_81_PAIRLIST_TO_RETURN); - - /*iniclos dclo_1128__PAIRLIST_TO_RETURN*/ - /*_.VALCLO___V1190*/ curfptr[1189] = (void*)&cdat->dclo_1128__PAIRLIST_TO_RETURN; - cdat->dclo_1128__PAIRLIST_TO_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1128__PAIRLIST_TO_RETURN.nbval = 0; - - /*inirout drout_1129__LAMBDA_*/ - /*_.VALROUT___V1189*/ curfptr[1188] = (void*)&cdat->drout_1129__LAMBDA_; - cdat->drout_1129__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1129__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3317", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1129__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1129__LAMBDA_, rout_82_LAMBDA_); - - /*inirout drout_1130__MEXPAND_PROGN*/ - /*_.VALROUT___V1191*/ curfptr[1190] = (void*)&cdat->drout_1130__MEXPAND_PROGN; - cdat->drout_1130__MEXPAND_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1130__MEXPAND_PROGN.routdescr, "MEXPAND_PROGN @warmelt-macro.bysl:3325", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1130__MEXPAND_PROGN.nbval = 2; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1130__MEXPAND_PROGN, rout_83_MEXPAND_PROGN); - - /*iniclos dclo_1131__MEXPAND_PROGN*/ - /*_.VALCLO___V1192*/ curfptr[1191] = (void*)&cdat->dclo_1131__MEXPAND_PROGN; - cdat->dclo_1131__MEXPAND_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1131__MEXPAND_PROGN.nbval = 0; - - /*iniobj dsym_1132__PROGN*/ - if (!/*_.VALDATA___V1193*/ curfptr[1192]) /*_.VALDATA___V1193*/ curfptr[1192] = (void*)&cdat->dsym_1132__PROGN; - basilys_assertmsg("iniobj checkdiscr dsym_1132__PROGN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1132__PROGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1132__PROGN.obj_hash = 98153540; - cdat->dsym_1132__PROGN.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1132__PROGN)); - - /*inistring dstr_1133__PROGN*/ - /*_.VALSTR___V1194*/ curfptr[1193] = (void*)&cdat->dstr_1133__PROGN; - cdat->dstr_1133__PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1133__PROGN.val, "PROGN"); - - /*inirout drout_1134__MEXPAND_RETURN*/ - /*_.VALROUT___V1195*/ curfptr[1194] = (void*)&cdat->drout_1134__MEXPAND_RETURN; - cdat->drout_1134__MEXPAND_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1134__MEXPAND_RETURN.routdescr, "MEXPAND_RETURN @warmelt-macro.bysl:3346", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1134__MEXPAND_RETURN.nbval = 2; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1134__MEXPAND_RETURN, rout_84_MEXPAND_RETURN); - - /*iniclos dclo_1135__MEXPAND_RETURN*/ - /*_.VALCLO___V1196*/ curfptr[1195] = (void*)&cdat->dclo_1135__MEXPAND_RETURN; - cdat->dclo_1135__MEXPAND_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1135__MEXPAND_RETURN.nbval = 0; - - /*iniobj dsym_1136__RETURN*/ - if (!/*_.VALDATA___V1197*/ curfptr[1196]) /*_.VALDATA___V1197*/ curfptr[1196] = (void*)&cdat->dsym_1136__RETURN; - basilys_assertmsg("iniobj checkdiscr dsym_1136__RETURN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1136__RETURN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1136__RETURN.obj_hash = 94541761; - cdat->dsym_1136__RETURN.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1136__RETURN)); - - /*inistring dstr_1137__RETURN*/ - /*_.VALSTR___V1198*/ curfptr[1197] = (void*)&cdat->dstr_1137__RETURN; - cdat->dstr_1137__RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1137__RETURN.val, "RETURN"); - - /*inirout drout_1138__MEXPAND_FOREVER*/ - /*_.VALROUT___V1199*/ curfptr[1198] = (void*)&cdat->drout_1138__MEXPAND_FOREVER; - cdat->drout_1138__MEXPAND_FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1138__MEXPAND_FOREVER.routdescr, "MEXPAND_FOREVER @warmelt-macro.bysl:3361", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1138__MEXPAND_FOREVER.nbval = 11; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1138__MEXPAND_FOREVER, rout_85_MEXPAND_FOREVER); - - /*iniclos dclo_1139__MEXPAND_FOREVER*/ - /*_.VALCLO___V1201*/ curfptr[1200] = (void*)&cdat->dclo_1139__MEXPAND_FOREVER; - cdat->dclo_1139__MEXPAND_FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1139__MEXPAND_FOREVER.nbval = 0; - - /*iniobj dsym_1140__CLASS_LABEL_BINDING*/ - if (!/*_.VALDATA___V1202*/ curfptr[1201]) /*_.VALDATA___V1202*/ curfptr[1201] = (void*)&cdat->dsym_1140__CLASS_LABEL_BINDING; - basilys_assertmsg("iniobj checkdiscr dsym_1140__CLASS_LABEL_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1140__CLASS_LABEL_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1140__CLASS_LABEL_BINDING.obj_hash = 513737494; - cdat->dsym_1140__CLASS_LABEL_BINDING.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1140__CLASS_LABEL_BINDING)); - - /*inistring dstr_1141__CLASS_LABEL_BIND*/ - /*_.VALSTR___V1203*/ curfptr[1202] = (void*)&cdat->dstr_1141__CLASS_LABEL_BIND; - cdat->dstr_1141__CLASS_LABEL_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1141__CLASS_LABEL_BIND.val, "CLASS_LABEL_BINDING"); - - /*inirout drout_1142__LAMBDA_*/ - /*_.VALROUT___V1200*/ curfptr[1199] = (void*)&cdat->drout_1142__LAMBDA_; - cdat->drout_1142__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1142__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3382", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1142__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1142__LAMBDA_, rout_86_LAMBDA_); - - /*iniobj dsym_1143__FOREVER*/ - if (!/*_.VALDATA___V1204*/ curfptr[1203]) /*_.VALDATA___V1204*/ curfptr[1203] = (void*)&cdat->dsym_1143__FOREVER; - basilys_assertmsg("iniobj checkdiscr dsym_1143__FOREVER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1143__FOREVER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1143__FOREVER.obj_hash = 118376766; - cdat->dsym_1143__FOREVER.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1143__FOREVER)); - - /*inistring dstr_1144__FOREVER*/ - /*_.VALSTR___V1205*/ curfptr[1204] = (void*)&cdat->dstr_1144__FOREVER; - cdat->dstr_1144__FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1144__FOREVER.val, "FOREVER"); - - /*inirout drout_1145__MEXPAND_EXIT*/ - /*_.VALROUT___V1206*/ curfptr[1205] = (void*)&cdat->drout_1145__MEXPAND_EXIT; - cdat->drout_1145__MEXPAND_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1145__MEXPAND_EXIT.routdescr, "MEXPAND_EXIT @warmelt-macro.bysl:3395", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1145__MEXPAND_EXIT.nbval = 11; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1145__MEXPAND_EXIT, rout_87_MEXPAND_EXIT); - - /*iniclos dclo_1146__MEXPAND_EXIT*/ - /*_.VALCLO___V1208*/ curfptr[1207] = (void*)&cdat->dclo_1146__MEXPAND_EXIT; - cdat->dclo_1146__MEXPAND_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1146__MEXPAND_EXIT.nbval = 0; - - /*inirout drout_1147__LAMBDA_*/ - /*_.VALROUT___V1207*/ curfptr[1206] = (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.bysl:3418", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1147__LAMBDA_.nbval = 1; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1147__LAMBDA_, rout_88_LAMBDA_); - - /*iniobj dsym_1148__EXIT*/ - if (!/*_.VALDATA___V1209*/ curfptr[1208]) /*_.VALDATA___V1209*/ curfptr[1208] = (void*)&cdat->dsym_1148__EXIT; - basilys_assertmsg("iniobj checkdiscr dsym_1148__EXIT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1148__EXIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1148__EXIT.obj_hash = 90311298; - cdat->dsym_1148__EXIT.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1148__EXIT)); - - /*inistring dstr_1149__EXIT*/ - /*_.VALSTR___V1210*/ curfptr[1209] = (void*)&cdat->dstr_1149__EXIT; - cdat->dstr_1149__EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1149__EXIT.val, "EXIT"); - - /*inirout drout_1150__MEXPAND_COMPILE_WARNING*/ - /*_.VALROUT___V1211*/ curfptr[1210] = (void*)&cdat->drout_1150__MEXPAND_COMPILE_WARNING; - cdat->drout_1150__MEXPAND_COMPILE_WARNING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1150__MEXPAND_COMPILE_WARNING.routdescr, "MEXPAND_COMPILE_WARNING @warmelt-macro.bysl:3433", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1150__MEXPAND_COMPILE_WARNING.nbval = 4; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1150__MEXPAND_COMPILE_WARNING, rout_89_MEXPAND_COMPILE_WARNING); - - /*iniclos dclo_1151__MEXPAND_COMPILE_WARNING*/ - /*_.VALCLO___V1212*/ curfptr[1211] = (void*)&cdat->dclo_1151__MEXPAND_COMPILE_WARNING; - cdat->dclo_1151__MEXPAND_COMPILE_WARNING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1151__MEXPAND_COMPILE_WARNING.nbval = 0; - - /*iniobj dsym_1152__COMPILE_WARNING*/ - if (!/*_.VALDATA___V1213*/ curfptr[1212]) /*_.VALDATA___V1213*/ curfptr[1212] = (void*)&cdat->dsym_1152__COMPILE_WARNING; - basilys_assertmsg("iniobj checkdiscr dsym_1152__COMPILE_WARNING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1152__COMPILE_WARNING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1152__COMPILE_WARNING.obj_hash = 87862926; - cdat->dsym_1152__COMPILE_WARNING.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1152__COMPILE_WARNING)); - - /*inistring dstr_1153__COMPILE_WARNING*/ - /*_.VALSTR___V1214*/ curfptr[1213] = (void*)&cdat->dstr_1153__COMPILE_WARNING; - cdat->dstr_1153__COMPILE_WARNING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1153__COMPILE_WARNING.val, "COMPILE_WARNING"); - - /*inirout drout_1154__MEXPAND_ASSERT_MSG*/ - /*_.VALROUT___V1215*/ curfptr[1214] = (void*)&cdat->drout_1154__MEXPAND_ASSERT_MSG; - cdat->drout_1154__MEXPAND_ASSERT_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1154__MEXPAND_ASSERT_MSG.routdescr, "MEXPAND_ASSERT_MSG @warmelt-macro.bysl:3472", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1154__MEXPAND_ASSERT_MSG.nbval = 16; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1154__MEXPAND_ASSERT_MSG, rout_90_MEXPAND_ASSERT_MSG); - - /*iniclos dclo_1155__MEXPAND_ASSERT_MSG*/ - /*_.VALCLO___V1220*/ curfptr[1219] = (void*)&cdat->dclo_1155__MEXPAND_ASSERT_MSG; - cdat->dclo_1155__MEXPAND_ASSERT_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1155__MEXPAND_ASSERT_MSG.nbval = 0; - - /*iniobj dsym_1156__ASSERT_FAILED*/ - if (!/*_.VALDATA___V1216*/ curfptr[1215]) /*_.VALDATA___V1216*/ curfptr[1215] = (void*)&cdat->dsym_1156__ASSERT_FAILED; - basilys_assertmsg("iniobj checkdiscr dsym_1156__ASSERT_FAILED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1156__ASSERT_FAILED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1156__ASSERT_FAILED.obj_hash = 201548028; - cdat->dsym_1156__ASSERT_FAILED.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1156__ASSERT_FAILED)); - - /*inistring dstr_1157__ASSERT_FAILED*/ - /*_.VALSTR___V1217*/ curfptr[1216] = (void*)&cdat->dstr_1157__ASSERT_FAILED; - cdat->dstr_1157__ASSERT_FAILED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1157__ASSERT_FAILED.val, "ASSERT_FAILED"); - - /*iniobj dsym_1158__FIND_ENV_DEBUG*/ - if (!/*_.VALDATA___V1221*/ curfptr[1220]) /*_.VALDATA___V1221*/ curfptr[1220] = (void*)&cdat->dsym_1158__FIND_ENV_DEBUG; - basilys_assertmsg("iniobj checkdiscr dsym_1158__FIND_ENV_DEBUG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1158__FIND_ENV_DEBUG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1158__FIND_ENV_DEBUG.obj_hash = 670001916; - cdat->dsym_1158__FIND_ENV_DEBUG.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1158__FIND_ENV_DEBUG)); - - /*inistring dstr_1159__FIND_ENV_DEBUG*/ - /*_.VALSTR___V1222*/ curfptr[1221] = (void*)&cdat->dstr_1159__FIND_ENV_DEBUG; - cdat->dstr_1159__FIND_ENV_DEBUG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1159__FIND_ENV_DEBUG.val, "FIND_ENV_DEBUG"); - - /*iniobj dsym_1160__ENABLE_CHECKING*/ - if (!/*_.VALDATA___V1218*/ curfptr[1217]) /*_.VALDATA___V1218*/ curfptr[1217] = (void*)&cdat->dsym_1160__ENABLE_CHECKING; - basilys_assertmsg("iniobj checkdiscr dsym_1160__ENABLE_CHECKING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1160__ENABLE_CHECKING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1160__ENABLE_CHECKING.obj_hash = 375027773; - cdat->dsym_1160__ENABLE_CHECKING.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1160__ENABLE_CHECKING)); - - /*inistring dstr_1161__ENABLE_CHECKING*/ - /*_.VALSTR___V1219*/ curfptr[1218] = (void*)&cdat->dstr_1161__ENABLE_CHECKING; - cdat->dstr_1161__ENABLE_CHECKING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1161__ENABLE_CHECKING.val, "ENABLE_CHECKING"); - - /*iniobj dsym_1162__ASSERT_MSG*/ - if (!/*_.VALDATA___V1223*/ curfptr[1222]) /*_.VALDATA___V1223*/ curfptr[1222] = (void*)&cdat->dsym_1162__ASSERT_MSG; - basilys_assertmsg("iniobj checkdiscr dsym_1162__ASSERT_MSG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1162__ASSERT_MSG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1162__ASSERT_MSG.obj_hash = 877781164; - cdat->dsym_1162__ASSERT_MSG.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1162__ASSERT_MSG)); - - /*inistring dstr_1163__ASSERT_MSG*/ - /*_.VALSTR___V1224*/ curfptr[1223] = (void*)&cdat->dstr_1163__ASSERT_MSG; - cdat->dstr_1163__ASSERT_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1163__ASSERT_MSG.val, "ASSERT_MSG"); - - /*inirout drout_1164__MEXPAND_DEBUG_MSG*/ - /*_.VALROUT___V1225*/ curfptr[1224] = (void*)&cdat->drout_1164__MEXPAND_DEBUG_MSG; - cdat->drout_1164__MEXPAND_DEBUG_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1164__MEXPAND_DEBUG_MSG.routdescr, "MEXPAND_DEBUG_MSG @warmelt-macro.bysl:3552", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1164__MEXPAND_DEBUG_MSG.nbval = 12; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1164__MEXPAND_DEBUG_MSG, rout_91_MEXPAND_DEBUG_MSG); - - /*iniclos dclo_1165__MEXPAND_DEBUG_MSG*/ - /*_.VALCLO___V1228*/ curfptr[1227] = (void*)&cdat->dclo_1165__MEXPAND_DEBUG_MSG; - cdat->dclo_1165__MEXPAND_DEBUG_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1165__MEXPAND_DEBUG_MSG.nbval = 0; - - /*iniobj dsym_1166__THE_CALLCOUNT*/ - if (!/*_.VALDATA___V1226*/ curfptr[1225]) /*_.VALDATA___V1226*/ curfptr[1225] = (void*)&cdat->dsym_1166__THE_CALLCOUNT; - basilys_assertmsg("iniobj checkdiscr dsym_1166__THE_CALLCOUNT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1166__THE_CALLCOUNT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1166__THE_CALLCOUNT.obj_hash = 366316746; - cdat->dsym_1166__THE_CALLCOUNT.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1166__THE_CALLCOUNT)); - - /*inistring dstr_1167__THE_CALLCOUNT*/ - /*_.VALSTR___V1227*/ curfptr[1226] = (void*)&cdat->dstr_1167__THE_CALLCOUNT; - cdat->dstr_1167__THE_CALLCOUNT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1167__THE_CALLCOUNT.val, "THE_CALLCOUNT"); - - /*iniobj dsym_1168__DEBUG_MSG*/ - if (!/*_.VALDATA___V1229*/ curfptr[1228]) /*_.VALDATA___V1229*/ curfptr[1228] = (void*)&cdat->dsym_1168__DEBUG_MSG; - basilys_assertmsg("iniobj checkdiscr dsym_1168__DEBUG_MSG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1168__DEBUG_MSG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1168__DEBUG_MSG.obj_hash = 653165353; - cdat->dsym_1168__DEBUG_MSG.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1168__DEBUG_MSG)); - - /*inistring dstr_1169__DEBUG_MSG*/ - /*_.VALSTR___V1230*/ curfptr[1229] = (void*)&cdat->dstr_1169__DEBUG_MSG; - cdat->dstr_1169__DEBUG_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1169__DEBUG_MSG.val, "DEBUG_MSG"); - - /*inirout drout_1170__MEXPAND_EXPORT_VALUES*/ - /*_.VALROUT___V1231*/ curfptr[1230] = (void*)&cdat->drout_1170__MEXPAND_EXPORT_VALUES; - cdat->drout_1170__MEXPAND_EXPORT_VALUES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1170__MEXPAND_EXPORT_VALUES.routdescr, "MEXPAND_EXPORT_VALUES @warmelt-macro.bysl:3613", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1170__MEXPAND_EXPORT_VALUES.nbval = 10; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1170__MEXPAND_EXPORT_VALUES, rout_92_MEXPAND_EXPORT_VALUES); - - /*iniclos dclo_1171__MEXPAND_EXPORT_VALUES*/ - /*_.VALCLO___V1233*/ curfptr[1232] = (void*)&cdat->dclo_1171__MEXPAND_EXPORT_VALUES; - cdat->dclo_1171__MEXPAND_EXPORT_VALUES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1171__MEXPAND_EXPORT_VALUES.nbval = 0; - - /*inirout drout_1172__LAMBDA_*/ - /*_.VALROUT___V1232*/ curfptr[1231] = (void*)&cdat->drout_1172__LAMBDA_; - cdat->drout_1172__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1172__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3623", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1172__LAMBDA_.nbval = 3; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1172__LAMBDA_, rout_93_LAMBDA_); - - /*iniobj dsym_1173__DEBUGMSG*/ - if (!/*_.VALDATA___V1234*/ curfptr[1233]) /*_.VALDATA___V1234*/ curfptr[1233] = (void*)&cdat->dsym_1173__DEBUGMSG; - basilys_assertmsg("iniobj checkdiscr dsym_1173__DEBUGMSG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1173__DEBUGMSG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1173__DEBUGMSG.obj_hash = 154774102; - cdat->dsym_1173__DEBUGMSG.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1173__DEBUGMSG)); - - /*inistring dstr_1174__DEBUGMSG*/ - /*_.VALSTR___V1235*/ curfptr[1234] = (void*)&cdat->dstr_1174__DEBUGMSG; - cdat->dstr_1174__DEBUGMSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1174__DEBUGMSG.val, "DEBUGMSG"); - - /*iniobj dsym_1175__EXPORT_VALUES*/ - if (!/*_.VALDATA___V1236*/ curfptr[1235]) /*_.VALDATA___V1236*/ curfptr[1235] = (void*)&cdat->dsym_1175__EXPORT_VALUES; - basilys_assertmsg("iniobj checkdiscr dsym_1175__EXPORT_VALUES", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1175__EXPORT_VALUES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1175__EXPORT_VALUES.obj_hash = 967501408; - cdat->dsym_1175__EXPORT_VALUES.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1175__EXPORT_VALUES)); - - /*inistring dstr_1176__EXPORT_VALUES*/ - /*_.VALSTR___V1237*/ curfptr[1236] = (void*)&cdat->dstr_1176__EXPORT_VALUES; - cdat->dstr_1176__EXPORT_VALUES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1176__EXPORT_VALUES.val, "EXPORT_VALUES"); - - /*inirout drout_1177__MEXPAND_EXPORT_MACRO*/ - /*_.VALROUT___V1238*/ curfptr[1237] = (void*)&cdat->drout_1177__MEXPAND_EXPORT_MACRO; - cdat->drout_1177__MEXPAND_EXPORT_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1177__MEXPAND_EXPORT_MACRO.routdescr, "MEXPAND_EXPORT_MACRO @warmelt-macro.bysl:3643", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1177__MEXPAND_EXPORT_MACRO.nbval = 6; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1177__MEXPAND_EXPORT_MACRO, rout_94_MEXPAND_EXPORT_MACRO); - - /*iniclos dclo_1178__MEXPAND_EXPORT_MACRO*/ - /*_.VALCLO___V1239*/ curfptr[1238] = (void*)&cdat->dclo_1178__MEXPAND_EXPORT_MACRO; - cdat->dclo_1178__MEXPAND_EXPORT_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1178__MEXPAND_EXPORT_MACRO.nbval = 0; - - /*iniobj dsym_1179__EXPORT_MACRO*/ - if (!/*_.VALDATA___V1240*/ curfptr[1239]) /*_.VALDATA___V1240*/ curfptr[1239] = (void*)&cdat->dsym_1179__EXPORT_MACRO; - basilys_assertmsg("iniobj checkdiscr dsym_1179__EXPORT_MACRO", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1179__EXPORT_MACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1179__EXPORT_MACRO.obj_hash = 539749464; - cdat->dsym_1179__EXPORT_MACRO.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1179__EXPORT_MACRO)); - - /*inistring dstr_1180__EXPORT_MACRO*/ - /*_.VALSTR___V1241*/ curfptr[1240] = (void*)&cdat->dstr_1180__EXPORT_MACRO; - cdat->dstr_1180__EXPORT_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1180__EXPORT_MACRO.val, "EXPORT_MACRO"); - - /*inirout drout_1181__MEXPAND_EXPORT_PATMACRO*/ - /*_.VALROUT___V1242*/ curfptr[1241] = (void*)&cdat->drout_1181__MEXPAND_EXPORT_PATMACRO; - cdat->drout_1181__MEXPAND_EXPORT_PATMACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1181__MEXPAND_EXPORT_PATMACRO.routdescr, "MEXPAND_EXPORT_PATMACRO @warmelt-macro.bysl:3674", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1181__MEXPAND_EXPORT_PATMACRO.nbval = 6; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1181__MEXPAND_EXPORT_PATMACRO, rout_95_MEXPAND_EXPORT_PATMACRO); - - /*iniclos dclo_1182__MEXPAND_EXPORT_PATMACRO*/ - /*_.VALCLO___V1243*/ curfptr[1242] = (void*)&cdat->dclo_1182__MEXPAND_EXPORT_PATMACRO; - cdat->dclo_1182__MEXPAND_EXPORT_PATMACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1182__MEXPAND_EXPORT_PATMACRO.nbval = 0; - - /*iniobj dsym_1183__EXPORT_PATMACRO*/ - if (!/*_.VALDATA___V1244*/ curfptr[1243]) /*_.VALDATA___V1244*/ curfptr[1243] = (void*)&cdat->dsym_1183__EXPORT_PATMACRO; - basilys_assertmsg("iniobj checkdiscr dsym_1183__EXPORT_PATMACRO", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1183__EXPORT_PATMACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1183__EXPORT_PATMACRO.obj_hash = 363095059; - cdat->dsym_1183__EXPORT_PATMACRO.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1183__EXPORT_PATMACRO)); - - /*inistring dstr_1184__EXPORT_PATMACRO*/ - /*_.VALSTR___V1245*/ curfptr[1244] = (void*)&cdat->dstr_1184__EXPORT_PATMACRO; - cdat->dstr_1184__EXPORT_PATMACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1184__EXPORT_PATMACRO.val, "EXPORT_PATMACRO"); - - /*inirout drout_1185__MEXPAND_EXPORT_CLASS*/ - /*_.VALROUT___V1246*/ curfptr[1245] = (void*)&cdat->drout_1185__MEXPAND_EXPORT_CLASS; - cdat->drout_1185__MEXPAND_EXPORT_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1185__MEXPAND_EXPORT_CLASS.routdescr, "MEXPAND_EXPORT_CLASS @warmelt-macro.bysl:3711", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1185__MEXPAND_EXPORT_CLASS.nbval = 9; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1185__MEXPAND_EXPORT_CLASS, rout_96_MEXPAND_EXPORT_CLASS); - - /*iniclos dclo_1186__MEXPAND_EXPORT_CLASS*/ - /*_.VALCLO___V1248*/ curfptr[1247] = (void*)&cdat->dclo_1186__MEXPAND_EXPORT_CLASS; - cdat->dclo_1186__MEXPAND_EXPORT_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1186__MEXPAND_EXPORT_CLASS.nbval = 0; - - /*inirout drout_1187__LAMBDA_*/ - /*_.VALROUT___V1247*/ curfptr[1246] = (void*)&cdat->drout_1187__LAMBDA_; - cdat->drout_1187__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1187__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3721", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1187__LAMBDA_.nbval = 2; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1187__LAMBDA_, rout_97_LAMBDA_); - - /*iniobj dsym_1188__EXPORT_CLASS*/ - if (!/*_.VALDATA___V1249*/ curfptr[1248]) /*_.VALDATA___V1249*/ curfptr[1248] = (void*)&cdat->dsym_1188__EXPORT_CLASS; - basilys_assertmsg("iniobj checkdiscr dsym_1188__EXPORT_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1188__EXPORT_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1188__EXPORT_CLASS.obj_hash = 352628427; - cdat->dsym_1188__EXPORT_CLASS.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1188__EXPORT_CLASS)); - - /*inistring dstr_1189__EXPORT_CLASS*/ - /*_.VALSTR___V1250*/ curfptr[1249] = (void*)&cdat->dstr_1189__EXPORT_CLASS; - cdat->dstr_1189__EXPORT_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1189__EXPORT_CLASS.val, "EXPORT_CLASS"); - - /*inirout drout_1190__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALROUT___V1251*/ curfptr[1250] = (void*)&cdat->drout_1190__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - cdat->drout_1190__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1190__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.bysl:3739", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1190__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1190__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER, rout_98_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER); - - /*iniclos dclo_1191__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALCLO___V1252*/ curfptr[1251] = (void*)&cdat->dclo_1191__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - cdat->dclo_1191__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1191__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; - - /*iniobj dsym_1192__CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - if (!/*_.VALDATA___V1253*/ curfptr[1252]) /*_.VALDATA___V1253*/ curfptr[1252] = (void*)&cdat->dsym_1192__CURRENT_MODULE_ENVIRONMENT_CONTAINER; - basilys_assertmsg("iniobj checkdiscr dsym_1192__CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1192__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1192__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 714873699; - cdat->dsym_1192__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1192__CURRENT_MODULE_ENVIRONMENT_CONTAINER)); - - /*inistring dstr_1193__CURRENT_MODULE_E*/ - /*_.VALSTR___V1254*/ curfptr[1253] = (void*)&cdat->dstr_1193__CURRENT_MODULE_E; - cdat->dstr_1193__CURRENT_MODULE_E.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1193__CURRENT_MODULE_E.val, "CURRENT_MODULE_ENVIRONMENT_CONTAINER"); - - /*inirout drout_1194__MEXPAND_PARENT_MODULE_ENVIRONMENT*/ - /*_.VALROUT___V1255*/ curfptr[1254] = (void*)&cdat->drout_1194__MEXPAND_PARENT_MODULE_ENVIRONMENT; - cdat->drout_1194__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1194__MEXPAND_PARENT_MODULE_ENVIRONMENT.routdescr, "MEXPAND_PARENT_MODULE_ENVIRONMENT @warmelt-macro.bysl:3764", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1194__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 4; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1194__MEXPAND_PARENT_MODULE_ENVIRONMENT, rout_99_MEXPAND_PARENT_MODULE_ENVIRONMENT); - - /*iniclos dclo_1195__MEXPAND_PARENT_MODULE_ENVIRONMENT*/ - /*_.VALCLO___V1256*/ curfptr[1255] = (void*)&cdat->dclo_1195__MEXPAND_PARENT_MODULE_ENVIRONMENT; - cdat->dclo_1195__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1195__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 0; - - /*iniobj dsym_1196__PARENT_MODULE_ENVIRONMENT*/ - if (!/*_.VALDATA___V1257*/ curfptr[1256]) /*_.VALDATA___V1257*/ curfptr[1256] = (void*)&cdat->dsym_1196__PARENT_MODULE_ENVIRONMENT; - basilys_assertmsg("iniobj checkdiscr dsym_1196__PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1196__PARENT_MODULE_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1196__PARENT_MODULE_ENVIRONMENT.obj_hash = 315808274; - cdat->dsym_1196__PARENT_MODULE_ENVIRONMENT.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1196__PARENT_MODULE_ENVIRONMENT)); - - /*inistring dstr_1197__PARENT_MODULE_EN*/ - /*_.VALSTR___V1258*/ curfptr[1257] = (void*)&cdat->dstr_1197__PARENT_MODULE_EN; - cdat->dstr_1197__PARENT_MODULE_EN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1197__PARENT_MODULE_EN.val, "PARENT_MODULE_ENVIRONMENT"); - - /*inirout drout_1198__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALROUT___V1259*/ curfptr[1258] = (void*)&cdat->drout_1198__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - cdat->drout_1198__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1198__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.bysl:3787", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1198__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1198__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER, rout_100_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER); - - /*iniclos dclo_1199__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALCLO___V1260*/ curfptr[1259] = (void*)&cdat->dclo_1199__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - cdat->dclo_1199__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1199__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; - - /*iniobj dsym_1200__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - if (!/*_.VALDATA___V1261*/ curfptr[1260]) /*_.VALDATA___V1261*/ curfptr[1260] = (void*)&cdat->dsym_1200__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - basilys_assertmsg("iniobj checkdiscr dsym_1200__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1200__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1200__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 540992734; - cdat->dsym_1200__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1200__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); - - /*inistring dstr_1201__UPDATE_CURRENT_M*/ - /*_.VALSTR___V1262*/ curfptr[1261] = (void*)&cdat->dstr_1201__UPDATE_CURRENT_M; - cdat->dstr_1201__UPDATE_CURRENT_M.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1201__UPDATE_CURRENT_M.val, "UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); - - /*inirout drout_1202__MEXPAND_FETCH_PREDEFINED*/ - /*_.VALROUT___V1263*/ curfptr[1262] = (void*)&cdat->drout_1202__MEXPAND_FETCH_PREDEFINED; - cdat->drout_1202__MEXPAND_FETCH_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1202__MEXPAND_FETCH_PREDEFINED.routdescr, "MEXPAND_FETCH_PREDEFINED @warmelt-macro.bysl:3814", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1202__MEXPAND_FETCH_PREDEFINED.nbval = 6; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1202__MEXPAND_FETCH_PREDEFINED, rout_101_MEXPAND_FETCH_PREDEFINED); - - /*iniclos dclo_1203__MEXPAND_FETCH_PREDEFINED*/ - /*_.VALCLO___V1264*/ curfptr[1263] = (void*)&cdat->dclo_1203__MEXPAND_FETCH_PREDEFINED; - cdat->dclo_1203__MEXPAND_FETCH_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1203__MEXPAND_FETCH_PREDEFINED.nbval = 0; - - /*iniobj dsym_1204__FETCH_PREDEFINED*/ - if (!/*_.VALDATA___V1265*/ curfptr[1264]) /*_.VALDATA___V1265*/ curfptr[1264] = (void*)&cdat->dsym_1204__FETCH_PREDEFINED; - basilys_assertmsg("iniobj checkdiscr dsym_1204__FETCH_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1204__FETCH_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1204__FETCH_PREDEFINED.obj_hash = 951904659; - cdat->dsym_1204__FETCH_PREDEFINED.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1204__FETCH_PREDEFINED)); - - /*inistring dstr_1205__FETCH_PREDEFINED*/ - /*_.VALSTR___V1266*/ curfptr[1265] = (void*)&cdat->dstr_1205__FETCH_PREDEFINED; - cdat->dstr_1205__FETCH_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1205__FETCH_PREDEFINED.val, "FETCH_PREDEFINED"); - - /*inirout drout_1206__MEXPAND_STORE_PREDEFINED*/ - /*_.VALROUT___V1267*/ curfptr[1266] = (void*)&cdat->drout_1206__MEXPAND_STORE_PREDEFINED; - cdat->drout_1206__MEXPAND_STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1206__MEXPAND_STORE_PREDEFINED.routdescr, "MEXPAND_STORE_PREDEFINED @warmelt-macro.bysl:3840", BASILYS_ROUTDESCR_LEN - 1); - cdat->drout_1206__MEXPAND_STORE_PREDEFINED.nbval = 6; - BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1206__MEXPAND_STORE_PREDEFINED, rout_102_MEXPAND_STORE_PREDEFINED); - - /*iniclos dclo_1207__MEXPAND_STORE_PREDEFINED*/ - /*_.VALCLO___V1268*/ curfptr[1267] = (void*)&cdat->dclo_1207__MEXPAND_STORE_PREDEFINED; - cdat->dclo_1207__MEXPAND_STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); - cdat->dclo_1207__MEXPAND_STORE_PREDEFINED.nbval = 0; - - /*iniobj dsym_1208__STORE_PREDEFINED*/ - if (!/*_.VALDATA___V1269*/ curfptr[1268]) /*_.VALDATA___V1269*/ curfptr[1268] = (void*)&cdat->dsym_1208__STORE_PREDEFINED; - basilys_assertmsg("iniobj checkdiscr dsym_1208__STORE_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1208__STORE_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1208__STORE_PREDEFINED.obj_hash = 8509317; - cdat->dsym_1208__STORE_PREDEFINED.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1208__STORE_PREDEFINED)); - - /*inistring dstr_1209__STORE_PREDEFINED*/ - /*_.VALSTR___V1270*/ curfptr[1269] = (void*)&cdat->dstr_1209__STORE_PREDEFINED; - cdat->dstr_1209__STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1209__STORE_PREDEFINED.val, "STORE_PREDEFINED"); - - /*iniobj dsym_1210__EXPAND_APPLY*/ - if (!/*_.VALDATA___V1271*/ curfptr[1270]) /*_.VALDATA___V1271*/ curfptr[1270] = (void*)&cdat->dsym_1210__EXPAND_APPLY; - basilys_assertmsg("iniobj checkdiscr dsym_1210__EXPAND_APPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1210__EXPAND_APPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1210__EXPAND_APPLY.obj_hash = 57901779; - cdat->dsym_1210__EXPAND_APPLY.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1210__EXPAND_APPLY)); - - /*inistring dstr_1211__EXPAND_APPLY*/ - /*_.VALSTR___V1272*/ curfptr[1271] = (void*)&cdat->dstr_1211__EXPAND_APPLY; - cdat->dstr_1211__EXPAND_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1211__EXPAND_APPLY.val, "EXPAND_APPLY"); - - /*iniobj dsym_1212__EXPAND_MSEND*/ - if (!/*_.VALDATA___V1273*/ curfptr[1272]) /*_.VALDATA___V1273*/ curfptr[1272] = (void*)&cdat->dsym_1212__EXPAND_MSEND; - basilys_assertmsg("iniobj checkdiscr dsym_1212__EXPAND_MSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1212__EXPAND_MSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1212__EXPAND_MSEND.obj_hash = 624621035; - cdat->dsym_1212__EXPAND_MSEND.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1212__EXPAND_MSEND)); - - /*inistring dstr_1213__EXPAND_MSEND*/ - /*_.VALSTR___V1274*/ curfptr[1273] = (void*)&cdat->dstr_1213__EXPAND_MSEND; - cdat->dstr_1213__EXPAND_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1213__EXPAND_MSEND.val, "EXPAND_MSEND"); - - /*iniobj dsym_1214__EXPAND_PAIRLIST_AS_TUPLE*/ - if (!/*_.VALDATA___V1275*/ curfptr[1274]) /*_.VALDATA___V1275*/ curfptr[1274] = (void*)&cdat->dsym_1214__EXPAND_PAIRLIST_AS_TUPLE; - basilys_assertmsg("iniobj checkdiscr dsym_1214__EXPAND_PAIRLIST_AS_TUPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1214__EXPAND_PAIRLIST_AS_TUPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1214__EXPAND_PAIRLIST_AS_TUPLE.obj_hash = 953849859; - cdat->dsym_1214__EXPAND_PAIRLIST_AS_TUPLE.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1214__EXPAND_PAIRLIST_AS_TUPLE)); - - /*inistring dstr_1215__EXPAND_PAIRLIST_*/ - /*_.VALSTR___V1276*/ curfptr[1275] = (void*)&cdat->dstr_1215__EXPAND_PAIRLIST_; - cdat->dstr_1215__EXPAND_PAIRLIST_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1215__EXPAND_PAIRLIST_.val, "EXPAND_PAIRLIST_AS_TUPLE"); - - /*iniobj dsym_1216__EXPAND_PRIMITIVE*/ - if (!/*_.VALDATA___V1277*/ curfptr[1276]) /*_.VALDATA___V1277*/ curfptr[1276] = (void*)&cdat->dsym_1216__EXPAND_PRIMITIVE; - basilys_assertmsg("iniobj checkdiscr dsym_1216__EXPAND_PRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1216__EXPAND_PRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1216__EXPAND_PRIMITIVE.obj_hash = 489692488; - cdat->dsym_1216__EXPAND_PRIMITIVE.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1216__EXPAND_PRIMITIVE)); - - /*inistring dstr_1217__EXPAND_PRIMITIVE*/ - /*_.VALSTR___V1278*/ curfptr[1277] = (void*)&cdat->dstr_1217__EXPAND_PRIMITIVE; - cdat->dstr_1217__EXPAND_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1217__EXPAND_PRIMITIVE.val, "EXPAND_PRIMITIVE"); - - /*iniobj dsym_1218__INSTALL_INITIAL_MACRO*/ - if (!/*_.VALDATA___V1279*/ curfptr[1278]) /*_.VALDATA___V1279*/ curfptr[1278] = (void*)&cdat->dsym_1218__INSTALL_INITIAL_MACRO; - basilys_assertmsg("iniobj checkdiscr dsym_1218__INSTALL_INITIAL_MACRO", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1218__INSTALL_INITIAL_MACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1218__INSTALL_INITIAL_MACRO.obj_hash = 101362976; - cdat->dsym_1218__INSTALL_INITIAL_MACRO.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1218__INSTALL_INITIAL_MACRO)); - - /*inistring dstr_1219__INSTALL_INITIAL_*/ - /*_.VALSTR___V1280*/ curfptr[1279] = (void*)&cdat->dstr_1219__INSTALL_INITIAL_; - cdat->dstr_1219__INSTALL_INITIAL_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1219__INSTALL_INITIAL_.val, "INSTALL_INITIAL_MACRO"); - - /*iniobj dsym_1220__LAMBDA_ARG_BINDINGS*/ - if (!/*_.VALDATA___V1281*/ curfptr[1280]) /*_.VALDATA___V1281*/ curfptr[1280] = (void*)&cdat->dsym_1220__LAMBDA_ARG_BINDINGS; - basilys_assertmsg("iniobj checkdiscr dsym_1220__LAMBDA_ARG_BINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1220__LAMBDA_ARG_BINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1220__LAMBDA_ARG_BINDINGS.obj_hash = 242170999; - cdat->dsym_1220__LAMBDA_ARG_BINDINGS.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1220__LAMBDA_ARG_BINDINGS)); - - /*inistring dstr_1221__LAMBDA_ARG_BINDI*/ - /*_.VALSTR___V1282*/ curfptr[1281] = (void*)&cdat->dstr_1221__LAMBDA_ARG_BINDI; - cdat->dstr_1221__LAMBDA_ARG_BINDI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1221__LAMBDA_ARG_BINDI.val, "LAMBDA_ARG_BINDINGS"); - - /*iniobj dsym_1222__MACROEXPAND_1*/ - if (!/*_.VALDATA___V1283*/ curfptr[1282]) /*_.VALDATA___V1283*/ curfptr[1282] = (void*)&cdat->dsym_1222__MACROEXPAND_1; - basilys_assertmsg("iniobj checkdiscr dsym_1222__MACROEXPAND_1", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1222__MACROEXPAND_1.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1222__MACROEXPAND_1.obj_hash = 858793911; - cdat->dsym_1222__MACROEXPAND_1.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1222__MACROEXPAND_1)); - - /*inistring dstr_1223__MACROEXPAND_1*/ - /*_.VALSTR___V1284*/ curfptr[1283] = (void*)&cdat->dstr_1223__MACROEXPAND_1; - cdat->dstr_1223__MACROEXPAND_1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1223__MACROEXPAND_1.val, "MACROEXPAND_1"); - - /*iniobj dsym_1224__MACROEXPAND_TOPLEVEL_LIST*/ - if (!/*_.VALDATA___V1285*/ curfptr[1284]) /*_.VALDATA___V1285*/ curfptr[1284] = (void*)&cdat->dsym_1224__MACROEXPAND_TOPLEVEL_LIST; - basilys_assertmsg("iniobj checkdiscr dsym_1224__MACROEXPAND_TOPLEVEL_LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1224__MACROEXPAND_TOPLEVEL_LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1224__MACROEXPAND_TOPLEVEL_LIST.obj_hash = 973794411; - cdat->dsym_1224__MACROEXPAND_TOPLEVEL_LIST.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1224__MACROEXPAND_TOPLEVEL_LIST)); - - /*inistring dstr_1225__MACROEXPAND_TOPL*/ - /*_.VALSTR___V1286*/ curfptr[1285] = (void*)&cdat->dstr_1225__MACROEXPAND_TOPL; - cdat->dstr_1225__MACROEXPAND_TOPL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1225__MACROEXPAND_TOPL.val, "MACROEXPAND_TOPLEVEL_LIST"); - - /*iniobj dsym_1226__PATTERNEXPAND_1*/ - if (!/*_.VALDATA___V1287*/ curfptr[1286]) /*_.VALDATA___V1287*/ curfptr[1286] = (void*)&cdat->dsym_1226__PATTERNEXPAND_1; - basilys_assertmsg("iniobj checkdiscr dsym_1226__PATTERNEXPAND_1", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1226__PATTERNEXPAND_1.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1226__PATTERNEXPAND_1.obj_hash = 263501284; - cdat->dsym_1226__PATTERNEXPAND_1.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1226__PATTERNEXPAND_1)); - - /*inistring dstr_1227__PATTERNEXPAND_1*/ - /*_.VALSTR___V1288*/ curfptr[1287] = (void*)&cdat->dstr_1227__PATTERNEXPAND_1; - cdat->dstr_1227__PATTERNEXPAND_1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1227__PATTERNEXPAND_1.val, "PATTERNEXPAND_1"); - - /*iniobj dsym_1228__PATTERNEXPAND_EXPR*/ - if (!/*_.VALDATA___V1289*/ curfptr[1288]) /*_.VALDATA___V1289*/ curfptr[1288] = (void*)&cdat->dsym_1228__PATTERNEXPAND_EXPR; - basilys_assertmsg("iniobj checkdiscr dsym_1228__PATTERNEXPAND_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1228__PATTERNEXPAND_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1228__PATTERNEXPAND_EXPR.obj_hash = 842722016; - cdat->dsym_1228__PATTERNEXPAND_EXPR.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1228__PATTERNEXPAND_EXPR)); - - /*inistring dstr_1229__PATTERNEXPAND_EX*/ - /*_.VALSTR___V1290*/ curfptr[1289] = (void*)&cdat->dstr_1229__PATTERNEXPAND_EX; - cdat->dstr_1229__PATTERNEXPAND_EX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1229__PATTERNEXPAND_EX.val, "PATTERNEXPAND_EXPR"); - - /*iniobj dsym_1230__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ - if (!/*_.VALDATA___V1291*/ curfptr[1290]) /*_.VALDATA___V1291*/ curfptr[1290] = (void*)&cdat->dsym_1230__PATTERNEXPAND_PAIRLIST_AS_TUPLE; - basilys_assertmsg("iniobj checkdiscr dsym_1230__PATTERNEXPAND_PAIRLIST_AS_TUPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1230__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); - cdat->dsym_1230__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_hash = 551172859; - cdat->dsym_1230__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_len = 3; -basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1230__PATTERNEXPAND_PAIRLIST_AS_TUPLE)); - - /*inistring dstr_1231__PATTERNEXPAND_PA*/ - /*_.VALSTR___V1292*/ curfptr[1291] = (void*)&cdat->dstr_1231__PATTERNEXPAND_PA; - cdat->dstr_1231__PATTERNEXPAND_PA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); - strcpy(cdat->dstr_1231__PATTERNEXPAND_PA.val, "PATTERNEXPAND_PAIRLIST_AS_TUPLE"); + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1113__LAMBDA_, rout_75_LAMBDA_); + + /*iniobj dsym_1114__LAMBDA*/ + if (!/*_.VALDATA___V1179*/ curfptr[1178]) /*_.VALDATA___V1179*/ curfptr[1178] = (void*)&cdat->dsym_1114__LAMBDA; + basilys_assertmsg("iniobj checkdiscr dsym_1114__LAMBDA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1114__LAMBDA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1114__LAMBDA.obj_hash = 15346448; + cdat->dsym_1114__LAMBDA.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1114__LAMBDA)); + + /*inistring dstr_1115__LAMBDA*/ + /*_.VALSTR___V1180*/ curfptr[1179] = (void*)&cdat->dstr_1115__LAMBDA; + cdat->dstr_1115__LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1115__LAMBDA.val, "LAMBDA"); + + /*inirout drout_1116__MEXPAND_MULTICALL*/ + /*_.VALROUT___V1181*/ curfptr[1180] = (void*)&cdat->drout_1116__MEXPAND_MULTICALL; + cdat->drout_1116__MEXPAND_MULTICALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1116__MEXPAND_MULTICALL.routdescr, "MEXPAND_MULTICALL @warmelt-macro.bysl:3338", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1116__MEXPAND_MULTICALL.nbval = 13; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1116__MEXPAND_MULTICALL, rout_76_MEXPAND_MULTICALL); + + /*iniclos dclo_1117__MEXPAND_MULTICALL*/ + /*_.VALCLO___V1184*/ curfptr[1183] = (void*)&cdat->dclo_1117__MEXPAND_MULTICALL; + cdat->dclo_1117__MEXPAND_MULTICALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1117__MEXPAND_MULTICALL.nbval = 0; + + /*inirout drout_1118__LAMBDA_*/ + /*_.VALROUT___V1182*/ curfptr[1181] = (void*)&cdat->drout_1118__LAMBDA_; + cdat->drout_1118__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1118__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3355", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1118__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1118__LAMBDA_, rout_77_LAMBDA_); + + /*inirout drout_1119__LAMBDA_*/ + /*_.VALROUT___V1183*/ curfptr[1182] = (void*)&cdat->drout_1119__LAMBDA_; + cdat->drout_1119__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1119__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3358", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1119__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1119__LAMBDA_, rout_78_LAMBDA_); + + /*iniobj dsym_1120__MULTICALL*/ + if (!/*_.VALDATA___V1185*/ curfptr[1184]) /*_.VALDATA___V1185*/ curfptr[1184] = (void*)&cdat->dsym_1120__MULTICALL; + basilys_assertmsg("iniobj checkdiscr dsym_1120__MULTICALL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1120__MULTICALL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1120__MULTICALL.obj_hash = 128361181; + cdat->dsym_1120__MULTICALL.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1120__MULTICALL)); + + /*inistring dstr_1121__MULTICALL*/ + /*_.VALSTR___V1186*/ curfptr[1185] = (void*)&cdat->dstr_1121__MULTICALL; + cdat->dstr_1121__MULTICALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1121__MULTICALL.val, "MULTICALL"); + + /*inirout drout_1122__MEXPAND_QUOTE*/ + /*_.VALROUT___V1187*/ curfptr[1186] = (void*)&cdat->drout_1122__MEXPAND_QUOTE; + cdat->drout_1122__MEXPAND_QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1122__MEXPAND_QUOTE.routdescr, "MEXPAND_QUOTE @warmelt-macro.bysl:3374", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1122__MEXPAND_QUOTE.nbval = 5; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1122__MEXPAND_QUOTE, rout_79_MEXPAND_QUOTE); + + /*iniclos dclo_1123__MEXPAND_QUOTE*/ + /*_.VALCLO___V1188*/ curfptr[1187] = (void*)&cdat->dclo_1123__MEXPAND_QUOTE; + cdat->dclo_1123__MEXPAND_QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1123__MEXPAND_QUOTE.nbval = 0; + + /*iniobj dsym_1124__QUOTE*/ + if (!/*_.VALDATA___V1189*/ curfptr[1188]) /*_.VALDATA___V1189*/ curfptr[1188] = (void*)&cdat->dsym_1124__QUOTE; + basilys_assertmsg("iniobj checkdiscr dsym_1124__QUOTE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1124__QUOTE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1124__QUOTE.obj_hash = 18202130; + cdat->dsym_1124__QUOTE.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1124__QUOTE)); + + /*inistring dstr_1125__QUOTE*/ + /*_.VALSTR___V1190*/ curfptr[1189] = (void*)&cdat->dstr_1125__QUOTE; + cdat->dstr_1125__QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1125__QUOTE.val, "QUOTE"); + + /*inirout drout_1126__MEXPAND_COMMENT*/ + /*_.VALROUT___V1191*/ curfptr[1190] = (void*)&cdat->drout_1126__MEXPAND_COMMENT; + cdat->drout_1126__MEXPAND_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1126__MEXPAND_COMMENT.routdescr, "MEXPAND_COMMENT @warmelt-macro.bysl:3397", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1126__MEXPAND_COMMENT.nbval = 3; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1126__MEXPAND_COMMENT, rout_80_MEXPAND_COMMENT); + + /*iniclos dclo_1127__MEXPAND_COMMENT*/ + /*_.VALCLO___V1192*/ curfptr[1191] = (void*)&cdat->dclo_1127__MEXPAND_COMMENT; + cdat->dclo_1127__MEXPAND_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1127__MEXPAND_COMMENT.nbval = 0; + + /*iniobj dsym_1128__COMMENT*/ + if (!/*_.VALDATA___V1193*/ curfptr[1192]) /*_.VALDATA___V1193*/ curfptr[1192] = (void*)&cdat->dsym_1128__COMMENT; + basilys_assertmsg("iniobj checkdiscr dsym_1128__COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1128__COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1128__COMMENT.obj_hash = 922859745; + cdat->dsym_1128__COMMENT.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1128__COMMENT)); + + /*inistring dstr_1129__COMMENT*/ + /*_.VALSTR___V1194*/ curfptr[1193] = (void*)&cdat->dstr_1129__COMMENT; + cdat->dstr_1129__COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1129__COMMENT.val, "COMMENT"); + + /*inirout drout_1130__PAIRLIST_TO_PROGN*/ + /*_.VALROUT___V1132*/ curfptr[1131] = (void*)&cdat->drout_1130__PAIRLIST_TO_PROGN; + cdat->drout_1130__PAIRLIST_TO_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1130__PAIRLIST_TO_PROGN.routdescr, "PAIRLIST_TO_PROGN @warmelt-macro.bysl:3422", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1130__PAIRLIST_TO_PROGN.nbval = 7; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1130__PAIRLIST_TO_PROGN, rout_81_PAIRLIST_TO_PROGN); + + /*iniclos dclo_1131__PAIRLIST_TO_PROGN*/ + /*_.VALCLO___V1131*/ curfptr[1130] = (void*)&cdat->dclo_1131__PAIRLIST_TO_PROGN; + cdat->dclo_1131__PAIRLIST_TO_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1131__PAIRLIST_TO_PROGN.nbval = 0; + + /*inirout drout_1132__LAMBDA_*/ + /*_.VALROUT___V1133*/ curfptr[1132] = (void*)&cdat->drout_1132__LAMBDA_; + cdat->drout_1132__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1132__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3429", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1132__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1132__LAMBDA_, rout_82_LAMBDA_); + + /*inirout drout_1133__PAIRLIST_TO_RETURN*/ + /*_.VALROUT___V1195*/ curfptr[1194] = (void*)&cdat->drout_1133__PAIRLIST_TO_RETURN; + cdat->drout_1133__PAIRLIST_TO_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1133__PAIRLIST_TO_RETURN.routdescr, "PAIRLIST_TO_RETURN @warmelt-macro.bysl:3440", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1133__PAIRLIST_TO_RETURN.nbval = 6; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1133__PAIRLIST_TO_RETURN, rout_83_PAIRLIST_TO_RETURN); + + /*iniclos dclo_1134__PAIRLIST_TO_RETURN*/ + /*_.VALCLO___V1197*/ curfptr[1196] = (void*)&cdat->dclo_1134__PAIRLIST_TO_RETURN; + cdat->dclo_1134__PAIRLIST_TO_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1134__PAIRLIST_TO_RETURN.nbval = 0; + + /*inirout drout_1135__LAMBDA_*/ + /*_.VALROUT___V1196*/ curfptr[1195] = (void*)&cdat->drout_1135__LAMBDA_; + cdat->drout_1135__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1135__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3445", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1135__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1135__LAMBDA_, rout_84_LAMBDA_); + + /*inirout drout_1136__MEXPAND_PROGN*/ + /*_.VALROUT___V1198*/ curfptr[1197] = (void*)&cdat->drout_1136__MEXPAND_PROGN; + cdat->drout_1136__MEXPAND_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1136__MEXPAND_PROGN.routdescr, "MEXPAND_PROGN @warmelt-macro.bysl:3453", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1136__MEXPAND_PROGN.nbval = 2; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1136__MEXPAND_PROGN, rout_85_MEXPAND_PROGN); + + /*iniclos dclo_1137__MEXPAND_PROGN*/ + /*_.VALCLO___V1199*/ curfptr[1198] = (void*)&cdat->dclo_1137__MEXPAND_PROGN; + cdat->dclo_1137__MEXPAND_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1137__MEXPAND_PROGN.nbval = 0; + + /*iniobj dsym_1138__PROGN*/ + if (!/*_.VALDATA___V1200*/ curfptr[1199]) /*_.VALDATA___V1200*/ curfptr[1199] = (void*)&cdat->dsym_1138__PROGN; + basilys_assertmsg("iniobj checkdiscr dsym_1138__PROGN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1138__PROGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1138__PROGN.obj_hash = 98153540; + cdat->dsym_1138__PROGN.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1138__PROGN)); + + /*inistring dstr_1139__PROGN*/ + /*_.VALSTR___V1201*/ curfptr[1200] = (void*)&cdat->dstr_1139__PROGN; + cdat->dstr_1139__PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1139__PROGN.val, "PROGN"); + + /*inirout drout_1140__MEXPAND_RETURN*/ + /*_.VALROUT___V1202*/ curfptr[1201] = (void*)&cdat->drout_1140__MEXPAND_RETURN; + cdat->drout_1140__MEXPAND_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1140__MEXPAND_RETURN.routdescr, "MEXPAND_RETURN @warmelt-macro.bysl:3474", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1140__MEXPAND_RETURN.nbval = 2; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1140__MEXPAND_RETURN, rout_86_MEXPAND_RETURN); + + /*iniclos dclo_1141__MEXPAND_RETURN*/ + /*_.VALCLO___V1203*/ curfptr[1202] = (void*)&cdat->dclo_1141__MEXPAND_RETURN; + cdat->dclo_1141__MEXPAND_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1141__MEXPAND_RETURN.nbval = 0; + + /*iniobj dsym_1142__RETURN*/ + if (!/*_.VALDATA___V1204*/ curfptr[1203]) /*_.VALDATA___V1204*/ curfptr[1203] = (void*)&cdat->dsym_1142__RETURN; + basilys_assertmsg("iniobj checkdiscr dsym_1142__RETURN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1142__RETURN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1142__RETURN.obj_hash = 94541761; + cdat->dsym_1142__RETURN.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1142__RETURN)); + + /*inistring dstr_1143__RETURN*/ + /*_.VALSTR___V1205*/ curfptr[1204] = (void*)&cdat->dstr_1143__RETURN; + cdat->dstr_1143__RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1143__RETURN.val, "RETURN"); + + /*inirout drout_1144__MEXPAND_FOREVER*/ + /*_.VALROUT___V1206*/ curfptr[1205] = (void*)&cdat->drout_1144__MEXPAND_FOREVER; + cdat->drout_1144__MEXPAND_FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1144__MEXPAND_FOREVER.routdescr, "MEXPAND_FOREVER @warmelt-macro.bysl:3489", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1144__MEXPAND_FOREVER.nbval = 11; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1144__MEXPAND_FOREVER, rout_87_MEXPAND_FOREVER); + + /*iniclos dclo_1145__MEXPAND_FOREVER*/ + /*_.VALCLO___V1208*/ curfptr[1207] = (void*)&cdat->dclo_1145__MEXPAND_FOREVER; + cdat->dclo_1145__MEXPAND_FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1145__MEXPAND_FOREVER.nbval = 0; + + /*iniobj dsym_1146__CLASS_LABEL_BINDING*/ + if (!/*_.VALDATA___V1209*/ curfptr[1208]) /*_.VALDATA___V1209*/ curfptr[1208] = (void*)&cdat->dsym_1146__CLASS_LABEL_BINDING; + basilys_assertmsg("iniobj checkdiscr dsym_1146__CLASS_LABEL_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1146__CLASS_LABEL_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1146__CLASS_LABEL_BINDING.obj_hash = 513737494; + cdat->dsym_1146__CLASS_LABEL_BINDING.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1146__CLASS_LABEL_BINDING)); + + /*inistring dstr_1147__CLASS_LABEL_BIND*/ + /*_.VALSTR___V1210*/ curfptr[1209] = (void*)&cdat->dstr_1147__CLASS_LABEL_BIND; + cdat->dstr_1147__CLASS_LABEL_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1147__CLASS_LABEL_BIND.val, "CLASS_LABEL_BINDING"); + + /*inirout drout_1148__LAMBDA_*/ + /*_.VALROUT___V1207*/ curfptr[1206] = (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.bysl:3510", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1148__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1148__LAMBDA_, rout_88_LAMBDA_); + + /*iniobj dsym_1149__FOREVER*/ + if (!/*_.VALDATA___V1211*/ curfptr[1210]) /*_.VALDATA___V1211*/ curfptr[1210] = (void*)&cdat->dsym_1149__FOREVER; + basilys_assertmsg("iniobj checkdiscr dsym_1149__FOREVER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1149__FOREVER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1149__FOREVER.obj_hash = 118376766; + cdat->dsym_1149__FOREVER.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1149__FOREVER)); + + /*inistring dstr_1150__FOREVER*/ + /*_.VALSTR___V1212*/ curfptr[1211] = (void*)&cdat->dstr_1150__FOREVER; + cdat->dstr_1150__FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1150__FOREVER.val, "FOREVER"); + + /*inirout drout_1151__MEXPAND_EXIT*/ + /*_.VALROUT___V1213*/ curfptr[1212] = (void*)&cdat->drout_1151__MEXPAND_EXIT; + cdat->drout_1151__MEXPAND_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1151__MEXPAND_EXIT.routdescr, "MEXPAND_EXIT @warmelt-macro.bysl:3523", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1151__MEXPAND_EXIT.nbval = 11; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1151__MEXPAND_EXIT, rout_89_MEXPAND_EXIT); + + /*iniclos dclo_1152__MEXPAND_EXIT*/ + /*_.VALCLO___V1215*/ curfptr[1214] = (void*)&cdat->dclo_1152__MEXPAND_EXIT; + cdat->dclo_1152__MEXPAND_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1152__MEXPAND_EXIT.nbval = 0; + + /*inirout drout_1153__LAMBDA_*/ + /*_.VALROUT___V1214*/ curfptr[1213] = (void*)&cdat->drout_1153__LAMBDA_; + cdat->drout_1153__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1153__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3546", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1153__LAMBDA_.nbval = 1; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1153__LAMBDA_, rout_90_LAMBDA_); + + /*iniobj dsym_1154__EXIT*/ + if (!/*_.VALDATA___V1216*/ curfptr[1215]) /*_.VALDATA___V1216*/ curfptr[1215] = (void*)&cdat->dsym_1154__EXIT; + basilys_assertmsg("iniobj checkdiscr dsym_1154__EXIT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1154__EXIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1154__EXIT.obj_hash = 90311298; + cdat->dsym_1154__EXIT.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1154__EXIT)); + + /*inistring dstr_1155__EXIT*/ + /*_.VALSTR___V1217*/ curfptr[1216] = (void*)&cdat->dstr_1155__EXIT; + cdat->dstr_1155__EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1155__EXIT.val, "EXIT"); + + /*inirout drout_1156__MEXPAND_COMPILE_WARNING*/ + /*_.VALROUT___V1218*/ curfptr[1217] = (void*)&cdat->drout_1156__MEXPAND_COMPILE_WARNING; + cdat->drout_1156__MEXPAND_COMPILE_WARNING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1156__MEXPAND_COMPILE_WARNING.routdescr, "MEXPAND_COMPILE_WARNING @warmelt-macro.bysl:3561", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1156__MEXPAND_COMPILE_WARNING.nbval = 4; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1156__MEXPAND_COMPILE_WARNING, rout_91_MEXPAND_COMPILE_WARNING); + + /*iniclos dclo_1157__MEXPAND_COMPILE_WARNING*/ + /*_.VALCLO___V1219*/ curfptr[1218] = (void*)&cdat->dclo_1157__MEXPAND_COMPILE_WARNING; + cdat->dclo_1157__MEXPAND_COMPILE_WARNING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1157__MEXPAND_COMPILE_WARNING.nbval = 0; + + /*iniobj dsym_1158__COMPILE_WARNING*/ + if (!/*_.VALDATA___V1220*/ curfptr[1219]) /*_.VALDATA___V1220*/ curfptr[1219] = (void*)&cdat->dsym_1158__COMPILE_WARNING; + basilys_assertmsg("iniobj checkdiscr dsym_1158__COMPILE_WARNING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1158__COMPILE_WARNING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1158__COMPILE_WARNING.obj_hash = 87862926; + cdat->dsym_1158__COMPILE_WARNING.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1158__COMPILE_WARNING)); + + /*inistring dstr_1159__COMPILE_WARNING*/ + /*_.VALSTR___V1221*/ curfptr[1220] = (void*)&cdat->dstr_1159__COMPILE_WARNING; + cdat->dstr_1159__COMPILE_WARNING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1159__COMPILE_WARNING.val, "COMPILE_WARNING"); + + /*inirout drout_1160__MEXPAND_ASSERT_MSG*/ + /*_.VALROUT___V1222*/ curfptr[1221] = (void*)&cdat->drout_1160__MEXPAND_ASSERT_MSG; + cdat->drout_1160__MEXPAND_ASSERT_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1160__MEXPAND_ASSERT_MSG.routdescr, "MEXPAND_ASSERT_MSG @warmelt-macro.bysl:3600", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1160__MEXPAND_ASSERT_MSG.nbval = 16; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1160__MEXPAND_ASSERT_MSG, rout_92_MEXPAND_ASSERT_MSG); + + /*iniclos dclo_1161__MEXPAND_ASSERT_MSG*/ + /*_.VALCLO___V1227*/ curfptr[1226] = (void*)&cdat->dclo_1161__MEXPAND_ASSERT_MSG; + cdat->dclo_1161__MEXPAND_ASSERT_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1161__MEXPAND_ASSERT_MSG.nbval = 0; + + /*iniobj dsym_1162__ASSERT_FAILED*/ + if (!/*_.VALDATA___V1223*/ curfptr[1222]) /*_.VALDATA___V1223*/ curfptr[1222] = (void*)&cdat->dsym_1162__ASSERT_FAILED; + basilys_assertmsg("iniobj checkdiscr dsym_1162__ASSERT_FAILED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1162__ASSERT_FAILED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1162__ASSERT_FAILED.obj_hash = 201548028; + cdat->dsym_1162__ASSERT_FAILED.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1162__ASSERT_FAILED)); + + /*inistring dstr_1163__ASSERT_FAILED*/ + /*_.VALSTR___V1224*/ curfptr[1223] = (void*)&cdat->dstr_1163__ASSERT_FAILED; + cdat->dstr_1163__ASSERT_FAILED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1163__ASSERT_FAILED.val, "ASSERT_FAILED"); + + /*iniobj dsym_1164__FIND_ENV_DEBUG*/ + if (!/*_.VALDATA___V1228*/ curfptr[1227]) /*_.VALDATA___V1228*/ curfptr[1227] = (void*)&cdat->dsym_1164__FIND_ENV_DEBUG; + basilys_assertmsg("iniobj checkdiscr dsym_1164__FIND_ENV_DEBUG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1164__FIND_ENV_DEBUG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1164__FIND_ENV_DEBUG.obj_hash = 670001916; + cdat->dsym_1164__FIND_ENV_DEBUG.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1164__FIND_ENV_DEBUG)); + + /*inistring dstr_1165__FIND_ENV_DEBUG*/ + /*_.VALSTR___V1229*/ curfptr[1228] = (void*)&cdat->dstr_1165__FIND_ENV_DEBUG; + cdat->dstr_1165__FIND_ENV_DEBUG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1165__FIND_ENV_DEBUG.val, "FIND_ENV_DEBUG"); + + /*iniobj dsym_1166__ENABLE_CHECKING*/ + if (!/*_.VALDATA___V1225*/ curfptr[1224]) /*_.VALDATA___V1225*/ curfptr[1224] = (void*)&cdat->dsym_1166__ENABLE_CHECKING; + basilys_assertmsg("iniobj checkdiscr dsym_1166__ENABLE_CHECKING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1166__ENABLE_CHECKING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1166__ENABLE_CHECKING.obj_hash = 375027773; + cdat->dsym_1166__ENABLE_CHECKING.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1166__ENABLE_CHECKING)); + + /*inistring dstr_1167__ENABLE_CHECKING*/ + /*_.VALSTR___V1226*/ curfptr[1225] = (void*)&cdat->dstr_1167__ENABLE_CHECKING; + cdat->dstr_1167__ENABLE_CHECKING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1167__ENABLE_CHECKING.val, "ENABLE_CHECKING"); + + /*iniobj dsym_1168__ASSERT_MSG*/ + if (!/*_.VALDATA___V1230*/ curfptr[1229]) /*_.VALDATA___V1230*/ curfptr[1229] = (void*)&cdat->dsym_1168__ASSERT_MSG; + basilys_assertmsg("iniobj checkdiscr dsym_1168__ASSERT_MSG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1168__ASSERT_MSG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1168__ASSERT_MSG.obj_hash = 877781164; + cdat->dsym_1168__ASSERT_MSG.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1168__ASSERT_MSG)); + + /*inistring dstr_1169__ASSERT_MSG*/ + /*_.VALSTR___V1231*/ curfptr[1230] = (void*)&cdat->dstr_1169__ASSERT_MSG; + cdat->dstr_1169__ASSERT_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1169__ASSERT_MSG.val, "ASSERT_MSG"); + + /*inirout drout_1170__MEXPAND_DEBUG_MSG*/ + /*_.VALROUT___V1232*/ curfptr[1231] = (void*)&cdat->drout_1170__MEXPAND_DEBUG_MSG; + cdat->drout_1170__MEXPAND_DEBUG_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1170__MEXPAND_DEBUG_MSG.routdescr, "MEXPAND_DEBUG_MSG @warmelt-macro.bysl:3680", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1170__MEXPAND_DEBUG_MSG.nbval = 12; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1170__MEXPAND_DEBUG_MSG, rout_93_MEXPAND_DEBUG_MSG); + + /*iniclos dclo_1171__MEXPAND_DEBUG_MSG*/ + /*_.VALCLO___V1235*/ curfptr[1234] = (void*)&cdat->dclo_1171__MEXPAND_DEBUG_MSG; + cdat->dclo_1171__MEXPAND_DEBUG_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1171__MEXPAND_DEBUG_MSG.nbval = 0; + + /*iniobj dsym_1172__THE_CALLCOUNT*/ + if (!/*_.VALDATA___V1233*/ curfptr[1232]) /*_.VALDATA___V1233*/ curfptr[1232] = (void*)&cdat->dsym_1172__THE_CALLCOUNT; + basilys_assertmsg("iniobj checkdiscr dsym_1172__THE_CALLCOUNT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1172__THE_CALLCOUNT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1172__THE_CALLCOUNT.obj_hash = 366316746; + cdat->dsym_1172__THE_CALLCOUNT.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1172__THE_CALLCOUNT)); + + /*inistring dstr_1173__THE_CALLCOUNT*/ + /*_.VALSTR___V1234*/ curfptr[1233] = (void*)&cdat->dstr_1173__THE_CALLCOUNT; + cdat->dstr_1173__THE_CALLCOUNT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1173__THE_CALLCOUNT.val, "THE_CALLCOUNT"); + + /*iniobj dsym_1174__DEBUG_MSG*/ + if (!/*_.VALDATA___V1236*/ curfptr[1235]) /*_.VALDATA___V1236*/ curfptr[1235] = (void*)&cdat->dsym_1174__DEBUG_MSG; + basilys_assertmsg("iniobj checkdiscr dsym_1174__DEBUG_MSG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1174__DEBUG_MSG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1174__DEBUG_MSG.obj_hash = 653165353; + cdat->dsym_1174__DEBUG_MSG.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1174__DEBUG_MSG)); + + /*inistring dstr_1175__DEBUG_MSG*/ + /*_.VALSTR___V1237*/ curfptr[1236] = (void*)&cdat->dstr_1175__DEBUG_MSG; + cdat->dstr_1175__DEBUG_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1175__DEBUG_MSG.val, "DEBUG_MSG"); + + /*inirout drout_1176__MEXPAND_EXPORT_VALUES*/ + /*_.VALROUT___V1238*/ curfptr[1237] = (void*)&cdat->drout_1176__MEXPAND_EXPORT_VALUES; + cdat->drout_1176__MEXPAND_EXPORT_VALUES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1176__MEXPAND_EXPORT_VALUES.routdescr, "MEXPAND_EXPORT_VALUES @warmelt-macro.bysl:3741", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1176__MEXPAND_EXPORT_VALUES.nbval = 10; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1176__MEXPAND_EXPORT_VALUES, rout_94_MEXPAND_EXPORT_VALUES); + + /*iniclos dclo_1177__MEXPAND_EXPORT_VALUES*/ + /*_.VALCLO___V1240*/ curfptr[1239] = (void*)&cdat->dclo_1177__MEXPAND_EXPORT_VALUES; + cdat->dclo_1177__MEXPAND_EXPORT_VALUES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1177__MEXPAND_EXPORT_VALUES.nbval = 0; + + /*inirout drout_1178__LAMBDA_*/ + /*_.VALROUT___V1239*/ curfptr[1238] = (void*)&cdat->drout_1178__LAMBDA_; + cdat->drout_1178__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1178__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3751", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1178__LAMBDA_.nbval = 3; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1178__LAMBDA_, rout_95_LAMBDA_); + + /*iniobj dsym_1179__DEBUGMSG*/ + if (!/*_.VALDATA___V1241*/ curfptr[1240]) /*_.VALDATA___V1241*/ curfptr[1240] = (void*)&cdat->dsym_1179__DEBUGMSG; + basilys_assertmsg("iniobj checkdiscr dsym_1179__DEBUGMSG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1179__DEBUGMSG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1179__DEBUGMSG.obj_hash = 154774102; + cdat->dsym_1179__DEBUGMSG.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1179__DEBUGMSG)); + + /*inistring dstr_1180__DEBUGMSG*/ + /*_.VALSTR___V1242*/ curfptr[1241] = (void*)&cdat->dstr_1180__DEBUGMSG; + cdat->dstr_1180__DEBUGMSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1180__DEBUGMSG.val, "DEBUGMSG"); + + /*iniobj dsym_1181__EXPORT_VALUES*/ + if (!/*_.VALDATA___V1243*/ curfptr[1242]) /*_.VALDATA___V1243*/ curfptr[1242] = (void*)&cdat->dsym_1181__EXPORT_VALUES; + basilys_assertmsg("iniobj checkdiscr dsym_1181__EXPORT_VALUES", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1181__EXPORT_VALUES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1181__EXPORT_VALUES.obj_hash = 967501408; + cdat->dsym_1181__EXPORT_VALUES.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1181__EXPORT_VALUES)); + + /*inistring dstr_1182__EXPORT_VALUES*/ + /*_.VALSTR___V1244*/ curfptr[1243] = (void*)&cdat->dstr_1182__EXPORT_VALUES; + cdat->dstr_1182__EXPORT_VALUES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1182__EXPORT_VALUES.val, "EXPORT_VALUES"); + + /*inirout drout_1183__MEXPAND_EXPORT_MACRO*/ + /*_.VALROUT___V1245*/ curfptr[1244] = (void*)&cdat->drout_1183__MEXPAND_EXPORT_MACRO; + cdat->drout_1183__MEXPAND_EXPORT_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1183__MEXPAND_EXPORT_MACRO.routdescr, "MEXPAND_EXPORT_MACRO @warmelt-macro.bysl:3771", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1183__MEXPAND_EXPORT_MACRO.nbval = 6; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1183__MEXPAND_EXPORT_MACRO, rout_96_MEXPAND_EXPORT_MACRO); + + /*iniclos dclo_1184__MEXPAND_EXPORT_MACRO*/ + /*_.VALCLO___V1246*/ curfptr[1245] = (void*)&cdat->dclo_1184__MEXPAND_EXPORT_MACRO; + cdat->dclo_1184__MEXPAND_EXPORT_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1184__MEXPAND_EXPORT_MACRO.nbval = 0; + + /*iniobj dsym_1185__EXPORT_MACRO*/ + if (!/*_.VALDATA___V1247*/ curfptr[1246]) /*_.VALDATA___V1247*/ curfptr[1246] = (void*)&cdat->dsym_1185__EXPORT_MACRO; + basilys_assertmsg("iniobj checkdiscr dsym_1185__EXPORT_MACRO", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1185__EXPORT_MACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1185__EXPORT_MACRO.obj_hash = 539749464; + cdat->dsym_1185__EXPORT_MACRO.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1185__EXPORT_MACRO)); + + /*inistring dstr_1186__EXPORT_MACRO*/ + /*_.VALSTR___V1248*/ curfptr[1247] = (void*)&cdat->dstr_1186__EXPORT_MACRO; + cdat->dstr_1186__EXPORT_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1186__EXPORT_MACRO.val, "EXPORT_MACRO"); + + /*inirout drout_1187__MEXPAND_EXPORT_PATMACRO*/ + /*_.VALROUT___V1249*/ curfptr[1248] = (void*)&cdat->drout_1187__MEXPAND_EXPORT_PATMACRO; + cdat->drout_1187__MEXPAND_EXPORT_PATMACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1187__MEXPAND_EXPORT_PATMACRO.routdescr, "MEXPAND_EXPORT_PATMACRO @warmelt-macro.bysl:3802", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1187__MEXPAND_EXPORT_PATMACRO.nbval = 6; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1187__MEXPAND_EXPORT_PATMACRO, rout_97_MEXPAND_EXPORT_PATMACRO); + + /*iniclos dclo_1188__MEXPAND_EXPORT_PATMACRO*/ + /*_.VALCLO___V1250*/ curfptr[1249] = (void*)&cdat->dclo_1188__MEXPAND_EXPORT_PATMACRO; + cdat->dclo_1188__MEXPAND_EXPORT_PATMACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1188__MEXPAND_EXPORT_PATMACRO.nbval = 0; + + /*iniobj dsym_1189__EXPORT_PATMACRO*/ + if (!/*_.VALDATA___V1251*/ curfptr[1250]) /*_.VALDATA___V1251*/ curfptr[1250] = (void*)&cdat->dsym_1189__EXPORT_PATMACRO; + basilys_assertmsg("iniobj checkdiscr dsym_1189__EXPORT_PATMACRO", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1189__EXPORT_PATMACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1189__EXPORT_PATMACRO.obj_hash = 363095059; + cdat->dsym_1189__EXPORT_PATMACRO.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1189__EXPORT_PATMACRO)); + + /*inistring dstr_1190__EXPORT_PATMACRO*/ + /*_.VALSTR___V1252*/ curfptr[1251] = (void*)&cdat->dstr_1190__EXPORT_PATMACRO; + cdat->dstr_1190__EXPORT_PATMACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1190__EXPORT_PATMACRO.val, "EXPORT_PATMACRO"); + + /*inirout drout_1191__MEXPAND_EXPORT_CLASS*/ + /*_.VALROUT___V1253*/ curfptr[1252] = (void*)&cdat->drout_1191__MEXPAND_EXPORT_CLASS; + cdat->drout_1191__MEXPAND_EXPORT_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1191__MEXPAND_EXPORT_CLASS.routdescr, "MEXPAND_EXPORT_CLASS @warmelt-macro.bysl:3839", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1191__MEXPAND_EXPORT_CLASS.nbval = 9; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1191__MEXPAND_EXPORT_CLASS, rout_98_MEXPAND_EXPORT_CLASS); + + /*iniclos dclo_1192__MEXPAND_EXPORT_CLASS*/ + /*_.VALCLO___V1255*/ curfptr[1254] = (void*)&cdat->dclo_1192__MEXPAND_EXPORT_CLASS; + cdat->dclo_1192__MEXPAND_EXPORT_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1192__MEXPAND_EXPORT_CLASS.nbval = 0; + + /*inirout drout_1193__LAMBDA_*/ + /*_.VALROUT___V1254*/ curfptr[1253] = (void*)&cdat->drout_1193__LAMBDA_; + cdat->drout_1193__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1193__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.bysl:3849", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1193__LAMBDA_.nbval = 2; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1193__LAMBDA_, rout_99_LAMBDA_); + + /*iniobj dsym_1194__EXPORT_CLASS*/ + if (!/*_.VALDATA___V1256*/ curfptr[1255]) /*_.VALDATA___V1256*/ curfptr[1255] = (void*)&cdat->dsym_1194__EXPORT_CLASS; + basilys_assertmsg("iniobj checkdiscr dsym_1194__EXPORT_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1194__EXPORT_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1194__EXPORT_CLASS.obj_hash = 352628427; + cdat->dsym_1194__EXPORT_CLASS.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1194__EXPORT_CLASS)); + + /*inistring dstr_1195__EXPORT_CLASS*/ + /*_.VALSTR___V1257*/ curfptr[1256] = (void*)&cdat->dstr_1195__EXPORT_CLASS; + cdat->dstr_1195__EXPORT_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1195__EXPORT_CLASS.val, "EXPORT_CLASS"); + + /*inirout drout_1196__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + /*_.VALROUT___V1258*/ curfptr[1257] = (void*)&cdat->drout_1196__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + cdat->drout_1196__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1196__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.bysl:3867", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1196__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1196__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER, rout_100_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER); + + /*iniclos dclo_1197__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + /*_.VALCLO___V1259*/ curfptr[1258] = (void*)&cdat->dclo_1197__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + cdat->dclo_1197__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1197__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; + + /*iniobj dsym_1198__CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + if (!/*_.VALDATA___V1260*/ curfptr[1259]) /*_.VALDATA___V1260*/ curfptr[1259] = (void*)&cdat->dsym_1198__CURRENT_MODULE_ENVIRONMENT_CONTAINER; + basilys_assertmsg("iniobj checkdiscr dsym_1198__CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1198__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1198__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 714873699; + cdat->dsym_1198__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1198__CURRENT_MODULE_ENVIRONMENT_CONTAINER)); + + /*inistring dstr_1199__CURRENT_MODULE_E*/ + /*_.VALSTR___V1261*/ curfptr[1260] = (void*)&cdat->dstr_1199__CURRENT_MODULE_E; + cdat->dstr_1199__CURRENT_MODULE_E.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1199__CURRENT_MODULE_E.val, "CURRENT_MODULE_ENVIRONMENT_CONTAINER"); + + /*inirout drout_1200__MEXPAND_PARENT_MODULE_ENVIRONMENT*/ + /*_.VALROUT___V1262*/ curfptr[1261] = (void*)&cdat->drout_1200__MEXPAND_PARENT_MODULE_ENVIRONMENT; + cdat->drout_1200__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1200__MEXPAND_PARENT_MODULE_ENVIRONMENT.routdescr, "MEXPAND_PARENT_MODULE_ENVIRONMENT @warmelt-macro.bysl:3892", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1200__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 4; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1200__MEXPAND_PARENT_MODULE_ENVIRONMENT, rout_101_MEXPAND_PARENT_MODULE_ENVIRONMENT); + + /*iniclos dclo_1201__MEXPAND_PARENT_MODULE_ENVIRONMENT*/ + /*_.VALCLO___V1263*/ curfptr[1262] = (void*)&cdat->dclo_1201__MEXPAND_PARENT_MODULE_ENVIRONMENT; + cdat->dclo_1201__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1201__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 0; + + /*iniobj dsym_1202__PARENT_MODULE_ENVIRONMENT*/ + if (!/*_.VALDATA___V1264*/ curfptr[1263]) /*_.VALDATA___V1264*/ curfptr[1263] = (void*)&cdat->dsym_1202__PARENT_MODULE_ENVIRONMENT; + basilys_assertmsg("iniobj checkdiscr dsym_1202__PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1202__PARENT_MODULE_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1202__PARENT_MODULE_ENVIRONMENT.obj_hash = 315808274; + cdat->dsym_1202__PARENT_MODULE_ENVIRONMENT.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1202__PARENT_MODULE_ENVIRONMENT)); + + /*inistring dstr_1203__PARENT_MODULE_EN*/ + /*_.VALSTR___V1265*/ curfptr[1264] = (void*)&cdat->dstr_1203__PARENT_MODULE_EN; + cdat->dstr_1203__PARENT_MODULE_EN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1203__PARENT_MODULE_EN.val, "PARENT_MODULE_ENVIRONMENT"); + + /*inirout drout_1204__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + /*_.VALROUT___V1266*/ curfptr[1265] = (void*)&cdat->drout_1204__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + cdat->drout_1204__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1204__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.bysl:3915", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1204__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1204__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER, rout_102_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER); + + /*iniclos dclo_1205__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + /*_.VALCLO___V1267*/ curfptr[1266] = (void*)&cdat->dclo_1205__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + cdat->dclo_1205__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1205__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; + + /*iniobj dsym_1206__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + if (!/*_.VALDATA___V1268*/ curfptr[1267]) /*_.VALDATA___V1268*/ curfptr[1267] = (void*)&cdat->dsym_1206__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + basilys_assertmsg("iniobj checkdiscr dsym_1206__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1206__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1206__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 540992734; + cdat->dsym_1206__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1206__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); + + /*inistring dstr_1207__UPDATE_CURRENT_M*/ + /*_.VALSTR___V1269*/ curfptr[1268] = (void*)&cdat->dstr_1207__UPDATE_CURRENT_M; + cdat->dstr_1207__UPDATE_CURRENT_M.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1207__UPDATE_CURRENT_M.val, "UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); + + /*inirout drout_1208__MEXPAND_FETCH_PREDEFINED*/ + /*_.VALROUT___V1270*/ curfptr[1269] = (void*)&cdat->drout_1208__MEXPAND_FETCH_PREDEFINED; + cdat->drout_1208__MEXPAND_FETCH_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1208__MEXPAND_FETCH_PREDEFINED.routdescr, "MEXPAND_FETCH_PREDEFINED @warmelt-macro.bysl:3942", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1208__MEXPAND_FETCH_PREDEFINED.nbval = 6; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1208__MEXPAND_FETCH_PREDEFINED, rout_103_MEXPAND_FETCH_PREDEFINED); + + /*iniclos dclo_1209__MEXPAND_FETCH_PREDEFINED*/ + /*_.VALCLO___V1271*/ curfptr[1270] = (void*)&cdat->dclo_1209__MEXPAND_FETCH_PREDEFINED; + cdat->dclo_1209__MEXPAND_FETCH_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1209__MEXPAND_FETCH_PREDEFINED.nbval = 0; + + /*iniobj dsym_1210__FETCH_PREDEFINED*/ + if (!/*_.VALDATA___V1272*/ curfptr[1271]) /*_.VALDATA___V1272*/ curfptr[1271] = (void*)&cdat->dsym_1210__FETCH_PREDEFINED; + basilys_assertmsg("iniobj checkdiscr dsym_1210__FETCH_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1210__FETCH_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1210__FETCH_PREDEFINED.obj_hash = 951904659; + cdat->dsym_1210__FETCH_PREDEFINED.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1210__FETCH_PREDEFINED)); + + /*inistring dstr_1211__FETCH_PREDEFINED*/ + /*_.VALSTR___V1273*/ curfptr[1272] = (void*)&cdat->dstr_1211__FETCH_PREDEFINED; + cdat->dstr_1211__FETCH_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1211__FETCH_PREDEFINED.val, "FETCH_PREDEFINED"); + + /*inirout drout_1212__MEXPAND_STORE_PREDEFINED*/ + /*_.VALROUT___V1274*/ curfptr[1273] = (void*)&cdat->drout_1212__MEXPAND_STORE_PREDEFINED; + cdat->drout_1212__MEXPAND_STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); + strncpy(cdat->drout_1212__MEXPAND_STORE_PREDEFINED.routdescr, "MEXPAND_STORE_PREDEFINED @warmelt-macro.bysl:3968", BASILYS_ROUTDESCR_LEN - 1); + cdat->drout_1212__MEXPAND_STORE_PREDEFINED.nbval = 6; + BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1212__MEXPAND_STORE_PREDEFINED, rout_104_MEXPAND_STORE_PREDEFINED); + + /*iniclos dclo_1213__MEXPAND_STORE_PREDEFINED*/ + /*_.VALCLO___V1275*/ curfptr[1274] = (void*)&cdat->dclo_1213__MEXPAND_STORE_PREDEFINED; + cdat->dclo_1213__MEXPAND_STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); + cdat->dclo_1213__MEXPAND_STORE_PREDEFINED.nbval = 0; + + /*iniobj dsym_1214__STORE_PREDEFINED*/ + if (!/*_.VALDATA___V1276*/ curfptr[1275]) /*_.VALDATA___V1276*/ curfptr[1275] = (void*)&cdat->dsym_1214__STORE_PREDEFINED; + basilys_assertmsg("iniobj checkdiscr dsym_1214__STORE_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1214__STORE_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1214__STORE_PREDEFINED.obj_hash = 8509317; + cdat->dsym_1214__STORE_PREDEFINED.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1214__STORE_PREDEFINED)); + + /*inistring dstr_1215__STORE_PREDEFINED*/ + /*_.VALSTR___V1277*/ curfptr[1276] = (void*)&cdat->dstr_1215__STORE_PREDEFINED; + cdat->dstr_1215__STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1215__STORE_PREDEFINED.val, "STORE_PREDEFINED"); + + /*iniobj dsym_1216__EXPAND_APPLY*/ + if (!/*_.VALDATA___V1278*/ curfptr[1277]) /*_.VALDATA___V1278*/ curfptr[1277] = (void*)&cdat->dsym_1216__EXPAND_APPLY; + basilys_assertmsg("iniobj checkdiscr dsym_1216__EXPAND_APPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1216__EXPAND_APPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1216__EXPAND_APPLY.obj_hash = 57901779; + cdat->dsym_1216__EXPAND_APPLY.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1216__EXPAND_APPLY)); + + /*inistring dstr_1217__EXPAND_APPLY*/ + /*_.VALSTR___V1279*/ curfptr[1278] = (void*)&cdat->dstr_1217__EXPAND_APPLY; + cdat->dstr_1217__EXPAND_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1217__EXPAND_APPLY.val, "EXPAND_APPLY"); + + /*iniobj dsym_1218__EXPAND_MSEND*/ + if (!/*_.VALDATA___V1280*/ curfptr[1279]) /*_.VALDATA___V1280*/ curfptr[1279] = (void*)&cdat->dsym_1218__EXPAND_MSEND; + basilys_assertmsg("iniobj checkdiscr dsym_1218__EXPAND_MSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1218__EXPAND_MSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1218__EXPAND_MSEND.obj_hash = 624621035; + cdat->dsym_1218__EXPAND_MSEND.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1218__EXPAND_MSEND)); + + /*inistring dstr_1219__EXPAND_MSEND*/ + /*_.VALSTR___V1281*/ curfptr[1280] = (void*)&cdat->dstr_1219__EXPAND_MSEND; + cdat->dstr_1219__EXPAND_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1219__EXPAND_MSEND.val, "EXPAND_MSEND"); + + /*iniobj dsym_1220__EXPAND_PAIRLIST_AS_TUPLE*/ + if (!/*_.VALDATA___V1282*/ curfptr[1281]) /*_.VALDATA___V1282*/ curfptr[1281] = (void*)&cdat->dsym_1220__EXPAND_PAIRLIST_AS_TUPLE; + basilys_assertmsg("iniobj checkdiscr dsym_1220__EXPAND_PAIRLIST_AS_TUPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1220__EXPAND_PAIRLIST_AS_TUPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1220__EXPAND_PAIRLIST_AS_TUPLE.obj_hash = 953849859; + cdat->dsym_1220__EXPAND_PAIRLIST_AS_TUPLE.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1220__EXPAND_PAIRLIST_AS_TUPLE)); + + /*inistring dstr_1221__EXPAND_PAIRLIST_*/ + /*_.VALSTR___V1283*/ curfptr[1282] = (void*)&cdat->dstr_1221__EXPAND_PAIRLIST_; + cdat->dstr_1221__EXPAND_PAIRLIST_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1221__EXPAND_PAIRLIST_.val, "EXPAND_PAIRLIST_AS_TUPLE"); + + /*iniobj dsym_1222__EXPAND_PRIMITIVE*/ + if (!/*_.VALDATA___V1284*/ curfptr[1283]) /*_.VALDATA___V1284*/ curfptr[1283] = (void*)&cdat->dsym_1222__EXPAND_PRIMITIVE; + basilys_assertmsg("iniobj checkdiscr dsym_1222__EXPAND_PRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1222__EXPAND_PRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1222__EXPAND_PRIMITIVE.obj_hash = 489692488; + cdat->dsym_1222__EXPAND_PRIMITIVE.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1222__EXPAND_PRIMITIVE)); + + /*inistring dstr_1223__EXPAND_PRIMITIVE*/ + /*_.VALSTR___V1285*/ curfptr[1284] = (void*)&cdat->dstr_1223__EXPAND_PRIMITIVE; + cdat->dstr_1223__EXPAND_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1223__EXPAND_PRIMITIVE.val, "EXPAND_PRIMITIVE"); + + /*iniobj dsym_1224__INSTALL_INITIAL_MACRO*/ + if (!/*_.VALDATA___V1286*/ curfptr[1285]) /*_.VALDATA___V1286*/ curfptr[1285] = (void*)&cdat->dsym_1224__INSTALL_INITIAL_MACRO; + basilys_assertmsg("iniobj checkdiscr dsym_1224__INSTALL_INITIAL_MACRO", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1224__INSTALL_INITIAL_MACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1224__INSTALL_INITIAL_MACRO.obj_hash = 101362976; + cdat->dsym_1224__INSTALL_INITIAL_MACRO.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1224__INSTALL_INITIAL_MACRO)); + + /*inistring dstr_1225__INSTALL_INITIAL_*/ + /*_.VALSTR___V1287*/ curfptr[1286] = (void*)&cdat->dstr_1225__INSTALL_INITIAL_; + cdat->dstr_1225__INSTALL_INITIAL_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1225__INSTALL_INITIAL_.val, "INSTALL_INITIAL_MACRO"); + + /*iniobj dsym_1226__LAMBDA_ARG_BINDINGS*/ + if (!/*_.VALDATA___V1288*/ curfptr[1287]) /*_.VALDATA___V1288*/ curfptr[1287] = (void*)&cdat->dsym_1226__LAMBDA_ARG_BINDINGS; + basilys_assertmsg("iniobj checkdiscr dsym_1226__LAMBDA_ARG_BINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1226__LAMBDA_ARG_BINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1226__LAMBDA_ARG_BINDINGS.obj_hash = 242170999; + cdat->dsym_1226__LAMBDA_ARG_BINDINGS.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1226__LAMBDA_ARG_BINDINGS)); + + /*inistring dstr_1227__LAMBDA_ARG_BINDI*/ + /*_.VALSTR___V1289*/ curfptr[1288] = (void*)&cdat->dstr_1227__LAMBDA_ARG_BINDI; + cdat->dstr_1227__LAMBDA_ARG_BINDI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1227__LAMBDA_ARG_BINDI.val, "LAMBDA_ARG_BINDINGS"); + + /*iniobj dsym_1228__MACROEXPAND_1*/ + if (!/*_.VALDATA___V1290*/ curfptr[1289]) /*_.VALDATA___V1290*/ curfptr[1289] = (void*)&cdat->dsym_1228__MACROEXPAND_1; + basilys_assertmsg("iniobj checkdiscr dsym_1228__MACROEXPAND_1", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1228__MACROEXPAND_1.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1228__MACROEXPAND_1.obj_hash = 858793911; + cdat->dsym_1228__MACROEXPAND_1.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1228__MACROEXPAND_1)); + + /*inistring dstr_1229__MACROEXPAND_1*/ + /*_.VALSTR___V1291*/ curfptr[1290] = (void*)&cdat->dstr_1229__MACROEXPAND_1; + cdat->dstr_1229__MACROEXPAND_1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1229__MACROEXPAND_1.val, "MACROEXPAND_1"); + + /*iniobj dsym_1230__MACROEXPAND_TOPLEVEL_LIST*/ + if (!/*_.VALDATA___V1292*/ curfptr[1291]) /*_.VALDATA___V1292*/ curfptr[1291] = (void*)&cdat->dsym_1230__MACROEXPAND_TOPLEVEL_LIST; + basilys_assertmsg("iniobj checkdiscr dsym_1230__MACROEXPAND_TOPLEVEL_LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1230__MACROEXPAND_TOPLEVEL_LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1230__MACROEXPAND_TOPLEVEL_LIST.obj_hash = 973794411; + cdat->dsym_1230__MACROEXPAND_TOPLEVEL_LIST.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1230__MACROEXPAND_TOPLEVEL_LIST)); + + /*inistring dstr_1231__MACROEXPAND_TOPL*/ + /*_.VALSTR___V1293*/ curfptr[1292] = (void*)&cdat->dstr_1231__MACROEXPAND_TOPL; + cdat->dstr_1231__MACROEXPAND_TOPL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1231__MACROEXPAND_TOPL.val, "MACROEXPAND_TOPLEVEL_LIST"); + + /*iniobj dsym_1232__PATTERNEXPAND_1*/ + if (!/*_.VALDATA___V1294*/ curfptr[1293]) /*_.VALDATA___V1294*/ curfptr[1293] = (void*)&cdat->dsym_1232__PATTERNEXPAND_1; + basilys_assertmsg("iniobj checkdiscr dsym_1232__PATTERNEXPAND_1", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1232__PATTERNEXPAND_1.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1232__PATTERNEXPAND_1.obj_hash = 263501284; + cdat->dsym_1232__PATTERNEXPAND_1.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1232__PATTERNEXPAND_1)); + + /*inistring dstr_1233__PATTERNEXPAND_1*/ + /*_.VALSTR___V1295*/ curfptr[1294] = (void*)&cdat->dstr_1233__PATTERNEXPAND_1; + cdat->dstr_1233__PATTERNEXPAND_1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1233__PATTERNEXPAND_1.val, "PATTERNEXPAND_1"); + + /*iniobj dsym_1234__PATTERNEXPAND_EXPR*/ + if (!/*_.VALDATA___V1296*/ curfptr[1295]) /*_.VALDATA___V1296*/ curfptr[1295] = (void*)&cdat->dsym_1234__PATTERNEXPAND_EXPR; + basilys_assertmsg("iniobj checkdiscr dsym_1234__PATTERNEXPAND_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1234__PATTERNEXPAND_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1234__PATTERNEXPAND_EXPR.obj_hash = 842722016; + cdat->dsym_1234__PATTERNEXPAND_EXPR.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1234__PATTERNEXPAND_EXPR)); + + /*inistring dstr_1235__PATTERNEXPAND_EX*/ + /*_.VALSTR___V1297*/ curfptr[1296] = (void*)&cdat->dstr_1235__PATTERNEXPAND_EX; + cdat->dstr_1235__PATTERNEXPAND_EX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1235__PATTERNEXPAND_EX.val, "PATTERNEXPAND_EXPR"); + + /*iniobj dsym_1236__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ + if (!/*_.VALDATA___V1298*/ curfptr[1297]) /*_.VALDATA___V1298*/ curfptr[1297] = (void*)&cdat->dsym_1236__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + basilys_assertmsg("iniobj checkdiscr dsym_1236__PATTERNEXPAND_PAIRLIST_AS_TUPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1236__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); + cdat->dsym_1236__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_hash = 551172859; + cdat->dsym_1236__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_len = 3; +basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1236__PATTERNEXPAND_PAIRLIST_AS_TUPLE)); + + /*inistring dstr_1237__PATTERNEXPAND_PA*/ + /*_.VALSTR___V1299*/ curfptr[1298] = (void*)&cdat->dstr_1237__PATTERNEXPAND_PA; + cdat->dstr_1237__PATTERNEXPAND_PA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); + strcpy(cdat->dstr_1237__PATTERNEXPAND_PA.val, "PATTERNEXPAND_PAIRLIST_AS_TUPLE"); cdat = NULL; basilys_prohibit_garbcoll = FALSE; @@ -52278,7 +53870,7 @@ void* start_module_basilys(void* modargp_) { initial_frame_st curfram__; memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 1394; + curfram__.nbvar = 1401; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; /**initial routine prologue**/ @@ -52309,1446 +53901,1451 @@ initial_frame_st curfram__; /*getnamedsym:CLASS_SRC_APPLY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_APPLY = basilysgc_named_symbol("CLASS_SRC_APPLY", BASILYS_GET); - if (sy_CLASS_SRC_APPLY && NULL == /*_.VALDATA___V62*/ curfptr[61]) - /*_.VALDATA___V62*/ curfptr[61] = (void*) sy_CLASS_SRC_APPLY; } + if (sy_CLASS_SRC_APPLY && NULL == /*_.VALDATA___V63*/ curfptr[62]) + /*_.VALDATA___V63*/ curfptr[62] = (void*) sy_CLASS_SRC_APPLY; } /*getnamedsym:CLASS_SRC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC = basilysgc_named_symbol("CLASS_SRC", BASILYS_GET); - if (sy_CLASS_SRC && NULL == /*_.VALDATA___V64*/ curfptr[63]) - /*_.VALDATA___V64*/ curfptr[63] = (void*) sy_CLASS_SRC; } + if (sy_CLASS_SRC && NULL == /*_.VALDATA___V65*/ curfptr[64]) + /*_.VALDATA___V65*/ curfptr[64] = (void*) sy_CLASS_SRC; } /*getnamedsym:SAPP_FUN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SAPP_FUN = basilysgc_named_symbol("SAPP_FUN", BASILYS_GET); - if (sy_SAPP_FUN && NULL == /*_.VALDATA___V74*/ curfptr[73]) - /*_.VALDATA___V74*/ curfptr[73] = (void*) sy_SAPP_FUN; } + if (sy_SAPP_FUN && NULL == /*_.VALDATA___V75*/ curfptr[74]) + /*_.VALDATA___V75*/ curfptr[74] = (void*) sy_SAPP_FUN; } /*getnamedsym:SAPP_ARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SAPP_ARGS = basilysgc_named_symbol("SAPP_ARGS", BASILYS_GET); - if (sy_SAPP_ARGS && NULL == /*_.VALDATA___V76*/ curfptr[75]) - /*_.VALDATA___V76*/ curfptr[75] = (void*) sy_SAPP_ARGS; } + if (sy_SAPP_ARGS && NULL == /*_.VALDATA___V77*/ curfptr[76]) + /*_.VALDATA___V77*/ curfptr[76] = (void*) sy_SAPP_ARGS; } /*getnamedsym:CLASS_SRC_MSEND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_MSEND = basilysgc_named_symbol("CLASS_SRC_MSEND", BASILYS_GET); - if (sy_CLASS_SRC_MSEND && NULL == /*_.VALDATA___V78*/ curfptr[77]) - /*_.VALDATA___V78*/ curfptr[77] = (void*) sy_CLASS_SRC_MSEND; } + if (sy_CLASS_SRC_MSEND && NULL == /*_.VALDATA___V79*/ curfptr[78]) + /*_.VALDATA___V79*/ curfptr[78] = (void*) sy_CLASS_SRC_MSEND; } /*getnamedsym:MSEND_SELSYMB*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MSEND_SELSYMB = basilysgc_named_symbol("MSEND_SELSYMB", BASILYS_GET); - if (sy_MSEND_SELSYMB && NULL == /*_.VALDATA___V90*/ curfptr[89]) - /*_.VALDATA___V90*/ curfptr[89] = (void*) sy_MSEND_SELSYMB; } + if (sy_MSEND_SELSYMB && NULL == /*_.VALDATA___V91*/ curfptr[90]) + /*_.VALDATA___V91*/ curfptr[90] = (void*) sy_MSEND_SELSYMB; } /*getnamedsym:MSEND_RECV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MSEND_RECV = basilysgc_named_symbol("MSEND_RECV", BASILYS_GET); - if (sy_MSEND_RECV && NULL == /*_.VALDATA___V92*/ curfptr[91]) - /*_.VALDATA___V92*/ curfptr[91] = (void*) sy_MSEND_RECV; } + if (sy_MSEND_RECV && NULL == /*_.VALDATA___V93*/ curfptr[92]) + /*_.VALDATA___V93*/ curfptr[92] = (void*) sy_MSEND_RECV; } /*getnamedsym:MSEND_ARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MSEND_ARGS = basilysgc_named_symbol("MSEND_ARGS", BASILYS_GET); - if (sy_MSEND_ARGS && NULL == /*_.VALDATA___V94*/ curfptr[93]) - /*_.VALDATA___V94*/ curfptr[93] = (void*) sy_MSEND_ARGS; } + if (sy_MSEND_ARGS && NULL == /*_.VALDATA___V95*/ curfptr[94]) + /*_.VALDATA___V95*/ curfptr[94] = (void*) sy_MSEND_ARGS; } /*getnamedsym:CLASS_SRC_PRIMITIVE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_PRIMITIVE = basilysgc_named_symbol("CLASS_SRC_PRIMITIVE", BASILYS_GET); - if (sy_CLASS_SRC_PRIMITIVE && NULL == /*_.VALDATA___V96*/ curfptr[95]) - /*_.VALDATA___V96*/ curfptr[95] = (void*) sy_CLASS_SRC_PRIMITIVE; } + if (sy_CLASS_SRC_PRIMITIVE && NULL == /*_.VALDATA___V97*/ curfptr[96]) + /*_.VALDATA___V97*/ curfptr[96] = (void*) sy_CLASS_SRC_PRIMITIVE; } /*getnamedsym:SPRIM_OPER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPRIM_OPER = basilysgc_named_symbol("SPRIM_OPER", BASILYS_GET); - if (sy_SPRIM_OPER && NULL == /*_.VALDATA___V106*/ curfptr[105]) - /*_.VALDATA___V106*/ curfptr[105] = (void*) sy_SPRIM_OPER; } + if (sy_SPRIM_OPER && NULL == /*_.VALDATA___V107*/ curfptr[106]) + /*_.VALDATA___V107*/ curfptr[106] = (void*) sy_SPRIM_OPER; } /*getnamedsym:SPRIM_ARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPRIM_ARGS = basilysgc_named_symbol("SPRIM_ARGS", BASILYS_GET); - if (sy_SPRIM_ARGS && NULL == /*_.VALDATA___V108*/ curfptr[107]) - /*_.VALDATA___V108*/ curfptr[107] = (void*) sy_SPRIM_ARGS; } + if (sy_SPRIM_ARGS && NULL == /*_.VALDATA___V109*/ curfptr[108]) + /*_.VALDATA___V109*/ curfptr[108] = (void*) sy_SPRIM_ARGS; } /*getnamedsym:CLASS_SRC_CITERATION*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_CITERATION = basilysgc_named_symbol("CLASS_SRC_CITERATION", BASILYS_GET); - if (sy_CLASS_SRC_CITERATION && NULL == /*_.VALDATA___V110*/ curfptr[109]) - /*_.VALDATA___V110*/ curfptr[109] = (void*) sy_CLASS_SRC_CITERATION; } + if (sy_CLASS_SRC_CITERATION && NULL == /*_.VALDATA___V111*/ curfptr[110]) + /*_.VALDATA___V111*/ curfptr[110] = (void*) sy_CLASS_SRC_CITERATION; } /*getnamedsym:SCITER_OPER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCITER_OPER = basilysgc_named_symbol("SCITER_OPER", BASILYS_GET); - if (sy_SCITER_OPER && NULL == /*_.VALDATA___V124*/ curfptr[123]) - /*_.VALDATA___V124*/ curfptr[123] = (void*) sy_SCITER_OPER; } + if (sy_SCITER_OPER && NULL == /*_.VALDATA___V125*/ curfptr[124]) + /*_.VALDATA___V125*/ curfptr[124] = (void*) sy_SCITER_OPER; } /*getnamedsym:SCITER_ARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCITER_ARGS = basilysgc_named_symbol("SCITER_ARGS", BASILYS_GET); - if (sy_SCITER_ARGS && NULL == /*_.VALDATA___V126*/ curfptr[125]) - /*_.VALDATA___V126*/ curfptr[125] = (void*) sy_SCITER_ARGS; } + if (sy_SCITER_ARGS && NULL == /*_.VALDATA___V127*/ curfptr[126]) + /*_.VALDATA___V127*/ curfptr[126] = (void*) sy_SCITER_ARGS; } /*getnamedsym:SCITER_VARBIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCITER_VARBIND = basilysgc_named_symbol("SCITER_VARBIND", BASILYS_GET); - if (sy_SCITER_VARBIND && NULL == /*_.VALDATA___V128*/ curfptr[127]) - /*_.VALDATA___V128*/ curfptr[127] = (void*) sy_SCITER_VARBIND; } + if (sy_SCITER_VARBIND && NULL == /*_.VALDATA___V129*/ curfptr[128]) + /*_.VALDATA___V129*/ curfptr[128] = (void*) sy_SCITER_VARBIND; } /*getnamedsym:SCITER_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCITER_BODY = basilysgc_named_symbol("SCITER_BODY", BASILYS_GET); - if (sy_SCITER_BODY && NULL == /*_.VALDATA___V130*/ curfptr[129]) - /*_.VALDATA___V130*/ curfptr[129] = (void*) sy_SCITER_BODY; } + if (sy_SCITER_BODY && NULL == /*_.VALDATA___V131*/ curfptr[130]) + /*_.VALDATA___V131*/ curfptr[130] = (void*) sy_SCITER_BODY; } /*getnamedsym:CLASS_SRC_CMATCHEXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_CMATCHEXPR = basilysgc_named_symbol("CLASS_SRC_CMATCHEXPR", BASILYS_GET); - if (sy_CLASS_SRC_CMATCHEXPR && NULL == /*_.VALDATA___V132*/ curfptr[131]) - /*_.VALDATA___V132*/ curfptr[131] = (void*) sy_CLASS_SRC_CMATCHEXPR; } + if (sy_CLASS_SRC_CMATCHEXPR && NULL == /*_.VALDATA___V133*/ curfptr[132]) + /*_.VALDATA___V133*/ curfptr[132] = (void*) sy_CLASS_SRC_CMATCHEXPR; } /*getnamedsym:SCMATX_CMATCHER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCMATX_CMATCHER = basilysgc_named_symbol("SCMATX_CMATCHER", BASILYS_GET); - if (sy_SCMATX_CMATCHER && NULL == /*_.VALDATA___V142*/ curfptr[141]) - /*_.VALDATA___V142*/ curfptr[141] = (void*) sy_SCMATX_CMATCHER; } + if (sy_SCMATX_CMATCHER && NULL == /*_.VALDATA___V143*/ curfptr[142]) + /*_.VALDATA___V143*/ curfptr[142] = (void*) sy_SCMATX_CMATCHER; } /*getnamedsym:SCMATX_ARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCMATX_ARGS = basilysgc_named_symbol("SCMATX_ARGS", BASILYS_GET); - if (sy_SCMATX_ARGS && NULL == /*_.VALDATA___V144*/ curfptr[143]) - /*_.VALDATA___V144*/ curfptr[143] = (void*) sy_SCMATX_ARGS; } + if (sy_SCMATX_ARGS && NULL == /*_.VALDATA___V145*/ curfptr[144]) + /*_.VALDATA___V145*/ curfptr[144] = (void*) sy_SCMATX_ARGS; } /*getnamedsym:CLASS_SRC_PROGN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_PROGN = basilysgc_named_symbol("CLASS_SRC_PROGN", BASILYS_GET); - if (sy_CLASS_SRC_PROGN && NULL == /*_.VALDATA___V146*/ curfptr[145]) - /*_.VALDATA___V146*/ curfptr[145] = (void*) sy_CLASS_SRC_PROGN; } + if (sy_CLASS_SRC_PROGN && NULL == /*_.VALDATA___V147*/ curfptr[146]) + /*_.VALDATA___V147*/ curfptr[146] = (void*) sy_CLASS_SRC_PROGN; } /*getnamedsym:SPROGN_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPROGN_BODY = basilysgc_named_symbol("SPROGN_BODY", BASILYS_GET); - if (sy_SPROGN_BODY && NULL == /*_.VALDATA___V154*/ curfptr[153]) - /*_.VALDATA___V154*/ curfptr[153] = (void*) sy_SPROGN_BODY; } + if (sy_SPROGN_BODY && NULL == /*_.VALDATA___V155*/ curfptr[154]) + /*_.VALDATA___V155*/ curfptr[154] = (void*) sy_SPROGN_BODY; } /*getnamedsym:CLASS_SRC_RETURN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_RETURN = basilysgc_named_symbol("CLASS_SRC_RETURN", BASILYS_GET); - if (sy_CLASS_SRC_RETURN && NULL == /*_.VALDATA___V156*/ curfptr[155]) - /*_.VALDATA___V156*/ curfptr[155] = (void*) sy_CLASS_SRC_RETURN; } + if (sy_CLASS_SRC_RETURN && NULL == /*_.VALDATA___V157*/ curfptr[156]) + /*_.VALDATA___V157*/ curfptr[156] = (void*) sy_CLASS_SRC_RETURN; } /*getnamedsym:SRETURN_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SRETURN_BODY = basilysgc_named_symbol("SRETURN_BODY", BASILYS_GET); - if (sy_SRETURN_BODY && NULL == /*_.VALDATA___V164*/ curfptr[163]) - /*_.VALDATA___V164*/ curfptr[163] = (void*) sy_SRETURN_BODY; } + if (sy_SRETURN_BODY && NULL == /*_.VALDATA___V165*/ curfptr[164]) + /*_.VALDATA___V165*/ curfptr[164] = (void*) sy_SRETURN_BODY; } /*getnamedsym:CLASS_SRC_SETQ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_SETQ = basilysgc_named_symbol("CLASS_SRC_SETQ", BASILYS_GET); - if (sy_CLASS_SRC_SETQ && NULL == /*_.VALDATA___V166*/ curfptr[165]) - /*_.VALDATA___V166*/ curfptr[165] = (void*) sy_CLASS_SRC_SETQ; } + if (sy_CLASS_SRC_SETQ && NULL == /*_.VALDATA___V167*/ curfptr[166]) + /*_.VALDATA___V167*/ curfptr[166] = (void*) sy_CLASS_SRC_SETQ; } /*getnamedsym:SSTQ_VAR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SSTQ_VAR = basilysgc_named_symbol("SSTQ_VAR", BASILYS_GET); - if (sy_SSTQ_VAR && NULL == /*_.VALDATA___V176*/ curfptr[175]) - /*_.VALDATA___V176*/ curfptr[175] = (void*) sy_SSTQ_VAR; } + if (sy_SSTQ_VAR && NULL == /*_.VALDATA___V177*/ curfptr[176]) + /*_.VALDATA___V177*/ curfptr[176] = (void*) sy_SSTQ_VAR; } /*getnamedsym:SSTQ_EXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SSTQ_EXPR = basilysgc_named_symbol("SSTQ_EXPR", BASILYS_GET); - if (sy_SSTQ_EXPR && NULL == /*_.VALDATA___V178*/ curfptr[177]) - /*_.VALDATA___V178*/ curfptr[177] = (void*) sy_SSTQ_EXPR; } + if (sy_SSTQ_EXPR && NULL == /*_.VALDATA___V179*/ curfptr[178]) + /*_.VALDATA___V179*/ curfptr[178] = (void*) sy_SSTQ_EXPR; } /*getnamedsym:CLASS_SRC_COMMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_COMMENT = basilysgc_named_symbol("CLASS_SRC_COMMENT", BASILYS_GET); - if (sy_CLASS_SRC_COMMENT && NULL == /*_.VALDATA___V180*/ curfptr[179]) - /*_.VALDATA___V180*/ curfptr[179] = (void*) sy_CLASS_SRC_COMMENT; } + if (sy_CLASS_SRC_COMMENT && NULL == /*_.VALDATA___V181*/ curfptr[180]) + /*_.VALDATA___V181*/ curfptr[180] = (void*) sy_CLASS_SRC_COMMENT; } /*getnamedsym:SCOMM_STR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCOMM_STR = basilysgc_named_symbol("SCOMM_STR", BASILYS_GET); - if (sy_SCOMM_STR && NULL == /*_.VALDATA___V188*/ curfptr[187]) - /*_.VALDATA___V188*/ curfptr[187] = (void*) sy_SCOMM_STR; } + if (sy_SCOMM_STR && NULL == /*_.VALDATA___V189*/ curfptr[188]) + /*_.VALDATA___V189*/ curfptr[188] = (void*) sy_SCOMM_STR; } /*getnamedsym:CLASS_SRC_QUOTE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_QUOTE = basilysgc_named_symbol("CLASS_SRC_QUOTE", BASILYS_GET); - if (sy_CLASS_SRC_QUOTE && NULL == /*_.VALDATA___V190*/ curfptr[189]) - /*_.VALDATA___V190*/ curfptr[189] = (void*) sy_CLASS_SRC_QUOTE; } + if (sy_CLASS_SRC_QUOTE && NULL == /*_.VALDATA___V191*/ curfptr[190]) + /*_.VALDATA___V191*/ curfptr[190] = (void*) sy_CLASS_SRC_QUOTE; } /*getnamedsym:SQUOTED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SQUOTED = basilysgc_named_symbol("SQUOTED", BASILYS_GET); - if (sy_SQUOTED && NULL == /*_.VALDATA___V198*/ curfptr[197]) - /*_.VALDATA___V198*/ curfptr[197] = (void*) sy_SQUOTED; } + if (sy_SQUOTED && NULL == /*_.VALDATA___V199*/ curfptr[198]) + /*_.VALDATA___V199*/ curfptr[198] = (void*) sy_SQUOTED; } /*getnamedsym:CLASS_SRC_EXPORTCOMMON*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_EXPORTCOMMON = basilysgc_named_symbol("CLASS_SRC_EXPORTCOMMON", BASILYS_GET); - if (sy_CLASS_SRC_EXPORTCOMMON && NULL == /*_.VALDATA___V200*/ curfptr[199]) - /*_.VALDATA___V200*/ curfptr[199] = (void*) sy_CLASS_SRC_EXPORTCOMMON; } + if (sy_CLASS_SRC_EXPORTCOMMON && NULL == /*_.VALDATA___V201*/ curfptr[200]) + /*_.VALDATA___V201*/ curfptr[200] = (void*) sy_CLASS_SRC_EXPORTCOMMON; } /*getnamedsym:SEXPORT_NAMES*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SEXPORT_NAMES = basilysgc_named_symbol("SEXPORT_NAMES", BASILYS_GET); - if (sy_SEXPORT_NAMES && NULL == /*_.VALDATA___V208*/ curfptr[207]) - /*_.VALDATA___V208*/ curfptr[207] = (void*) sy_SEXPORT_NAMES; } + if (sy_SEXPORT_NAMES && NULL == /*_.VALDATA___V209*/ curfptr[208]) + /*_.VALDATA___V209*/ curfptr[208] = (void*) sy_SEXPORT_NAMES; } /*getnamedsym:CLASS_SRC_EXPORT_VALUES*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_EXPORT_VALUES = basilysgc_named_symbol("CLASS_SRC_EXPORT_VALUES", BASILYS_GET); - if (sy_CLASS_SRC_EXPORT_VALUES && NULL == /*_.VALDATA___V210*/ curfptr[209]) - /*_.VALDATA___V210*/ curfptr[209] = (void*) sy_CLASS_SRC_EXPORT_VALUES; } + if (sy_CLASS_SRC_EXPORT_VALUES && NULL == /*_.VALDATA___V211*/ curfptr[210]) + /*_.VALDATA___V211*/ curfptr[210] = (void*) sy_CLASS_SRC_EXPORT_VALUES; } /*getnamedsym:CLASS_SRC_EXPORT_CLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_EXPORT_CLASS = basilysgc_named_symbol("CLASS_SRC_EXPORT_CLASS", BASILYS_GET); - if (sy_CLASS_SRC_EXPORT_CLASS && NULL == /*_.VALDATA___V216*/ curfptr[215]) - /*_.VALDATA___V216*/ curfptr[215] = (void*) sy_CLASS_SRC_EXPORT_CLASS; } + if (sy_CLASS_SRC_EXPORT_CLASS && NULL == /*_.VALDATA___V217*/ curfptr[216]) + /*_.VALDATA___V217*/ curfptr[216] = (void*) sy_CLASS_SRC_EXPORT_CLASS; } /*getnamedsym:CLASS_SRC_EXPORT_MACRO*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_EXPORT_MACRO = basilysgc_named_symbol("CLASS_SRC_EXPORT_MACRO", BASILYS_GET); - if (sy_CLASS_SRC_EXPORT_MACRO && NULL == /*_.VALDATA___V222*/ curfptr[221]) - /*_.VALDATA___V222*/ curfptr[221] = (void*) sy_CLASS_SRC_EXPORT_MACRO; } + if (sy_CLASS_SRC_EXPORT_MACRO && NULL == /*_.VALDATA___V223*/ curfptr[222]) + /*_.VALDATA___V223*/ curfptr[222] = (void*) sy_CLASS_SRC_EXPORT_MACRO; } /*getnamedsym:SEXPMAC_MNAME*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SEXPMAC_MNAME = basilysgc_named_symbol("SEXPMAC_MNAME", BASILYS_GET); - if (sy_SEXPMAC_MNAME && NULL == /*_.VALDATA___V232*/ curfptr[231]) - /*_.VALDATA___V232*/ curfptr[231] = (void*) sy_SEXPMAC_MNAME; } + if (sy_SEXPMAC_MNAME && NULL == /*_.VALDATA___V233*/ curfptr[232]) + /*_.VALDATA___V233*/ curfptr[232] = (void*) sy_SEXPMAC_MNAME; } /*getnamedsym:SEXPMAC_MVAL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SEXPMAC_MVAL = basilysgc_named_symbol("SEXPMAC_MVAL", BASILYS_GET); - if (sy_SEXPMAC_MVAL && NULL == /*_.VALDATA___V234*/ curfptr[233]) - /*_.VALDATA___V234*/ curfptr[233] = (void*) sy_SEXPMAC_MVAL; } + if (sy_SEXPMAC_MVAL && NULL == /*_.VALDATA___V235*/ curfptr[234]) + /*_.VALDATA___V235*/ curfptr[234] = (void*) sy_SEXPMAC_MVAL; } /*getnamedsym:CLASS_SRC_EXPORT_PATMACRO*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_EXPORT_PATMACRO = basilysgc_named_symbol("CLASS_SRC_EXPORT_PATMACRO", BASILYS_GET); - if (sy_CLASS_SRC_EXPORT_PATMACRO && NULL == /*_.VALDATA___V236*/ curfptr[235]) - /*_.VALDATA___V236*/ curfptr[235] = (void*) sy_CLASS_SRC_EXPORT_PATMACRO; } + if (sy_CLASS_SRC_EXPORT_PATMACRO && NULL == /*_.VALDATA___V237*/ curfptr[236]) + /*_.VALDATA___V237*/ curfptr[236] = (void*) sy_CLASS_SRC_EXPORT_PATMACRO; } /*getnamedsym:SEXPPAT_PVAL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SEXPPAT_PVAL = basilysgc_named_symbol("SEXPPAT_PVAL", BASILYS_GET); - if (sy_SEXPPAT_PVAL && NULL == /*_.VALDATA___V244*/ curfptr[243]) - /*_.VALDATA___V244*/ curfptr[243] = (void*) sy_SEXPPAT_PVAL; } + if (sy_SEXPPAT_PVAL && NULL == /*_.VALDATA___V245*/ curfptr[244]) + /*_.VALDATA___V245*/ curfptr[244] = (void*) sy_SEXPPAT_PVAL; } /*getnamedsym:CLASS_SRCDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCDEF = basilysgc_named_symbol("CLASS_SRCDEF", BASILYS_GET); - if (sy_CLASS_SRCDEF && NULL == /*_.VALDATA___V246*/ curfptr[245]) - /*_.VALDATA___V246*/ curfptr[245] = (void*) sy_CLASS_SRCDEF; } + if (sy_CLASS_SRCDEF && NULL == /*_.VALDATA___V247*/ curfptr[246]) + /*_.VALDATA___V247*/ curfptr[246] = (void*) sy_CLASS_SRCDEF; } /*getnamedsym:SDEF_NAME*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SDEF_NAME = basilysgc_named_symbol("SDEF_NAME", BASILYS_GET); - if (sy_SDEF_NAME && NULL == /*_.VALDATA___V254*/ curfptr[253]) - /*_.VALDATA___V254*/ curfptr[253] = (void*) sy_SDEF_NAME; } + if (sy_SDEF_NAME && NULL == /*_.VALDATA___V255*/ curfptr[254]) + /*_.VALDATA___V255*/ curfptr[254] = (void*) sy_SDEF_NAME; } /*getnamedsym:CLASS_SRCDEFORMAL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCDEFORMAL = basilysgc_named_symbol("CLASS_SRCDEFORMAL", BASILYS_GET); - if (sy_CLASS_SRCDEFORMAL && NULL == /*_.VALDATA___V256*/ curfptr[255]) - /*_.VALDATA___V256*/ curfptr[255] = (void*) sy_CLASS_SRCDEFORMAL; } + if (sy_CLASS_SRCDEFORMAL && NULL == /*_.VALDATA___V257*/ curfptr[256]) + /*_.VALDATA___V257*/ curfptr[256] = (void*) sy_CLASS_SRCDEFORMAL; } /*getnamedsym:SFORMAL_ARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SFORMAL_ARGS = basilysgc_named_symbol("SFORMAL_ARGS", BASILYS_GET); - if (sy_SFORMAL_ARGS && NULL == /*_.VALDATA___V264*/ curfptr[263]) - /*_.VALDATA___V264*/ curfptr[263] = (void*) sy_SFORMAL_ARGS; } + if (sy_SFORMAL_ARGS && NULL == /*_.VALDATA___V265*/ curfptr[264]) + /*_.VALDATA___V265*/ curfptr[264] = (void*) sy_SFORMAL_ARGS; } /*getnamedsym:CLASS_SRC_DEFUN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFUN = basilysgc_named_symbol("CLASS_SRC_DEFUN", BASILYS_GET); - if (sy_CLASS_SRC_DEFUN && NULL == /*_.VALDATA___V266*/ curfptr[265]) - /*_.VALDATA___V266*/ curfptr[265] = (void*) sy_CLASS_SRC_DEFUN; } + if (sy_CLASS_SRC_DEFUN && NULL == /*_.VALDATA___V267*/ curfptr[266]) + /*_.VALDATA___V267*/ curfptr[266] = (void*) sy_CLASS_SRC_DEFUN; } /*getnamedsym:SFUN_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SFUN_BODY = basilysgc_named_symbol("SFUN_BODY", BASILYS_GET); - if (sy_SFUN_BODY && NULL == /*_.VALDATA___V274*/ curfptr[273]) - /*_.VALDATA___V274*/ curfptr[273] = (void*) sy_SFUN_BODY; } + if (sy_SFUN_BODY && NULL == /*_.VALDATA___V275*/ curfptr[274]) + /*_.VALDATA___V275*/ curfptr[274] = (void*) sy_SFUN_BODY; } /*getnamedsym:CLASS_SRC_DEFPRIMITIVE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFPRIMITIVE = basilysgc_named_symbol("CLASS_SRC_DEFPRIMITIVE", BASILYS_GET); - if (sy_CLASS_SRC_DEFPRIMITIVE && NULL == /*_.VALDATA___V276*/ curfptr[275]) - /*_.VALDATA___V276*/ curfptr[275] = (void*) sy_CLASS_SRC_DEFPRIMITIVE; } + if (sy_CLASS_SRC_DEFPRIMITIVE && NULL == /*_.VALDATA___V277*/ curfptr[276]) + /*_.VALDATA___V277*/ curfptr[276] = (void*) sy_CLASS_SRC_DEFPRIMITIVE; } /*getnamedsym:SPRIM_TYPE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPRIM_TYPE = basilysgc_named_symbol("SPRIM_TYPE", BASILYS_GET); - if (sy_SPRIM_TYPE && NULL == /*_.VALDATA___V286*/ curfptr[285]) - /*_.VALDATA___V286*/ curfptr[285] = (void*) sy_SPRIM_TYPE; } + if (sy_SPRIM_TYPE && NULL == /*_.VALDATA___V287*/ curfptr[286]) + /*_.VALDATA___V287*/ curfptr[286] = (void*) sy_SPRIM_TYPE; } /*getnamedsym:SPRIM_EXPANSION*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPRIM_EXPANSION = basilysgc_named_symbol("SPRIM_EXPANSION", BASILYS_GET); - if (sy_SPRIM_EXPANSION && NULL == /*_.VALDATA___V288*/ curfptr[287]) - /*_.VALDATA___V288*/ curfptr[287] = (void*) sy_SPRIM_EXPANSION; } + if (sy_SPRIM_EXPANSION && NULL == /*_.VALDATA___V289*/ curfptr[288]) + /*_.VALDATA___V289*/ curfptr[288] = (void*) sy_SPRIM_EXPANSION; } /*getnamedsym:CLASS_SRC_DEFCITERATOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFCITERATOR = basilysgc_named_symbol("CLASS_SRC_DEFCITERATOR", BASILYS_GET); - if (sy_CLASS_SRC_DEFCITERATOR && NULL == /*_.VALDATA___V290*/ curfptr[289]) - /*_.VALDATA___V290*/ curfptr[289] = (void*) sy_CLASS_SRC_DEFCITERATOR; } + if (sy_CLASS_SRC_DEFCITERATOR && NULL == /*_.VALDATA___V291*/ curfptr[290]) + /*_.VALDATA___V291*/ curfptr[290] = (void*) sy_CLASS_SRC_DEFCITERATOR; } /*getnamedsym:SCITERDEF_CITERATOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCITERDEF_CITERATOR = basilysgc_named_symbol("SCITERDEF_CITERATOR", BASILYS_GET); - if (sy_SCITERDEF_CITERATOR && NULL == /*_.VALDATA___V298*/ curfptr[297]) - /*_.VALDATA___V298*/ curfptr[297] = (void*) sy_SCITERDEF_CITERATOR; } + if (sy_SCITERDEF_CITERATOR && NULL == /*_.VALDATA___V299*/ curfptr[298]) + /*_.VALDATA___V299*/ curfptr[298] = (void*) sy_SCITERDEF_CITERATOR; } /*getnamedsym:CLASS_SRC_DEFCMATCHER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFCMATCHER = basilysgc_named_symbol("CLASS_SRC_DEFCMATCHER", BASILYS_GET); - if (sy_CLASS_SRC_DEFCMATCHER && NULL == /*_.VALDATA___V300*/ curfptr[299]) - /*_.VALDATA___V300*/ curfptr[299] = (void*) sy_CLASS_SRC_DEFCMATCHER; } + if (sy_CLASS_SRC_DEFCMATCHER && NULL == /*_.VALDATA___V301*/ curfptr[300]) + /*_.VALDATA___V301*/ curfptr[300] = (void*) sy_CLASS_SRC_DEFCMATCHER; } /*getnamedsym:SCMATDEF_CMATCHER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCMATDEF_CMATCHER = basilysgc_named_symbol("SCMATDEF_CMATCHER", BASILYS_GET); - if (sy_SCMATDEF_CMATCHER && NULL == /*_.VALDATA___V308*/ curfptr[307]) - /*_.VALDATA___V308*/ curfptr[307] = (void*) sy_SCMATDEF_CMATCHER; } + if (sy_SCMATDEF_CMATCHER && NULL == /*_.VALDATA___V309*/ curfptr[308]) + /*_.VALDATA___V309*/ curfptr[308] = (void*) sy_SCMATDEF_CMATCHER; } /*getnamedsym:CLASS_SRC_DEFUNMATCHER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFUNMATCHER = basilysgc_named_symbol("CLASS_SRC_DEFUNMATCHER", BASILYS_GET); - if (sy_CLASS_SRC_DEFUNMATCHER && NULL == /*_.VALDATA___V310*/ curfptr[309]) - /*_.VALDATA___V310*/ curfptr[309] = (void*) sy_CLASS_SRC_DEFUNMATCHER; } + if (sy_CLASS_SRC_DEFUNMATCHER && NULL == /*_.VALDATA___V311*/ curfptr[310]) + /*_.VALDATA___V311*/ curfptr[310] = (void*) sy_CLASS_SRC_DEFUNMATCHER; } /*getnamedsym:SFUMATDEF_INS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SFUMATDEF_INS = basilysgc_named_symbol("SFUMATDEF_INS", BASILYS_GET); - if (sy_SFUMATDEF_INS && NULL == /*_.VALDATA___V326*/ curfptr[325]) - /*_.VALDATA___V326*/ curfptr[325] = (void*) sy_SFUMATDEF_INS; } + if (sy_SFUMATDEF_INS && NULL == /*_.VALDATA___V327*/ curfptr[326]) + /*_.VALDATA___V327*/ curfptr[326] = (void*) sy_SFUMATDEF_INS; } /*getnamedsym:SFUMATDEF_OUTS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SFUMATDEF_OUTS = basilysgc_named_symbol("SFUMATDEF_OUTS", BASILYS_GET); - if (sy_SFUMATDEF_OUTS && NULL == /*_.VALDATA___V328*/ curfptr[327]) - /*_.VALDATA___V328*/ curfptr[327] = (void*) sy_SFUMATDEF_OUTS; } + if (sy_SFUMATDEF_OUTS && NULL == /*_.VALDATA___V329*/ curfptr[328]) + /*_.VALDATA___V329*/ curfptr[328] = (void*) sy_SFUMATDEF_OUTS; } /*getnamedsym:SFUMATDEF_MATCHF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SFUMATDEF_MATCHF = basilysgc_named_symbol("SFUMATDEF_MATCHF", BASILYS_GET); - if (sy_SFUMATDEF_MATCHF && NULL == /*_.VALDATA___V330*/ curfptr[329]) - /*_.VALDATA___V330*/ curfptr[329] = (void*) sy_SFUMATDEF_MATCHF; } + if (sy_SFUMATDEF_MATCHF && NULL == /*_.VALDATA___V331*/ curfptr[330]) + /*_.VALDATA___V331*/ curfptr[330] = (void*) sy_SFUMATDEF_MATCHF; } /*getnamedsym:SFUMATDEF_APPLYF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SFUMATDEF_APPLYF = basilysgc_named_symbol("SFUMATDEF_APPLYF", BASILYS_GET); - if (sy_SFUMATDEF_APPLYF && NULL == /*_.VALDATA___V332*/ curfptr[331]) - /*_.VALDATA___V332*/ curfptr[331] = (void*) sy_SFUMATDEF_APPLYF; } + if (sy_SFUMATDEF_APPLYF && NULL == /*_.VALDATA___V333*/ curfptr[332]) + /*_.VALDATA___V333*/ curfptr[332] = (void*) sy_SFUMATDEF_APPLYF; } /*getnamedsym:SFUMATDEF_DATA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SFUMATDEF_DATA = basilysgc_named_symbol("SFUMATDEF_DATA", BASILYS_GET); - if (sy_SFUMATDEF_DATA && NULL == /*_.VALDATA___V334*/ curfptr[333]) - /*_.VALDATA___V334*/ curfptr[333] = (void*) sy_SFUMATDEF_DATA; } + if (sy_SFUMATDEF_DATA && NULL == /*_.VALDATA___V335*/ curfptr[334]) + /*_.VALDATA___V335*/ curfptr[334] = (void*) sy_SFUMATDEF_DATA; } /*getnamedsym:CLASS_SRC_DEFOBJCOMMON*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFOBJCOMMON = basilysgc_named_symbol("CLASS_SRC_DEFOBJCOMMON", BASILYS_GET); - if (sy_CLASS_SRC_DEFOBJCOMMON && NULL == /*_.VALDATA___V336*/ curfptr[335]) - /*_.VALDATA___V336*/ curfptr[335] = (void*) sy_CLASS_SRC_DEFOBJCOMMON; } + if (sy_CLASS_SRC_DEFOBJCOMMON && NULL == /*_.VALDATA___V337*/ curfptr[336]) + /*_.VALDATA___V337*/ curfptr[336] = (void*) sy_CLASS_SRC_DEFOBJCOMMON; } /*getnamedsym:SOBJ_PREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SOBJ_PREDEF = basilysgc_named_symbol("SOBJ_PREDEF", BASILYS_GET); - if (sy_SOBJ_PREDEF && NULL == /*_.VALDATA___V346*/ curfptr[345]) - /*_.VALDATA___V346*/ curfptr[345] = (void*) sy_SOBJ_PREDEF; } + if (sy_SOBJ_PREDEF && NULL == /*_.VALDATA___V347*/ curfptr[346]) + /*_.VALDATA___V347*/ curfptr[346] = (void*) sy_SOBJ_PREDEF; } /*getnamedsym:SOBJ_DOCSTR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SOBJ_DOCSTR = basilysgc_named_symbol("SOBJ_DOCSTR", BASILYS_GET); - if (sy_SOBJ_DOCSTR && NULL == /*_.VALDATA___V348*/ curfptr[347]) - /*_.VALDATA___V348*/ curfptr[347] = (void*) sy_SOBJ_DOCSTR; } + if (sy_SOBJ_DOCSTR && NULL == /*_.VALDATA___V349*/ curfptr[348]) + /*_.VALDATA___V349*/ curfptr[348] = (void*) sy_SOBJ_DOCSTR; } /*getnamedsym:CLASS_SRC_DEFCLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFCLASS = basilysgc_named_symbol("CLASS_SRC_DEFCLASS", BASILYS_GET); - if (sy_CLASS_SRC_DEFCLASS && NULL == /*_.VALDATA___V350*/ curfptr[349]) - /*_.VALDATA___V350*/ curfptr[349] = (void*) sy_CLASS_SRC_DEFCLASS; } + if (sy_CLASS_SRC_DEFCLASS && NULL == /*_.VALDATA___V351*/ curfptr[350]) + /*_.VALDATA___V351*/ curfptr[350] = (void*) sy_CLASS_SRC_DEFCLASS; } /*getnamedsym:SCLASS_CLABIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCLASS_CLABIND = basilysgc_named_symbol("SCLASS_CLABIND", BASILYS_GET); - if (sy_SCLASS_CLABIND && NULL == /*_.VALDATA___V362*/ curfptr[361]) - /*_.VALDATA___V362*/ curfptr[361] = (void*) sy_SCLASS_CLABIND; } + if (sy_SCLASS_CLABIND && NULL == /*_.VALDATA___V363*/ curfptr[362]) + /*_.VALDATA___V363*/ curfptr[362] = (void*) sy_SCLASS_CLABIND; } /*getnamedsym:SCLASS_SUPERBIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCLASS_SUPERBIND = basilysgc_named_symbol("SCLASS_SUPERBIND", BASILYS_GET); - if (sy_SCLASS_SUPERBIND && NULL == /*_.VALDATA___V364*/ curfptr[363]) - /*_.VALDATA___V364*/ curfptr[363] = (void*) sy_SCLASS_SUPERBIND; } + if (sy_SCLASS_SUPERBIND && NULL == /*_.VALDATA___V365*/ curfptr[364]) + /*_.VALDATA___V365*/ curfptr[364] = (void*) sy_SCLASS_SUPERBIND; } /*getnamedsym:SCLASS_FLDBINDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCLASS_FLDBINDS = basilysgc_named_symbol("SCLASS_FLDBINDS", BASILYS_GET); - if (sy_SCLASS_FLDBINDS && NULL == /*_.VALDATA___V366*/ curfptr[365]) - /*_.VALDATA___V366*/ curfptr[365] = (void*) sy_SCLASS_FLDBINDS; } + if (sy_SCLASS_FLDBINDS && NULL == /*_.VALDATA___V367*/ curfptr[366]) + /*_.VALDATA___V367*/ curfptr[366] = (void*) sy_SCLASS_FLDBINDS; } /*getnamedsym:CLASS_SRC_DEFINSTANCE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFINSTANCE = basilysgc_named_symbol("CLASS_SRC_DEFINSTANCE", BASILYS_GET); - if (sy_CLASS_SRC_DEFINSTANCE && NULL == /*_.VALDATA___V368*/ curfptr[367]) - /*_.VALDATA___V368*/ curfptr[367] = (void*) sy_CLASS_SRC_DEFINSTANCE; } + if (sy_CLASS_SRC_DEFINSTANCE && NULL == /*_.VALDATA___V369*/ curfptr[368]) + /*_.VALDATA___V369*/ curfptr[368] = (void*) sy_CLASS_SRC_DEFINSTANCE; } /*getnamedsym:SINST_CLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SINST_CLASS = basilysgc_named_symbol("SINST_CLASS", BASILYS_GET); - if (sy_SINST_CLASS && NULL == /*_.VALDATA___V382*/ curfptr[381]) - /*_.VALDATA___V382*/ curfptr[381] = (void*) sy_SINST_CLASS; } + if (sy_SINST_CLASS && NULL == /*_.VALDATA___V383*/ curfptr[382]) + /*_.VALDATA___V383*/ curfptr[382] = (void*) sy_SINST_CLASS; } /*getnamedsym:SINST_CLABIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SINST_CLABIND = basilysgc_named_symbol("SINST_CLABIND", BASILYS_GET); - if (sy_SINST_CLABIND && NULL == /*_.VALDATA___V384*/ curfptr[383]) - /*_.VALDATA___V384*/ curfptr[383] = (void*) sy_SINST_CLABIND; } + if (sy_SINST_CLABIND && NULL == /*_.VALDATA___V385*/ curfptr[384]) + /*_.VALDATA___V385*/ curfptr[384] = (void*) sy_SINST_CLABIND; } /*getnamedsym:SINST_OBJNUM*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SINST_OBJNUM = basilysgc_named_symbol("SINST_OBJNUM", BASILYS_GET); - if (sy_SINST_OBJNUM && NULL == /*_.VALDATA___V386*/ curfptr[385]) - /*_.VALDATA___V386*/ curfptr[385] = (void*) sy_SINST_OBJNUM; } + if (sy_SINST_OBJNUM && NULL == /*_.VALDATA___V387*/ curfptr[386]) + /*_.VALDATA___V387*/ curfptr[386] = (void*) sy_SINST_OBJNUM; } /*getnamedsym:SINST_FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SINST_FIELDS = basilysgc_named_symbol("SINST_FIELDS", BASILYS_GET); - if (sy_SINST_FIELDS && NULL == /*_.VALDATA___V388*/ curfptr[387]) - /*_.VALDATA___V388*/ curfptr[387] = (void*) sy_SINST_FIELDS; } + if (sy_SINST_FIELDS && NULL == /*_.VALDATA___V389*/ curfptr[388]) + /*_.VALDATA___V389*/ curfptr[388] = (void*) sy_SINST_FIELDS; } /*getnamedsym:CLASS_SRC_DEFSELECTOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFSELECTOR = basilysgc_named_symbol("CLASS_SRC_DEFSELECTOR", BASILYS_GET); - if (sy_CLASS_SRC_DEFSELECTOR && NULL == /*_.VALDATA___V390*/ curfptr[389]) - /*_.VALDATA___V390*/ curfptr[389] = (void*) sy_CLASS_SRC_DEFSELECTOR; } + if (sy_CLASS_SRC_DEFSELECTOR && NULL == /*_.VALDATA___V391*/ curfptr[390]) + /*_.VALDATA___V391*/ curfptr[390] = (void*) sy_CLASS_SRC_DEFSELECTOR; } /*getnamedsym:CLASS_SRC_FIELDASSIGN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_FIELDASSIGN = basilysgc_named_symbol("CLASS_SRC_FIELDASSIGN", BASILYS_GET); - if (sy_CLASS_SRC_FIELDASSIGN && NULL == /*_.VALDATA___V396*/ curfptr[395]) - /*_.VALDATA___V396*/ curfptr[395] = (void*) sy_CLASS_SRC_FIELDASSIGN; } + if (sy_CLASS_SRC_FIELDASSIGN && NULL == /*_.VALDATA___V397*/ curfptr[396]) + /*_.VALDATA___V397*/ curfptr[396] = (void*) sy_CLASS_SRC_FIELDASSIGN; } /*getnamedsym:SFLA_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SFLA_FIELD = basilysgc_named_symbol("SFLA_FIELD", BASILYS_GET); - if (sy_SFLA_FIELD && NULL == /*_.VALDATA___V406*/ curfptr[405]) - /*_.VALDATA___V406*/ curfptr[405] = (void*) sy_SFLA_FIELD; } + if (sy_SFLA_FIELD && NULL == /*_.VALDATA___V407*/ curfptr[406]) + /*_.VALDATA___V407*/ curfptr[406] = (void*) sy_SFLA_FIELD; } /*getnamedsym:SFLA_EXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SFLA_EXPR = basilysgc_named_symbol("SFLA_EXPR", BASILYS_GET); - if (sy_SFLA_EXPR && NULL == /*_.VALDATA___V408*/ curfptr[407]) - /*_.VALDATA___V408*/ curfptr[407] = (void*) sy_SFLA_EXPR; } + if (sy_SFLA_EXPR && NULL == /*_.VALDATA___V409*/ curfptr[408]) + /*_.VALDATA___V409*/ curfptr[408] = (void*) sy_SFLA_EXPR; } /*getnamedsym:CLASS_SRC_MAKE_INSTANCE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_MAKE_INSTANCE = basilysgc_named_symbol("CLASS_SRC_MAKE_INSTANCE", BASILYS_GET); - if (sy_CLASS_SRC_MAKE_INSTANCE && NULL == /*_.VALDATA___V410*/ curfptr[409]) - /*_.VALDATA___V410*/ curfptr[409] = (void*) sy_CLASS_SRC_MAKE_INSTANCE; } + if (sy_CLASS_SRC_MAKE_INSTANCE && NULL == /*_.VALDATA___V411*/ curfptr[410]) + /*_.VALDATA___V411*/ curfptr[410] = (void*) sy_CLASS_SRC_MAKE_INSTANCE; } /*getnamedsym:SMINS_CLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SMINS_CLASS = basilysgc_named_symbol("SMINS_CLASS", BASILYS_GET); - if (sy_SMINS_CLASS && NULL == /*_.VALDATA___V422*/ curfptr[421]) - /*_.VALDATA___V422*/ curfptr[421] = (void*) sy_SMINS_CLASS; } + if (sy_SMINS_CLASS && NULL == /*_.VALDATA___V423*/ curfptr[422]) + /*_.VALDATA___V423*/ curfptr[422] = (void*) sy_SMINS_CLASS; } /*getnamedsym:SMINS_CLABIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SMINS_CLABIND = basilysgc_named_symbol("SMINS_CLABIND", BASILYS_GET); - if (sy_SMINS_CLABIND && NULL == /*_.VALDATA___V424*/ curfptr[423]) - /*_.VALDATA___V424*/ curfptr[423] = (void*) sy_SMINS_CLABIND; } + if (sy_SMINS_CLABIND && NULL == /*_.VALDATA___V425*/ curfptr[424]) + /*_.VALDATA___V425*/ curfptr[424] = (void*) sy_SMINS_CLABIND; } /*getnamedsym:SMINS_FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SMINS_FIELDS = basilysgc_named_symbol("SMINS_FIELDS", BASILYS_GET); - if (sy_SMINS_FIELDS && NULL == /*_.VALDATA___V426*/ curfptr[425]) - /*_.VALDATA___V426*/ curfptr[425] = (void*) sy_SMINS_FIELDS; } + if (sy_SMINS_FIELDS && NULL == /*_.VALDATA___V427*/ curfptr[426]) + /*_.VALDATA___V427*/ curfptr[426] = (void*) sy_SMINS_FIELDS; } /*getnamedsym:CLASS_SRC_GET_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_GET_FIELD = basilysgc_named_symbol("CLASS_SRC_GET_FIELD", BASILYS_GET); - if (sy_CLASS_SRC_GET_FIELD && NULL == /*_.VALDATA___V428*/ curfptr[427]) - /*_.VALDATA___V428*/ curfptr[427] = (void*) sy_CLASS_SRC_GET_FIELD; } + if (sy_CLASS_SRC_GET_FIELD && NULL == /*_.VALDATA___V429*/ curfptr[428]) + /*_.VALDATA___V429*/ curfptr[428] = (void*) sy_CLASS_SRC_GET_FIELD; } /*getnamedsym:SUGET_OBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SUGET_OBJ = basilysgc_named_symbol("SUGET_OBJ", BASILYS_GET); - if (sy_SUGET_OBJ && NULL == /*_.VALDATA___V438*/ curfptr[437]) - /*_.VALDATA___V438*/ curfptr[437] = (void*) sy_SUGET_OBJ; } + if (sy_SUGET_OBJ && NULL == /*_.VALDATA___V439*/ curfptr[438]) + /*_.VALDATA___V439*/ curfptr[438] = (void*) sy_SUGET_OBJ; } /*getnamedsym:SUGET_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SUGET_FIELD = basilysgc_named_symbol("SUGET_FIELD", BASILYS_GET); - if (sy_SUGET_FIELD && NULL == /*_.VALDATA___V440*/ curfptr[439]) - /*_.VALDATA___V440*/ curfptr[439] = (void*) sy_SUGET_FIELD; } + if (sy_SUGET_FIELD && NULL == /*_.VALDATA___V441*/ curfptr[440]) + /*_.VALDATA___V441*/ curfptr[440] = (void*) sy_SUGET_FIELD; } /*getnamedsym:CLASS_SRC_UNSAFE_GET_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_UNSAFE_GET_FIELD = basilysgc_named_symbol("CLASS_SRC_UNSAFE_GET_FIELD", BASILYS_GET); - if (sy_CLASS_SRC_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V442*/ curfptr[441]) - /*_.VALDATA___V442*/ curfptr[441] = (void*) sy_CLASS_SRC_UNSAFE_GET_FIELD; } + if (sy_CLASS_SRC_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V443*/ curfptr[442]) + /*_.VALDATA___V443*/ curfptr[442] = (void*) sy_CLASS_SRC_UNSAFE_GET_FIELD; } /*getnamedsym:CLASS_SRC_PUT_FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_PUT_FIELDS = basilysgc_named_symbol("CLASS_SRC_PUT_FIELDS", BASILYS_GET); - if (sy_CLASS_SRC_PUT_FIELDS && NULL == /*_.VALDATA___V448*/ curfptr[447]) - /*_.VALDATA___V448*/ curfptr[447] = (void*) sy_CLASS_SRC_PUT_FIELDS; } + if (sy_CLASS_SRC_PUT_FIELDS && NULL == /*_.VALDATA___V449*/ curfptr[448]) + /*_.VALDATA___V449*/ curfptr[448] = (void*) sy_CLASS_SRC_PUT_FIELDS; } /*getnamedsym:SUPUT_OBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SUPUT_OBJ = basilysgc_named_symbol("SUPUT_OBJ", BASILYS_GET); - if (sy_SUPUT_OBJ && NULL == /*_.VALDATA___V458*/ curfptr[457]) - /*_.VALDATA___V458*/ curfptr[457] = (void*) sy_SUPUT_OBJ; } + if (sy_SUPUT_OBJ && NULL == /*_.VALDATA___V459*/ curfptr[458]) + /*_.VALDATA___V459*/ curfptr[458] = (void*) sy_SUPUT_OBJ; } /*getnamedsym:SUPUT_FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SUPUT_FIELDS = basilysgc_named_symbol("SUPUT_FIELDS", BASILYS_GET); - if (sy_SUPUT_FIELDS && NULL == /*_.VALDATA___V460*/ curfptr[459]) - /*_.VALDATA___V460*/ curfptr[459] = (void*) sy_SUPUT_FIELDS; } + if (sy_SUPUT_FIELDS && NULL == /*_.VALDATA___V461*/ curfptr[460]) + /*_.VALDATA___V461*/ curfptr[460] = (void*) sy_SUPUT_FIELDS; } /*getnamedsym:CLASS_SRC_UNSAFE_PUT_FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_UNSAFE_PUT_FIELDS = basilysgc_named_symbol("CLASS_SRC_UNSAFE_PUT_FIELDS", BASILYS_GET); - if (sy_CLASS_SRC_UNSAFE_PUT_FIELDS && NULL == /*_.VALDATA___V462*/ curfptr[461]) - /*_.VALDATA___V462*/ curfptr[461] = (void*) sy_CLASS_SRC_UNSAFE_PUT_FIELDS; } + if (sy_CLASS_SRC_UNSAFE_PUT_FIELDS && NULL == /*_.VALDATA___V463*/ curfptr[462]) + /*_.VALDATA___V463*/ curfptr[462] = (void*) sy_CLASS_SRC_UNSAFE_PUT_FIELDS; } /*getnamedsym:CLASS_SRC_IF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_IF = basilysgc_named_symbol("CLASS_SRC_IF", BASILYS_GET); - if (sy_CLASS_SRC_IF && NULL == /*_.VALDATA___V468*/ curfptr[467]) - /*_.VALDATA___V468*/ curfptr[467] = (void*) sy_CLASS_SRC_IF; } + if (sy_CLASS_SRC_IF && NULL == /*_.VALDATA___V469*/ curfptr[468]) + /*_.VALDATA___V469*/ curfptr[468] = (void*) sy_CLASS_SRC_IF; } /*getnamedsym:SIF_TEST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SIF_TEST = basilysgc_named_symbol("SIF_TEST", BASILYS_GET); - if (sy_SIF_TEST && NULL == /*_.VALDATA___V478*/ curfptr[477]) - /*_.VALDATA___V478*/ curfptr[477] = (void*) sy_SIF_TEST; } + if (sy_SIF_TEST && NULL == /*_.VALDATA___V479*/ curfptr[478]) + /*_.VALDATA___V479*/ curfptr[478] = (void*) sy_SIF_TEST; } /*getnamedsym:SIF_THEN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SIF_THEN = basilysgc_named_symbol("SIF_THEN", BASILYS_GET); - if (sy_SIF_THEN && NULL == /*_.VALDATA___V480*/ curfptr[479]) - /*_.VALDATA___V480*/ curfptr[479] = (void*) sy_SIF_THEN; } + if (sy_SIF_THEN && NULL == /*_.VALDATA___V481*/ curfptr[480]) + /*_.VALDATA___V481*/ curfptr[480] = (void*) sy_SIF_THEN; } /*getnamedsym:CLASS_SRC_IFELSE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_IFELSE = basilysgc_named_symbol("CLASS_SRC_IFELSE", BASILYS_GET); - if (sy_CLASS_SRC_IFELSE && NULL == /*_.VALDATA___V482*/ curfptr[481]) - /*_.VALDATA___V482*/ curfptr[481] = (void*) sy_CLASS_SRC_IFELSE; } + if (sy_CLASS_SRC_IFELSE && NULL == /*_.VALDATA___V483*/ curfptr[482]) + /*_.VALDATA___V483*/ curfptr[482] = (void*) sy_CLASS_SRC_IFELSE; } /*getnamedsym:SIF_ELSE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SIF_ELSE = basilysgc_named_symbol("SIF_ELSE", BASILYS_GET); - if (sy_SIF_ELSE && NULL == /*_.VALDATA___V490*/ curfptr[489]) - /*_.VALDATA___V490*/ curfptr[489] = (void*) sy_SIF_ELSE; } + if (sy_SIF_ELSE && NULL == /*_.VALDATA___V491*/ curfptr[490]) + /*_.VALDATA___V491*/ curfptr[490] = (void*) sy_SIF_ELSE; } /*getnamedsym:CLASS_SRC_OR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_OR = basilysgc_named_symbol("CLASS_SRC_OR", BASILYS_GET); - if (sy_CLASS_SRC_OR && NULL == /*_.VALDATA___V492*/ curfptr[491]) - /*_.VALDATA___V492*/ curfptr[491] = (void*) sy_CLASS_SRC_OR; } + if (sy_CLASS_SRC_OR && NULL == /*_.VALDATA___V493*/ curfptr[492]) + /*_.VALDATA___V493*/ curfptr[492] = (void*) sy_CLASS_SRC_OR; } /*getnamedsym:SOR_DISJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SOR_DISJ = basilysgc_named_symbol("SOR_DISJ", BASILYS_GET); - if (sy_SOR_DISJ && NULL == /*_.VALDATA___V500*/ curfptr[499]) - /*_.VALDATA___V500*/ curfptr[499] = (void*) sy_SOR_DISJ; } + if (sy_SOR_DISJ && NULL == /*_.VALDATA___V501*/ curfptr[500]) + /*_.VALDATA___V501*/ curfptr[500] = (void*) sy_SOR_DISJ; } /*getnamedsym:CLASS_SRC_CPPIF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_CPPIF = basilysgc_named_symbol("CLASS_SRC_CPPIF", BASILYS_GET); - if (sy_CLASS_SRC_CPPIF && NULL == /*_.VALDATA___V502*/ curfptr[501]) - /*_.VALDATA___V502*/ curfptr[501] = (void*) sy_CLASS_SRC_CPPIF; } + if (sy_CLASS_SRC_CPPIF && NULL == /*_.VALDATA___V503*/ curfptr[502]) + /*_.VALDATA___V503*/ curfptr[502] = (void*) sy_CLASS_SRC_CPPIF; } /*getnamedsym:SIFP_COND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SIFP_COND = basilysgc_named_symbol("SIFP_COND", BASILYS_GET); - if (sy_SIFP_COND && NULL == /*_.VALDATA___V514*/ curfptr[513]) - /*_.VALDATA___V514*/ curfptr[513] = (void*) sy_SIFP_COND; } + if (sy_SIFP_COND && NULL == /*_.VALDATA___V515*/ curfptr[514]) + /*_.VALDATA___V515*/ curfptr[514] = (void*) sy_SIFP_COND; } /*getnamedsym:SIFP_THEN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SIFP_THEN = basilysgc_named_symbol("SIFP_THEN", BASILYS_GET); - if (sy_SIFP_THEN && NULL == /*_.VALDATA___V516*/ curfptr[515]) - /*_.VALDATA___V516*/ curfptr[515] = (void*) sy_SIFP_THEN; } + if (sy_SIFP_THEN && NULL == /*_.VALDATA___V517*/ curfptr[516]) + /*_.VALDATA___V517*/ curfptr[516] = (void*) sy_SIFP_THEN; } /*getnamedsym:SIFP_ELSE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SIFP_ELSE = basilysgc_named_symbol("SIFP_ELSE", BASILYS_GET); - if (sy_SIFP_ELSE && NULL == /*_.VALDATA___V518*/ curfptr[517]) - /*_.VALDATA___V518*/ curfptr[517] = (void*) sy_SIFP_ELSE; } + if (sy_SIFP_ELSE && NULL == /*_.VALDATA___V519*/ curfptr[518]) + /*_.VALDATA___V519*/ curfptr[518] = (void*) sy_SIFP_ELSE; } /*getnamedsym:CLASS_SRC_MATCH*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_MATCH = basilysgc_named_symbol("CLASS_SRC_MATCH", BASILYS_GET); - if (sy_CLASS_SRC_MATCH && NULL == /*_.VALDATA___V520*/ curfptr[519]) - /*_.VALDATA___V520*/ curfptr[519] = (void*) sy_CLASS_SRC_MATCH; } + if (sy_CLASS_SRC_MATCH && NULL == /*_.VALDATA___V521*/ curfptr[520]) + /*_.VALDATA___V521*/ curfptr[520] = (void*) sy_CLASS_SRC_MATCH; } /*getnamedsym:SMAT_MATCHEDX*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SMAT_MATCHEDX = basilysgc_named_symbol("SMAT_MATCHEDX", BASILYS_GET); - if (sy_SMAT_MATCHEDX && NULL == /*_.VALDATA___V530*/ curfptr[529]) - /*_.VALDATA___V530*/ curfptr[529] = (void*) sy_SMAT_MATCHEDX; } + if (sy_SMAT_MATCHEDX && NULL == /*_.VALDATA___V531*/ curfptr[530]) + /*_.VALDATA___V531*/ curfptr[530] = (void*) sy_SMAT_MATCHEDX; } /*getnamedsym:SMAT_CASES*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SMAT_CASES = basilysgc_named_symbol("SMAT_CASES", BASILYS_GET); - if (sy_SMAT_CASES && NULL == /*_.VALDATA___V532*/ curfptr[531]) - /*_.VALDATA___V532*/ curfptr[531] = (void*) sy_SMAT_CASES; } + if (sy_SMAT_CASES && NULL == /*_.VALDATA___V533*/ curfptr[532]) + /*_.VALDATA___V533*/ curfptr[532] = (void*) sy_SMAT_CASES; } /*getnamedsym:CLASS_SRC_CASEMATCH*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_CASEMATCH = basilysgc_named_symbol("CLASS_SRC_CASEMATCH", BASILYS_GET); - if (sy_CLASS_SRC_CASEMATCH && NULL == /*_.VALDATA___V534*/ curfptr[533]) - /*_.VALDATA___V534*/ curfptr[533] = (void*) sy_CLASS_SRC_CASEMATCH; } + if (sy_CLASS_SRC_CASEMATCH && NULL == /*_.VALDATA___V535*/ curfptr[534]) + /*_.VALDATA___V535*/ curfptr[534] = (void*) sy_CLASS_SRC_CASEMATCH; } /*getnamedsym:SCAM_PATT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCAM_PATT = basilysgc_named_symbol("SCAM_PATT", BASILYS_GET); - if (sy_SCAM_PATT && NULL == /*_.VALDATA___V544*/ curfptr[543]) - /*_.VALDATA___V544*/ curfptr[543] = (void*) sy_SCAM_PATT; } + if (sy_SCAM_PATT && NULL == /*_.VALDATA___V545*/ curfptr[544]) + /*_.VALDATA___V545*/ curfptr[544] = (void*) sy_SCAM_PATT; } /*getnamedsym:SCAM_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCAM_BODY = basilysgc_named_symbol("SCAM_BODY", BASILYS_GET); - if (sy_SCAM_BODY && NULL == /*_.VALDATA___V546*/ curfptr[545]) - /*_.VALDATA___V546*/ curfptr[545] = (void*) sy_SCAM_BODY; } + if (sy_SCAM_BODY && NULL == /*_.VALDATA___V547*/ curfptr[546]) + /*_.VALDATA___V547*/ curfptr[546] = (void*) sy_SCAM_BODY; } /*getnamedsym:CLASS_SRC_CASEWHENMATCH*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_CASEWHENMATCH = basilysgc_named_symbol("CLASS_SRC_CASEWHENMATCH", BASILYS_GET); - if (sy_CLASS_SRC_CASEWHENMATCH && NULL == /*_.VALDATA___V548*/ curfptr[547]) - /*_.VALDATA___V548*/ curfptr[547] = (void*) sy_CLASS_SRC_CASEWHENMATCH; } + if (sy_CLASS_SRC_CASEWHENMATCH && NULL == /*_.VALDATA___V549*/ curfptr[548]) + /*_.VALDATA___V549*/ curfptr[548] = (void*) sy_CLASS_SRC_CASEWHENMATCH; } /*getnamedsym:SCWM_WHEN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCWM_WHEN = basilysgc_named_symbol("SCWM_WHEN", BASILYS_GET); - if (sy_SCWM_WHEN && NULL == /*_.VALDATA___V556*/ curfptr[555]) - /*_.VALDATA___V556*/ curfptr[555] = (void*) sy_SCWM_WHEN; } + if (sy_SCWM_WHEN && NULL == /*_.VALDATA___V557*/ curfptr[556]) + /*_.VALDATA___V557*/ curfptr[556] = (void*) sy_SCWM_WHEN; } /*getnamedsym:CLASS_SRC_LETBINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_LETBINDING = basilysgc_named_symbol("CLASS_SRC_LETBINDING", BASILYS_GET); - if (sy_CLASS_SRC_LETBINDING && NULL == /*_.VALDATA___V558*/ curfptr[557]) - /*_.VALDATA___V558*/ curfptr[557] = (void*) sy_CLASS_SRC_LETBINDING; } + if (sy_CLASS_SRC_LETBINDING && NULL == /*_.VALDATA___V559*/ curfptr[558]) + /*_.VALDATA___V559*/ curfptr[558] = (void*) sy_CLASS_SRC_LETBINDING; } /*getnamedsym:SLETB_TYPE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SLETB_TYPE = basilysgc_named_symbol("SLETB_TYPE", BASILYS_GET); - if (sy_SLETB_TYPE && NULL == /*_.VALDATA___V570*/ curfptr[569]) - /*_.VALDATA___V570*/ curfptr[569] = (void*) sy_SLETB_TYPE; } + if (sy_SLETB_TYPE && NULL == /*_.VALDATA___V571*/ curfptr[570]) + /*_.VALDATA___V571*/ curfptr[570] = (void*) sy_SLETB_TYPE; } /*getnamedsym:SLETB_BINDER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SLETB_BINDER = basilysgc_named_symbol("SLETB_BINDER", BASILYS_GET); - if (sy_SLETB_BINDER && NULL == /*_.VALDATA___V572*/ curfptr[571]) - /*_.VALDATA___V572*/ curfptr[571] = (void*) sy_SLETB_BINDER; } + if (sy_SLETB_BINDER && NULL == /*_.VALDATA___V573*/ curfptr[572]) + /*_.VALDATA___V573*/ curfptr[572] = (void*) sy_SLETB_BINDER; } /*getnamedsym:SLETB_EXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SLETB_EXPR = basilysgc_named_symbol("SLETB_EXPR", BASILYS_GET); - if (sy_SLETB_EXPR && NULL == /*_.VALDATA___V574*/ curfptr[573]) - /*_.VALDATA___V574*/ curfptr[573] = (void*) sy_SLETB_EXPR; } + if (sy_SLETB_EXPR && NULL == /*_.VALDATA___V575*/ curfptr[574]) + /*_.VALDATA___V575*/ curfptr[574] = (void*) sy_SLETB_EXPR; } /*getnamedsym:CLASS_SRC_LET*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_LET = basilysgc_named_symbol("CLASS_SRC_LET", BASILYS_GET); - if (sy_CLASS_SRC_LET && NULL == /*_.VALDATA___V576*/ curfptr[575]) - /*_.VALDATA___V576*/ curfptr[575] = (void*) sy_CLASS_SRC_LET; } + if (sy_CLASS_SRC_LET && NULL == /*_.VALDATA___V577*/ curfptr[576]) + /*_.VALDATA___V577*/ curfptr[576] = (void*) sy_CLASS_SRC_LET; } /*getnamedsym:SLET_BINDINGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SLET_BINDINGS = basilysgc_named_symbol("SLET_BINDINGS", BASILYS_GET); - if (sy_SLET_BINDINGS && NULL == /*_.VALDATA___V586*/ curfptr[585]) - /*_.VALDATA___V586*/ curfptr[585] = (void*) sy_SLET_BINDINGS; } + if (sy_SLET_BINDINGS && NULL == /*_.VALDATA___V587*/ curfptr[586]) + /*_.VALDATA___V587*/ curfptr[586] = (void*) sy_SLET_BINDINGS; } /*getnamedsym:SLET_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SLET_BODY = basilysgc_named_symbol("SLET_BODY", BASILYS_GET); - if (sy_SLET_BODY && NULL == /*_.VALDATA___V588*/ curfptr[587]) - /*_.VALDATA___V588*/ curfptr[587] = (void*) sy_SLET_BODY; } + if (sy_SLET_BODY && NULL == /*_.VALDATA___V589*/ curfptr[588]) + /*_.VALDATA___V589*/ curfptr[588] = (void*) sy_SLET_BODY; } /*getnamedsym:CLASS_SRC_LAMBDA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_LAMBDA = basilysgc_named_symbol("CLASS_SRC_LAMBDA", BASILYS_GET); - if (sy_CLASS_SRC_LAMBDA && NULL == /*_.VALDATA___V590*/ curfptr[589]) - /*_.VALDATA___V590*/ curfptr[589] = (void*) sy_CLASS_SRC_LAMBDA; } + if (sy_CLASS_SRC_LAMBDA && NULL == /*_.VALDATA___V591*/ curfptr[590]) + /*_.VALDATA___V591*/ curfptr[590] = (void*) sy_CLASS_SRC_LAMBDA; } /*getnamedsym:SLAM_ARGBIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SLAM_ARGBIND = basilysgc_named_symbol("SLAM_ARGBIND", BASILYS_GET); - if (sy_SLAM_ARGBIND && NULL == /*_.VALDATA___V600*/ curfptr[599]) - /*_.VALDATA___V600*/ curfptr[599] = (void*) sy_SLAM_ARGBIND; } + if (sy_SLAM_ARGBIND && NULL == /*_.VALDATA___V601*/ curfptr[600]) + /*_.VALDATA___V601*/ curfptr[600] = (void*) sy_SLAM_ARGBIND; } /*getnamedsym:SLAM_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SLAM_BODY = basilysgc_named_symbol("SLAM_BODY", BASILYS_GET); - if (sy_SLAM_BODY && NULL == /*_.VALDATA___V602*/ curfptr[601]) - /*_.VALDATA___V602*/ curfptr[601] = (void*) sy_SLAM_BODY; } + if (sy_SLAM_BODY && NULL == /*_.VALDATA___V603*/ curfptr[602]) + /*_.VALDATA___V603*/ curfptr[602] = (void*) sy_SLAM_BODY; } /*getnamedsym:CLASS_SRC_MULTICALL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_MULTICALL = basilysgc_named_symbol("CLASS_SRC_MULTICALL", BASILYS_GET); - if (sy_CLASS_SRC_MULTICALL && NULL == /*_.VALDATA___V604*/ curfptr[603]) - /*_.VALDATA___V604*/ curfptr[603] = (void*) sy_CLASS_SRC_MULTICALL; } + if (sy_CLASS_SRC_MULTICALL && NULL == /*_.VALDATA___V605*/ curfptr[604]) + /*_.VALDATA___V605*/ curfptr[604] = (void*) sy_CLASS_SRC_MULTICALL; } /*getnamedsym:SMULC_RESBIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SMULC_RESBIND = basilysgc_named_symbol("SMULC_RESBIND", BASILYS_GET); - if (sy_SMULC_RESBIND && NULL == /*_.VALDATA___V616*/ curfptr[615]) - /*_.VALDATA___V616*/ curfptr[615] = (void*) sy_SMULC_RESBIND; } + if (sy_SMULC_RESBIND && NULL == /*_.VALDATA___V617*/ curfptr[616]) + /*_.VALDATA___V617*/ curfptr[616] = (void*) sy_SMULC_RESBIND; } /*getnamedsym:SMULC_CALL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SMULC_CALL = basilysgc_named_symbol("SMULC_CALL", BASILYS_GET); - if (sy_SMULC_CALL && NULL == /*_.VALDATA___V618*/ curfptr[617]) - /*_.VALDATA___V618*/ curfptr[617] = (void*) sy_SMULC_CALL; } + if (sy_SMULC_CALL && NULL == /*_.VALDATA___V619*/ curfptr[618]) + /*_.VALDATA___V619*/ curfptr[618] = (void*) sy_SMULC_CALL; } /*getnamedsym:SMULC_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SMULC_BODY = basilysgc_named_symbol("SMULC_BODY", BASILYS_GET); - if (sy_SMULC_BODY && NULL == /*_.VALDATA___V620*/ curfptr[619]) - /*_.VALDATA___V620*/ curfptr[619] = (void*) sy_SMULC_BODY; } + if (sy_SMULC_BODY && NULL == /*_.VALDATA___V621*/ curfptr[620]) + /*_.VALDATA___V621*/ curfptr[620] = (void*) sy_SMULC_BODY; } /*getnamedsym:CLASS_SRC_LABELLED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_LABELLED = basilysgc_named_symbol("CLASS_SRC_LABELLED", BASILYS_GET); - if (sy_CLASS_SRC_LABELLED && NULL == /*_.VALDATA___V622*/ curfptr[621]) - /*_.VALDATA___V622*/ curfptr[621] = (void*) sy_CLASS_SRC_LABELLED; } + if (sy_CLASS_SRC_LABELLED && NULL == /*_.VALDATA___V623*/ curfptr[622]) + /*_.VALDATA___V623*/ curfptr[622] = (void*) sy_CLASS_SRC_LABELLED; } /*getnamedsym:SLABEL_BIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SLABEL_BIND = basilysgc_named_symbol("SLABEL_BIND", BASILYS_GET); - if (sy_SLABEL_BIND && NULL == /*_.VALDATA___V630*/ curfptr[629]) - /*_.VALDATA___V630*/ curfptr[629] = (void*) sy_SLABEL_BIND; } + if (sy_SLABEL_BIND && NULL == /*_.VALDATA___V631*/ curfptr[630]) + /*_.VALDATA___V631*/ curfptr[630] = (void*) sy_SLABEL_BIND; } /*getnamedsym:CLASS_SRC_FOREVER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_FOREVER = basilysgc_named_symbol("CLASS_SRC_FOREVER", BASILYS_GET); - if (sy_CLASS_SRC_FOREVER && NULL == /*_.VALDATA___V632*/ curfptr[631]) - /*_.VALDATA___V632*/ curfptr[631] = (void*) sy_CLASS_SRC_FOREVER; } + if (sy_CLASS_SRC_FOREVER && NULL == /*_.VALDATA___V633*/ curfptr[632]) + /*_.VALDATA___V633*/ curfptr[632] = (void*) sy_CLASS_SRC_FOREVER; } /*getnamedsym:SFRV_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SFRV_BODY = basilysgc_named_symbol("SFRV_BODY", BASILYS_GET); - if (sy_SFRV_BODY && NULL == /*_.VALDATA___V640*/ curfptr[639]) - /*_.VALDATA___V640*/ curfptr[639] = (void*) sy_SFRV_BODY; } + if (sy_SFRV_BODY && NULL == /*_.VALDATA___V641*/ curfptr[640]) + /*_.VALDATA___V641*/ curfptr[640] = (void*) sy_SFRV_BODY; } /*getnamedsym:CLASS_SRC_EXIT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_EXIT = basilysgc_named_symbol("CLASS_SRC_EXIT", BASILYS_GET); - if (sy_CLASS_SRC_EXIT && NULL == /*_.VALDATA___V642*/ curfptr[641]) - /*_.VALDATA___V642*/ curfptr[641] = (void*) sy_CLASS_SRC_EXIT; } + if (sy_CLASS_SRC_EXIT && NULL == /*_.VALDATA___V643*/ curfptr[642]) + /*_.VALDATA___V643*/ curfptr[642] = (void*) sy_CLASS_SRC_EXIT; } /*getnamedsym:SEXI_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SEXI_BODY = basilysgc_named_symbol("SEXI_BODY", BASILYS_GET); - if (sy_SEXI_BODY && NULL == /*_.VALDATA___V650*/ curfptr[649]) - /*_.VALDATA___V650*/ curfptr[649] = (void*) sy_SEXI_BODY; } + if (sy_SEXI_BODY && NULL == /*_.VALDATA___V651*/ curfptr[650]) + /*_.VALDATA___V651*/ curfptr[650] = (void*) sy_SEXI_BODY; } /*getnamedsym:CLASS_SRC_COMPILEWARNING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_COMPILEWARNING = basilysgc_named_symbol("CLASS_SRC_COMPILEWARNING", BASILYS_GET); - if (sy_CLASS_SRC_COMPILEWARNING && NULL == /*_.VALDATA___V652*/ curfptr[651]) - /*_.VALDATA___V652*/ curfptr[651] = (void*) sy_CLASS_SRC_COMPILEWARNING; } + if (sy_CLASS_SRC_COMPILEWARNING && NULL == /*_.VALDATA___V653*/ curfptr[652]) + /*_.VALDATA___V653*/ curfptr[652] = (void*) sy_CLASS_SRC_COMPILEWARNING; } /*getnamedsym:SCWARN_MSG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCWARN_MSG = basilysgc_named_symbol("SCWARN_MSG", BASILYS_GET); - if (sy_SCWARN_MSG && NULL == /*_.VALDATA___V662*/ curfptr[661]) - /*_.VALDATA___V662*/ curfptr[661] = (void*) sy_SCWARN_MSG; } + if (sy_SCWARN_MSG && NULL == /*_.VALDATA___V663*/ curfptr[662]) + /*_.VALDATA___V663*/ curfptr[662] = (void*) sy_SCWARN_MSG; } /*getnamedsym:SCWARN_EXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SCWARN_EXPR = basilysgc_named_symbol("SCWARN_EXPR", BASILYS_GET); - if (sy_SCWARN_EXPR && NULL == /*_.VALDATA___V664*/ curfptr[663]) - /*_.VALDATA___V664*/ curfptr[663] = (void*) sy_SCWARN_EXPR; } + if (sy_SCWARN_EXPR && NULL == /*_.VALDATA___V665*/ curfptr[664]) + /*_.VALDATA___V665*/ curfptr[664] = (void*) sy_SCWARN_EXPR; } /*getnamedsym:CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER = basilysgc_named_symbol("CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER", BASILYS_GET); - if (sy_CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V666*/ curfptr[665]) - /*_.VALDATA___V666*/ curfptr[665] = (void*) sy_CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } + if (sy_CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V667*/ curfptr[666]) + /*_.VALDATA___V667*/ curfptr[666] = (void*) sy_CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*getnamedsym:CMEC_COMMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CMEC_COMMENT = basilysgc_named_symbol("CMEC_COMMENT", BASILYS_GET); - if (sy_CMEC_COMMENT && NULL == /*_.VALDATA___V674*/ curfptr[673]) - /*_.VALDATA___V674*/ curfptr[673] = (void*) sy_CMEC_COMMENT; } + if (sy_CMEC_COMMENT && NULL == /*_.VALDATA___V675*/ curfptr[674]) + /*_.VALDATA___V675*/ curfptr[674] = (void*) sy_CMEC_COMMENT; } /*getnamedsym:CLASS_SRC_PARENT_MODULE_ENVIRONMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_PARENT_MODULE_ENVIRONMENT = basilysgc_named_symbol("CLASS_SRC_PARENT_MODULE_ENVIRONMENT", BASILYS_GET); - if (sy_CLASS_SRC_PARENT_MODULE_ENVIRONMENT && NULL == /*_.VALDATA___V676*/ curfptr[675]) - /*_.VALDATA___V676*/ curfptr[675] = (void*) sy_CLASS_SRC_PARENT_MODULE_ENVIRONMENT; } + if (sy_CLASS_SRC_PARENT_MODULE_ENVIRONMENT && NULL == /*_.VALDATA___V677*/ curfptr[676]) + /*_.VALDATA___V677*/ curfptr[676] = (void*) sy_CLASS_SRC_PARENT_MODULE_ENVIRONMENT; } /*getnamedsym:CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = basilysgc_named_symbol("CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", BASILYS_GET); - if (sy_CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V682*/ curfptr[681]) - /*_.VALDATA___V682*/ curfptr[681] = (void*) sy_CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } + if (sy_CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V683*/ curfptr[682]) + /*_.VALDATA___V683*/ curfptr[682] = (void*) sy_CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*getnamedsym:SUCME_COMMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SUCME_COMMENT = basilysgc_named_symbol("SUCME_COMMENT", BASILYS_GET); - if (sy_SUCME_COMMENT && NULL == /*_.VALDATA___V690*/ curfptr[689]) - /*_.VALDATA___V690*/ curfptr[689] = (void*) sy_SUCME_COMMENT; } + if (sy_SUCME_COMMENT && NULL == /*_.VALDATA___V691*/ curfptr[690]) + /*_.VALDATA___V691*/ curfptr[690] = (void*) sy_SUCME_COMMENT; } /*getnamedsym:CLASS_SRC_FETCH_PREDEFINED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_FETCH_PREDEFINED = basilysgc_named_symbol("CLASS_SRC_FETCH_PREDEFINED", BASILYS_GET); - if (sy_CLASS_SRC_FETCH_PREDEFINED && NULL == /*_.VALDATA___V692*/ curfptr[691]) - /*_.VALDATA___V692*/ curfptr[691] = (void*) sy_CLASS_SRC_FETCH_PREDEFINED; } + if (sy_CLASS_SRC_FETCH_PREDEFINED && NULL == /*_.VALDATA___V693*/ curfptr[692]) + /*_.VALDATA___V693*/ curfptr[692] = (void*) sy_CLASS_SRC_FETCH_PREDEFINED; } /*getnamedsym:SFEPD_PREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SFEPD_PREDEF = basilysgc_named_symbol("SFEPD_PREDEF", BASILYS_GET); - if (sy_SFEPD_PREDEF && NULL == /*_.VALDATA___V700*/ curfptr[699]) - /*_.VALDATA___V700*/ curfptr[699] = (void*) sy_SFEPD_PREDEF; } + if (sy_SFEPD_PREDEF && NULL == /*_.VALDATA___V701*/ curfptr[700]) + /*_.VALDATA___V701*/ curfptr[700] = (void*) sy_SFEPD_PREDEF; } /*getnamedsym:CLASS_SRC_STORE_PREDEFINED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_STORE_PREDEFINED = basilysgc_named_symbol("CLASS_SRC_STORE_PREDEFINED", BASILYS_GET); - if (sy_CLASS_SRC_STORE_PREDEFINED && NULL == /*_.VALDATA___V702*/ curfptr[701]) - /*_.VALDATA___V702*/ curfptr[701] = (void*) sy_CLASS_SRC_STORE_PREDEFINED; } + if (sy_CLASS_SRC_STORE_PREDEFINED && NULL == /*_.VALDATA___V703*/ curfptr[702]) + /*_.VALDATA___V703*/ curfptr[702] = (void*) sy_CLASS_SRC_STORE_PREDEFINED; } /*getnamedsym:SSTPD_PREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SSTPD_PREDEF = basilysgc_named_symbol("SSTPD_PREDEF", BASILYS_GET); - if (sy_SSTPD_PREDEF && NULL == /*_.VALDATA___V712*/ curfptr[711]) - /*_.VALDATA___V712*/ curfptr[711] = (void*) sy_SSTPD_PREDEF; } + if (sy_SSTPD_PREDEF && NULL == /*_.VALDATA___V713*/ curfptr[712]) + /*_.VALDATA___V713*/ curfptr[712] = (void*) sy_SSTPD_PREDEF; } /*getnamedsym:SSTPD_VALUE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SSTPD_VALUE = basilysgc_named_symbol("SSTPD_VALUE", BASILYS_GET); - if (sy_SSTPD_VALUE && NULL == /*_.VALDATA___V714*/ curfptr[713]) - /*_.VALDATA___V714*/ curfptr[713] = (void*) sy_SSTPD_VALUE; } + if (sy_SSTPD_VALUE && NULL == /*_.VALDATA___V715*/ curfptr[714]) + /*_.VALDATA___V715*/ curfptr[714] = (void*) sy_SSTPD_VALUE; } /*getnamedsym:CLASS_SRCPATTERN_ANY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCPATTERN_ANY = basilysgc_named_symbol("CLASS_SRCPATTERN_ANY", BASILYS_GET); - if (sy_CLASS_SRCPATTERN_ANY && NULL == /*_.VALDATA___V716*/ curfptr[715]) - /*_.VALDATA___V716*/ curfptr[715] = (void*) sy_CLASS_SRCPATTERN_ANY; } + if (sy_CLASS_SRCPATTERN_ANY && NULL == /*_.VALDATA___V717*/ curfptr[716]) + /*_.VALDATA___V717*/ curfptr[716] = (void*) sy_CLASS_SRCPATTERN_ANY; } /*getnamedsym:CLASS_SRCPATTERN_OR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCPATTERN_OR = basilysgc_named_symbol("CLASS_SRCPATTERN_OR", BASILYS_GET); - if (sy_CLASS_SRCPATTERN_OR && NULL == /*_.VALDATA___V722*/ curfptr[721]) - /*_.VALDATA___V722*/ curfptr[721] = (void*) sy_CLASS_SRCPATTERN_OR; } + if (sy_CLASS_SRCPATTERN_OR && NULL == /*_.VALDATA___V723*/ curfptr[722]) + /*_.VALDATA___V723*/ curfptr[722] = (void*) sy_CLASS_SRCPATTERN_OR; } /*getnamedsym:ORPAT_DISJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_ORPAT_DISJ = basilysgc_named_symbol("ORPAT_DISJ", BASILYS_GET); - if (sy_ORPAT_DISJ && NULL == /*_.VALDATA___V730*/ curfptr[729]) - /*_.VALDATA___V730*/ curfptr[729] = (void*) sy_ORPAT_DISJ; } + if (sy_ORPAT_DISJ && NULL == /*_.VALDATA___V731*/ curfptr[730]) + /*_.VALDATA___V731*/ curfptr[730] = (void*) sy_ORPAT_DISJ; } /*getnamedsym:CLASS_SRCPATTERN_AND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCPATTERN_AND = basilysgc_named_symbol("CLASS_SRCPATTERN_AND", BASILYS_GET); - if (sy_CLASS_SRCPATTERN_AND && NULL == /*_.VALDATA___V732*/ curfptr[731]) - /*_.VALDATA___V732*/ curfptr[731] = (void*) sy_CLASS_SRCPATTERN_AND; } + if (sy_CLASS_SRCPATTERN_AND && NULL == /*_.VALDATA___V733*/ curfptr[732]) + /*_.VALDATA___V733*/ curfptr[732] = (void*) sy_CLASS_SRCPATTERN_AND; } /*getnamedsym:ANDPAT_CONJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_ANDPAT_CONJ = basilysgc_named_symbol("ANDPAT_CONJ", BASILYS_GET); - if (sy_ANDPAT_CONJ && NULL == /*_.VALDATA___V740*/ curfptr[739]) - /*_.VALDATA___V740*/ curfptr[739] = (void*) sy_ANDPAT_CONJ; } + if (sy_ANDPAT_CONJ && NULL == /*_.VALDATA___V741*/ curfptr[740]) + /*_.VALDATA___V741*/ curfptr[740] = (void*) sy_ANDPAT_CONJ; } /*getnamedsym:CLASS_SRCPATTERN_AS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCPATTERN_AS = basilysgc_named_symbol("CLASS_SRCPATTERN_AS", BASILYS_GET); - if (sy_CLASS_SRCPATTERN_AS && NULL == /*_.VALDATA___V742*/ curfptr[741]) - /*_.VALDATA___V742*/ curfptr[741] = (void*) sy_CLASS_SRCPATTERN_AS; } + if (sy_CLASS_SRCPATTERN_AS && NULL == /*_.VALDATA___V743*/ curfptr[742]) + /*_.VALDATA___V743*/ curfptr[742] = (void*) sy_CLASS_SRCPATTERN_AS; } /*getnamedsym:ASPAT_VARPAT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_ASPAT_VARPAT = basilysgc_named_symbol("ASPAT_VARPAT", BASILYS_GET); - if (sy_ASPAT_VARPAT && NULL == /*_.VALDATA___V752*/ curfptr[751]) - /*_.VALDATA___V752*/ curfptr[751] = (void*) sy_ASPAT_VARPAT; } + if (sy_ASPAT_VARPAT && NULL == /*_.VALDATA___V753*/ curfptr[752]) + /*_.VALDATA___V753*/ curfptr[752] = (void*) sy_ASPAT_VARPAT; } /*getnamedsym:ASPAT_SUBPAT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_ASPAT_SUBPAT = basilysgc_named_symbol("ASPAT_SUBPAT", BASILYS_GET); - if (sy_ASPAT_SUBPAT && NULL == /*_.VALDATA___V754*/ curfptr[753]) - /*_.VALDATA___V754*/ curfptr[753] = (void*) sy_ASPAT_SUBPAT; } + if (sy_ASPAT_SUBPAT && NULL == /*_.VALDATA___V755*/ curfptr[754]) + /*_.VALDATA___V755*/ curfptr[754] = (void*) sy_ASPAT_SUBPAT; } /*getnamedsym:CLASS_SRCPATTERN_VARIABLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCPATTERN_VARIABLE = basilysgc_named_symbol("CLASS_SRCPATTERN_VARIABLE", BASILYS_GET); - if (sy_CLASS_SRCPATTERN_VARIABLE && NULL == /*_.VALDATA___V756*/ curfptr[755]) - /*_.VALDATA___V756*/ curfptr[755] = (void*) sy_CLASS_SRCPATTERN_VARIABLE; } + if (sy_CLASS_SRCPATTERN_VARIABLE && NULL == /*_.VALDATA___V757*/ curfptr[756]) + /*_.VALDATA___V757*/ curfptr[756] = (void*) sy_CLASS_SRCPATTERN_VARIABLE; } /*getnamedsym:SPAT_VAR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPAT_VAR = basilysgc_named_symbol("SPAT_VAR", BASILYS_GET); - if (sy_SPAT_VAR && NULL == /*_.VALDATA___V764*/ curfptr[763]) - /*_.VALDATA___V764*/ curfptr[763] = (void*) sy_SPAT_VAR; } + if (sy_SPAT_VAR && NULL == /*_.VALDATA___V765*/ curfptr[764]) + /*_.VALDATA___V765*/ curfptr[764] = (void*) sy_SPAT_VAR; } /*getnamedsym:CLASS_SRCPATTERN_JOKERVAR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCPATTERN_JOKERVAR = basilysgc_named_symbol("CLASS_SRCPATTERN_JOKERVAR", BASILYS_GET); - if (sy_CLASS_SRCPATTERN_JOKERVAR && NULL == /*_.VALDATA___V766*/ curfptr[765]) - /*_.VALDATA___V766*/ curfptr[765] = (void*) sy_CLASS_SRCPATTERN_JOKERVAR; } + if (sy_CLASS_SRCPATTERN_JOKERVAR && NULL == /*_.VALDATA___V767*/ curfptr[766]) + /*_.VALDATA___V767*/ curfptr[766] = (void*) sy_CLASS_SRCPATTERN_JOKERVAR; } /*getnamedsym:CLASS_SRCPATTERN_CONSTANT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCPATTERN_CONSTANT = basilysgc_named_symbol("CLASS_SRCPATTERN_CONSTANT", BASILYS_GET); - if (sy_CLASS_SRCPATTERN_CONSTANT && NULL == /*_.VALDATA___V772*/ curfptr[771]) - /*_.VALDATA___V772*/ curfptr[771] = (void*) sy_CLASS_SRCPATTERN_CONSTANT; } + if (sy_CLASS_SRCPATTERN_CONSTANT && NULL == /*_.VALDATA___V773*/ curfptr[772]) + /*_.VALDATA___V773*/ curfptr[772] = (void*) sy_CLASS_SRCPATTERN_CONSTANT; } /*getnamedsym:SPAT_CONSTX*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPAT_CONSTX = basilysgc_named_symbol("SPAT_CONSTX", BASILYS_GET); - if (sy_SPAT_CONSTX && NULL == /*_.VALDATA___V780*/ curfptr[779]) - /*_.VALDATA___V780*/ curfptr[779] = (void*) sy_SPAT_CONSTX; } + if (sy_SPAT_CONSTX && NULL == /*_.VALDATA___V781*/ curfptr[780]) + /*_.VALDATA___V781*/ curfptr[780] = (void*) sy_SPAT_CONSTX; } /*getnamedsym:CLASS_SRCPATTERN_OBJECT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCPATTERN_OBJECT = basilysgc_named_symbol("CLASS_SRCPATTERN_OBJECT", BASILYS_GET); - if (sy_CLASS_SRCPATTERN_OBJECT && NULL == /*_.VALDATA___V782*/ curfptr[781]) - /*_.VALDATA___V782*/ curfptr[781] = (void*) sy_CLASS_SRCPATTERN_OBJECT; } + if (sy_CLASS_SRCPATTERN_OBJECT && NULL == /*_.VALDATA___V783*/ curfptr[782]) + /*_.VALDATA___V783*/ curfptr[782] = (void*) sy_CLASS_SRCPATTERN_OBJECT; } /*getnamedsym:SPAT_CLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPAT_CLASS = basilysgc_named_symbol("SPAT_CLASS", BASILYS_GET); - if (sy_SPAT_CLASS && NULL == /*_.VALDATA___V792*/ curfptr[791]) - /*_.VALDATA___V792*/ curfptr[791] = (void*) sy_SPAT_CLASS; } + if (sy_SPAT_CLASS && NULL == /*_.VALDATA___V793*/ curfptr[792]) + /*_.VALDATA___V793*/ curfptr[792] = (void*) sy_SPAT_CLASS; } /*getnamedsym:SPAT_FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPAT_FIELDS = basilysgc_named_symbol("SPAT_FIELDS", BASILYS_GET); - if (sy_SPAT_FIELDS && NULL == /*_.VALDATA___V794*/ curfptr[793]) - /*_.VALDATA___V794*/ curfptr[793] = (void*) sy_SPAT_FIELDS; } + if (sy_SPAT_FIELDS && NULL == /*_.VALDATA___V795*/ curfptr[794]) + /*_.VALDATA___V795*/ curfptr[794] = (void*) sy_SPAT_FIELDS; } /*getnamedsym:CLASS_SRCPATTERN_INSTANCE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCPATTERN_INSTANCE = basilysgc_named_symbol("CLASS_SRCPATTERN_INSTANCE", BASILYS_GET); - if (sy_CLASS_SRCPATTERN_INSTANCE && NULL == /*_.VALDATA___V796*/ curfptr[795]) - /*_.VALDATA___V796*/ curfptr[795] = (void*) sy_CLASS_SRCPATTERN_INSTANCE; } + if (sy_CLASS_SRCPATTERN_INSTANCE && NULL == /*_.VALDATA___V797*/ curfptr[796]) + /*_.VALDATA___V797*/ curfptr[796] = (void*) sy_CLASS_SRCPATTERN_INSTANCE; } /*getnamedsym:CLASS_SRCFIELDPATTERN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCFIELDPATTERN = basilysgc_named_symbol("CLASS_SRCFIELDPATTERN", BASILYS_GET); - if (sy_CLASS_SRCFIELDPATTERN && NULL == /*_.VALDATA___V802*/ curfptr[801]) - /*_.VALDATA___V802*/ curfptr[801] = (void*) sy_CLASS_SRCFIELDPATTERN; } + if (sy_CLASS_SRCFIELDPATTERN && NULL == /*_.VALDATA___V803*/ curfptr[802]) + /*_.VALDATA___V803*/ curfptr[802] = (void*) sy_CLASS_SRCFIELDPATTERN; } /*getnamedsym:SPAF_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPAF_FIELD = basilysgc_named_symbol("SPAF_FIELD", BASILYS_GET); - if (sy_SPAF_FIELD && NULL == /*_.VALDATA___V812*/ curfptr[811]) - /*_.VALDATA___V812*/ curfptr[811] = (void*) sy_SPAF_FIELD; } + if (sy_SPAF_FIELD && NULL == /*_.VALDATA___V813*/ curfptr[812]) + /*_.VALDATA___V813*/ curfptr[812] = (void*) sy_SPAF_FIELD; } /*getnamedsym:SPAF_PATTERN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPAF_PATTERN = basilysgc_named_symbol("SPAF_PATTERN", BASILYS_GET); - if (sy_SPAF_PATTERN && NULL == /*_.VALDATA___V814*/ curfptr[813]) - /*_.VALDATA___V814*/ curfptr[813] = (void*) sy_SPAF_PATTERN; } + if (sy_SPAF_PATTERN && NULL == /*_.VALDATA___V815*/ curfptr[814]) + /*_.VALDATA___V815*/ curfptr[814] = (void*) sy_SPAF_PATTERN; } /*getnamedsym:CLASS_SRCPATTERN_COMPOSITE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCPATTERN_COMPOSITE = basilysgc_named_symbol("CLASS_SRCPATTERN_COMPOSITE", BASILYS_GET); - if (sy_CLASS_SRCPATTERN_COMPOSITE && NULL == /*_.VALDATA___V816*/ curfptr[815]) - /*_.VALDATA___V816*/ curfptr[815] = (void*) sy_CLASS_SRCPATTERN_COMPOSITE; } + if (sy_CLASS_SRCPATTERN_COMPOSITE && NULL == /*_.VALDATA___V817*/ curfptr[816]) + /*_.VALDATA___V817*/ curfptr[816] = (void*) sy_CLASS_SRCPATTERN_COMPOSITE; } /*getnamedsym:SPAC_OPERATOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPAC_OPERATOR = basilysgc_named_symbol("SPAC_OPERATOR", BASILYS_GET); - if (sy_SPAC_OPERATOR && NULL == /*_.VALDATA___V828*/ curfptr[827]) - /*_.VALDATA___V828*/ curfptr[827] = (void*) sy_SPAC_OPERATOR; } + if (sy_SPAC_OPERATOR && NULL == /*_.VALDATA___V829*/ curfptr[828]) + /*_.VALDATA___V829*/ curfptr[828] = (void*) sy_SPAC_OPERATOR; } /*getnamedsym:SPAC_INARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPAC_INARGS = basilysgc_named_symbol("SPAC_INARGS", BASILYS_GET); - if (sy_SPAC_INARGS && NULL == /*_.VALDATA___V830*/ curfptr[829]) - /*_.VALDATA___V830*/ curfptr[829] = (void*) sy_SPAC_INARGS; } + if (sy_SPAC_INARGS && NULL == /*_.VALDATA___V831*/ curfptr[830]) + /*_.VALDATA___V831*/ curfptr[830] = (void*) sy_SPAC_INARGS; } /*getnamedsym:SPAC_OUTARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SPAC_OUTARGS = basilysgc_named_symbol("SPAC_OUTARGS", BASILYS_GET); - if (sy_SPAC_OUTARGS && NULL == /*_.VALDATA___V832*/ curfptr[831]) - /*_.VALDATA___V832*/ curfptr[831] = (void*) sy_SPAC_OUTARGS; } + if (sy_SPAC_OUTARGS && NULL == /*_.VALDATA___V833*/ curfptr[832]) + /*_.VALDATA___V833*/ curfptr[832] = (void*) sy_SPAC_OUTARGS; } /*getnamedsym:CLASS_SRCPATTERN_CMATCH*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCPATTERN_CMATCH = basilysgc_named_symbol("CLASS_SRCPATTERN_CMATCH", BASILYS_GET); - if (sy_CLASS_SRCPATTERN_CMATCH && NULL == /*_.VALDATA___V834*/ curfptr[833]) - /*_.VALDATA___V834*/ curfptr[833] = (void*) sy_CLASS_SRCPATTERN_CMATCH; } + if (sy_CLASS_SRCPATTERN_CMATCH && NULL == /*_.VALDATA___V835*/ curfptr[834]) + /*_.VALDATA___V835*/ curfptr[834] = (void*) sy_CLASS_SRCPATTERN_CMATCH; } /*getnamedsym:CLASS_SRCPATTERN_ANYMATCH*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRCPATTERN_ANYMATCH = basilysgc_named_symbol("CLASS_SRCPATTERN_ANYMATCH", BASILYS_GET); - if (sy_CLASS_SRCPATTERN_ANYMATCH && NULL == /*_.VALDATA___V840*/ curfptr[839]) - /*_.VALDATA___V840*/ curfptr[839] = (void*) sy_CLASS_SRCPATTERN_ANYMATCH; } + if (sy_CLASS_SRCPATTERN_ANYMATCH && NULL == /*_.VALDATA___V841*/ curfptr[840]) + /*_.VALDATA___V841*/ curfptr[840] = (void*) sy_CLASS_SRCPATTERN_ANYMATCH; } /*getnamedsym:CLASS_SEXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SEXPR = basilysgc_named_symbol("CLASS_SEXPR", BASILYS_GET); - if (sy_CLASS_SEXPR && NULL == /*_.VALDATA___V852*/ curfptr[851]) - /*_.VALDATA___V852*/ curfptr[851] = (void*) sy_CLASS_SEXPR; } + if (sy_CLASS_SEXPR && NULL == /*_.VALDATA___V853*/ curfptr[852]) + /*_.VALDATA___V853*/ curfptr[852] = (void*) sy_CLASS_SEXPR; } /*getnamedsym:CLASS_ENVIRONMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_ENVIRONMENT = basilysgc_named_symbol("CLASS_ENVIRONMENT", BASILYS_GET); - if (sy_CLASS_ENVIRONMENT && NULL == /*_.VALDATA___V878*/ curfptr[877]) - /*_.VALDATA___V878*/ curfptr[877] = (void*) sy_CLASS_ENVIRONMENT; } + if (sy_CLASS_ENVIRONMENT && NULL == /*_.VALDATA___V879*/ curfptr[878]) + /*_.VALDATA___V879*/ curfptr[878] = (void*) sy_CLASS_ENVIRONMENT; } /*getnamedsym:DISCR_MULTIPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_MULTIPLE = basilysgc_named_symbol("DISCR_MULTIPLE", BASILYS_GET); - if (sy_DISCR_MULTIPLE && NULL == /*_.VALDATA___V880*/ curfptr[879]) - /*_.VALDATA___V880*/ curfptr[879] = (void*) sy_DISCR_MULTIPLE; } + if (sy_DISCR_MULTIPLE && NULL == /*_.VALDATA___V881*/ curfptr[880]) + /*_.VALDATA___V881*/ curfptr[880] = (void*) sy_DISCR_MULTIPLE; } /*getnamedsym:CLASS_SYMBOL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SYMBOL = basilysgc_named_symbol("CLASS_SYMBOL", BASILYS_GET); - if (sy_CLASS_SYMBOL && NULL == /*_.VALDATA___V882*/ curfptr[881]) - /*_.VALDATA___V882*/ curfptr[881] = (void*) sy_CLASS_SYMBOL; } + if (sy_CLASS_SYMBOL && NULL == /*_.VALDATA___V883*/ curfptr[882]) + /*_.VALDATA___V883*/ curfptr[882] = (void*) sy_CLASS_SYMBOL; } /*getnamedsym:DEBUG_MSG_FUN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DEBUG_MSG_FUN = basilysgc_named_symbol("DEBUG_MSG_FUN", BASILYS_GET); - if (sy_DEBUG_MSG_FUN && NULL == /*_.VALDATA___V884*/ curfptr[883]) - /*_.VALDATA___V884*/ curfptr[883] = (void*) sy_DEBUG_MSG_FUN; } + if (sy_DEBUG_MSG_FUN && NULL == /*_.VALDATA___V885*/ curfptr[884]) + /*_.VALDATA___V885*/ curfptr[884] = (void*) sy_DEBUG_MSG_FUN; } /*getnamedsym:CLASS_CITERATOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CITERATOR = basilysgc_named_symbol("CLASS_CITERATOR", BASILYS_GET); - if (sy_CLASS_CITERATOR && NULL == /*_.VALDATA___V886*/ curfptr[885]) - /*_.VALDATA___V886*/ curfptr[885] = (void*) sy_CLASS_CITERATOR; } + if (sy_CLASS_CITERATOR && NULL == /*_.VALDATA___V887*/ curfptr[886]) + /*_.VALDATA___V887*/ curfptr[886] = (void*) sy_CLASS_CITERATOR; } /*getnamedsym:CLASS_CMATCHER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CMATCHER = basilysgc_named_symbol("CLASS_CMATCHER", BASILYS_GET); - if (sy_CLASS_CMATCHER && NULL == /*_.VALDATA___V888*/ curfptr[887]) - /*_.VALDATA___V888*/ curfptr[887] = (void*) sy_CLASS_CMATCHER; } + if (sy_CLASS_CMATCHER && NULL == /*_.VALDATA___V889*/ curfptr[888]) + /*_.VALDATA___V889*/ curfptr[888] = (void*) sy_CLASS_CMATCHER; } /*getnamedsym:FIND_ENV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_FIND_ENV = basilysgc_named_symbol("FIND_ENV", BASILYS_GET); - if (sy_FIND_ENV && NULL == /*_.VALDATA___V890*/ curfptr[889]) - /*_.VALDATA___V890*/ curfptr[889] = (void*) sy_FIND_ENV; } + if (sy_FIND_ENV && NULL == /*_.VALDATA___V891*/ curfptr[890]) + /*_.VALDATA___V891*/ curfptr[890] = (void*) sy_FIND_ENV; } /*getnamedsym:CLASS_MACRO_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_MACRO_BINDING = basilysgc_named_symbol("CLASS_MACRO_BINDING", BASILYS_GET); - if (sy_CLASS_MACRO_BINDING && NULL == /*_.VALDATA___V892*/ curfptr[891]) - /*_.VALDATA___V892*/ curfptr[891] = (void*) sy_CLASS_MACRO_BINDING; } + if (sy_CLASS_MACRO_BINDING && NULL == /*_.VALDATA___V893*/ curfptr[892]) + /*_.VALDATA___V893*/ curfptr[892] = (void*) sy_CLASS_MACRO_BINDING; } /*getnamedsym:CLASS_SELECTOR_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SELECTOR_BINDING = basilysgc_named_symbol("CLASS_SELECTOR_BINDING", BASILYS_GET); - if (sy_CLASS_SELECTOR_BINDING && NULL == /*_.VALDATA___V894*/ curfptr[893]) - /*_.VALDATA___V894*/ curfptr[893] = (void*) sy_CLASS_SELECTOR_BINDING; } + if (sy_CLASS_SELECTOR_BINDING && NULL == /*_.VALDATA___V895*/ curfptr[894]) + /*_.VALDATA___V895*/ curfptr[894] = (void*) sy_CLASS_SELECTOR_BINDING; } /*getnamedsym:CLASS_PRIMITIVE_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_PRIMITIVE_BINDING = basilysgc_named_symbol("CLASS_PRIMITIVE_BINDING", BASILYS_GET); - if (sy_CLASS_PRIMITIVE_BINDING && NULL == /*_.VALDATA___V896*/ curfptr[895]) - /*_.VALDATA___V896*/ curfptr[895] = (void*) sy_CLASS_PRIMITIVE_BINDING; } + if (sy_CLASS_PRIMITIVE_BINDING && NULL == /*_.VALDATA___V897*/ curfptr[896]) + /*_.VALDATA___V897*/ curfptr[896] = (void*) sy_CLASS_PRIMITIVE_BINDING; } /*getnamedsym:CLASS_CITERATOR_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CITERATOR_BINDING = basilysgc_named_symbol("CLASS_CITERATOR_BINDING", BASILYS_GET); - if (sy_CLASS_CITERATOR_BINDING && NULL == /*_.VALDATA___V898*/ curfptr[897]) - /*_.VALDATA___V898*/ curfptr[897] = (void*) sy_CLASS_CITERATOR_BINDING; } + if (sy_CLASS_CITERATOR_BINDING && NULL == /*_.VALDATA___V899*/ curfptr[898]) + /*_.VALDATA___V899*/ curfptr[898] = (void*) sy_CLASS_CITERATOR_BINDING; } /*getnamedsym:CLASS_CMATCHER_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CMATCHER_BINDING = basilysgc_named_symbol("CLASS_CMATCHER_BINDING", BASILYS_GET); - if (sy_CLASS_CMATCHER_BINDING && NULL == /*_.VALDATA___V900*/ curfptr[899]) - /*_.VALDATA___V900*/ curfptr[899] = (void*) sy_CLASS_CMATCHER_BINDING; } + if (sy_CLASS_CMATCHER_BINDING && NULL == /*_.VALDATA___V901*/ curfptr[900]) + /*_.VALDATA___V901*/ curfptr[900] = (void*) sy_CLASS_CMATCHER_BINDING; } /*getnamedsym:CLASS_FUNMATCHER_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_FUNMATCHER_BINDING = basilysgc_named_symbol("CLASS_FUNMATCHER_BINDING", BASILYS_GET); - if (sy_CLASS_FUNMATCHER_BINDING && NULL == /*_.VALDATA___V902*/ curfptr[901]) - /*_.VALDATA___V902*/ curfptr[901] = (void*) sy_CLASS_FUNMATCHER_BINDING; } + if (sy_CLASS_FUNMATCHER_BINDING && NULL == /*_.VALDATA___V903*/ curfptr[902]) + /*_.VALDATA___V903*/ curfptr[902] = (void*) sy_CLASS_FUNMATCHER_BINDING; } /*getnamedsym:CLASS_VALUE_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_VALUE_BINDING = basilysgc_named_symbol("CLASS_VALUE_BINDING", BASILYS_GET); - if (sy_CLASS_VALUE_BINDING && NULL == /*_.VALDATA___V904*/ curfptr[903]) - /*_.VALDATA___V904*/ curfptr[903] = (void*) sy_CLASS_VALUE_BINDING; } + if (sy_CLASS_VALUE_BINDING && NULL == /*_.VALDATA___V905*/ curfptr[904]) + /*_.VALDATA___V905*/ curfptr[904] = (void*) sy_CLASS_VALUE_BINDING; } /*getnamedsym:CLASS_PRIMITIVE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_PRIMITIVE = basilysgc_named_symbol("CLASS_PRIMITIVE", BASILYS_GET); - if (sy_CLASS_PRIMITIVE && NULL == /*_.VALDATA___V906*/ curfptr[905]) - /*_.VALDATA___V906*/ curfptr[905] = (void*) sy_CLASS_PRIMITIVE; } + if (sy_CLASS_PRIMITIVE && NULL == /*_.VALDATA___V907*/ curfptr[906]) + /*_.VALDATA___V907*/ curfptr[906] = (void*) sy_CLASS_PRIMITIVE; } /*getnamedsym:CLASS_SELECTOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SELECTOR = basilysgc_named_symbol("CLASS_SELECTOR", BASILYS_GET); - if (sy_CLASS_SELECTOR && NULL == /*_.VALDATA___V908*/ curfptr[907]) - /*_.VALDATA___V908*/ curfptr[907] = (void*) sy_CLASS_SELECTOR; } + if (sy_CLASS_SELECTOR && NULL == /*_.VALDATA___V909*/ curfptr[908]) + /*_.VALDATA___V909*/ curfptr[908] = (void*) sy_CLASS_SELECTOR; } /*getnamedsym:CLASS_FUNMATCHER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_FUNMATCHER = basilysgc_named_symbol("CLASS_FUNMATCHER", BASILYS_GET); - if (sy_CLASS_FUNMATCHER && NULL == /*_.VALDATA___V910*/ curfptr[909]) - /*_.VALDATA___V910*/ curfptr[909] = (void*) sy_CLASS_FUNMATCHER; } + if (sy_CLASS_FUNMATCHER && NULL == /*_.VALDATA___V911*/ curfptr[910]) + /*_.VALDATA___V911*/ curfptr[910] = (void*) sy_CLASS_FUNMATCHER; } /*getnamedsym:DEFUN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DEFUN = basilysgc_named_symbol("DEFUN", BASILYS_GET); - if (sy_DEFUN && NULL == /*_.VALDATA___V872*/ curfptr[871]) - /*_.VALDATA___V872*/ curfptr[871] = (void*) sy_DEFUN; } + if (sy_DEFUN && NULL == /*_.VALDATA___V873*/ curfptr[872]) + /*_.VALDATA___V873*/ curfptr[872] = (void*) sy_DEFUN; } /*getnamedsym:DEFCLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DEFCLASS = basilysgc_named_symbol("DEFCLASS", BASILYS_GET); - if (sy_DEFCLASS && NULL == /*_.VALDATA___V874*/ curfptr[873]) - /*_.VALDATA___V874*/ curfptr[873] = (void*) sy_DEFCLASS; } + if (sy_DEFCLASS && NULL == /*_.VALDATA___V875*/ curfptr[874]) + /*_.VALDATA___V875*/ curfptr[874] = (void*) sy_DEFCLASS; } /*getnamedsym:CLASS_KEYWORD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_KEYWORD = basilysgc_named_symbol("CLASS_KEYWORD", BASILYS_GET); - if (sy_CLASS_KEYWORD && NULL == /*_.VALDATA___V912*/ curfptr[911]) - /*_.VALDATA___V912*/ curfptr[911] = (void*) sy_CLASS_KEYWORD; } + if (sy_CLASS_KEYWORD && NULL == /*_.VALDATA___V913*/ curfptr[912]) + /*_.VALDATA___V913*/ curfptr[912] = (void*) sy_CLASS_KEYWORD; } /*getnamedsym:CLASS_PATTEXPCONTEXT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_PATTEXPCONTEXT = basilysgc_named_symbol("CLASS_PATTEXPCONTEXT", BASILYS_GET); - if (sy_CLASS_PATTEXPCONTEXT && NULL == /*_.VALDATA___V914*/ curfptr[913]) - /*_.VALDATA___V914*/ curfptr[913] = (void*) sy_CLASS_PATTEXPCONTEXT; } + if (sy_CLASS_PATTEXPCONTEXT && NULL == /*_.VALDATA___V915*/ curfptr[914]) + /*_.VALDATA___V915*/ curfptr[914] = (void*) sy_CLASS_PATTEXPCONTEXT; } /*getnamedsym:CLASS_ROOT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_ROOT = basilysgc_named_symbol("CLASS_ROOT", BASILYS_GET); - if (sy_CLASS_ROOT && NULL == /*_.VALDATA___V916*/ curfptr[915]) - /*_.VALDATA___V916*/ curfptr[915] = (void*) sy_CLASS_ROOT; } + if (sy_CLASS_ROOT && NULL == /*_.VALDATA___V917*/ curfptr[916]) + /*_.VALDATA___V917*/ curfptr[916] = (void*) sy_CLASS_ROOT; } /*getnamedsym:PCTX_MEXPANDER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PCTX_MEXPANDER = basilysgc_named_symbol("PCTX_MEXPANDER", BASILYS_GET); - if (sy_PCTX_MEXPANDER && NULL == /*_.VALDATA___V928*/ curfptr[927]) - /*_.VALDATA___V928*/ curfptr[927] = (void*) sy_PCTX_MEXPANDER; } + if (sy_PCTX_MEXPANDER && NULL == /*_.VALDATA___V929*/ curfptr[928]) + /*_.VALDATA___V929*/ curfptr[928] = (void*) sy_PCTX_MEXPANDER; } /*getnamedsym:PCTX_PEXPANDER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PCTX_PEXPANDER = basilysgc_named_symbol("PCTX_PEXPANDER", BASILYS_GET); - if (sy_PCTX_PEXPANDER && NULL == /*_.VALDATA___V930*/ curfptr[929]) - /*_.VALDATA___V930*/ curfptr[929] = (void*) sy_PCTX_PEXPANDER; } + if (sy_PCTX_PEXPANDER && NULL == /*_.VALDATA___V931*/ curfptr[930]) + /*_.VALDATA___V931*/ curfptr[930] = (void*) sy_PCTX_PEXPANDER; } /*getnamedsym:PCTX_VARMAP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PCTX_VARMAP = basilysgc_named_symbol("PCTX_VARMAP", BASILYS_GET); - if (sy_PCTX_VARMAP && NULL == /*_.VALDATA___V932*/ curfptr[931]) - /*_.VALDATA___V932*/ curfptr[931] = (void*) sy_PCTX_VARMAP; } + if (sy_PCTX_VARMAP && NULL == /*_.VALDATA___V933*/ curfptr[932]) + /*_.VALDATA___V933*/ curfptr[932] = (void*) sy_PCTX_VARMAP; } /*getnamedsym:PAIRLIST_TO_MULTIPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PAIRLIST_TO_MULTIPLE = basilysgc_named_symbol("PAIRLIST_TO_MULTIPLE", BASILYS_GET); - if (sy_PAIRLIST_TO_MULTIPLE && NULL == /*_.VALDATA___V949*/ curfptr[948]) - /*_.VALDATA___V949*/ curfptr[948] = (void*) sy_PAIRLIST_TO_MULTIPLE; } + if (sy_PAIRLIST_TO_MULTIPLE && NULL == /*_.VALDATA___V950*/ curfptr[949]) + /*_.VALDATA___V950*/ curfptr[949] = (void*) sy_PAIRLIST_TO_MULTIPLE; } /*getnamedsym:CLASS_ANY_MATCHER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_ANY_MATCHER = basilysgc_named_symbol("CLASS_ANY_MATCHER", BASILYS_GET); - if (sy_CLASS_ANY_MATCHER && NULL == /*_.VALDATA___V951*/ curfptr[950]) - /*_.VALDATA___V951*/ curfptr[950] = (void*) sy_CLASS_ANY_MATCHER; } + if (sy_CLASS_ANY_MATCHER && NULL == /*_.VALDATA___V952*/ curfptr[951]) + /*_.VALDATA___V952*/ curfptr[951] = (void*) sy_CLASS_ANY_MATCHER; } /*getnamedsym:DISCR_BOX*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_BOX = basilysgc_named_symbol("DISCR_BOX", BASILYS_GET); - if (sy_DISCR_BOX && NULL == /*_.VALDATA___V953*/ curfptr[952]) - /*_.VALDATA___V953*/ curfptr[952] = (void*) sy_DISCR_BOX; } + if (sy_DISCR_BOX && NULL == /*_.VALDATA___V954*/ curfptr[953]) + /*_.VALDATA___V954*/ curfptr[953] = (void*) sy_DISCR_BOX; } /*getnamedsym:MULTIPLE_MAP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MULTIPLE_MAP = basilysgc_named_symbol("MULTIPLE_MAP", BASILYS_GET); - if (sy_MULTIPLE_MAP && NULL == /*_.VALDATA___V955*/ curfptr[954]) - /*_.VALDATA___V955*/ curfptr[954] = (void*) sy_MULTIPLE_MAP; } + if (sy_MULTIPLE_MAP && NULL == /*_.VALDATA___V956*/ curfptr[955]) + /*_.VALDATA___V956*/ curfptr[955] = (void*) sy_MULTIPLE_MAP; } /*getnamedsym:CLASS_FORMAL_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_FORMAL_BINDING = basilysgc_named_symbol("CLASS_FORMAL_BINDING", BASILYS_GET); - if (sy_CLASS_FORMAL_BINDING && NULL == /*_.VALDATA___V957*/ curfptr[956]) - /*_.VALDATA___V957*/ curfptr[956] = (void*) sy_CLASS_FORMAL_BINDING; } + if (sy_CLASS_FORMAL_BINDING && NULL == /*_.VALDATA___V958*/ curfptr[957]) + /*_.VALDATA___V958*/ curfptr[957] = (void*) sy_CLASS_FORMAL_BINDING; } /*getnamedsym:CLASS_NAMED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NAMED = basilysgc_named_symbol("CLASS_NAMED", BASILYS_GET); - if (sy_CLASS_NAMED && NULL == /*_.VALDATA___V959*/ curfptr[958]) - /*_.VALDATA___V959*/ curfptr[958] = (void*) sy_CLASS_NAMED; } + if (sy_CLASS_NAMED && NULL == /*_.VALDATA___V960*/ curfptr[959]) + /*_.VALDATA___V960*/ curfptr[959] = (void*) sy_CLASS_NAMED; } /*getnamedsym:CLASS_PATMACRO_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_PATMACRO_BINDING = basilysgc_named_symbol("CLASS_PATMACRO_BINDING", BASILYS_GET); - if (sy_CLASS_PATMACRO_BINDING && NULL == /*_.VALDATA___V961*/ curfptr[960]) - /*_.VALDATA___V961*/ curfptr[960] = (void*) sy_CLASS_PATMACRO_BINDING; } + if (sy_CLASS_PATMACRO_BINDING && NULL == /*_.VALDATA___V962*/ curfptr[961]) + /*_.VALDATA___V962*/ curfptr[961] = (void*) sy_CLASS_PATMACRO_BINDING; } /*getnamedsym:QUESTION*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_QUESTION = basilysgc_named_symbol("QUESTION", BASILYS_GET); - if (sy_QUESTION && NULL == /*_.VALDATA___V937*/ curfptr[936]) - /*_.VALDATA___V937*/ curfptr[936] = (void*) sy_QUESTION; } + if (sy_QUESTION && NULL == /*_.VALDATA___V938*/ curfptr[937]) + /*_.VALDATA___V938*/ curfptr[937] = (void*) sy_QUESTION; } /*getnamedsym:_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_ = basilysgc_named_symbol("_", BASILYS_GET); - if (sy_ && NULL == /*_.VALDATA___V939*/ curfptr[938]) - /*_.VALDATA___V939*/ curfptr[938] = (void*) sy_; } + if (sy_ && NULL == /*_.VALDATA___V940*/ curfptr[939]) + /*_.VALDATA___V940*/ curfptr[939] = (void*) sy_; } /*getnamedsym:LIST_MAP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LIST_MAP = basilysgc_named_symbol("LIST_MAP", BASILYS_GET); - if (sy_LIST_MAP && NULL == /*_.VALDATA___V966*/ curfptr[965]) - /*_.VALDATA___V966*/ curfptr[965] = (void*) sy_LIST_MAP; } + if (sy_LIST_MAP && NULL == /*_.VALDATA___V967*/ curfptr[966]) + /*_.VALDATA___V967*/ curfptr[966] = (void*) sy_LIST_MAP; } /*getnamedsym:CTYPE_VALUE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CTYPE_VALUE = basilysgc_named_symbol("CTYPE_VALUE", BASILYS_GET); - if (sy_CTYPE_VALUE && NULL == /*_.VALDATA___V968*/ curfptr[967]) - /*_.VALDATA___V968*/ curfptr[967] = (void*) sy_CTYPE_VALUE; } + if (sy_CTYPE_VALUE && NULL == /*_.VALDATA___V969*/ curfptr[968]) + /*_.VALDATA___V969*/ curfptr[968] = (void*) sy_CTYPE_VALUE; } /*getnamedsym:DISCR_MAPOBJECTS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_MAPOBJECTS = basilysgc_named_symbol("DISCR_MAPOBJECTS", BASILYS_GET); - if (sy_DISCR_MAPOBJECTS && NULL == /*_.VALDATA___V970*/ curfptr[969]) - /*_.VALDATA___V970*/ curfptr[969] = (void*) sy_DISCR_MAPOBJECTS; } + if (sy_DISCR_MAPOBJECTS && NULL == /*_.VALDATA___V971*/ curfptr[970]) + /*_.VALDATA___V971*/ curfptr[970] = (void*) sy_DISCR_MAPOBJECTS; } /*getnamedsym:DISCR_LIST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_LIST = basilysgc_named_symbol("DISCR_LIST", BASILYS_GET); - if (sy_DISCR_LIST && NULL == /*_.VALDATA___V972*/ curfptr[971]) - /*_.VALDATA___V972*/ curfptr[971] = (void*) sy_DISCR_LIST; } + if (sy_DISCR_LIST && NULL == /*_.VALDATA___V973*/ curfptr[972]) + /*_.VALDATA___V973*/ curfptr[972] = (void*) sy_DISCR_LIST; } /*getnamedsym:CLASS_CTYPE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CTYPE = basilysgc_named_symbol("CLASS_CTYPE", BASILYS_GET); - if (sy_CLASS_CTYPE && NULL == /*_.VALDATA___V974*/ curfptr[973]) - /*_.VALDATA___V974*/ curfptr[973] = (void*) sy_CLASS_CTYPE; } + if (sy_CLASS_CTYPE && NULL == /*_.VALDATA___V975*/ curfptr[974]) + /*_.VALDATA___V975*/ curfptr[974] = (void*) sy_CLASS_CTYPE; } /*getnamedsym:PUT_ENV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PUT_ENV = basilysgc_named_symbol("PUT_ENV", BASILYS_GET); - if (sy_PUT_ENV && NULL == /*_.VALDATA___V978*/ curfptr[977]) - /*_.VALDATA___V978*/ curfptr[977] = (void*) sy_PUT_ENV; } + if (sy_PUT_ENV && NULL == /*_.VALDATA___V979*/ curfptr[978]) + /*_.VALDATA___V979*/ curfptr[978] = (void*) sy_PUT_ENV; } /*getnamedsym:INITIAL_ENVIRONMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_INITIAL_ENVIRONMENT = basilysgc_named_symbol("INITIAL_ENVIRONMENT", BASILYS_GET); - if (sy_INITIAL_ENVIRONMENT && NULL == /*_.VALDATA___V980*/ curfptr[979]) - /*_.VALDATA___V980*/ curfptr[979] = (void*) sy_INITIAL_ENVIRONMENT; } + if (sy_INITIAL_ENVIRONMENT && NULL == /*_.VALDATA___V981*/ curfptr[980]) + /*_.VALDATA___V981*/ curfptr[980] = (void*) sy_INITIAL_ENVIRONMENT; } /*getnamedsym:WARN_SHADOW*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_WARN_SHADOW = basilysgc_named_symbol("WARN_SHADOW", BASILYS_GET); - if (sy_WARN_SHADOW && NULL == /*_.VALDATA___V984*/ curfptr[983]) - /*_.VALDATA___V984*/ curfptr[983] = (void*) sy_WARN_SHADOW; } - - /*getnamedsym:DISCR_STRING*/ - if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_STRING = basilysgc_named_symbol("DISCR_STRING", BASILYS_GET); - if (sy_DISCR_STRING && NULL == /*_.VALDATA___V995*/ curfptr[994]) - /*_.VALDATA___V995*/ curfptr[994] = (void*) sy_DISCR_STRING; } + if (sy_WARN_SHADOW && NULL == /*_.VALDATA___V985*/ curfptr[984]) + /*_.VALDATA___V985*/ curfptr[984] = (void*) sy_WARN_SHADOW; } /*getnamedsym:DISCR_VERBATIMSTRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_VERBATIMSTRING = basilysgc_named_symbol("DISCR_VERBATIMSTRING", BASILYS_GET); - if (sy_DISCR_VERBATIMSTRING && NULL == /*_.VALDATA___V997*/ curfptr[996]) - /*_.VALDATA___V997*/ curfptr[996] = (void*) sy_DISCR_VERBATIMSTRING; } + if (sy_DISCR_VERBATIMSTRING && NULL == /*_.VALDATA___V996*/ curfptr[995]) + /*_.VALDATA___V996*/ curfptr[995] = (void*) sy_DISCR_VERBATIMSTRING; } + + /*getnamedsym:CLASS_LOCATED*/ + if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_LOCATED = basilysgc_named_symbol("CLASS_LOCATED", BASILYS_GET); + if (sy_CLASS_LOCATED && NULL == /*_.VALDATA___V998*/ curfptr[997]) + /*_.VALDATA___V998*/ curfptr[997] = (void*) sy_CLASS_LOCATED; } + + /*getnamedsym:LIST_TO_MULTIPLE*/ + if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LIST_TO_MULTIPLE = basilysgc_named_symbol("LIST_TO_MULTIPLE", BASILYS_GET); + if (sy_LIST_TO_MULTIPLE && NULL == /*_.VALDATA___V1002*/ curfptr[1001]) + /*_.VALDATA___V1002*/ curfptr[1001] = (void*) sy_LIST_TO_MULTIPLE; } + + /*getnamedsym:CLASS_ANY_BINDING*/ + if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_ANY_BINDING = basilysgc_named_symbol("CLASS_ANY_BINDING", BASILYS_GET); + if (sy_CLASS_ANY_BINDING && NULL == /*_.VALDATA___V1008*/ curfptr[1007]) + /*_.VALDATA___V1008*/ curfptr[1007] = (void*) sy_CLASS_ANY_BINDING; } /*getnamedsym:DEFPRIMITIVE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DEFPRIMITIVE = basilysgc_named_symbol("DEFPRIMITIVE", BASILYS_GET); - if (sy_DEFPRIMITIVE && NULL == /*_.VALDATA___V1001*/ curfptr[1000]) - /*_.VALDATA___V1001*/ curfptr[1000] = (void*) sy_DEFPRIMITIVE; } + if (sy_DEFPRIMITIVE && NULL == /*_.VALDATA___V1010*/ curfptr[1009]) + /*_.VALDATA___V1010*/ curfptr[1009] = (void*) sy_DEFPRIMITIVE; } /*getnamedsym:DEFCITERATOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DEFCITERATOR = basilysgc_named_symbol("DEFCITERATOR", BASILYS_GET); - if (sy_DEFCITERATOR && NULL == /*_.VALDATA___V1005*/ curfptr[1004]) - /*_.VALDATA___V1005*/ curfptr[1004] = (void*) sy_DEFCITERATOR; } + if (sy_DEFCITERATOR && NULL == /*_.VALDATA___V1014*/ curfptr[1013]) + /*_.VALDATA___V1014*/ curfptr[1013] = (void*) sy_DEFCITERATOR; } /*getnamedsym:MULTIPLE_EVERY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MULTIPLE_EVERY = basilysgc_named_symbol("MULTIPLE_EVERY", BASILYS_GET); - if (sy_MULTIPLE_EVERY && NULL == /*_.VALDATA___V1010*/ curfptr[1009]) - /*_.VALDATA___V1010*/ curfptr[1009] = (void*) sy_MULTIPLE_EVERY; } + if (sy_MULTIPLE_EVERY && NULL == /*_.VALDATA___V1019*/ curfptr[1018]) + /*_.VALDATA___V1019*/ curfptr[1018] = (void*) sy_MULTIPLE_EVERY; } /*getnamedsym:DEFCMATCHER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DEFCMATCHER = basilysgc_named_symbol("DEFCMATCHER", BASILYS_GET); - if (sy_DEFCMATCHER && NULL == /*_.VALDATA___V1012*/ curfptr[1011]) - /*_.VALDATA___V1012*/ curfptr[1011] = (void*) sy_DEFCMATCHER; } + if (sy_DEFCMATCHER && NULL == /*_.VALDATA___V1021*/ curfptr[1020]) + /*_.VALDATA___V1021*/ curfptr[1020] = (void*) sy_DEFCMATCHER; } /*getnamedsym:DEFUNMATCHER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DEFUNMATCHER = basilysgc_named_symbol("DEFUNMATCHER", BASILYS_GET); - if (sy_DEFUNMATCHER && NULL == /*_.VALDATA___V1017*/ curfptr[1016]) - /*_.VALDATA___V1017*/ curfptr[1016] = (void*) sy_DEFUNMATCHER; } + if (sy_DEFUNMATCHER && NULL == /*_.VALDATA___V1026*/ curfptr[1025]) + /*_.VALDATA___V1026*/ curfptr[1025] = (void*) sy_DEFUNMATCHER; } /*getnamedsym:FRESH_ENV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_FRESH_ENV = basilysgc_named_symbol("FRESH_ENV", BASILYS_GET); - if (sy_FRESH_ENV && NULL == /*_.VALDATA___V1022*/ curfptr[1021]) - /*_.VALDATA___V1022*/ curfptr[1021] = (void*) sy_FRESH_ENV; } + if (sy_FRESH_ENV && NULL == /*_.VALDATA___V1031*/ curfptr[1030]) + /*_.VALDATA___V1031*/ curfptr[1030] = (void*) sy_FRESH_ENV; } /*getnamedsym:CLASS_FUNCTION_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_FUNCTION_BINDING = basilysgc_named_symbol("CLASS_FUNCTION_BINDING", BASILYS_GET); - if (sy_CLASS_FUNCTION_BINDING && NULL == /*_.VALDATA___V1024*/ curfptr[1023]) - /*_.VALDATA___V1024*/ curfptr[1023] = (void*) sy_CLASS_FUNCTION_BINDING; } + if (sy_CLASS_FUNCTION_BINDING && NULL == /*_.VALDATA___V1033*/ curfptr[1032]) + /*_.VALDATA___V1033*/ curfptr[1032] = (void*) sy_CLASS_FUNCTION_BINDING; } /*getnamedkeyw:SUPER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t kw_SUPER = basilysgc_named_keyword("SUPER", BASILYS_GET); - if (kw_SUPER) /*_.VALDATA___V1027*/ curfptr[1026] = (void*) kw_SUPER; } + if (kw_SUPER) /*_.VALDATA___V1036*/ curfptr[1035] = (void*) kw_SUPER; } /*getnamedsym:CLASS_CLASS_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CLASS_BINDING = basilysgc_named_symbol("CLASS_CLASS_BINDING", BASILYS_GET); - if (sy_CLASS_CLASS_BINDING && NULL == /*_.VALDATA___V1036*/ curfptr[1035]) - /*_.VALDATA___V1036*/ curfptr[1035] = (void*) sy_CLASS_CLASS_BINDING; } + if (sy_CLASS_CLASS_BINDING && NULL == /*_.VALDATA___V1045*/ curfptr[1044]) + /*_.VALDATA___V1045*/ curfptr[1044] = (void*) sy_CLASS_CLASS_BINDING; } /*getnamedsym:CLASS_CLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CLASS = basilysgc_named_symbol("CLASS_CLASS", BASILYS_GET); - if (sy_CLASS_CLASS && NULL == /*_.VALDATA___V1038*/ curfptr[1037]) - /*_.VALDATA___V1038*/ curfptr[1037] = (void*) sy_CLASS_CLASS; } + if (sy_CLASS_CLASS && NULL == /*_.VALDATA___V1047*/ curfptr[1046]) + /*_.VALDATA___V1047*/ curfptr[1046] = (void*) sy_CLASS_CLASS; } /*getnamedkeyw:FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t kw_FIELDS = basilysgc_named_keyword("FIELDS", BASILYS_GET); - if (kw_FIELDS) /*_.VALDATA___V1029*/ curfptr[1028] = (void*) kw_FIELDS; } + if (kw_FIELDS) /*_.VALDATA___V1038*/ curfptr[1037] = (void*) kw_FIELDS; } /*getnamedkeyw:PREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t kw_PREDEF = basilysgc_named_keyword("PREDEF", BASILYS_GET); - if (kw_PREDEF) /*_.VALDATA___V1031*/ curfptr[1030] = (void*) kw_PREDEF; } + if (kw_PREDEF) /*_.VALDATA___V1040*/ curfptr[1039] = (void*) kw_PREDEF; } /*getnamedkeyw:DOCSTR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t kw_DOCSTR = basilysgc_named_keyword("DOCSTR", BASILYS_GET); - if (kw_DOCSTR) /*_.VALDATA___V1033*/ curfptr[1032] = (void*) kw_DOCSTR; } + if (kw_DOCSTR) /*_.VALDATA___V1042*/ curfptr[1041] = (void*) kw_DOCSTR; } /*getnamedsym:DISCR_SEQCLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_SEQCLASS = basilysgc_named_symbol("DISCR_SEQCLASS", BASILYS_GET); - if (sy_DISCR_SEQCLASS && NULL == /*_.VALDATA___V1044*/ curfptr[1043]) - /*_.VALDATA___V1044*/ curfptr[1043] = (void*) sy_DISCR_SEQCLASS; } + if (sy_DISCR_SEQCLASS && NULL == /*_.VALDATA___V1053*/ curfptr[1052]) + /*_.VALDATA___V1053*/ curfptr[1052] = (void*) sy_DISCR_SEQCLASS; } /*getnamedsym:DISCR_INTEGER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_INTEGER = basilysgc_named_symbol("DISCR_INTEGER", BASILYS_GET); - if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V1046*/ curfptr[1045]) - /*_.VALDATA___V1046*/ curfptr[1045] = (void*) sy_DISCR_INTEGER; } + if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V1055*/ curfptr[1054]) + /*_.VALDATA___V1055*/ curfptr[1054] = (void*) sy_DISCR_INTEGER; } /*getnamedsym:DISCR_MAPSTRINGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_MAPSTRINGS = basilysgc_named_symbol("DISCR_MAPSTRINGS", BASILYS_GET); - if (sy_DISCR_MAPSTRINGS && NULL == /*_.VALDATA___V1048*/ curfptr[1047]) - /*_.VALDATA___V1048*/ curfptr[1047] = (void*) sy_DISCR_MAPSTRINGS; } + if (sy_DISCR_MAPSTRINGS && NULL == /*_.VALDATA___V1057*/ curfptr[1056]) + /*_.VALDATA___V1057*/ curfptr[1056] = (void*) sy_DISCR_MAPSTRINGS; } /*getnamedsym:DISCR_SEQFIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_SEQFIELD = basilysgc_named_symbol("DISCR_SEQFIELD", BASILYS_GET); - if (sy_DISCR_SEQFIELD && NULL == /*_.VALDATA___V1050*/ curfptr[1049]) - /*_.VALDATA___V1050*/ curfptr[1049] = (void*) sy_DISCR_SEQFIELD; } + if (sy_DISCR_SEQFIELD && NULL == /*_.VALDATA___V1059*/ curfptr[1058]) + /*_.VALDATA___V1059*/ curfptr[1058] = (void*) sy_DISCR_SEQFIELD; } /*getnamedsym:CLASS_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_FIELD = basilysgc_named_symbol("CLASS_FIELD", BASILYS_GET); - if (sy_CLASS_FIELD && NULL == /*_.VALDATA___V1052*/ curfptr[1051]) - /*_.VALDATA___V1052*/ curfptr[1051] = (void*) sy_CLASS_FIELD; } + if (sy_CLASS_FIELD && NULL == /*_.VALDATA___V1061*/ curfptr[1060]) + /*_.VALDATA___V1061*/ curfptr[1060] = (void*) sy_CLASS_FIELD; } /*getnamedsym:CLASS_FIELD_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_FIELD_BINDING = basilysgc_named_symbol("CLASS_FIELD_BINDING", BASILYS_GET); - if (sy_CLASS_FIELD_BINDING && NULL == /*_.VALDATA___V1054*/ curfptr[1053]) - /*_.VALDATA___V1054*/ curfptr[1053] = (void*) sy_CLASS_FIELD_BINDING; } + if (sy_CLASS_FIELD_BINDING && NULL == /*_.VALDATA___V1063*/ curfptr[1062]) + /*_.VALDATA___V1063*/ curfptr[1062] = (void*) sy_CLASS_FIELD_BINDING; } /*getnamedsym:MULTIPLE_ITERATE_TEST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MULTIPLE_ITERATE_TEST = basilysgc_named_symbol("MULTIPLE_ITERATE_TEST", BASILYS_GET); - if (sy_MULTIPLE_ITERATE_TEST && NULL == /*_.VALDATA___V1059*/ curfptr[1058]) - /*_.VALDATA___V1059*/ curfptr[1058] = (void*) sy_MULTIPLE_ITERATE_TEST; } + if (sy_MULTIPLE_ITERATE_TEST && NULL == /*_.VALDATA___V1068*/ curfptr[1067]) + /*_.VALDATA___V1068*/ curfptr[1067] = (void*) sy_MULTIPLE_ITERATE_TEST; } /*getnamedkeyw:OBJ_NUM*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t kw_OBJ_NUM = basilysgc_named_keyword("OBJ_NUM", BASILYS_GET); - if (kw_OBJ_NUM) /*_.VALDATA___V1062*/ curfptr[1061] = (void*) kw_OBJ_NUM; } - - /*getnamedsym:LIST_TO_MULTIPLE*/ - if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LIST_TO_MULTIPLE = basilysgc_named_symbol("LIST_TO_MULTIPLE", BASILYS_GET); - if (sy_LIST_TO_MULTIPLE && NULL == /*_.VALDATA___V1065*/ curfptr[1064]) - /*_.VALDATA___V1065*/ curfptr[1064] = (void*) sy_LIST_TO_MULTIPLE; } + if (kw_OBJ_NUM) /*_.VALDATA___V1071*/ curfptr[1070] = (void*) kw_OBJ_NUM; } /*getnamedsym:CLASS_INSTANCE_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_INSTANCE_BINDING = basilysgc_named_symbol("CLASS_INSTANCE_BINDING", BASILYS_GET); - if (sy_CLASS_INSTANCE_BINDING && NULL == /*_.VALDATA___V1067*/ curfptr[1066]) - /*_.VALDATA___V1067*/ curfptr[1066] = (void*) sy_CLASS_INSTANCE_BINDING; } + if (sy_CLASS_INSTANCE_BINDING && NULL == /*_.VALDATA___V1074*/ curfptr[1073]) + /*_.VALDATA___V1074*/ curfptr[1073] = (void*) sy_CLASS_INSTANCE_BINDING; } /*getnamedsym:DEFINSTANCE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DEFINSTANCE = basilysgc_named_symbol("DEFINSTANCE", BASILYS_GET); - if (sy_DEFINSTANCE && NULL == /*_.VALDATA___V1069*/ curfptr[1068]) - /*_.VALDATA___V1069*/ curfptr[1068] = (void*) sy_DEFINSTANCE; } + if (sy_DEFINSTANCE && NULL == /*_.VALDATA___V1076*/ curfptr[1075]) + /*_.VALDATA___V1076*/ curfptr[1075] = (void*) sy_DEFINSTANCE; } /*getnamedsym:DEFSELECTOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DEFSELECTOR = basilysgc_named_symbol("DEFSELECTOR", BASILYS_GET); - if (sy_DEFSELECTOR && NULL == /*_.VALDATA___V1073*/ curfptr[1072]) - /*_.VALDATA___V1073*/ curfptr[1072] = (void*) sy_DEFSELECTOR; } + if (sy_DEFSELECTOR && NULL == /*_.VALDATA___V1080*/ curfptr[1079]) + /*_.VALDATA___V1080*/ curfptr[1079] = (void*) sy_DEFSELECTOR; } /*getnamedsym:MAKE_INSTANCE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MAKE_INSTANCE = basilysgc_named_symbol("MAKE_INSTANCE", BASILYS_GET); - if (sy_MAKE_INSTANCE && NULL == /*_.VALDATA___V1077*/ curfptr[1076]) - /*_.VALDATA___V1077*/ curfptr[1076] = (void*) sy_MAKE_INSTANCE; } + if (sy_MAKE_INSTANCE && NULL == /*_.VALDATA___V1084*/ curfptr[1083]) + /*_.VALDATA___V1084*/ curfptr[1083] = (void*) sy_MAKE_INSTANCE; } /*getnamedsym:INSTANCE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_INSTANCE = basilysgc_named_symbol("INSTANCE", BASILYS_GET); - if (sy_INSTANCE && NULL == /*_.VALDATA___V1084*/ curfptr[1083]) - /*_.VALDATA___V1084*/ curfptr[1083] = (void*) sy_INSTANCE; } + if (sy_INSTANCE && NULL == /*_.VALDATA___V1091*/ curfptr[1090]) + /*_.VALDATA___V1091*/ curfptr[1090] = (void*) sy_INSTANCE; } /*getnamedsym:OBJECT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBJECT = basilysgc_named_symbol("OBJECT", BASILYS_GET); - if (sy_OBJECT && NULL == /*_.VALDATA___V1090*/ curfptr[1089]) - /*_.VALDATA___V1090*/ curfptr[1089] = (void*) sy_OBJECT; } + if (sy_OBJECT && NULL == /*_.VALDATA___V1097*/ curfptr[1096]) + /*_.VALDATA___V1097*/ curfptr[1096] = (void*) sy_OBJECT; } /*getnamedsym:UNSAFE_PUT_FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_UNSAFE_PUT_FIELDS = basilysgc_named_symbol("UNSAFE_PUT_FIELDS", BASILYS_GET); - if (sy_UNSAFE_PUT_FIELDS && NULL == /*_.VALDATA___V1094*/ curfptr[1093]) - /*_.VALDATA___V1094*/ curfptr[1093] = (void*) sy_UNSAFE_PUT_FIELDS; } + if (sy_UNSAFE_PUT_FIELDS && NULL == /*_.VALDATA___V1101*/ curfptr[1100]) + /*_.VALDATA___V1101*/ curfptr[1100] = (void*) sy_UNSAFE_PUT_FIELDS; } /*getnamedsym:PUT_FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PUT_FIELDS = basilysgc_named_symbol("PUT_FIELDS", BASILYS_GET); - if (sy_PUT_FIELDS && NULL == /*_.VALDATA___V1098*/ curfptr[1097]) - /*_.VALDATA___V1098*/ curfptr[1097] = (void*) sy_PUT_FIELDS; } + if (sy_PUT_FIELDS && NULL == /*_.VALDATA___V1105*/ curfptr[1104]) + /*_.VALDATA___V1105*/ curfptr[1104] = (void*) sy_PUT_FIELDS; } /*getnamedsym:UNSAFE_GET_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_UNSAFE_GET_FIELD = basilysgc_named_symbol("UNSAFE_GET_FIELD", BASILYS_GET); - if (sy_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V1102*/ curfptr[1101]) - /*_.VALDATA___V1102*/ curfptr[1101] = (void*) sy_UNSAFE_GET_FIELD; } + if (sy_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V1109*/ curfptr[1108]) + /*_.VALDATA___V1109*/ curfptr[1108] = (void*) sy_UNSAFE_GET_FIELD; } /*getnamedsym:GET_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GET_FIELD = basilysgc_named_symbol("GET_FIELD", BASILYS_GET); - if (sy_GET_FIELD && NULL == /*_.VALDATA___V1106*/ curfptr[1105]) - /*_.VALDATA___V1106*/ curfptr[1105] = (void*) sy_GET_FIELD; } + if (sy_GET_FIELD && NULL == /*_.VALDATA___V1113*/ curfptr[1112]) + /*_.VALDATA___V1113*/ curfptr[1112] = (void*) sy_GET_FIELD; } /*getnamedsym:SETQ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SETQ = basilysgc_named_symbol("SETQ", BASILYS_GET); - if (sy_SETQ && NULL == /*_.VALDATA___V1110*/ curfptr[1109]) - /*_.VALDATA___V1110*/ curfptr[1109] = (void*) sy_SETQ; } + if (sy_SETQ && NULL == /*_.VALDATA___V1117*/ curfptr[1116]) + /*_.VALDATA___V1117*/ curfptr[1116] = (void*) sy_SETQ; } /*getnamedsym:IF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_IF = basilysgc_named_symbol("IF", BASILYS_GET); - if (sy_IF && NULL == /*_.VALDATA___V1114*/ curfptr[1113]) - /*_.VALDATA___V1114*/ curfptr[1113] = (void*) sy_IF; } + if (sy_IF && NULL == /*_.VALDATA___V1121*/ curfptr[1120]) + /*_.VALDATA___V1121*/ curfptr[1120] = (void*) sy_IF; } /*getnamedsym:CPPIF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CPPIF = basilysgc_named_symbol("CPPIF", BASILYS_GET); - if (sy_CPPIF && NULL == /*_.VALDATA___V1118*/ curfptr[1117]) - /*_.VALDATA___V1118*/ curfptr[1117] = (void*) sy_CPPIF; } + if (sy_CPPIF && NULL == /*_.VALDATA___V1125*/ curfptr[1124]) + /*_.VALDATA___V1125*/ curfptr[1124] = (void*) sy_CPPIF; } /*getnamedkeyw:ELSE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t kw_ELSE = basilysgc_named_keyword("ELSE", BASILYS_GET); - if (kw_ELSE) /*_.VALDATA___V1122*/ curfptr[1121] = (void*) kw_ELSE; } + if (kw_ELSE) /*_.VALDATA___V1129*/ curfptr[1128] = (void*) kw_ELSE; } /*getnamedsym:COND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_COND = basilysgc_named_symbol("COND", BASILYS_GET); - if (sy_COND && NULL == /*_.VALDATA___V1128*/ curfptr[1127]) - /*_.VALDATA___V1128*/ curfptr[1127] = (void*) sy_COND; } + if (sy_COND && NULL == /*_.VALDATA___V1135*/ curfptr[1134]) + /*_.VALDATA___V1135*/ curfptr[1134] = (void*) sy_COND; } /*getnamedsym:AS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_AS = basilysgc_named_symbol("AS", BASILYS_GET); - if (sy_AS && NULL == /*_.VALDATA___V1137*/ curfptr[1136]) - /*_.VALDATA___V1137*/ curfptr[1136] = (void*) sy_AS; } + if (sy_AS && NULL == /*_.VALDATA___V1144*/ curfptr[1143]) + /*_.VALDATA___V1144*/ curfptr[1143] = (void*) sy_AS; } /*getnamedsym:AND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_AND = basilysgc_named_symbol("AND", BASILYS_GET); - if (sy_AND && NULL == /*_.VALDATA___V1141*/ curfptr[1140]) - /*_.VALDATA___V1141*/ curfptr[1140] = (void*) sy_AND; } + if (sy_AND && NULL == /*_.VALDATA___V1148*/ curfptr[1147]) + /*_.VALDATA___V1148*/ curfptr[1147] = (void*) sy_AND; } /*getnamedsym:OR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OR = basilysgc_named_symbol("OR", BASILYS_GET); - if (sy_OR && NULL == /*_.VALDATA___V1148*/ curfptr[1147]) - /*_.VALDATA___V1148*/ curfptr[1147] = (void*) sy_OR; } + if (sy_OR && NULL == /*_.VALDATA___V1155*/ curfptr[1154]) + /*_.VALDATA___V1155*/ curfptr[1154] = (void*) sy_OR; } /*getnamedkeyw:WHEN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t kw_WHEN = basilysgc_named_keyword("WHEN", BASILYS_GET); - if (kw_WHEN) /*_.VALDATA___V1152*/ curfptr[1151] = (void*) kw_WHEN; } + if (kw_WHEN) /*_.VALDATA___V1159*/ curfptr[1158] = (void*) kw_WHEN; } /*getnamedsym:MATCH*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MATCH = basilysgc_named_symbol("MATCH", BASILYS_GET); - if (sy_MATCH && NULL == /*_.VALDATA___V1155*/ curfptr[1154]) - /*_.VALDATA___V1155*/ curfptr[1154] = (void*) sy_MATCH; } + if (sy_MATCH && NULL == /*_.VALDATA___V1162*/ curfptr[1161]) + /*_.VALDATA___V1162*/ curfptr[1161] = (void*) sy_MATCH; } /*getnamedsym:CLASS_LET_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_LET_BINDING = basilysgc_named_symbol("CLASS_LET_BINDING", BASILYS_GET); - if (sy_CLASS_LET_BINDING && NULL == /*_.VALDATA___V1164*/ curfptr[1163]) - /*_.VALDATA___V1164*/ curfptr[1163] = (void*) sy_CLASS_LET_BINDING; } + if (sy_CLASS_LET_BINDING && NULL == /*_.VALDATA___V1171*/ curfptr[1170]) + /*_.VALDATA___V1171*/ curfptr[1170] = (void*) sy_CLASS_LET_BINDING; } /*getnamedsym:LET*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LET = basilysgc_named_symbol("LET", BASILYS_GET); - if (sy_LET && NULL == /*_.VALDATA___V1166*/ curfptr[1165]) - /*_.VALDATA___V1166*/ curfptr[1165] = (void*) sy_LET; } + if (sy_LET && NULL == /*_.VALDATA___V1173*/ curfptr[1172]) + /*_.VALDATA___V1173*/ curfptr[1172] = (void*) sy_LET; } /*getnamedsym:LAMBDA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LAMBDA = basilysgc_named_symbol("LAMBDA", BASILYS_GET); - if (sy_LAMBDA && NULL == /*_.VALDATA___V1172*/ curfptr[1171]) - /*_.VALDATA___V1172*/ curfptr[1171] = (void*) sy_LAMBDA; } + if (sy_LAMBDA && NULL == /*_.VALDATA___V1179*/ curfptr[1178]) + /*_.VALDATA___V1179*/ curfptr[1178] = (void*) sy_LAMBDA; } /*getnamedsym:MULTICALL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MULTICALL = basilysgc_named_symbol("MULTICALL", BASILYS_GET); - if (sy_MULTICALL && NULL == /*_.VALDATA___V1178*/ curfptr[1177]) - /*_.VALDATA___V1178*/ curfptr[1177] = (void*) sy_MULTICALL; } + if (sy_MULTICALL && NULL == /*_.VALDATA___V1185*/ curfptr[1184]) + /*_.VALDATA___V1185*/ curfptr[1184] = (void*) sy_MULTICALL; } /*getnamedsym:QUOTE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_QUOTE = basilysgc_named_symbol("QUOTE", BASILYS_GET); - if (sy_QUOTE && NULL == /*_.VALDATA___V1182*/ curfptr[1181]) - /*_.VALDATA___V1182*/ curfptr[1181] = (void*) sy_QUOTE; } + if (sy_QUOTE && NULL == /*_.VALDATA___V1189*/ curfptr[1188]) + /*_.VALDATA___V1189*/ curfptr[1188] = (void*) sy_QUOTE; } /*getnamedsym:COMMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_COMMENT = basilysgc_named_symbol("COMMENT", BASILYS_GET); - if (sy_COMMENT && NULL == /*_.VALDATA___V1186*/ curfptr[1185]) - /*_.VALDATA___V1186*/ curfptr[1185] = (void*) sy_COMMENT; } + if (sy_COMMENT && NULL == /*_.VALDATA___V1193*/ curfptr[1192]) + /*_.VALDATA___V1193*/ curfptr[1192] = (void*) sy_COMMENT; } /*getnamedsym:PROGN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PROGN = basilysgc_named_symbol("PROGN", BASILYS_GET); - if (sy_PROGN && NULL == /*_.VALDATA___V1193*/ curfptr[1192]) - /*_.VALDATA___V1193*/ curfptr[1192] = (void*) sy_PROGN; } + if (sy_PROGN && NULL == /*_.VALDATA___V1200*/ curfptr[1199]) + /*_.VALDATA___V1200*/ curfptr[1199] = (void*) sy_PROGN; } /*getnamedsym:RETURN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_RETURN = basilysgc_named_symbol("RETURN", BASILYS_GET); - if (sy_RETURN && NULL == /*_.VALDATA___V1197*/ curfptr[1196]) - /*_.VALDATA___V1197*/ curfptr[1196] = (void*) sy_RETURN; } + if (sy_RETURN && NULL == /*_.VALDATA___V1204*/ curfptr[1203]) + /*_.VALDATA___V1204*/ curfptr[1203] = (void*) sy_RETURN; } /*getnamedsym:CLASS_LABEL_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_LABEL_BINDING = basilysgc_named_symbol("CLASS_LABEL_BINDING", BASILYS_GET); - if (sy_CLASS_LABEL_BINDING && NULL == /*_.VALDATA___V1202*/ curfptr[1201]) - /*_.VALDATA___V1202*/ curfptr[1201] = (void*) sy_CLASS_LABEL_BINDING; } + if (sy_CLASS_LABEL_BINDING && NULL == /*_.VALDATA___V1209*/ curfptr[1208]) + /*_.VALDATA___V1209*/ curfptr[1208] = (void*) sy_CLASS_LABEL_BINDING; } /*getnamedsym:FOREVER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_FOREVER = basilysgc_named_symbol("FOREVER", BASILYS_GET); - if (sy_FOREVER && NULL == /*_.VALDATA___V1204*/ curfptr[1203]) - /*_.VALDATA___V1204*/ curfptr[1203] = (void*) sy_FOREVER; } + if (sy_FOREVER && NULL == /*_.VALDATA___V1211*/ curfptr[1210]) + /*_.VALDATA___V1211*/ curfptr[1210] = (void*) sy_FOREVER; } /*getnamedsym:EXIT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_EXIT = basilysgc_named_symbol("EXIT", BASILYS_GET); - if (sy_EXIT && NULL == /*_.VALDATA___V1209*/ curfptr[1208]) - /*_.VALDATA___V1209*/ curfptr[1208] = (void*) sy_EXIT; } + if (sy_EXIT && NULL == /*_.VALDATA___V1216*/ curfptr[1215]) + /*_.VALDATA___V1216*/ curfptr[1215] = (void*) sy_EXIT; } /*getnamedsym:COMPILE_WARNING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_COMPILE_WARNING = basilysgc_named_symbol("COMPILE_WARNING", BASILYS_GET); - if (sy_COMPILE_WARNING && NULL == /*_.VALDATA___V1213*/ curfptr[1212]) - /*_.VALDATA___V1213*/ curfptr[1212] = (void*) sy_COMPILE_WARNING; } + if (sy_COMPILE_WARNING && NULL == /*_.VALDATA___V1220*/ curfptr[1219]) + /*_.VALDATA___V1220*/ curfptr[1219] = (void*) sy_COMPILE_WARNING; } /*getnamedsym:ASSERT_FAILED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_ASSERT_FAILED = basilysgc_named_symbol("ASSERT_FAILED", BASILYS_GET); - if (sy_ASSERT_FAILED && NULL == /*_.VALDATA___V1216*/ curfptr[1215]) - /*_.VALDATA___V1216*/ curfptr[1215] = (void*) sy_ASSERT_FAILED; } + if (sy_ASSERT_FAILED && NULL == /*_.VALDATA___V1223*/ curfptr[1222]) + /*_.VALDATA___V1223*/ curfptr[1222] = (void*) sy_ASSERT_FAILED; } /*getnamedsym:FIND_ENV_DEBUG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_FIND_ENV_DEBUG = basilysgc_named_symbol("FIND_ENV_DEBUG", BASILYS_GET); - if (sy_FIND_ENV_DEBUG && NULL == /*_.VALDATA___V1221*/ curfptr[1220]) - /*_.VALDATA___V1221*/ curfptr[1220] = (void*) sy_FIND_ENV_DEBUG; } + if (sy_FIND_ENV_DEBUG && NULL == /*_.VALDATA___V1228*/ curfptr[1227]) + /*_.VALDATA___V1228*/ curfptr[1227] = (void*) sy_FIND_ENV_DEBUG; } /*getnamedsym:ENABLE_CHECKING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_ENABLE_CHECKING = basilysgc_named_symbol("ENABLE_CHECKING", BASILYS_GET); - if (sy_ENABLE_CHECKING && NULL == /*_.VALDATA___V1218*/ curfptr[1217]) - /*_.VALDATA___V1218*/ curfptr[1217] = (void*) sy_ENABLE_CHECKING; } + if (sy_ENABLE_CHECKING && NULL == /*_.VALDATA___V1225*/ curfptr[1224]) + /*_.VALDATA___V1225*/ curfptr[1224] = (void*) sy_ENABLE_CHECKING; } /*getnamedsym:ASSERT_MSG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_ASSERT_MSG = basilysgc_named_symbol("ASSERT_MSG", BASILYS_GET); - if (sy_ASSERT_MSG && NULL == /*_.VALDATA___V1223*/ curfptr[1222]) - /*_.VALDATA___V1223*/ curfptr[1222] = (void*) sy_ASSERT_MSG; } + if (sy_ASSERT_MSG && NULL == /*_.VALDATA___V1230*/ curfptr[1229]) + /*_.VALDATA___V1230*/ curfptr[1229] = (void*) sy_ASSERT_MSG; } /*getnamedsym:THE_CALLCOUNT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_THE_CALLCOUNT = basilysgc_named_symbol("THE_CALLCOUNT", BASILYS_GET); - if (sy_THE_CALLCOUNT && NULL == /*_.VALDATA___V1226*/ curfptr[1225]) - /*_.VALDATA___V1226*/ curfptr[1225] = (void*) sy_THE_CALLCOUNT; } + if (sy_THE_CALLCOUNT && NULL == /*_.VALDATA___V1233*/ curfptr[1232]) + /*_.VALDATA___V1233*/ curfptr[1232] = (void*) sy_THE_CALLCOUNT; } /*getnamedsym:DEBUG_MSG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DEBUG_MSG = basilysgc_named_symbol("DEBUG_MSG", BASILYS_GET); - if (sy_DEBUG_MSG && NULL == /*_.VALDATA___V1229*/ curfptr[1228]) - /*_.VALDATA___V1229*/ curfptr[1228] = (void*) sy_DEBUG_MSG; } + if (sy_DEBUG_MSG && NULL == /*_.VALDATA___V1236*/ curfptr[1235]) + /*_.VALDATA___V1236*/ curfptr[1235] = (void*) sy_DEBUG_MSG; } /*getnamedsym:DEBUGMSG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DEBUGMSG = basilysgc_named_symbol("DEBUGMSG", BASILYS_GET); - if (sy_DEBUGMSG && NULL == /*_.VALDATA___V1234*/ curfptr[1233]) - /*_.VALDATA___V1234*/ curfptr[1233] = (void*) sy_DEBUGMSG; } + if (sy_DEBUGMSG && NULL == /*_.VALDATA___V1241*/ curfptr[1240]) + /*_.VALDATA___V1241*/ curfptr[1240] = (void*) sy_DEBUGMSG; } /*getnamedsym:EXPORT_VALUES*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_EXPORT_VALUES = basilysgc_named_symbol("EXPORT_VALUES", BASILYS_GET); - if (sy_EXPORT_VALUES && NULL == /*_.VALDATA___V1236*/ curfptr[1235]) - /*_.VALDATA___V1236*/ curfptr[1235] = (void*) sy_EXPORT_VALUES; } + if (sy_EXPORT_VALUES && NULL == /*_.VALDATA___V1243*/ curfptr[1242]) + /*_.VALDATA___V1243*/ curfptr[1242] = (void*) sy_EXPORT_VALUES; } /*getnamedsym:EXPORT_MACRO*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_EXPORT_MACRO = basilysgc_named_symbol("EXPORT_MACRO", BASILYS_GET); - if (sy_EXPORT_MACRO && NULL == /*_.VALDATA___V1240*/ curfptr[1239]) - /*_.VALDATA___V1240*/ curfptr[1239] = (void*) sy_EXPORT_MACRO; } + if (sy_EXPORT_MACRO && NULL == /*_.VALDATA___V1247*/ curfptr[1246]) + /*_.VALDATA___V1247*/ curfptr[1246] = (void*) sy_EXPORT_MACRO; } /*getnamedsym:EXPORT_PATMACRO*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_EXPORT_PATMACRO = basilysgc_named_symbol("EXPORT_PATMACRO", BASILYS_GET); - if (sy_EXPORT_PATMACRO && NULL == /*_.VALDATA___V1244*/ curfptr[1243]) - /*_.VALDATA___V1244*/ curfptr[1243] = (void*) sy_EXPORT_PATMACRO; } + if (sy_EXPORT_PATMACRO && NULL == /*_.VALDATA___V1251*/ curfptr[1250]) + /*_.VALDATA___V1251*/ curfptr[1250] = (void*) sy_EXPORT_PATMACRO; } /*getnamedsym:EXPORT_CLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_EXPORT_CLASS = basilysgc_named_symbol("EXPORT_CLASS", BASILYS_GET); - if (sy_EXPORT_CLASS && NULL == /*_.VALDATA___V1249*/ curfptr[1248]) - /*_.VALDATA___V1249*/ curfptr[1248] = (void*) sy_EXPORT_CLASS; } + if (sy_EXPORT_CLASS && NULL == /*_.VALDATA___V1256*/ curfptr[1255]) + /*_.VALDATA___V1256*/ curfptr[1255] = (void*) sy_EXPORT_CLASS; } /*getnamedsym:CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CURRENT_MODULE_ENVIRONMENT_CONTAINER = basilysgc_named_symbol("CURRENT_MODULE_ENVIRONMENT_CONTAINER", BASILYS_GET); - if (sy_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1253*/ curfptr[1252]) - /*_.VALDATA___V1253*/ curfptr[1252] = (void*) sy_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } + if (sy_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1260*/ curfptr[1259]) + /*_.VALDATA___V1260*/ curfptr[1259] = (void*) sy_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*getnamedsym:PARENT_MODULE_ENVIRONMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PARENT_MODULE_ENVIRONMENT = basilysgc_named_symbol("PARENT_MODULE_ENVIRONMENT", BASILYS_GET); - if (sy_PARENT_MODULE_ENVIRONMENT && NULL == /*_.VALDATA___V1257*/ curfptr[1256]) - /*_.VALDATA___V1257*/ curfptr[1256] = (void*) sy_PARENT_MODULE_ENVIRONMENT; } + if (sy_PARENT_MODULE_ENVIRONMENT && NULL == /*_.VALDATA___V1264*/ curfptr[1263]) + /*_.VALDATA___V1264*/ curfptr[1263] = (void*) sy_PARENT_MODULE_ENVIRONMENT; } /*getnamedsym:UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = basilysgc_named_symbol("UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", BASILYS_GET); - if (sy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1261*/ curfptr[1260]) - /*_.VALDATA___V1261*/ curfptr[1260] = (void*) sy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } + if (sy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1268*/ curfptr[1267]) + /*_.VALDATA___V1268*/ curfptr[1267] = (void*) sy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*getnamedsym:FETCH_PREDEFINED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_FETCH_PREDEFINED = basilysgc_named_symbol("FETCH_PREDEFINED", BASILYS_GET); - if (sy_FETCH_PREDEFINED && NULL == /*_.VALDATA___V1265*/ curfptr[1264]) - /*_.VALDATA___V1265*/ curfptr[1264] = (void*) sy_FETCH_PREDEFINED; } + if (sy_FETCH_PREDEFINED && NULL == /*_.VALDATA___V1272*/ curfptr[1271]) + /*_.VALDATA___V1272*/ curfptr[1271] = (void*) sy_FETCH_PREDEFINED; } /*getnamedsym:STORE_PREDEFINED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_STORE_PREDEFINED = basilysgc_named_symbol("STORE_PREDEFINED", BASILYS_GET); - if (sy_STORE_PREDEFINED && NULL == /*_.VALDATA___V1269*/ curfptr[1268]) - /*_.VALDATA___V1269*/ curfptr[1268] = (void*) sy_STORE_PREDEFINED; } + if (sy_STORE_PREDEFINED && NULL == /*_.VALDATA___V1276*/ curfptr[1275]) + /*_.VALDATA___V1276*/ curfptr[1275] = (void*) sy_STORE_PREDEFINED; } /*getnamedsym:EXPAND_APPLY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_EXPAND_APPLY = basilysgc_named_symbol("EXPAND_APPLY", BASILYS_GET); - if (sy_EXPAND_APPLY && NULL == /*_.VALDATA___V1271*/ curfptr[1270]) - /*_.VALDATA___V1271*/ curfptr[1270] = (void*) sy_EXPAND_APPLY; } + if (sy_EXPAND_APPLY && NULL == /*_.VALDATA___V1278*/ curfptr[1277]) + /*_.VALDATA___V1278*/ curfptr[1277] = (void*) sy_EXPAND_APPLY; } /*getnamedsym:EXPAND_MSEND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_EXPAND_MSEND = basilysgc_named_symbol("EXPAND_MSEND", BASILYS_GET); - if (sy_EXPAND_MSEND && NULL == /*_.VALDATA___V1273*/ curfptr[1272]) - /*_.VALDATA___V1273*/ curfptr[1272] = (void*) sy_EXPAND_MSEND; } + if (sy_EXPAND_MSEND && NULL == /*_.VALDATA___V1280*/ curfptr[1279]) + /*_.VALDATA___V1280*/ curfptr[1279] = (void*) sy_EXPAND_MSEND; } /*getnamedsym:EXPAND_PAIRLIST_AS_TUPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_EXPAND_PAIRLIST_AS_TUPLE = basilysgc_named_symbol("EXPAND_PAIRLIST_AS_TUPLE", BASILYS_GET); - if (sy_EXPAND_PAIRLIST_AS_TUPLE && NULL == /*_.VALDATA___V1275*/ curfptr[1274]) - /*_.VALDATA___V1275*/ curfptr[1274] = (void*) sy_EXPAND_PAIRLIST_AS_TUPLE; } + if (sy_EXPAND_PAIRLIST_AS_TUPLE && NULL == /*_.VALDATA___V1282*/ curfptr[1281]) + /*_.VALDATA___V1282*/ curfptr[1281] = (void*) sy_EXPAND_PAIRLIST_AS_TUPLE; } /*getnamedsym:EXPAND_PRIMITIVE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_EXPAND_PRIMITIVE = basilysgc_named_symbol("EXPAND_PRIMITIVE", BASILYS_GET); - if (sy_EXPAND_PRIMITIVE && NULL == /*_.VALDATA___V1277*/ curfptr[1276]) - /*_.VALDATA___V1277*/ curfptr[1276] = (void*) sy_EXPAND_PRIMITIVE; } + if (sy_EXPAND_PRIMITIVE && NULL == /*_.VALDATA___V1284*/ curfptr[1283]) + /*_.VALDATA___V1284*/ curfptr[1283] = (void*) sy_EXPAND_PRIMITIVE; } /*getnamedsym:INSTALL_INITIAL_MACRO*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_INSTALL_INITIAL_MACRO = basilysgc_named_symbol("INSTALL_INITIAL_MACRO", BASILYS_GET); - if (sy_INSTALL_INITIAL_MACRO && NULL == /*_.VALDATA___V1279*/ curfptr[1278]) - /*_.VALDATA___V1279*/ curfptr[1278] = (void*) sy_INSTALL_INITIAL_MACRO; } + if (sy_INSTALL_INITIAL_MACRO && NULL == /*_.VALDATA___V1286*/ curfptr[1285]) + /*_.VALDATA___V1286*/ curfptr[1285] = (void*) sy_INSTALL_INITIAL_MACRO; } /*getnamedsym:LAMBDA_ARG_BINDINGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LAMBDA_ARG_BINDINGS = basilysgc_named_symbol("LAMBDA_ARG_BINDINGS", BASILYS_GET); - if (sy_LAMBDA_ARG_BINDINGS && NULL == /*_.VALDATA___V1281*/ curfptr[1280]) - /*_.VALDATA___V1281*/ curfptr[1280] = (void*) sy_LAMBDA_ARG_BINDINGS; } + if (sy_LAMBDA_ARG_BINDINGS && NULL == /*_.VALDATA___V1288*/ curfptr[1287]) + /*_.VALDATA___V1288*/ curfptr[1287] = (void*) sy_LAMBDA_ARG_BINDINGS; } /*getnamedsym:MACROEXPAND_1*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MACROEXPAND_1 = basilysgc_named_symbol("MACROEXPAND_1", BASILYS_GET); - if (sy_MACROEXPAND_1 && NULL == /*_.VALDATA___V1283*/ curfptr[1282]) - /*_.VALDATA___V1283*/ curfptr[1282] = (void*) sy_MACROEXPAND_1; } + if (sy_MACROEXPAND_1 && NULL == /*_.VALDATA___V1290*/ curfptr[1289]) + /*_.VALDATA___V1290*/ curfptr[1289] = (void*) sy_MACROEXPAND_1; } /*getnamedsym:MACROEXPAND_TOPLEVEL_LIST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MACROEXPAND_TOPLEVEL_LIST = basilysgc_named_symbol("MACROEXPAND_TOPLEVEL_LIST", BASILYS_GET); - if (sy_MACROEXPAND_TOPLEVEL_LIST && NULL == /*_.VALDATA___V1285*/ curfptr[1284]) - /*_.VALDATA___V1285*/ curfptr[1284] = (void*) sy_MACROEXPAND_TOPLEVEL_LIST; } + if (sy_MACROEXPAND_TOPLEVEL_LIST && NULL == /*_.VALDATA___V1292*/ curfptr[1291]) + /*_.VALDATA___V1292*/ curfptr[1291] = (void*) sy_MACROEXPAND_TOPLEVEL_LIST; } /*getnamedsym:PATTERNEXPAND_1*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PATTERNEXPAND_1 = basilysgc_named_symbol("PATTERNEXPAND_1", BASILYS_GET); - if (sy_PATTERNEXPAND_1 && NULL == /*_.VALDATA___V1287*/ curfptr[1286]) - /*_.VALDATA___V1287*/ curfptr[1286] = (void*) sy_PATTERNEXPAND_1; } + if (sy_PATTERNEXPAND_1 && NULL == /*_.VALDATA___V1294*/ curfptr[1293]) + /*_.VALDATA___V1294*/ curfptr[1293] = (void*) sy_PATTERNEXPAND_1; } /*getnamedsym:PATTERNEXPAND_EXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PATTERNEXPAND_EXPR = basilysgc_named_symbol("PATTERNEXPAND_EXPR", BASILYS_GET); - if (sy_PATTERNEXPAND_EXPR && NULL == /*_.VALDATA___V1289*/ curfptr[1288]) - /*_.VALDATA___V1289*/ curfptr[1288] = (void*) sy_PATTERNEXPAND_EXPR; } + if (sy_PATTERNEXPAND_EXPR && NULL == /*_.VALDATA___V1296*/ curfptr[1295]) + /*_.VALDATA___V1296*/ curfptr[1295] = (void*) sy_PATTERNEXPAND_EXPR; } /*getnamedsym:PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PATTERNEXPAND_PAIRLIST_AS_TUPLE = basilysgc_named_symbol("PATTERNEXPAND_PAIRLIST_AS_TUPLE", BASILYS_GET); - if (sy_PATTERNEXPAND_PAIRLIST_AS_TUPLE && NULL == /*_.VALDATA___V1291*/ curfptr[1290]) - /*_.VALDATA___V1291*/ curfptr[1290] = (void*) sy_PATTERNEXPAND_PAIRLIST_AS_TUPLE; } + if (sy_PATTERNEXPAND_PAIRLIST_AS_TUPLE && NULL == /*_.VALDATA___V1298*/ curfptr[1297]) + /*_.VALDATA___V1298*/ curfptr[1297] = (void*) sy_PATTERNEXPAND_PAIRLIST_AS_TUPLE; } /**COMMENT: get the value importer **/; @@ -53761,385 +55358,392 @@ initial_frame_st curfram__; union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_SRC__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V64*/ curfptr[63]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_SRC__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V65*/ curfptr[64]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_SEXPR__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V852*/ curfptr[851]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_SEXPR__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V853*/ curfptr[852]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_ENVIRONMENT__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V878*/ curfptr[877]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_ENVIRONMENT__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V879*/ curfptr[878]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.DISCR_MULTIPLE__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V880*/ curfptr[879]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.DISCR_MULTIPLE__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V881*/ curfptr[880]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_SYMBOL__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V882*/ curfptr[881]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_SYMBOL__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V883*/ curfptr[882]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V884*/ curfptr[883]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V885*/ curfptr[884]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_CITERATOR__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V886*/ curfptr[885]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_CITERATOR__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_CMATCHER__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V888*/ curfptr[887]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_CMATCHER__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V889*/ curfptr[888]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.FIND_ENV__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.FIND_ENV__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V891*/ curfptr[890]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_MACRO_BINDING__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V892*/ curfptr[891]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_MACRO_BINDING__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V893*/ curfptr[892]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_SELECTOR_BINDING__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V894*/ curfptr[893]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_SELECTOR_BINDING__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V895*/ curfptr[894]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_PRIMITIVE_BINDING__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V896*/ curfptr[895]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_PRIMITIVE_BINDING__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V897*/ curfptr[896]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_CITERATOR_BINDING__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V898*/ curfptr[897]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_CITERATOR_BINDING__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V899*/ curfptr[898]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_CMATCHER_BINDING__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V900*/ curfptr[899]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_CMATCHER_BINDING__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V901*/ curfptr[900]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_FUNMATCHER_BINDING__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V902*/ curfptr[901]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_FUNMATCHER_BINDING__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V903*/ curfptr[902]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_VALUE_BINDING__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_VALUE_BINDING__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V905*/ curfptr[904]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_PRIMITIVE__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V906*/ curfptr[905]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_PRIMITIVE__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_SELECTOR__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V908*/ curfptr[907]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_SELECTOR__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V909*/ curfptr[908]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_FUNMATCHER__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V910*/ curfptr[909]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_FUNMATCHER__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_KEYWORD__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V912*/ curfptr[911]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_KEYWORD__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_ROOT__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_ROOT__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V917*/ curfptr[916]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V949*/ curfptr[948]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V950*/ curfptr[949]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_ANY_MATCHER__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V951*/ curfptr[950]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_ANY_MATCHER__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V952*/ curfptr[951]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.DISCR_BOX__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.DISCR_BOX__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V954*/ curfptr[953]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.MULTIPLE_MAP__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V955*/ curfptr[954]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.MULTIPLE_MAP__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V957*/ curfptr[956]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V958*/ curfptr[957]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_NAMED__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V959*/ curfptr[958]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_NAMED__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V960*/ curfptr[959]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_PATMACRO_BINDING__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V961*/ curfptr[960]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_PATMACRO_BINDING__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V962*/ curfptr[961]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.LIST_MAP__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V966*/ curfptr[965]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.LIST_MAP__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V967*/ curfptr[966]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CTYPE_VALUE__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V968*/ curfptr[967]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CTYPE_VALUE__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V969*/ curfptr[968]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.DISCR_MAPOBJECTS__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V970*/ curfptr[969]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.DISCR_MAPOBJECTS__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V971*/ curfptr[970]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.DISCR_LIST__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.DISCR_LIST__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V973*/ curfptr[972]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_CTYPE__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V974*/ curfptr[973]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_CTYPE__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V975*/ curfptr[974]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.PUT_ENV__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V978*/ curfptr[977]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.PUT_ENV__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V979*/ curfptr[978]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.INITIAL_ENVIRONMENT__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V980*/ curfptr[979]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.INITIAL_ENVIRONMENT__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.DISCR_STRING__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.DISCR_VERBATIMSTRING__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V996*/ curfptr[995]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.DISCR_VERBATIMSTRING__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V997*/ curfptr[996]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_LOCATED__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V998*/ curfptr[997]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.MULTIPLE_EVERY__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.LIST_TO_MULTIPLE__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.FRESH_ENV__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1022*/ curfptr[1021]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_ANY_BINDING__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1008*/ curfptr[1007]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_FUNCTION_BINDING__V46*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.MULTIPLE_EVERY__V46*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_CLASS_BINDING__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.FRESH_ENV__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_CLASS__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_FUNCTION_BINDING__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1033*/ curfptr[1032]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.DISCR_SEQCLASS__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_CLASS_BINDING__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1045*/ curfptr[1044]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.DISCR_INTEGER__V50*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1046*/ curfptr[1045]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_CLASS__V50*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1047*/ curfptr[1046]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.DISCR_MAPSTRINGS__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.DISCR_SEQCLASS__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1053*/ curfptr[1052]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.DISCR_SEQFIELD__V52*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.DISCR_INTEGER__V52*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1055*/ curfptr[1054]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_FIELD__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.DISCR_MAPSTRINGS__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1057*/ curfptr[1056]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_FIELD_BINDING__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1054*/ curfptr[1053]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.DISCR_SEQFIELD__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.MULTIPLE_ITERATE_TEST__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_FIELD__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.LIST_TO_MULTIPLE__V56*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_FIELD_BINDING__V56*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1063*/ curfptr[1062]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_INSTANCE_BINDING__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.MULTIPLE_ITERATE_TEST__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_LET_BINDING__V58*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1164*/ curfptr[1163]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_INSTANCE_BINDING__V58*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1074*/ curfptr[1073]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.CLASS_LABEL_BINDING__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1202*/ curfptr[1201]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_LET_BINDING__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1171*/ curfptr[1170]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.FIND_ENV_DEBUG__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1221*/ curfptr[1220]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.CLASS_LABEL_BINDING__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1209*/ curfptr[1208]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; - /*_.DEBUGMSG__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.FIND_ENV_DEBUG__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + } + + /*apply*/{ + union basilysparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; + /*_.DEBUGMSG__V62*/ curfptr[61] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1241*/ curfptr[1240]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /**COMMENT: after getting imported values **/; @@ -54152,14240 +55756,14399 @@ initial_frame_st curfram__; /**COMMENT: start of oinibody **/; /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V62*/ curfptr[61])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V62*/ curfptr[61])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V62*/ curfptr[61]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V63*/ curfptr[62]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V63*/ curfptr[62])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V63*/ curfptr[62])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V63*/ curfptr[62]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V64*/ curfptr[63]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V62*/ curfptr[61]); + basilysgc_touch(/*_.VALDATA___V63*/ curfptr[62]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V64*/ curfptr[63])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V64*/ curfptr[63])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V64*/ curfptr[63]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V65*/ curfptr[64]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V65*/ curfptr[64])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V65*/ curfptr[64])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V65*/ curfptr[64]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V66*/ curfptr[65]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V64*/ curfptr[63]); + basilysgc_touch(/*_.VALDATA___V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-macro.bysl:39:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V66*/ curfptr[65])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V66*/ curfptr[65])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V66*/ curfptr[65]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V67*/ curfptr[66]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V67*/ curfptr[66])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V67*/ curfptr[66])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V67*/ curfptr[66]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V68*/ curfptr[67]); BASILYS_LOCATION("warmelt-macro.bysl:39:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V66*/ curfptr[65])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V66*/ curfptr[65])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V66*/ curfptr[65]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V67*/ curfptr[66])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V67*/ curfptr[66])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V67*/ curfptr[66]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V68*/ curfptr[67]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V68*/ curfptr[67])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V68*/ curfptr[67]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V69*/ curfptr[68]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V69*/ curfptr[68])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V69*/ curfptr[68]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V68*/ curfptr[67]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V68*/ curfptr[67])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V68*/ curfptr[67]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V69*/ curfptr[68]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V69*/ curfptr[68])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V69*/ curfptr[68]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V68*/ curfptr[67]); + basilysgc_touch(/*_.VALTUP___V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-macro.bysl:39:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V66*/ curfptr[65])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V66*/ curfptr[65])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V66*/ curfptr[65]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V68*/ curfptr[67]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V67*/ curfptr[66])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V67*/ curfptr[66])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V67*/ curfptr[66]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-macro.bysl:39:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V69*/ curfptr[68])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V69*/ curfptr[68])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V69*/ curfptr[68]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V70*/ curfptr[69]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V70*/ curfptr[69])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V70*/ curfptr[69])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V70*/ curfptr[69]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V71*/ curfptr[70]); BASILYS_LOCATION("warmelt-macro.bysl:39:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V69*/ curfptr[68])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V69*/ curfptr[68])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V69*/ curfptr[68]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V66*/ curfptr[65]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V70*/ curfptr[69])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V70*/ curfptr[69])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V70*/ curfptr[69]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V67*/ curfptr[66]); BASILYS_LOCATION("warmelt-macro.bysl:39:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V69*/ curfptr[68]); + basilysgc_touch(/*_.VALDATA___V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-macro.bysl:39:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V71*/ curfptr[70])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V71*/ curfptr[70])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V71*/ curfptr[70]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V72*/ curfptr[71]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V72*/ curfptr[71])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V72*/ curfptr[71])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V72*/ curfptr[71]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V73*/ curfptr[72]); BASILYS_LOCATION("warmelt-macro.bysl:39:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V71*/ curfptr[70])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V71*/ curfptr[70])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V71*/ curfptr[70]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V66*/ curfptr[65]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V72*/ curfptr[71])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V72*/ curfptr[71])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V72*/ curfptr[71]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V67*/ curfptr[66]); BASILYS_LOCATION("warmelt-macro.bysl:39:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V71*/ curfptr[70]); + basilysgc_touch(/*_.VALDATA___V72*/ curfptr[71]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V73*/ curfptr[72]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V73*/ curfptr[72])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V73*/ curfptr[72]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V74*/ curfptr[73]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V74*/ curfptr[73])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V74*/ curfptr[73]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V73*/ curfptr[72]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V73*/ curfptr[72])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V73*/ curfptr[72]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V69*/ curfptr[68]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V74*/ curfptr[73]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V74*/ curfptr[73])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V74*/ curfptr[73]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V70*/ curfptr[69]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V73*/ curfptr[72]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V73*/ curfptr[72])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V73*/ curfptr[72]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V71*/ curfptr[70]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V74*/ curfptr[73]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V74*/ curfptr[73])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V74*/ curfptr[73]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V72*/ curfptr[71]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V73*/ curfptr[72]); + basilysgc_touch(/*_.VALTUP___V74*/ curfptr[73]); BASILYS_LOCATION("warmelt-macro.bysl:39:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V66*/ curfptr[65])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V66*/ curfptr[65])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V66*/ curfptr[65]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V73*/ curfptr[72]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V67*/ curfptr[66])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V67*/ curfptr[66])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V67*/ curfptr[66]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V74*/ curfptr[73]); BASILYS_LOCATION("warmelt-macro.bysl:39:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V66*/ curfptr[65]); + basilysgc_touch(/*_.VALDATA___V67*/ curfptr[66]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V74*/ curfptr[73])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V74*/ curfptr[73])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V74*/ curfptr[73]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V75*/ curfptr[74]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V75*/ curfptr[74])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V75*/ curfptr[74])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V75*/ curfptr[74]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V76*/ curfptr[75]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V74*/ curfptr[73]); + basilysgc_touch(/*_.VALDATA___V75*/ curfptr[74]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V76*/ curfptr[75])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V76*/ curfptr[75])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V76*/ curfptr[75]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V77*/ curfptr[76]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V77*/ curfptr[76])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V77*/ curfptr[76])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V77*/ curfptr[76]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V78*/ curfptr[77]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V76*/ curfptr[75]); + basilysgc_touch(/*_.VALDATA___V77*/ curfptr[76]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V78*/ curfptr[77])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V78*/ curfptr[77])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V78*/ curfptr[77]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V79*/ curfptr[78]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V79*/ curfptr[78])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V79*/ curfptr[78])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V79*/ curfptr[78]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V80*/ curfptr[79]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V78*/ curfptr[77]); + basilysgc_touch(/*_.VALDATA___V79*/ curfptr[78]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V80*/ curfptr[79])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V80*/ curfptr[79])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V80*/ curfptr[79]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V81*/ curfptr[80]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V81*/ curfptr[80])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V81*/ curfptr[80])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V81*/ curfptr[80]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V82*/ curfptr[81]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V80*/ curfptr[79])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V80*/ curfptr[79])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V80*/ curfptr[79]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V81*/ curfptr[80])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V81*/ curfptr[80])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V81*/ curfptr[80]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V82*/ curfptr[81]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V82*/ curfptr[81])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V82*/ curfptr[81]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V83*/ curfptr[82]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V83*/ curfptr[82])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V83*/ curfptr[82]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V82*/ curfptr[81]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V82*/ curfptr[81])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V82*/ curfptr[81]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V83*/ curfptr[82]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V83*/ curfptr[82])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V83*/ curfptr[82]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V82*/ curfptr[81]); + basilysgc_touch(/*_.VALTUP___V83*/ curfptr[82]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V80*/ curfptr[79])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V80*/ curfptr[79])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V80*/ curfptr[79]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V82*/ curfptr[81]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V81*/ curfptr[80])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V81*/ curfptr[80])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V81*/ curfptr[80]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V83*/ curfptr[82]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V83*/ curfptr[82])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V83*/ curfptr[82])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V83*/ curfptr[82]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V84*/ curfptr[83]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V84*/ curfptr[83])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V84*/ curfptr[83])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V84*/ curfptr[83]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V85*/ curfptr[84]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V83*/ curfptr[82])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V83*/ curfptr[82])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V83*/ curfptr[82]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V80*/ curfptr[79]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V84*/ curfptr[83])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V84*/ curfptr[83])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V84*/ curfptr[83]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V83*/ curfptr[82]); + basilysgc_touch(/*_.VALDATA___V84*/ curfptr[83]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V85*/ curfptr[84])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V85*/ curfptr[84])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V85*/ curfptr[84]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V86*/ curfptr[85]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V86*/ curfptr[85])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V86*/ curfptr[85])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V86*/ curfptr[85]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V87*/ curfptr[86]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V85*/ curfptr[84])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V85*/ curfptr[84])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V85*/ curfptr[84]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V80*/ curfptr[79]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V86*/ curfptr[85])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V86*/ curfptr[85])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V86*/ curfptr[85]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V85*/ curfptr[84]); + basilysgc_touch(/*_.VALDATA___V86*/ curfptr[85]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V87*/ curfptr[86])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V87*/ curfptr[86])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V87*/ curfptr[86]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V88*/ curfptr[87]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V88*/ curfptr[87])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V88*/ curfptr[87])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V88*/ curfptr[87]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V89*/ curfptr[88]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V87*/ curfptr[86])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V87*/ curfptr[86])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V87*/ curfptr[86]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V80*/ curfptr[79]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V88*/ curfptr[87])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V88*/ curfptr[87])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V88*/ curfptr[87]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V87*/ curfptr[86]); + basilysgc_touch(/*_.VALDATA___V88*/ curfptr[87]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V89*/ curfptr[88]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V89*/ curfptr[88])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V89*/ curfptr[88]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V90*/ curfptr[89]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V90*/ curfptr[89])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V90*/ curfptr[89]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V89*/ curfptr[88]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V89*/ curfptr[88])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V89*/ curfptr[88]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V83*/ curfptr[82]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V90*/ curfptr[89]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V90*/ curfptr[89])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V90*/ curfptr[89]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V84*/ curfptr[83]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V89*/ curfptr[88]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V89*/ curfptr[88])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V89*/ curfptr[88]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V85*/ curfptr[84]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V90*/ curfptr[89]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V90*/ curfptr[89])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V90*/ curfptr[89]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V86*/ curfptr[85]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V89*/ curfptr[88]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V89*/ curfptr[88])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V89*/ curfptr[88]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V87*/ curfptr[86]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V90*/ curfptr[89]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V90*/ curfptr[89])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V90*/ curfptr[89]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V88*/ curfptr[87]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V89*/ curfptr[88]); + basilysgc_touch(/*_.VALTUP___V90*/ curfptr[89]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V80*/ curfptr[79])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V80*/ curfptr[79])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V80*/ curfptr[79]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V89*/ curfptr[88]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V81*/ curfptr[80])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V81*/ curfptr[80])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V81*/ curfptr[80]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V90*/ curfptr[89]); BASILYS_LOCATION("warmelt-macro.bysl:47:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V80*/ curfptr[79]); + basilysgc_touch(/*_.VALDATA___V81*/ curfptr[80]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V90*/ curfptr[89])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V90*/ curfptr[89])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V90*/ curfptr[89]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V91*/ curfptr[90]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V91*/ curfptr[90])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V91*/ curfptr[90])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V91*/ curfptr[90]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V92*/ curfptr[91]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V90*/ curfptr[89]); + basilysgc_touch(/*_.VALDATA___V91*/ curfptr[90]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V92*/ curfptr[91])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V92*/ curfptr[91])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V92*/ curfptr[91]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V93*/ curfptr[92]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V93*/ curfptr[92])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V93*/ curfptr[92])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V93*/ curfptr[92]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V94*/ curfptr[93]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V92*/ curfptr[91]); + basilysgc_touch(/*_.VALDATA___V93*/ curfptr[92]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V94*/ curfptr[93])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V94*/ curfptr[93])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V94*/ curfptr[93]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V95*/ curfptr[94]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V95*/ curfptr[94])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V95*/ curfptr[94])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V95*/ curfptr[94]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V96*/ curfptr[95]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V94*/ curfptr[93]); + basilysgc_touch(/*_.VALDATA___V95*/ curfptr[94]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V96*/ curfptr[95])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V96*/ curfptr[95])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V96*/ curfptr[95]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V97*/ curfptr[96]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V97*/ curfptr[96])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V97*/ curfptr[96])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V97*/ curfptr[96]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V98*/ curfptr[97]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V96*/ curfptr[95]); + basilysgc_touch(/*_.VALDATA___V97*/ curfptr[96]); BASILYS_LOCATION("warmelt-macro.bysl:56:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V98*/ curfptr[97])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V98*/ curfptr[97])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V98*/ curfptr[97]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V99*/ curfptr[98]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V99*/ curfptr[98])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V99*/ curfptr[98])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V99*/ curfptr[98]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V100*/ curfptr[99]); BASILYS_LOCATION("warmelt-macro.bysl:56:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V98*/ curfptr[97])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V98*/ curfptr[97])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V98*/ curfptr[97]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V99*/ curfptr[98])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V99*/ curfptr[98])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V99*/ curfptr[98]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V100*/ curfptr[99]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V100*/ curfptr[99])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V100*/ curfptr[99]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V101*/ curfptr[100]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V101*/ curfptr[100])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V101*/ curfptr[100]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V100*/ curfptr[99]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V100*/ curfptr[99])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V100*/ curfptr[99]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V101*/ curfptr[100]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V101*/ curfptr[100])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V101*/ curfptr[100]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V100*/ curfptr[99]); + basilysgc_touch(/*_.VALTUP___V101*/ curfptr[100]); BASILYS_LOCATION("warmelt-macro.bysl:56:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V98*/ curfptr[97])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V98*/ curfptr[97])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V98*/ curfptr[97]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V100*/ curfptr[99]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V99*/ curfptr[98])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V99*/ curfptr[98])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V99*/ curfptr[98]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V101*/ curfptr[100]); BASILYS_LOCATION("warmelt-macro.bysl:56:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V101*/ curfptr[100])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V101*/ curfptr[100])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V101*/ curfptr[100]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V102*/ curfptr[101]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V102*/ curfptr[101])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V102*/ curfptr[101])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V102*/ curfptr[101]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V103*/ curfptr[102]); BASILYS_LOCATION("warmelt-macro.bysl:56:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V101*/ curfptr[100])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V101*/ curfptr[100])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V101*/ curfptr[100]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V98*/ curfptr[97]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V102*/ curfptr[101])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V102*/ curfptr[101])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V102*/ curfptr[101]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V99*/ curfptr[98]); BASILYS_LOCATION("warmelt-macro.bysl:56:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V101*/ curfptr[100]); + basilysgc_touch(/*_.VALDATA___V102*/ curfptr[101]); BASILYS_LOCATION("warmelt-macro.bysl:56:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V103*/ curfptr[102])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V103*/ curfptr[102])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V103*/ curfptr[102]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V104*/ curfptr[103]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V104*/ curfptr[103])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V104*/ curfptr[103])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V104*/ curfptr[103]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V105*/ curfptr[104]); BASILYS_LOCATION("warmelt-macro.bysl:56:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V103*/ curfptr[102])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V103*/ curfptr[102])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V103*/ curfptr[102]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V98*/ curfptr[97]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V104*/ curfptr[103])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V104*/ curfptr[103])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V104*/ curfptr[103]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V99*/ curfptr[98]); BASILYS_LOCATION("warmelt-macro.bysl:56:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V103*/ curfptr[102]); + basilysgc_touch(/*_.VALDATA___V104*/ curfptr[103]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V105*/ curfptr[104]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V105*/ curfptr[104])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V105*/ curfptr[104]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V106*/ curfptr[105]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V106*/ curfptr[105])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V106*/ curfptr[105]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V105*/ curfptr[104]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V105*/ curfptr[104])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V105*/ curfptr[104]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V101*/ curfptr[100]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V106*/ curfptr[105]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V106*/ curfptr[105])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V106*/ curfptr[105]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V102*/ curfptr[101]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V105*/ curfptr[104]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V105*/ curfptr[104])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V105*/ curfptr[104]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V103*/ curfptr[102]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V106*/ curfptr[105]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V106*/ curfptr[105])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V106*/ curfptr[105]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V104*/ curfptr[103]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V105*/ curfptr[104]); + basilysgc_touch(/*_.VALTUP___V106*/ curfptr[105]); BASILYS_LOCATION("warmelt-macro.bysl:56:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V98*/ curfptr[97])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V98*/ curfptr[97])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V98*/ curfptr[97]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V105*/ curfptr[104]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V99*/ curfptr[98])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V99*/ curfptr[98])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V99*/ curfptr[98]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V106*/ curfptr[105]); BASILYS_LOCATION("warmelt-macro.bysl:56:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V98*/ curfptr[97]); + basilysgc_touch(/*_.VALDATA___V99*/ curfptr[98]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V106*/ curfptr[105])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V106*/ curfptr[105])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V106*/ curfptr[105]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V107*/ curfptr[106]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V107*/ curfptr[106])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V107*/ curfptr[106])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V107*/ curfptr[106]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V108*/ curfptr[107]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V106*/ curfptr[105]); + basilysgc_touch(/*_.VALDATA___V107*/ curfptr[106]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V108*/ curfptr[107])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V108*/ curfptr[107])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V108*/ curfptr[107]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V109*/ curfptr[108]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V109*/ curfptr[108])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V109*/ curfptr[108])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V109*/ curfptr[108]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V110*/ curfptr[109]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V108*/ curfptr[107]); + basilysgc_touch(/*_.VALDATA___V109*/ curfptr[108]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V110*/ curfptr[109])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V110*/ curfptr[109])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V110*/ curfptr[109]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V111*/ curfptr[110]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V111*/ curfptr[110])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V111*/ curfptr[110])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V111*/ curfptr[110]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V112*/ curfptr[111]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V110*/ curfptr[109]); + basilysgc_touch(/*_.VALDATA___V111*/ curfptr[110]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V112*/ curfptr[111])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V112*/ curfptr[111])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V112*/ curfptr[111]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V113*/ curfptr[112]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V113*/ curfptr[112])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V113*/ curfptr[112])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V113*/ curfptr[112]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V114*/ curfptr[113]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V112*/ curfptr[111])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V112*/ curfptr[111])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V112*/ curfptr[111]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V113*/ curfptr[112])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V113*/ curfptr[112])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V113*/ curfptr[112]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V114*/ curfptr[113]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V114*/ curfptr[113])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V114*/ curfptr[113]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V115*/ curfptr[114]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V115*/ curfptr[114])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V115*/ curfptr[114]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V114*/ curfptr[113]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V114*/ curfptr[113])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V114*/ curfptr[113]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V115*/ curfptr[114]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V115*/ curfptr[114])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V115*/ curfptr[114]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V114*/ curfptr[113]); + basilysgc_touch(/*_.VALTUP___V115*/ curfptr[114]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V112*/ curfptr[111])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V112*/ curfptr[111])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V112*/ curfptr[111]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V114*/ curfptr[113]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V113*/ curfptr[112])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V113*/ curfptr[112])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V113*/ curfptr[112]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V115*/ curfptr[114]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V115*/ curfptr[114])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V115*/ curfptr[114])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V115*/ curfptr[114]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V116*/ curfptr[115]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V116*/ curfptr[115])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V116*/ curfptr[115])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V116*/ curfptr[115]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V117*/ curfptr[116]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V115*/ curfptr[114])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V115*/ curfptr[114])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V115*/ curfptr[114]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V112*/ curfptr[111]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V116*/ curfptr[115])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V116*/ curfptr[115])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V116*/ curfptr[115]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V113*/ curfptr[112]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V115*/ curfptr[114]); + basilysgc_touch(/*_.VALDATA___V116*/ curfptr[115]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V117*/ curfptr[116])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V117*/ curfptr[116])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V117*/ curfptr[116]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V118*/ curfptr[117]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V118*/ curfptr[117])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V118*/ curfptr[117])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V118*/ curfptr[117]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V119*/ curfptr[118]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V117*/ curfptr[116])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V117*/ curfptr[116])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V117*/ curfptr[116]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V112*/ curfptr[111]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V118*/ curfptr[117])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V118*/ curfptr[117])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V118*/ curfptr[117]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V113*/ curfptr[112]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V117*/ curfptr[116]); + basilysgc_touch(/*_.VALDATA___V118*/ curfptr[117]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V119*/ curfptr[118])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V119*/ curfptr[118])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V119*/ curfptr[118]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V120*/ curfptr[119]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V121*/ curfptr[120]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V119*/ curfptr[118])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V119*/ curfptr[118])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V119*/ curfptr[118]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V112*/ curfptr[111]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V113*/ curfptr[112]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V119*/ curfptr[118]); + basilysgc_touch(/*_.VALDATA___V120*/ curfptr[119]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V121*/ curfptr[120])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V121*/ curfptr[120])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V121*/ curfptr[120]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V122*/ curfptr[121]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V122*/ curfptr[121])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V122*/ curfptr[121])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V122*/ curfptr[121]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V123*/ curfptr[122]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V121*/ curfptr[120])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V121*/ curfptr[120])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V121*/ curfptr[120]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V112*/ curfptr[111]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V122*/ curfptr[121])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V122*/ curfptr[121])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V122*/ curfptr[121]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V113*/ curfptr[112]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V121*/ curfptr[120]); + basilysgc_touch(/*_.VALDATA___V122*/ curfptr[121]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V123*/ curfptr[122]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V123*/ curfptr[122])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V123*/ curfptr[122]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V124*/ curfptr[123]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V124*/ curfptr[123])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V124*/ curfptr[123]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V123*/ curfptr[122]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V123*/ curfptr[122])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V123*/ curfptr[122]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V115*/ curfptr[114]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V124*/ curfptr[123]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V124*/ curfptr[123])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V124*/ curfptr[123]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V116*/ curfptr[115]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V123*/ curfptr[122]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V123*/ curfptr[122])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V123*/ curfptr[122]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V117*/ curfptr[116]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V124*/ curfptr[123]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V124*/ curfptr[123])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V124*/ curfptr[123]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V118*/ curfptr[117]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V123*/ curfptr[122]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V123*/ curfptr[122])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V123*/ curfptr[122]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V119*/ curfptr[118]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V124*/ curfptr[123]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V124*/ curfptr[123])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V124*/ curfptr[123]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V123*/ curfptr[122]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V123*/ curfptr[122])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V123*/ curfptr[122]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V121*/ curfptr[120]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V124*/ curfptr[123]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V124*/ curfptr[123])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V124*/ curfptr[123]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V122*/ curfptr[121]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V123*/ curfptr[122]); + basilysgc_touch(/*_.VALTUP___V124*/ curfptr[123]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V112*/ curfptr[111])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V112*/ curfptr[111])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V112*/ curfptr[111]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V123*/ curfptr[122]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V113*/ curfptr[112])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V113*/ curfptr[112])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V113*/ curfptr[112]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V124*/ curfptr[123]); BASILYS_LOCATION("warmelt-macro.bysl:63:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V112*/ curfptr[111]); + basilysgc_touch(/*_.VALDATA___V113*/ curfptr[112]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V124*/ curfptr[123])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V124*/ curfptr[123])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V124*/ curfptr[123]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V125*/ curfptr[124]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V125*/ curfptr[124])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V125*/ curfptr[124])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V125*/ curfptr[124]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V126*/ curfptr[125]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V124*/ curfptr[123]); + basilysgc_touch(/*_.VALDATA___V125*/ curfptr[124]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V126*/ curfptr[125])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V126*/ curfptr[125])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V126*/ curfptr[125]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V127*/ curfptr[126]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V127*/ curfptr[126])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V127*/ curfptr[126])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V127*/ curfptr[126]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V128*/ curfptr[127]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V126*/ curfptr[125]); + basilysgc_touch(/*_.VALDATA___V127*/ curfptr[126]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V128*/ curfptr[127])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V128*/ curfptr[127])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V128*/ curfptr[127]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V129*/ curfptr[128]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V129*/ curfptr[128])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V129*/ curfptr[128])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V129*/ curfptr[128]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V130*/ curfptr[129]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V128*/ curfptr[127]); + basilysgc_touch(/*_.VALDATA___V129*/ curfptr[128]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V131*/ curfptr[130]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V131*/ curfptr[130])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V131*/ curfptr[130])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V131*/ curfptr[130]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V132*/ curfptr[131]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V130*/ curfptr[129]); + basilysgc_touch(/*_.VALDATA___V131*/ curfptr[130]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V132*/ curfptr[131])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V132*/ curfptr[131])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V132*/ curfptr[131]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V133*/ curfptr[132]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V133*/ curfptr[132])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V133*/ curfptr[132])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V133*/ curfptr[132]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V134*/ curfptr[133]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V132*/ curfptr[131]); + basilysgc_touch(/*_.VALDATA___V133*/ curfptr[132]); BASILYS_LOCATION("warmelt-macro.bysl:72:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V134*/ curfptr[133]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V135*/ curfptr[134]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V135*/ curfptr[134]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-macro.bysl:72:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V134*/ curfptr[133]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V135*/ curfptr[134]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V136*/ curfptr[135]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V136*/ curfptr[135])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V136*/ curfptr[135]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V137*/ curfptr[136]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V137*/ curfptr[136])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V137*/ curfptr[136]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V136*/ curfptr[135]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V136*/ curfptr[135])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V136*/ curfptr[135]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V137*/ curfptr[136]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V137*/ curfptr[136])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V137*/ curfptr[136]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V136*/ curfptr[135]); + basilysgc_touch(/*_.VALTUP___V137*/ curfptr[136]); BASILYS_LOCATION("warmelt-macro.bysl:72:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V134*/ curfptr[133]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V136*/ curfptr[135]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V135*/ curfptr[134]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V137*/ curfptr[136]); BASILYS_LOCATION("warmelt-macro.bysl:72:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V137*/ curfptr[136])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V137*/ curfptr[136])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V137*/ curfptr[136]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V138*/ curfptr[137]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V138*/ curfptr[137])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V138*/ curfptr[137])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V138*/ curfptr[137]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V139*/ curfptr[138]); BASILYS_LOCATION("warmelt-macro.bysl:72:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V137*/ curfptr[136])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V137*/ curfptr[136])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V137*/ curfptr[136]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V134*/ curfptr[133]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V138*/ curfptr[137])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V138*/ curfptr[137])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V138*/ curfptr[137]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V135*/ curfptr[134]); BASILYS_LOCATION("warmelt-macro.bysl:72:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V137*/ curfptr[136]); + basilysgc_touch(/*_.VALDATA___V138*/ curfptr[137]); BASILYS_LOCATION("warmelt-macro.bysl:72:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V139*/ curfptr[138]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V140*/ curfptr[139]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V140*/ curfptr[139])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V140*/ curfptr[139])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V140*/ curfptr[139]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V141*/ curfptr[140]); BASILYS_LOCATION("warmelt-macro.bysl:72:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V139*/ curfptr[138]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V134*/ curfptr[133]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V140*/ curfptr[139])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V140*/ curfptr[139])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V140*/ curfptr[139]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V135*/ curfptr[134]); BASILYS_LOCATION("warmelt-macro.bysl:72:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V139*/ curfptr[138]); + basilysgc_touch(/*_.VALDATA___V140*/ curfptr[139]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V141*/ curfptr[140]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V141*/ curfptr[140])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V141*/ curfptr[140]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V142*/ curfptr[141]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V142*/ curfptr[141])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V142*/ curfptr[141]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V141*/ curfptr[140]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V141*/ curfptr[140])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V141*/ curfptr[140]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V137*/ curfptr[136]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V142*/ curfptr[141]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V142*/ curfptr[141])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V142*/ curfptr[141]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V138*/ curfptr[137]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V141*/ curfptr[140]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V141*/ curfptr[140])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V141*/ curfptr[140]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V142*/ curfptr[141]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V142*/ curfptr[141])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V142*/ curfptr[141]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V140*/ curfptr[139]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V141*/ curfptr[140]); + basilysgc_touch(/*_.VALTUP___V142*/ curfptr[141]); BASILYS_LOCATION("warmelt-macro.bysl:72:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V134*/ curfptr[133]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V141*/ curfptr[140]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V135*/ curfptr[134]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V142*/ curfptr[141]); BASILYS_LOCATION("warmelt-macro.bysl:72:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V134*/ curfptr[133]); + basilysgc_touch(/*_.VALDATA___V135*/ curfptr[134]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V142*/ curfptr[141])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V142*/ curfptr[141])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V142*/ curfptr[141]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V143*/ curfptr[142]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V144*/ curfptr[143]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V142*/ curfptr[141]); + basilysgc_touch(/*_.VALDATA___V143*/ curfptr[142]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V144*/ curfptr[143])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V144*/ curfptr[143])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V144*/ curfptr[143]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V145*/ curfptr[144]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V145*/ curfptr[144])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V145*/ curfptr[144])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V145*/ curfptr[144]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V146*/ curfptr[145]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V144*/ curfptr[143]); + basilysgc_touch(/*_.VALDATA___V145*/ curfptr[144]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V147*/ curfptr[146]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V147*/ curfptr[146])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V147*/ curfptr[146])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V148*/ curfptr[147]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V146*/ curfptr[145]); + basilysgc_touch(/*_.VALDATA___V147*/ curfptr[146]); BASILYS_LOCATION("warmelt-macro.bysl:79:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V148*/ curfptr[147]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V149*/ curfptr[148]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V149*/ curfptr[148]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V150*/ curfptr[149]); BASILYS_LOCATION("warmelt-macro.bysl:79:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V148*/ curfptr[147]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V149*/ curfptr[148]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V150*/ curfptr[149]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V150*/ curfptr[149])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V150*/ curfptr[149]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V151*/ curfptr[150]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V151*/ curfptr[150])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V151*/ curfptr[150]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V150*/ curfptr[149]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V150*/ curfptr[149])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V150*/ curfptr[149]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V151*/ curfptr[150]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V151*/ curfptr[150])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V151*/ curfptr[150]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V150*/ curfptr[149]); + basilysgc_touch(/*_.VALTUP___V151*/ curfptr[150]); BASILYS_LOCATION("warmelt-macro.bysl:79:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V148*/ curfptr[147]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V150*/ curfptr[149]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V149*/ curfptr[148]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V151*/ curfptr[150]); BASILYS_LOCATION("warmelt-macro.bysl:79:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V151*/ curfptr[150])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V151*/ curfptr[150])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V151*/ curfptr[150]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V152*/ curfptr[151]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V152*/ curfptr[151])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V152*/ curfptr[151])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V152*/ curfptr[151]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V153*/ curfptr[152]); BASILYS_LOCATION("warmelt-macro.bysl:79:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V151*/ curfptr[150])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V151*/ curfptr[150])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V151*/ curfptr[150]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V148*/ curfptr[147]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V152*/ curfptr[151])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V152*/ curfptr[151])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V152*/ curfptr[151]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V149*/ curfptr[148]); BASILYS_LOCATION("warmelt-macro.bysl:79:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V151*/ curfptr[150]); + basilysgc_touch(/*_.VALDATA___V152*/ curfptr[151]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V153*/ curfptr[152]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V153*/ curfptr[152])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V153*/ curfptr[152]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V154*/ curfptr[153]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V154*/ curfptr[153])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V154*/ curfptr[153]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V153*/ curfptr[152]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V153*/ curfptr[152])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V153*/ curfptr[152]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V151*/ curfptr[150]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V154*/ curfptr[153]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V154*/ curfptr[153])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V154*/ curfptr[153]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V152*/ curfptr[151]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V153*/ curfptr[152]); + basilysgc_touch(/*_.VALTUP___V154*/ curfptr[153]); BASILYS_LOCATION("warmelt-macro.bysl:79:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V148*/ curfptr[147]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V153*/ curfptr[152]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V149*/ curfptr[148]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V154*/ curfptr[153]); BASILYS_LOCATION("warmelt-macro.bysl:79:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V148*/ curfptr[147]); + basilysgc_touch(/*_.VALDATA___V149*/ curfptr[148]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V154*/ curfptr[153]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V155*/ curfptr[154]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V155*/ curfptr[154])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V155*/ curfptr[154])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V155*/ curfptr[154]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V156*/ curfptr[155]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V154*/ curfptr[153]); + basilysgc_touch(/*_.VALDATA___V155*/ curfptr[154]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V156*/ curfptr[155])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V156*/ curfptr[155])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V156*/ curfptr[155]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V157*/ curfptr[156]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V157*/ curfptr[156]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V158*/ curfptr[157]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V156*/ curfptr[155]); + basilysgc_touch(/*_.VALDATA___V157*/ curfptr[156]); BASILYS_LOCATION("warmelt-macro.bysl:85:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V158*/ curfptr[157])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V158*/ curfptr[157])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V158*/ curfptr[157]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V159*/ curfptr[158]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V160*/ curfptr[159]); BASILYS_LOCATION("warmelt-macro.bysl:85:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V158*/ curfptr[157])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V158*/ curfptr[157])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V158*/ curfptr[157]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V160*/ curfptr[159]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V160*/ curfptr[159])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V160*/ curfptr[159]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V161*/ curfptr[160]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V161*/ curfptr[160])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V161*/ curfptr[160]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V160*/ curfptr[159]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V160*/ curfptr[159])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V160*/ curfptr[159]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V161*/ curfptr[160]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V161*/ curfptr[160])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V161*/ curfptr[160]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V160*/ curfptr[159]); + basilysgc_touch(/*_.VALTUP___V161*/ curfptr[160]); BASILYS_LOCATION("warmelt-macro.bysl:85:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V158*/ curfptr[157])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V158*/ curfptr[157])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V158*/ curfptr[157]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V160*/ curfptr[159]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V161*/ curfptr[160]); BASILYS_LOCATION("warmelt-macro.bysl:85:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V161*/ curfptr[160]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V162*/ curfptr[161]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V162*/ curfptr[161])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V162*/ curfptr[161])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V162*/ curfptr[161]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V163*/ curfptr[162]); BASILYS_LOCATION("warmelt-macro.bysl:85:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V161*/ curfptr[160]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V158*/ curfptr[157]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V162*/ curfptr[161])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V162*/ curfptr[161])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V162*/ curfptr[161]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V159*/ curfptr[158]); BASILYS_LOCATION("warmelt-macro.bysl:85:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V161*/ curfptr[160]); + basilysgc_touch(/*_.VALDATA___V162*/ curfptr[161]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V163*/ curfptr[162]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V163*/ curfptr[162])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V163*/ curfptr[162]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V164*/ curfptr[163]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V164*/ curfptr[163])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V164*/ curfptr[163]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V163*/ curfptr[162]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V163*/ curfptr[162])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V163*/ curfptr[162]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V164*/ curfptr[163]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V164*/ curfptr[163])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V164*/ curfptr[163]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V162*/ curfptr[161]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V163*/ curfptr[162]); + basilysgc_touch(/*_.VALTUP___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-macro.bysl:85:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V158*/ curfptr[157])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V158*/ curfptr[157])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V158*/ curfptr[157]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V163*/ curfptr[162]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-macro.bysl:85:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V158*/ curfptr[157]); + basilysgc_touch(/*_.VALDATA___V159*/ curfptr[158]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V164*/ curfptr[163])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V164*/ curfptr[163])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V164*/ curfptr[163]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V165*/ curfptr[164]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V165*/ curfptr[164]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V166*/ curfptr[165]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V164*/ curfptr[163]); + basilysgc_touch(/*_.VALDATA___V165*/ curfptr[164]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V166*/ curfptr[165])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V166*/ curfptr[165])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V166*/ curfptr[165]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V167*/ curfptr[166]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V167*/ curfptr[166])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V167*/ curfptr[166])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V167*/ curfptr[166]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V168*/ curfptr[167]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V166*/ curfptr[165]); + basilysgc_touch(/*_.VALDATA___V167*/ curfptr[166]); BASILYS_LOCATION("warmelt-macro.bysl:91:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V168*/ curfptr[167]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V169*/ curfptr[168]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V169*/ curfptr[168])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V169*/ curfptr[168])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V169*/ curfptr[168]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V170*/ curfptr[169]); BASILYS_LOCATION("warmelt-macro.bysl:91:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V168*/ curfptr[167]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V169*/ curfptr[168])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V169*/ curfptr[168])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V169*/ curfptr[168]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V170*/ curfptr[169]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V170*/ curfptr[169])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V170*/ curfptr[169]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V171*/ curfptr[170]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V171*/ curfptr[170])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V171*/ curfptr[170]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V170*/ curfptr[169]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V170*/ curfptr[169])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V170*/ curfptr[169]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V171*/ curfptr[170]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V171*/ curfptr[170])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V171*/ curfptr[170]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V170*/ curfptr[169]); + basilysgc_touch(/*_.VALTUP___V171*/ curfptr[170]); BASILYS_LOCATION("warmelt-macro.bysl:91:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V168*/ curfptr[167]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V170*/ curfptr[169]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V169*/ curfptr[168])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V169*/ curfptr[168])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V169*/ curfptr[168]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V171*/ curfptr[170]); BASILYS_LOCATION("warmelt-macro.bysl:91:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V171*/ curfptr[170])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V171*/ curfptr[170])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V171*/ curfptr[170]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V172*/ curfptr[171]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V172*/ curfptr[171]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V173*/ curfptr[172]); BASILYS_LOCATION("warmelt-macro.bysl:91:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V171*/ curfptr[170])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V171*/ curfptr[170])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V171*/ curfptr[170]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V168*/ curfptr[167]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V172*/ curfptr[171]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V169*/ curfptr[168]); BASILYS_LOCATION("warmelt-macro.bysl:91:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V171*/ curfptr[170]); + basilysgc_touch(/*_.VALDATA___V172*/ curfptr[171]); BASILYS_LOCATION("warmelt-macro.bysl:91:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V173*/ curfptr[172])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V173*/ curfptr[172])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V173*/ curfptr[172]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V174*/ curfptr[173]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V174*/ curfptr[173])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V174*/ curfptr[173])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V174*/ curfptr[173]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V175*/ curfptr[174]); BASILYS_LOCATION("warmelt-macro.bysl:91:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V173*/ curfptr[172])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V173*/ curfptr[172])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V173*/ curfptr[172]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V168*/ curfptr[167]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V174*/ curfptr[173])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V174*/ curfptr[173])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V174*/ curfptr[173]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V169*/ curfptr[168]); BASILYS_LOCATION("warmelt-macro.bysl:91:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V173*/ curfptr[172]); + basilysgc_touch(/*_.VALDATA___V174*/ curfptr[173]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V176*/ curfptr[175]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V176*/ curfptr[175])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V176*/ curfptr[175]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V171*/ curfptr[170]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V176*/ curfptr[175]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V176*/ curfptr[175])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V176*/ curfptr[175]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V173*/ curfptr[172]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V176*/ curfptr[175]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V176*/ curfptr[175])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V176*/ curfptr[175]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V174*/ curfptr[173]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V175*/ curfptr[174]); + basilysgc_touch(/*_.VALTUP___V176*/ curfptr[175]); BASILYS_LOCATION("warmelt-macro.bysl:91:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V168*/ curfptr[167]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V175*/ curfptr[174]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V169*/ curfptr[168])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V169*/ curfptr[168])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V169*/ curfptr[168]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V176*/ curfptr[175]); BASILYS_LOCATION("warmelt-macro.bysl:91:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V168*/ curfptr[167]); + basilysgc_touch(/*_.VALDATA___V169*/ curfptr[168]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V176*/ curfptr[175])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V176*/ curfptr[175])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V176*/ curfptr[175]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V177*/ curfptr[176]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V177*/ curfptr[176])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V177*/ curfptr[176])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V177*/ curfptr[176]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V178*/ curfptr[177]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V176*/ curfptr[175]); + basilysgc_touch(/*_.VALDATA___V177*/ curfptr[176]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V178*/ curfptr[177])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V178*/ curfptr[177])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V178*/ curfptr[177]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V179*/ curfptr[178]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V179*/ curfptr[178])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V179*/ curfptr[178])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V179*/ curfptr[178]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V180*/ curfptr[179]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V178*/ curfptr[177]); + basilysgc_touch(/*_.VALDATA___V179*/ curfptr[178]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V180*/ curfptr[179])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V180*/ curfptr[179])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V180*/ curfptr[179]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V181*/ curfptr[180]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V181*/ curfptr[180])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V181*/ curfptr[180])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V181*/ curfptr[180]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V182*/ curfptr[181]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V180*/ curfptr[179]); + basilysgc_touch(/*_.VALDATA___V181*/ curfptr[180]); BASILYS_LOCATION("warmelt-macro.bysl:97:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V182*/ curfptr[181]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V183*/ curfptr[182]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V183*/ curfptr[182])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V183*/ curfptr[182])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V183*/ curfptr[182]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V184*/ curfptr[183]); BASILYS_LOCATION("warmelt-macro.bysl:97:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V182*/ curfptr[181]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V183*/ curfptr[182])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V183*/ curfptr[182])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V183*/ curfptr[182]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V184*/ curfptr[183]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V184*/ curfptr[183])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V184*/ curfptr[183]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V185*/ curfptr[184]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V185*/ curfptr[184])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V185*/ curfptr[184]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V184*/ curfptr[183]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V184*/ curfptr[183])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V184*/ curfptr[183]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V185*/ curfptr[184]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V185*/ curfptr[184])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V185*/ curfptr[184]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V184*/ curfptr[183]); + basilysgc_touch(/*_.VALTUP___V185*/ curfptr[184]); BASILYS_LOCATION("warmelt-macro.bysl:97:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V182*/ curfptr[181]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V184*/ curfptr[183]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V183*/ curfptr[182])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V183*/ curfptr[182])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V183*/ curfptr[182]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V185*/ curfptr[184]); BASILYS_LOCATION("warmelt-macro.bysl:97:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V185*/ curfptr[184])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V185*/ curfptr[184])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V185*/ curfptr[184]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V186*/ curfptr[185]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V186*/ curfptr[185])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V186*/ curfptr[185])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V186*/ curfptr[185]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V187*/ curfptr[186]); BASILYS_LOCATION("warmelt-macro.bysl:97:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V185*/ curfptr[184])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V185*/ curfptr[184])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V185*/ curfptr[184]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V182*/ curfptr[181]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V186*/ curfptr[185])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V186*/ curfptr[185])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V186*/ curfptr[185]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V183*/ curfptr[182]); BASILYS_LOCATION("warmelt-macro.bysl:97:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V185*/ curfptr[184]); + basilysgc_touch(/*_.VALDATA___V186*/ curfptr[185]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V187*/ curfptr[186]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V187*/ curfptr[186])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V187*/ curfptr[186]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V188*/ curfptr[187]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V188*/ curfptr[187])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V188*/ curfptr[187]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V187*/ curfptr[186]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V187*/ curfptr[186])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V187*/ curfptr[186]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V185*/ curfptr[184]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V188*/ curfptr[187]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V188*/ curfptr[187])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V188*/ curfptr[187]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V186*/ curfptr[185]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V187*/ curfptr[186]); + basilysgc_touch(/*_.VALTUP___V188*/ curfptr[187]); BASILYS_LOCATION("warmelt-macro.bysl:97:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V182*/ curfptr[181]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V187*/ curfptr[186]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V183*/ curfptr[182])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V183*/ curfptr[182])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V183*/ curfptr[182]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V188*/ curfptr[187]); BASILYS_LOCATION("warmelt-macro.bysl:97:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V182*/ curfptr[181]); + basilysgc_touch(/*_.VALDATA___V183*/ curfptr[182]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V188*/ curfptr[187]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V189*/ curfptr[188]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V189*/ curfptr[188])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V189*/ curfptr[188])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V189*/ curfptr[188]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V190*/ curfptr[189]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V188*/ curfptr[187]); + basilysgc_touch(/*_.VALDATA___V189*/ curfptr[188]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V190*/ curfptr[189])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V190*/ curfptr[189])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V190*/ curfptr[189]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V191*/ curfptr[190]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V191*/ curfptr[190])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V191*/ curfptr[190])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V191*/ curfptr[190]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V192*/ curfptr[191]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V190*/ curfptr[189]); + basilysgc_touch(/*_.VALDATA___V191*/ curfptr[190]); BASILYS_LOCATION("warmelt-macro.bysl:103:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V192*/ curfptr[191]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V193*/ curfptr[192]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V194*/ curfptr[193]); BASILYS_LOCATION("warmelt-macro.bysl:103:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V192*/ curfptr[191]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V194*/ curfptr[193]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V194*/ curfptr[193])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V194*/ curfptr[193]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V195*/ curfptr[194]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V195*/ curfptr[194])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V195*/ curfptr[194]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V194*/ curfptr[193]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V194*/ curfptr[193])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V194*/ curfptr[193]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V195*/ curfptr[194]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V195*/ curfptr[194])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V195*/ curfptr[194]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V194*/ curfptr[193]); + basilysgc_touch(/*_.VALTUP___V195*/ curfptr[194]); BASILYS_LOCATION("warmelt-macro.bysl:103:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V192*/ curfptr[191]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V194*/ curfptr[193]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V195*/ curfptr[194]); BASILYS_LOCATION("warmelt-macro.bysl:103:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V195*/ curfptr[194])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V195*/ curfptr[194])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V195*/ curfptr[194]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V196*/ curfptr[195]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V196*/ curfptr[195])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V196*/ curfptr[195])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V196*/ curfptr[195]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V197*/ curfptr[196]); BASILYS_LOCATION("warmelt-macro.bysl:103:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V195*/ curfptr[194])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V195*/ curfptr[194])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V195*/ curfptr[194]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V192*/ curfptr[191]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V196*/ curfptr[195])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V196*/ curfptr[195])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V196*/ curfptr[195]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V193*/ curfptr[192]); BASILYS_LOCATION("warmelt-macro.bysl:103:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V195*/ curfptr[194]); + basilysgc_touch(/*_.VALDATA___V196*/ curfptr[195]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V197*/ curfptr[196]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V197*/ curfptr[196])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V197*/ curfptr[196]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V198*/ curfptr[197]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V198*/ curfptr[197])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V198*/ curfptr[197]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V197*/ curfptr[196]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V197*/ curfptr[196])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V197*/ curfptr[196]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V195*/ curfptr[194]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V198*/ curfptr[197]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V198*/ curfptr[197])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V198*/ curfptr[197]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V196*/ curfptr[195]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V197*/ curfptr[196]); + basilysgc_touch(/*_.VALTUP___V198*/ curfptr[197]); BASILYS_LOCATION("warmelt-macro.bysl:103:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V192*/ curfptr[191]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V197*/ curfptr[196]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V198*/ curfptr[197]); BASILYS_LOCATION("warmelt-macro.bysl:103:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V192*/ curfptr[191]); + basilysgc_touch(/*_.VALDATA___V193*/ curfptr[192]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V198*/ curfptr[197])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V198*/ curfptr[197])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V198*/ curfptr[197]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V199*/ curfptr[198]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V199*/ curfptr[198]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V200*/ curfptr[199]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V198*/ curfptr[197]); + basilysgc_touch(/*_.VALDATA___V199*/ curfptr[198]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V200*/ curfptr[199])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V200*/ curfptr[199])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V200*/ curfptr[199]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V201*/ curfptr[200]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V201*/ curfptr[200]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V202*/ curfptr[201]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V200*/ curfptr[199]); + basilysgc_touch(/*_.VALDATA___V201*/ curfptr[200]); BASILYS_LOCATION("warmelt-macro.bysl:109:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V202*/ curfptr[201])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V202*/ curfptr[201])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V202*/ curfptr[201]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V203*/ curfptr[202]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V204*/ curfptr[203]); BASILYS_LOCATION("warmelt-macro.bysl:109:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V202*/ curfptr[201])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V202*/ curfptr[201])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V202*/ curfptr[201]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V204*/ curfptr[203]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V204*/ curfptr[203])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V204*/ curfptr[203]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V204*/ curfptr[203]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V204*/ curfptr[203])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V204*/ curfptr[203]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V204*/ curfptr[203]); + basilysgc_touch(/*_.VALTUP___V205*/ curfptr[204]); BASILYS_LOCATION("warmelt-macro.bysl:109:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V202*/ curfptr[201])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V202*/ curfptr[201])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V202*/ curfptr[201]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V204*/ curfptr[203]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V205*/ curfptr[204]); BASILYS_LOCATION("warmelt-macro.bysl:109:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V205*/ curfptr[204])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V205*/ curfptr[204])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V205*/ curfptr[204]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V206*/ curfptr[205]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V206*/ curfptr[205])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V206*/ curfptr[205])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V206*/ curfptr[205]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V207*/ curfptr[206]); BASILYS_LOCATION("warmelt-macro.bysl:109:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V205*/ curfptr[204])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V205*/ curfptr[204])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V205*/ curfptr[204]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V202*/ curfptr[201]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V206*/ curfptr[205])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V206*/ curfptr[205])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V206*/ curfptr[205]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V203*/ curfptr[202]); BASILYS_LOCATION("warmelt-macro.bysl:109:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V205*/ curfptr[204]); + basilysgc_touch(/*_.VALDATA___V206*/ curfptr[205]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V207*/ curfptr[206]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V207*/ curfptr[206])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V207*/ curfptr[206]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V208*/ curfptr[207]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V208*/ curfptr[207])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V208*/ curfptr[207]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V207*/ curfptr[206]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V207*/ curfptr[206])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V207*/ curfptr[206]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V205*/ curfptr[204]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V208*/ curfptr[207]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V208*/ curfptr[207])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V208*/ curfptr[207]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V206*/ curfptr[205]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V207*/ curfptr[206]); + basilysgc_touch(/*_.VALTUP___V208*/ curfptr[207]); BASILYS_LOCATION("warmelt-macro.bysl:109:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V202*/ curfptr[201])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V202*/ curfptr[201])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V202*/ curfptr[201]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V207*/ curfptr[206]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V208*/ curfptr[207]); BASILYS_LOCATION("warmelt-macro.bysl:109:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V202*/ curfptr[201]); + basilysgc_touch(/*_.VALDATA___V203*/ curfptr[202]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V208*/ curfptr[207])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V208*/ curfptr[207])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V208*/ curfptr[207]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V209*/ curfptr[208]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V209*/ curfptr[208])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V209*/ curfptr[208])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V209*/ curfptr[208]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V210*/ curfptr[209]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V208*/ curfptr[207]); + basilysgc_touch(/*_.VALDATA___V209*/ curfptr[208]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V210*/ curfptr[209])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V210*/ curfptr[209])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V210*/ curfptr[209]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V211*/ curfptr[210]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V211*/ curfptr[210]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V212*/ curfptr[211]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V210*/ curfptr[209]); + basilysgc_touch(/*_.VALDATA___V211*/ curfptr[210]); BASILYS_LOCATION("warmelt-macro.bysl:114:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V212*/ curfptr[211])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V212*/ curfptr[211])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V212*/ curfptr[211]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V213*/ curfptr[212]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V213*/ curfptr[212])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V213*/ curfptr[212])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V213*/ curfptr[212]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V214*/ curfptr[213]); BASILYS_LOCATION("warmelt-macro.bysl:114:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V212*/ curfptr[211])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V212*/ curfptr[211])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V212*/ curfptr[211]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V202*/ curfptr[201]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V213*/ curfptr[212])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V213*/ curfptr[212])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V213*/ curfptr[212]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V203*/ curfptr[202]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V214*/ curfptr[213]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V214*/ curfptr[213])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V214*/ curfptr[213]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V215*/ curfptr[214]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V215*/ curfptr[214])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V215*/ curfptr[214]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V214*/ curfptr[213]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V214*/ curfptr[213])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V214*/ curfptr[213]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V215*/ curfptr[214]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V215*/ curfptr[214])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V215*/ curfptr[214]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V214*/ curfptr[213]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V214*/ curfptr[213])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V214*/ curfptr[213]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V202*/ curfptr[201]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V215*/ curfptr[214]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V215*/ curfptr[214])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V215*/ curfptr[214]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V214*/ curfptr[213]); + basilysgc_touch(/*_.VALTUP___V215*/ curfptr[214]); BASILYS_LOCATION("warmelt-macro.bysl:114:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V212*/ curfptr[211])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V212*/ curfptr[211])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V212*/ curfptr[211]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V214*/ curfptr[213]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V213*/ curfptr[212])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V213*/ curfptr[212])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V213*/ curfptr[212]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V215*/ curfptr[214]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V215*/ curfptr[214]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V215*/ curfptr[214])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V215*/ curfptr[214]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V216*/ curfptr[215]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V216*/ curfptr[215])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V216*/ curfptr[215]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V215*/ curfptr[214]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V215*/ curfptr[214])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V215*/ curfptr[214]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V205*/ curfptr[204]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V216*/ curfptr[215]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V216*/ curfptr[215])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V216*/ curfptr[215]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V206*/ curfptr[205]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V215*/ curfptr[214]); + basilysgc_touch(/*_.VALTUP___V216*/ curfptr[215]); BASILYS_LOCATION("warmelt-macro.bysl:114:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V212*/ curfptr[211])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V212*/ curfptr[211])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V212*/ curfptr[211]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V215*/ curfptr[214]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V213*/ curfptr[212])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V213*/ curfptr[212])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V213*/ curfptr[212]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V216*/ curfptr[215]); BASILYS_LOCATION("warmelt-macro.bysl:114:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V212*/ curfptr[211]); + basilysgc_touch(/*_.VALDATA___V213*/ curfptr[212]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V217*/ curfptr[216]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V217*/ curfptr[216])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V217*/ curfptr[216])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V217*/ curfptr[216]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V218*/ curfptr[217]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V216*/ curfptr[215]); + basilysgc_touch(/*_.VALDATA___V217*/ curfptr[216]); BASILYS_LOCATION("warmelt-macro.bysl:120:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V218*/ curfptr[217])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V218*/ curfptr[217])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V218*/ curfptr[217]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V219*/ curfptr[218]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V219*/ curfptr[218]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V220*/ curfptr[219]); BASILYS_LOCATION("warmelt-macro.bysl:120:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V218*/ curfptr[217])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V218*/ curfptr[217])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V218*/ curfptr[217]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V202*/ curfptr[201]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V219*/ curfptr[218]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V203*/ curfptr[202]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V220*/ curfptr[219]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V220*/ curfptr[219])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V220*/ curfptr[219]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V220*/ curfptr[219]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V220*/ curfptr[219])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V220*/ curfptr[219]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V220*/ curfptr[219]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V220*/ curfptr[219])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V220*/ curfptr[219]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V202*/ curfptr[201]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V220*/ curfptr[219]); + basilysgc_touch(/*_.VALTUP___V221*/ curfptr[220]); BASILYS_LOCATION("warmelt-macro.bysl:120:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V218*/ curfptr[217])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V218*/ curfptr[217])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V218*/ curfptr[217]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V220*/ curfptr[219]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V219*/ curfptr[218]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V221*/ curfptr[220]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V222*/ curfptr[221]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V222*/ curfptr[221])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V222*/ curfptr[221]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V205*/ curfptr[204]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V222*/ curfptr[221]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V222*/ curfptr[221])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V222*/ curfptr[221]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V206*/ curfptr[205]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V221*/ curfptr[220]); + basilysgc_touch(/*_.VALTUP___V222*/ curfptr[221]); BASILYS_LOCATION("warmelt-macro.bysl:120:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V218*/ curfptr[217])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V218*/ curfptr[217])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V218*/ curfptr[217]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V221*/ curfptr[220]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V219*/ curfptr[218]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V222*/ curfptr[221]); BASILYS_LOCATION("warmelt-macro.bysl:120:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V218*/ curfptr[217]); + basilysgc_touch(/*_.VALDATA___V219*/ curfptr[218]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V222*/ curfptr[221])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V222*/ curfptr[221])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V222*/ curfptr[221]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V223*/ curfptr[222]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V223*/ curfptr[222])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V223*/ curfptr[222])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V223*/ curfptr[222]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V224*/ curfptr[223]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V222*/ curfptr[221]); + basilysgc_touch(/*_.VALDATA___V223*/ curfptr[222]); BASILYS_LOCATION("warmelt-macro.bysl:127:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V224*/ curfptr[223]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V225*/ curfptr[224]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V226*/ curfptr[225]); BASILYS_LOCATION("warmelt-macro.bysl:127:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V224*/ curfptr[223]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V226*/ curfptr[225]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V226*/ curfptr[225])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V226*/ curfptr[225]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V227*/ curfptr[226]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V227*/ curfptr[226])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V227*/ curfptr[226]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V226*/ curfptr[225]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V226*/ curfptr[225])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V226*/ curfptr[225]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V227*/ curfptr[226]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V227*/ curfptr[226])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V227*/ curfptr[226]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V226*/ curfptr[225]); + basilysgc_touch(/*_.VALTUP___V227*/ curfptr[226]); BASILYS_LOCATION("warmelt-macro.bysl:127:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V224*/ curfptr[223]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V226*/ curfptr[225]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V227*/ curfptr[226]); BASILYS_LOCATION("warmelt-macro.bysl:127:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V227*/ curfptr[226])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V227*/ curfptr[226])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V228*/ curfptr[227]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V228*/ curfptr[227])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V228*/ curfptr[227])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V228*/ curfptr[227]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V229*/ curfptr[228]); BASILYS_LOCATION("warmelt-macro.bysl:127:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V227*/ curfptr[226])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V227*/ curfptr[226])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V224*/ curfptr[223]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V228*/ curfptr[227])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V228*/ curfptr[227])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V228*/ curfptr[227]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V225*/ curfptr[224]); BASILYS_LOCATION("warmelt-macro.bysl:127:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V227*/ curfptr[226]); + basilysgc_touch(/*_.VALDATA___V228*/ curfptr[227]); BASILYS_LOCATION("warmelt-macro.bysl:127:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V229*/ curfptr[228]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V230*/ curfptr[229]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V230*/ curfptr[229])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V230*/ curfptr[229])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V230*/ curfptr[229]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V231*/ curfptr[230]); BASILYS_LOCATION("warmelt-macro.bysl:127:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V229*/ curfptr[228]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V224*/ curfptr[223]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V230*/ curfptr[229])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V230*/ curfptr[229])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V230*/ curfptr[229]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V225*/ curfptr[224]); BASILYS_LOCATION("warmelt-macro.bysl:127:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V229*/ curfptr[228]); + basilysgc_touch(/*_.VALDATA___V230*/ curfptr[229]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V232*/ curfptr[231]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V232*/ curfptr[231])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V232*/ curfptr[231]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V232*/ curfptr[231]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V232*/ curfptr[231])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V232*/ curfptr[231]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V228*/ curfptr[227]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V232*/ curfptr[231]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V232*/ curfptr[231])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V232*/ curfptr[231]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V230*/ curfptr[229]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V231*/ curfptr[230]); + basilysgc_touch(/*_.VALTUP___V232*/ curfptr[231]); BASILYS_LOCATION("warmelt-macro.bysl:127:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V224*/ curfptr[223]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V231*/ curfptr[230]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V232*/ curfptr[231]); BASILYS_LOCATION("warmelt-macro.bysl:127:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V224*/ curfptr[223]); + basilysgc_touch(/*_.VALDATA___V225*/ curfptr[224]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V232*/ curfptr[231])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V232*/ curfptr[231])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V232*/ curfptr[231]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V233*/ curfptr[232]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V233*/ curfptr[232])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V233*/ curfptr[232])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V233*/ curfptr[232]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V234*/ curfptr[233]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V232*/ curfptr[231]); + basilysgc_touch(/*_.VALDATA___V233*/ curfptr[232]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V234*/ curfptr[233])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V234*/ curfptr[233])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V234*/ curfptr[233]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V235*/ curfptr[234]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V235*/ curfptr[234])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V235*/ curfptr[234])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V235*/ curfptr[234]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V236*/ curfptr[235]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V234*/ curfptr[233]); + basilysgc_touch(/*_.VALDATA___V235*/ curfptr[234]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V236*/ curfptr[235])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V236*/ curfptr[235])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V236*/ curfptr[235]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V237*/ curfptr[236]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V237*/ curfptr[236])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V237*/ curfptr[236])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V237*/ curfptr[236]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V238*/ curfptr[237]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V236*/ curfptr[235]); + basilysgc_touch(/*_.VALDATA___V237*/ curfptr[236]); BASILYS_LOCATION("warmelt-macro.bysl:135:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V238*/ curfptr[237])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V238*/ curfptr[237])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V238*/ curfptr[237]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V239*/ curfptr[238]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V239*/ curfptr[238]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V240*/ curfptr[239]); BASILYS_LOCATION("warmelt-macro.bysl:135:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V238*/ curfptr[237])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V238*/ curfptr[237])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V238*/ curfptr[237]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V224*/ curfptr[223]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V239*/ curfptr[238]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V225*/ curfptr[224]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V240*/ curfptr[239]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V240*/ curfptr[239])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V240*/ curfptr[239]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V241*/ curfptr[240]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V241*/ curfptr[240])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V241*/ curfptr[240]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V240*/ curfptr[239]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V240*/ curfptr[239])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V240*/ curfptr[239]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V241*/ curfptr[240]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V241*/ curfptr[240])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V241*/ curfptr[240]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V240*/ curfptr[239]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V240*/ curfptr[239])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V240*/ curfptr[239]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V241*/ curfptr[240]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V241*/ curfptr[240])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V241*/ curfptr[240]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V240*/ curfptr[239]); + basilysgc_touch(/*_.VALTUP___V241*/ curfptr[240]); BASILYS_LOCATION("warmelt-macro.bysl:135:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V238*/ curfptr[237])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V238*/ curfptr[237])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V238*/ curfptr[237]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V240*/ curfptr[239]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V239*/ curfptr[238]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V241*/ curfptr[240]); BASILYS_LOCATION("warmelt-macro.bysl:135:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V241*/ curfptr[240])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V241*/ curfptr[240])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V242*/ curfptr[241]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V242*/ curfptr[241]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V243*/ curfptr[242]); BASILYS_LOCATION("warmelt-macro.bysl:135:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V241*/ curfptr[240])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V241*/ curfptr[240])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V238*/ curfptr[237]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V242*/ curfptr[241]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V239*/ curfptr[238]); BASILYS_LOCATION("warmelt-macro.bysl:135:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V241*/ curfptr[240]); + basilysgc_touch(/*_.VALDATA___V242*/ curfptr[241]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V243*/ curfptr[242]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V243*/ curfptr[242])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V243*/ curfptr[242]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V243*/ curfptr[242]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V243*/ curfptr[242])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V243*/ curfptr[242]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V228*/ curfptr[227]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V243*/ curfptr[242]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V243*/ curfptr[242])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V243*/ curfptr[242]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V230*/ curfptr[229]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V243*/ curfptr[242]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V243*/ curfptr[242])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V243*/ curfptr[242]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V243*/ curfptr[242]); + basilysgc_touch(/*_.VALTUP___V244*/ curfptr[243]); BASILYS_LOCATION("warmelt-macro.bysl:135:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V238*/ curfptr[237])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V238*/ curfptr[237])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V238*/ curfptr[237]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V243*/ curfptr[242]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V239*/ curfptr[238]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V244*/ curfptr[243]); BASILYS_LOCATION("warmelt-macro.bysl:135:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V238*/ curfptr[237]); + basilysgc_touch(/*_.VALDATA___V239*/ curfptr[238]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V244*/ curfptr[243])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V244*/ curfptr[243])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V244*/ curfptr[243]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V245*/ curfptr[244]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V245*/ curfptr[244]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V246*/ curfptr[245]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V244*/ curfptr[243]); + basilysgc_touch(/*_.VALDATA___V245*/ curfptr[244]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V246*/ curfptr[245])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V246*/ curfptr[245])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V246*/ curfptr[245]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V247*/ curfptr[246]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V247*/ curfptr[246])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V247*/ curfptr[246])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V247*/ curfptr[246]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V248*/ curfptr[247]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V246*/ curfptr[245]); + basilysgc_touch(/*_.VALDATA___V247*/ curfptr[246]); BASILYS_LOCATION("warmelt-macro.bysl:142:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V249*/ curfptr[248]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V250*/ curfptr[249]); BASILYS_LOCATION("warmelt-macro.bysl:142:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V250*/ curfptr[249]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V250*/ curfptr[249])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V250*/ curfptr[249]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V251*/ curfptr[250]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V251*/ curfptr[250])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V251*/ curfptr[250]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V250*/ curfptr[249]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V250*/ curfptr[249])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V250*/ curfptr[249]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V251*/ curfptr[250]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V251*/ curfptr[250])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V251*/ curfptr[250]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V250*/ curfptr[249]); + basilysgc_touch(/*_.VALTUP___V251*/ curfptr[250]); BASILYS_LOCATION("warmelt-macro.bysl:142:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V250*/ curfptr[249]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V251*/ curfptr[250]); BASILYS_LOCATION("warmelt-macro.bysl:142:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V252*/ curfptr[251]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V253*/ curfptr[252]); BASILYS_LOCATION("warmelt-macro.bysl:142:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V248*/ curfptr[247]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V249*/ curfptr[248]); BASILYS_LOCATION("warmelt-macro.bysl:142:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V251*/ curfptr[250]); + basilysgc_touch(/*_.VALDATA___V252*/ curfptr[251]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V253*/ curfptr[252]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V253*/ curfptr[252])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V253*/ curfptr[252]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V253*/ curfptr[252]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V253*/ curfptr[252])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V253*/ curfptr[252]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V253*/ curfptr[252]); + basilysgc_touch(/*_.VALTUP___V254*/ curfptr[253]); BASILYS_LOCATION("warmelt-macro.bysl:142:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V253*/ curfptr[252]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V254*/ curfptr[253]); BASILYS_LOCATION("warmelt-macro.bysl:142:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V248*/ curfptr[247]); + basilysgc_touch(/*_.VALDATA___V249*/ curfptr[248]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V254*/ curfptr[253])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V254*/ curfptr[253])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V254*/ curfptr[253]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V255*/ curfptr[254]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V255*/ curfptr[254])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V255*/ curfptr[254])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V255*/ curfptr[254]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V256*/ curfptr[255]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V254*/ curfptr[253]); + basilysgc_touch(/*_.VALDATA___V255*/ curfptr[254]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V256*/ curfptr[255])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V256*/ curfptr[255])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V256*/ curfptr[255]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V257*/ curfptr[256]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V257*/ curfptr[256])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V257*/ curfptr[256])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V258*/ curfptr[257]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V256*/ curfptr[255]); + basilysgc_touch(/*_.VALDATA___V257*/ curfptr[256]); BASILYS_LOCATION("warmelt-macro.bysl:148:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V259*/ curfptr[258]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V259*/ curfptr[258]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V260*/ curfptr[259]); BASILYS_LOCATION("warmelt-macro.bysl:148:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V248*/ curfptr[247]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V259*/ curfptr[258]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V249*/ curfptr[248]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V260*/ curfptr[259]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V260*/ curfptr[259])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V260*/ curfptr[259]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V261*/ curfptr[260]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V261*/ curfptr[260])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V261*/ curfptr[260]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V260*/ curfptr[259]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V260*/ curfptr[259])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V260*/ curfptr[259]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V261*/ curfptr[260]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V261*/ curfptr[260])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V261*/ curfptr[260]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V260*/ curfptr[259]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V260*/ curfptr[259])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V260*/ curfptr[259]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V261*/ curfptr[260]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V261*/ curfptr[260])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V261*/ curfptr[260]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V260*/ curfptr[259]); + basilysgc_touch(/*_.VALTUP___V261*/ curfptr[260]); BASILYS_LOCATION("warmelt-macro.bysl:148:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V260*/ curfptr[259]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V259*/ curfptr[258]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V261*/ curfptr[260]); BASILYS_LOCATION("warmelt-macro.bysl:148:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V261*/ curfptr[260]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V262*/ curfptr[261]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V262*/ curfptr[261])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V262*/ curfptr[261])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V262*/ curfptr[261]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V263*/ curfptr[262]); BASILYS_LOCATION("warmelt-macro.bysl:148:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V261*/ curfptr[260]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V258*/ curfptr[257]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V262*/ curfptr[261])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V262*/ curfptr[261])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V262*/ curfptr[261]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V259*/ curfptr[258]); BASILYS_LOCATION("warmelt-macro.bysl:148:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V261*/ curfptr[260]); + basilysgc_touch(/*_.VALDATA___V262*/ curfptr[261]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V263*/ curfptr[262]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V263*/ curfptr[262])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V263*/ curfptr[262]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V264*/ curfptr[263]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V264*/ curfptr[263])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V264*/ curfptr[263]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V263*/ curfptr[262]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V263*/ curfptr[262])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V263*/ curfptr[262]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V264*/ curfptr[263]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V264*/ curfptr[263])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V264*/ curfptr[263]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V263*/ curfptr[262]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V263*/ curfptr[262])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V263*/ curfptr[262]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V264*/ curfptr[263]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V264*/ curfptr[263])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V264*/ curfptr[263]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V262*/ curfptr[261]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V263*/ curfptr[262]); + basilysgc_touch(/*_.VALTUP___V264*/ curfptr[263]); BASILYS_LOCATION("warmelt-macro.bysl:148:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V263*/ curfptr[262]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V259*/ curfptr[258]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V264*/ curfptr[263]); BASILYS_LOCATION("warmelt-macro.bysl:148:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V258*/ curfptr[257]); + basilysgc_touch(/*_.VALDATA___V259*/ curfptr[258]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V264*/ curfptr[263])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V264*/ curfptr[263])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V264*/ curfptr[263]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V265*/ curfptr[264]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V265*/ curfptr[264])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V265*/ curfptr[264])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V265*/ curfptr[264]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V266*/ curfptr[265]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V264*/ curfptr[263]); + basilysgc_touch(/*_.VALDATA___V265*/ curfptr[264]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V266*/ curfptr[265])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V266*/ curfptr[265])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V266*/ curfptr[265]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V267*/ curfptr[266]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V267*/ curfptr[266])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V267*/ curfptr[266])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V267*/ curfptr[266]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V268*/ curfptr[267]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V266*/ curfptr[265]); + basilysgc_touch(/*_.VALDATA___V267*/ curfptr[266]); BASILYS_LOCATION("warmelt-macro.bysl:154:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V269*/ curfptr[268]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V269*/ curfptr[268])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V269*/ curfptr[268])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V269*/ curfptr[268]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V270*/ curfptr[269]); BASILYS_LOCATION("warmelt-macro.bysl:154:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V258*/ curfptr[257]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V269*/ curfptr[268])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V269*/ curfptr[268])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V269*/ curfptr[268]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V259*/ curfptr[258]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V271*/ curfptr[270]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V271*/ curfptr[270])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V271*/ curfptr[270]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V271*/ curfptr[270]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V271*/ curfptr[270])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V271*/ curfptr[270]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V271*/ curfptr[270]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V271*/ curfptr[270])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V271*/ curfptr[270]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V271*/ curfptr[270]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V271*/ curfptr[270])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V271*/ curfptr[270]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V270*/ curfptr[269]); + basilysgc_touch(/*_.VALTUP___V271*/ curfptr[270]); BASILYS_LOCATION("warmelt-macro.bysl:154:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V270*/ curfptr[269]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V269*/ curfptr[268])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V269*/ curfptr[268])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V269*/ curfptr[268]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V271*/ curfptr[270]); BASILYS_LOCATION("warmelt-macro.bysl:154:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V271*/ curfptr[270]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V272*/ curfptr[271]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V272*/ curfptr[271])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V272*/ curfptr[271])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V272*/ curfptr[271]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V273*/ curfptr[272]); BASILYS_LOCATION("warmelt-macro.bysl:154:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V271*/ curfptr[270]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V268*/ curfptr[267]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V272*/ curfptr[271])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V272*/ curfptr[271])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V272*/ curfptr[271]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V269*/ curfptr[268]); BASILYS_LOCATION("warmelt-macro.bysl:154:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V271*/ curfptr[270]); + basilysgc_touch(/*_.VALDATA___V272*/ curfptr[271]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V274*/ curfptr[273]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V274*/ curfptr[273])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V274*/ curfptr[273]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V274*/ curfptr[273]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V274*/ curfptr[273])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V274*/ curfptr[273]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V274*/ curfptr[273]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V274*/ curfptr[273])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V274*/ curfptr[273]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V262*/ curfptr[261]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V274*/ curfptr[273]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V274*/ curfptr[273])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V274*/ curfptr[273]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V272*/ curfptr[271]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V273*/ curfptr[272]); + basilysgc_touch(/*_.VALTUP___V274*/ curfptr[273]); BASILYS_LOCATION("warmelt-macro.bysl:154:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V273*/ curfptr[272]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V269*/ curfptr[268])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V269*/ curfptr[268])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V269*/ curfptr[268]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V274*/ curfptr[273]); BASILYS_LOCATION("warmelt-macro.bysl:154:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V268*/ curfptr[267]); + basilysgc_touch(/*_.VALDATA___V269*/ curfptr[268]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V274*/ curfptr[273])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V274*/ curfptr[273])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V274*/ curfptr[273]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V275*/ curfptr[274]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V275*/ curfptr[274])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V275*/ curfptr[274])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V275*/ curfptr[274]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V276*/ curfptr[275]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V274*/ curfptr[273]); + basilysgc_touch(/*_.VALDATA___V275*/ curfptr[274]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V276*/ curfptr[275])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V276*/ curfptr[275])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V276*/ curfptr[275]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V277*/ curfptr[276]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V277*/ curfptr[276]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V278*/ curfptr[277]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V276*/ curfptr[275]); + basilysgc_touch(/*_.VALDATA___V277*/ curfptr[276]); BASILYS_LOCATION("warmelt-macro.bysl:160:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V279*/ curfptr[278]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V279*/ curfptr[278])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V279*/ curfptr[278])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V279*/ curfptr[278]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V280*/ curfptr[279]); BASILYS_LOCATION("warmelt-macro.bysl:160:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V258*/ curfptr[257]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V279*/ curfptr[278])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V279*/ curfptr[278])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V279*/ curfptr[278]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V259*/ curfptr[258]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V280*/ curfptr[279]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V280*/ curfptr[279])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V280*/ curfptr[279]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V281*/ curfptr[280]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V281*/ curfptr[280])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V281*/ curfptr[280]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V280*/ curfptr[279]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V280*/ curfptr[279])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V280*/ curfptr[279]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V281*/ curfptr[280]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V281*/ curfptr[280])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V281*/ curfptr[280]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V280*/ curfptr[279]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V280*/ curfptr[279])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V280*/ curfptr[279]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V281*/ curfptr[280]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V281*/ curfptr[280])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V281*/ curfptr[280]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V280*/ curfptr[279]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V280*/ curfptr[279])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V280*/ curfptr[279]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V281*/ curfptr[280]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V281*/ curfptr[280])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V281*/ curfptr[280]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V280*/ curfptr[279]); + basilysgc_touch(/*_.VALTUP___V281*/ curfptr[280]); BASILYS_LOCATION("warmelt-macro.bysl:160:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V280*/ curfptr[279]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V279*/ curfptr[278])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V279*/ curfptr[278])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V279*/ curfptr[278]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V281*/ curfptr[280]); BASILYS_LOCATION("warmelt-macro.bysl:160:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V282*/ curfptr[281]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V282*/ curfptr[281])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V282*/ curfptr[281])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V282*/ curfptr[281]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V283*/ curfptr[282]); BASILYS_LOCATION("warmelt-macro.bysl:160:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V278*/ curfptr[277]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V282*/ curfptr[281])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V282*/ curfptr[281])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V282*/ curfptr[281]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V279*/ curfptr[278]); BASILYS_LOCATION("warmelt-macro.bysl:160:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V281*/ curfptr[280]); + basilysgc_touch(/*_.VALDATA___V282*/ curfptr[281]); BASILYS_LOCATION("warmelt-macro.bysl:160:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V283*/ curfptr[282])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V283*/ curfptr[282])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V283*/ curfptr[282]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V284*/ curfptr[283]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V284*/ curfptr[283]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V285*/ curfptr[284]); BASILYS_LOCATION("warmelt-macro.bysl:160:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V283*/ curfptr[282])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V283*/ curfptr[282])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V283*/ curfptr[282]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V278*/ curfptr[277]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V284*/ curfptr[283]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V279*/ curfptr[278]); BASILYS_LOCATION("warmelt-macro.bysl:160:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V283*/ curfptr[282]); + basilysgc_touch(/*_.VALDATA___V284*/ curfptr[283]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V285*/ curfptr[284]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V285*/ curfptr[284])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V285*/ curfptr[284]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V286*/ curfptr[285]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V286*/ curfptr[285])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V286*/ curfptr[285]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V285*/ curfptr[284]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V285*/ curfptr[284])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V285*/ curfptr[284]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V286*/ curfptr[285]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V286*/ curfptr[285])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V286*/ curfptr[285]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V285*/ curfptr[284]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V285*/ curfptr[284])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V285*/ curfptr[284]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V286*/ curfptr[285]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V286*/ curfptr[285])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V286*/ curfptr[285]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V262*/ curfptr[261]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V285*/ curfptr[284]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V285*/ curfptr[284])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V285*/ curfptr[284]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V286*/ curfptr[285]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V286*/ curfptr[285])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V286*/ curfptr[285]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V282*/ curfptr[281]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V285*/ curfptr[284]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V285*/ curfptr[284])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V285*/ curfptr[284]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V283*/ curfptr[282]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V286*/ curfptr[285]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V286*/ curfptr[285])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V286*/ curfptr[285]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V285*/ curfptr[284]); + basilysgc_touch(/*_.VALTUP___V286*/ curfptr[285]); BASILYS_LOCATION("warmelt-macro.bysl:160:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V285*/ curfptr[284]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V279*/ curfptr[278])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V279*/ curfptr[278])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V279*/ curfptr[278]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V286*/ curfptr[285]); BASILYS_LOCATION("warmelt-macro.bysl:160:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V278*/ curfptr[277]); + basilysgc_touch(/*_.VALDATA___V279*/ curfptr[278]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V286*/ curfptr[285]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V287*/ curfptr[286]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V287*/ curfptr[286])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V287*/ curfptr[286])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V287*/ curfptr[286]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V288*/ curfptr[287]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V286*/ curfptr[285]); + basilysgc_touch(/*_.VALDATA___V287*/ curfptr[286]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V288*/ curfptr[287]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V289*/ curfptr[288]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V289*/ curfptr[288])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V289*/ curfptr[288])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V289*/ curfptr[288]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V290*/ curfptr[289]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V288*/ curfptr[287]); + basilysgc_touch(/*_.VALDATA___V289*/ curfptr[288]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V290*/ curfptr[289])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V290*/ curfptr[289])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V290*/ curfptr[289]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V291*/ curfptr[290]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V291*/ curfptr[290])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V291*/ curfptr[290])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V291*/ curfptr[290]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V292*/ curfptr[291]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V290*/ curfptr[289]); + basilysgc_touch(/*_.VALDATA___V291*/ curfptr[290]); BASILYS_LOCATION("warmelt-macro.bysl:167:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V292*/ curfptr[291]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V293*/ curfptr[292]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V293*/ curfptr[292])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V293*/ curfptr[292])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V293*/ curfptr[292]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V294*/ curfptr[293]); BASILYS_LOCATION("warmelt-macro.bysl:167:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V292*/ curfptr[291]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V258*/ curfptr[257]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V293*/ curfptr[292])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V293*/ curfptr[292])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V293*/ curfptr[292]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V259*/ curfptr[258]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V294*/ curfptr[293]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V294*/ curfptr[293])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V294*/ curfptr[293]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V295*/ curfptr[294]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V295*/ curfptr[294])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V295*/ curfptr[294]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V294*/ curfptr[293]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V294*/ curfptr[293])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V294*/ curfptr[293]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V295*/ curfptr[294]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V295*/ curfptr[294])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V295*/ curfptr[294]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V294*/ curfptr[293]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V294*/ curfptr[293])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V294*/ curfptr[293]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V295*/ curfptr[294]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V295*/ curfptr[294])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V295*/ curfptr[294]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V294*/ curfptr[293]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V294*/ curfptr[293])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V294*/ curfptr[293]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V295*/ curfptr[294]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V295*/ curfptr[294])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V295*/ curfptr[294]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V294*/ curfptr[293]); + basilysgc_touch(/*_.VALTUP___V295*/ curfptr[294]); BASILYS_LOCATION("warmelt-macro.bysl:167:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V292*/ curfptr[291]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V294*/ curfptr[293]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V293*/ curfptr[292])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V293*/ curfptr[292])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V293*/ curfptr[292]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V295*/ curfptr[294]); BASILYS_LOCATION("warmelt-macro.bysl:167:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V295*/ curfptr[294])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V295*/ curfptr[294])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V295*/ curfptr[294]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V296*/ curfptr[295]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V296*/ curfptr[295])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V296*/ curfptr[295])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V296*/ curfptr[295]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V297*/ curfptr[296]); BASILYS_LOCATION("warmelt-macro.bysl:167:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V295*/ curfptr[294])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V295*/ curfptr[294])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V295*/ curfptr[294]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V292*/ curfptr[291]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V296*/ curfptr[295])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V296*/ curfptr[295])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V296*/ curfptr[295]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V293*/ curfptr[292]); BASILYS_LOCATION("warmelt-macro.bysl:167:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V295*/ curfptr[294]); + basilysgc_touch(/*_.VALDATA___V296*/ curfptr[295]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V297*/ curfptr[296]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V297*/ curfptr[296])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V297*/ curfptr[296]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V298*/ curfptr[297]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V298*/ curfptr[297])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V298*/ curfptr[297]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V297*/ curfptr[296]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V297*/ curfptr[296])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V297*/ curfptr[296]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V298*/ curfptr[297]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V298*/ curfptr[297])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V298*/ curfptr[297]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V297*/ curfptr[296]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V297*/ curfptr[296])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V297*/ curfptr[296]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V298*/ curfptr[297]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V298*/ curfptr[297])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V298*/ curfptr[297]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V262*/ curfptr[261]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V297*/ curfptr[296]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V297*/ curfptr[296])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V297*/ curfptr[296]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V295*/ curfptr[294]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V298*/ curfptr[297]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V298*/ curfptr[297])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V298*/ curfptr[297]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V296*/ curfptr[295]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V297*/ curfptr[296]); + basilysgc_touch(/*_.VALTUP___V298*/ curfptr[297]); BASILYS_LOCATION("warmelt-macro.bysl:167:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V292*/ curfptr[291]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V297*/ curfptr[296]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V293*/ curfptr[292])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V293*/ curfptr[292])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V293*/ curfptr[292]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V298*/ curfptr[297]); BASILYS_LOCATION("warmelt-macro.bysl:167:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V292*/ curfptr[291]); + basilysgc_touch(/*_.VALDATA___V293*/ curfptr[292]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V299*/ curfptr[298]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V299*/ curfptr[298])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V299*/ curfptr[298])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V300*/ curfptr[299]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V298*/ curfptr[297]); + basilysgc_touch(/*_.VALDATA___V299*/ curfptr[298]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V300*/ curfptr[299])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V300*/ curfptr[299])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V300*/ curfptr[299]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V301*/ curfptr[300]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V301*/ curfptr[300]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V302*/ curfptr[301]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V300*/ curfptr[299]); + basilysgc_touch(/*_.VALDATA___V301*/ curfptr[300]); BASILYS_LOCATION("warmelt-macro.bysl:173:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V302*/ curfptr[301]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V303*/ curfptr[302]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V303*/ curfptr[302])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V303*/ curfptr[302])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V303*/ curfptr[302]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V304*/ curfptr[303]); BASILYS_LOCATION("warmelt-macro.bysl:173:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V302*/ curfptr[301]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V258*/ curfptr[257]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V303*/ curfptr[302])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V303*/ curfptr[302])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V303*/ curfptr[302]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V259*/ curfptr[258]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V304*/ curfptr[303]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V304*/ curfptr[303])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V304*/ curfptr[303]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V305*/ curfptr[304]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V305*/ curfptr[304])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V305*/ curfptr[304]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V304*/ curfptr[303]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V304*/ curfptr[303])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V304*/ curfptr[303]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V305*/ curfptr[304]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V305*/ curfptr[304])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V305*/ curfptr[304]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V304*/ curfptr[303]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V304*/ curfptr[303])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V304*/ curfptr[303]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V305*/ curfptr[304]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V305*/ curfptr[304])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V305*/ curfptr[304]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V304*/ curfptr[303]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V304*/ curfptr[303])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V304*/ curfptr[303]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V305*/ curfptr[304]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V305*/ curfptr[304])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V305*/ curfptr[304]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V304*/ curfptr[303]); + basilysgc_touch(/*_.VALTUP___V305*/ curfptr[304]); BASILYS_LOCATION("warmelt-macro.bysl:173:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V302*/ curfptr[301]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V304*/ curfptr[303]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V303*/ curfptr[302])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V303*/ curfptr[302])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V303*/ curfptr[302]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V305*/ curfptr[304]); BASILYS_LOCATION("warmelt-macro.bysl:173:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V305*/ curfptr[304])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V305*/ curfptr[304])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V305*/ curfptr[304]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V306*/ curfptr[305]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V306*/ curfptr[305]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V307*/ curfptr[306]); BASILYS_LOCATION("warmelt-macro.bysl:173:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V305*/ curfptr[304])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V305*/ curfptr[304])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V305*/ curfptr[304]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V302*/ curfptr[301]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V306*/ curfptr[305]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V303*/ curfptr[302]); BASILYS_LOCATION("warmelt-macro.bysl:173:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V305*/ curfptr[304]); + basilysgc_touch(/*_.VALDATA___V306*/ curfptr[305]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V307*/ curfptr[306]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V307*/ curfptr[306])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V307*/ curfptr[306]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V308*/ curfptr[307]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V308*/ curfptr[307])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V308*/ curfptr[307]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V307*/ curfptr[306]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V307*/ curfptr[306])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V307*/ curfptr[306]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V308*/ curfptr[307]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V308*/ curfptr[307])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V308*/ curfptr[307]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V307*/ curfptr[306]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V307*/ curfptr[306])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V307*/ curfptr[306]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V308*/ curfptr[307]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V308*/ curfptr[307])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V308*/ curfptr[307]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V262*/ curfptr[261]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V307*/ curfptr[306]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V307*/ curfptr[306])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V307*/ curfptr[306]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V305*/ curfptr[304]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V308*/ curfptr[307]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V308*/ curfptr[307])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V308*/ curfptr[307]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V307*/ curfptr[306]); + basilysgc_touch(/*_.VALTUP___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-macro.bysl:173:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V302*/ curfptr[301]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V307*/ curfptr[306]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V303*/ curfptr[302])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V303*/ curfptr[302])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V303*/ curfptr[302]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-macro.bysl:173:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V302*/ curfptr[301]); + basilysgc_touch(/*_.VALDATA___V303*/ curfptr[302]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V309*/ curfptr[308]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V309*/ curfptr[308])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V309*/ curfptr[308])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V309*/ curfptr[308]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V310*/ curfptr[309]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V308*/ curfptr[307]); + basilysgc_touch(/*_.VALDATA___V309*/ curfptr[308]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V310*/ curfptr[309])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V310*/ curfptr[309])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V310*/ curfptr[309]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V311*/ curfptr[310]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V311*/ curfptr[310])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V311*/ curfptr[310])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V311*/ curfptr[310]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V312*/ curfptr[311]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V310*/ curfptr[309]); + basilysgc_touch(/*_.VALDATA___V311*/ curfptr[310]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V312*/ curfptr[311])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V312*/ curfptr[311])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V312*/ curfptr[311]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V313*/ curfptr[312]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V313*/ curfptr[312])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V313*/ curfptr[312])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V313*/ curfptr[312]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V314*/ curfptr[313]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V312*/ curfptr[311])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V312*/ curfptr[311])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V312*/ curfptr[311]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V258*/ curfptr[257]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V313*/ curfptr[312])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V313*/ curfptr[312])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V313*/ curfptr[312]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V259*/ curfptr[258]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V314*/ curfptr[313]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V314*/ curfptr[313])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V314*/ curfptr[313]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V315*/ curfptr[314]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V315*/ curfptr[314])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V315*/ curfptr[314]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V314*/ curfptr[313]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V314*/ curfptr[313])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V314*/ curfptr[313]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V315*/ curfptr[314]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V315*/ curfptr[314])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V315*/ curfptr[314]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V314*/ curfptr[313]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V314*/ curfptr[313])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V314*/ curfptr[313]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V315*/ curfptr[314]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V315*/ curfptr[314])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V315*/ curfptr[314]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V314*/ curfptr[313]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V314*/ curfptr[313])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V314*/ curfptr[313]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V315*/ curfptr[314]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V315*/ curfptr[314])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V315*/ curfptr[314]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V314*/ curfptr[313]); + basilysgc_touch(/*_.VALTUP___V315*/ curfptr[314]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V312*/ curfptr[311])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V312*/ curfptr[311])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V312*/ curfptr[311]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V314*/ curfptr[313]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V313*/ curfptr[312])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V313*/ curfptr[312])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V313*/ curfptr[312]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V315*/ curfptr[314]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V315*/ curfptr[314])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V315*/ curfptr[314])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V315*/ curfptr[314]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V316*/ curfptr[315]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V316*/ curfptr[315])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V316*/ curfptr[315])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V316*/ curfptr[315]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V317*/ curfptr[316]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V315*/ curfptr[314])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V315*/ curfptr[314])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V315*/ curfptr[314]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V312*/ curfptr[311]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V316*/ curfptr[315])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V316*/ curfptr[315])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V316*/ curfptr[315]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V313*/ curfptr[312]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V315*/ curfptr[314]); + basilysgc_touch(/*_.VALDATA___V316*/ curfptr[315]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V317*/ curfptr[316])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V317*/ curfptr[316])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V317*/ curfptr[316]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V318*/ curfptr[317]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V318*/ curfptr[317]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V319*/ curfptr[318]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V317*/ curfptr[316])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V317*/ curfptr[316])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V317*/ curfptr[316]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V312*/ curfptr[311]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V318*/ curfptr[317]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V313*/ curfptr[312]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V317*/ curfptr[316]); + basilysgc_touch(/*_.VALDATA___V318*/ curfptr[317]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V319*/ curfptr[318])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V319*/ curfptr[318])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V319*/ curfptr[318]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V320*/ curfptr[319]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V320*/ curfptr[319])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V320*/ curfptr[319])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V320*/ curfptr[319]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V321*/ curfptr[320]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V319*/ curfptr[318])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V319*/ curfptr[318])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V319*/ curfptr[318]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V312*/ curfptr[311]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V320*/ curfptr[319])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V320*/ curfptr[319])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V320*/ curfptr[319]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V313*/ curfptr[312]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V319*/ curfptr[318]); + basilysgc_touch(/*_.VALDATA___V320*/ curfptr[319]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V321*/ curfptr[320]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V322*/ curfptr[321]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V322*/ curfptr[321])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V322*/ curfptr[321])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V322*/ curfptr[321]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V323*/ curfptr[322]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V321*/ curfptr[320]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V312*/ curfptr[311]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V322*/ curfptr[321])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V322*/ curfptr[321])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V322*/ curfptr[321]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V313*/ curfptr[312]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V321*/ curfptr[320]); + basilysgc_touch(/*_.VALDATA___V322*/ curfptr[321]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V323*/ curfptr[322])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V323*/ curfptr[322])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V323*/ curfptr[322]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V324*/ curfptr[323]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V324*/ curfptr[323]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V325*/ curfptr[324]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V323*/ curfptr[322])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V323*/ curfptr[322])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V323*/ curfptr[322]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V312*/ curfptr[311]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V324*/ curfptr[323]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V313*/ curfptr[312]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V323*/ curfptr[322]); + basilysgc_touch(/*_.VALDATA___V324*/ curfptr[323]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V262*/ curfptr[261]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V315*/ curfptr[314]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V316*/ curfptr[315]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V317*/ curfptr[316]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V319*/ curfptr[318]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V320*/ curfptr[319]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V322*/ curfptr[321]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V323*/ curfptr[322]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V326*/ curfptr[325])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V326*/ curfptr[325]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V325*/ curfptr[324]); + basilysgc_touch(/*_.VALTUP___V326*/ curfptr[325]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V312*/ curfptr[311])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V312*/ curfptr[311])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V312*/ curfptr[311]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V325*/ curfptr[324]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V313*/ curfptr[312])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V313*/ curfptr[312])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V313*/ curfptr[312]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V326*/ curfptr[325]); BASILYS_LOCATION("warmelt-macro.bysl:183:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V312*/ curfptr[311]); + basilysgc_touch(/*_.VALDATA___V313*/ curfptr[312]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V326*/ curfptr[325])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V326*/ curfptr[325])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V326*/ curfptr[325]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V327*/ curfptr[326]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V327*/ curfptr[326])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V327*/ curfptr[326])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V327*/ curfptr[326]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V328*/ curfptr[327]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V326*/ curfptr[325]); + basilysgc_touch(/*_.VALDATA___V327*/ curfptr[326]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V328*/ curfptr[327])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V328*/ curfptr[327])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V328*/ curfptr[327]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V329*/ curfptr[328]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V329*/ curfptr[328])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V329*/ curfptr[328])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V329*/ curfptr[328]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V330*/ curfptr[329]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V328*/ curfptr[327]); + basilysgc_touch(/*_.VALDATA___V329*/ curfptr[328]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V330*/ curfptr[329])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V330*/ curfptr[329])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V330*/ curfptr[329]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V331*/ curfptr[330]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V331*/ curfptr[330])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V331*/ curfptr[330])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V331*/ curfptr[330]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V332*/ curfptr[331]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V330*/ curfptr[329]); + basilysgc_touch(/*_.VALDATA___V331*/ curfptr[330]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V332*/ curfptr[331]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V333*/ curfptr[332]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V333*/ curfptr[332])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V333*/ curfptr[332])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V333*/ curfptr[332]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V334*/ curfptr[333]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V332*/ curfptr[331]); + basilysgc_touch(/*_.VALDATA___V333*/ curfptr[332]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V334*/ curfptr[333])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V334*/ curfptr[333])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V334*/ curfptr[333]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V335*/ curfptr[334]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V336*/ curfptr[335]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V334*/ curfptr[333]); + basilysgc_touch(/*_.VALDATA___V335*/ curfptr[334]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V336*/ curfptr[335])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V336*/ curfptr[335])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V336*/ curfptr[335]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V337*/ curfptr[336]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V337*/ curfptr[336])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V337*/ curfptr[336])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V337*/ curfptr[336]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V338*/ curfptr[337]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V336*/ curfptr[335]); + basilysgc_touch(/*_.VALDATA___V337*/ curfptr[336]); BASILYS_LOCATION("warmelt-macro.bysl:198:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V338*/ curfptr[337]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V339*/ curfptr[338]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V339*/ curfptr[338]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V340*/ curfptr[339]); BASILYS_LOCATION("warmelt-macro.bysl:198:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V338*/ curfptr[337]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V248*/ curfptr[247]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V339*/ curfptr[338]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V249*/ curfptr[248]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V340*/ curfptr[339]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V340*/ curfptr[339])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V340*/ curfptr[339]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V341*/ curfptr[340]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V341*/ curfptr[340])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V341*/ curfptr[340]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V340*/ curfptr[339]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V340*/ curfptr[339])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V340*/ curfptr[339]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V341*/ curfptr[340]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V341*/ curfptr[340])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V341*/ curfptr[340]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V340*/ curfptr[339]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V340*/ curfptr[339])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V340*/ curfptr[339]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V341*/ curfptr[340]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V341*/ curfptr[340])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V341*/ curfptr[340]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V340*/ curfptr[339]); + basilysgc_touch(/*_.VALTUP___V341*/ curfptr[340]); BASILYS_LOCATION("warmelt-macro.bysl:198:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V338*/ curfptr[337]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V340*/ curfptr[339]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V339*/ curfptr[338]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V341*/ curfptr[340]); BASILYS_LOCATION("warmelt-macro.bysl:198:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V341*/ curfptr[340])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V341*/ curfptr[340])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V341*/ curfptr[340]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V342*/ curfptr[341]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V342*/ curfptr[341])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V342*/ curfptr[341])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V342*/ curfptr[341]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V343*/ curfptr[342]); BASILYS_LOCATION("warmelt-macro.bysl:198:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V341*/ curfptr[340])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V341*/ curfptr[340])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V341*/ curfptr[340]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V338*/ curfptr[337]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V342*/ curfptr[341])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V342*/ curfptr[341])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V342*/ curfptr[341]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V339*/ curfptr[338]); BASILYS_LOCATION("warmelt-macro.bysl:198:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V341*/ curfptr[340]); + basilysgc_touch(/*_.VALDATA___V342*/ curfptr[341]); BASILYS_LOCATION("warmelt-macro.bysl:198:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V343*/ curfptr[342]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V344*/ curfptr[343]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V344*/ curfptr[343])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V344*/ curfptr[343])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V344*/ curfptr[343]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V345*/ curfptr[344]); BASILYS_LOCATION("warmelt-macro.bysl:198:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V343*/ curfptr[342]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V338*/ curfptr[337]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V344*/ curfptr[343])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V344*/ curfptr[343])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V344*/ curfptr[343]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V339*/ curfptr[338]); BASILYS_LOCATION("warmelt-macro.bysl:198:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V343*/ curfptr[342]); + basilysgc_touch(/*_.VALDATA___V344*/ curfptr[343]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V345*/ curfptr[344]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V345*/ curfptr[344])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V345*/ curfptr[344]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V346*/ curfptr[345]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V346*/ curfptr[345])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V346*/ curfptr[345]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V345*/ curfptr[344]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V345*/ curfptr[344])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V345*/ curfptr[344]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V346*/ curfptr[345]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V346*/ curfptr[345])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V346*/ curfptr[345]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V345*/ curfptr[344]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V345*/ curfptr[344])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V345*/ curfptr[344]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V341*/ curfptr[340]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V346*/ curfptr[345]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V346*/ curfptr[345])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V346*/ curfptr[345]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V342*/ curfptr[341]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V345*/ curfptr[344]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V345*/ curfptr[344])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V345*/ curfptr[344]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V346*/ curfptr[345]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V346*/ curfptr[345])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V346*/ curfptr[345]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V344*/ curfptr[343]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V345*/ curfptr[344]); + basilysgc_touch(/*_.VALTUP___V346*/ curfptr[345]); BASILYS_LOCATION("warmelt-macro.bysl:198:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V338*/ curfptr[337]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V345*/ curfptr[344]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V339*/ curfptr[338]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V346*/ curfptr[345]); BASILYS_LOCATION("warmelt-macro.bysl:198:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V338*/ curfptr[337]); + basilysgc_touch(/*_.VALDATA___V339*/ curfptr[338]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V346*/ curfptr[345]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V347*/ curfptr[346]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V347*/ curfptr[346])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V347*/ curfptr[346])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V347*/ curfptr[346]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V348*/ curfptr[347]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V346*/ curfptr[345]); + basilysgc_touch(/*_.VALDATA___V347*/ curfptr[346]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V348*/ curfptr[347])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V348*/ curfptr[347])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V348*/ curfptr[347]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V349*/ curfptr[348]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V349*/ curfptr[348]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V350*/ curfptr[349]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V348*/ curfptr[347]); + basilysgc_touch(/*_.VALDATA___V349*/ curfptr[348]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V350*/ curfptr[349])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V350*/ curfptr[349])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V350*/ curfptr[349]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V351*/ curfptr[350]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V351*/ curfptr[350])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V351*/ curfptr[350])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V351*/ curfptr[350]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V352*/ curfptr[351]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V350*/ curfptr[349]); + basilysgc_touch(/*_.VALDATA___V351*/ curfptr[350]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V353*/ curfptr[352]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V353*/ curfptr[352]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V354*/ curfptr[353]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V338*/ curfptr[337]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V353*/ curfptr[352]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V339*/ curfptr[338]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V355*/ curfptr[354]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V355*/ curfptr[354])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V355*/ curfptr[354]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V355*/ curfptr[354]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V355*/ curfptr[354])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V355*/ curfptr[354]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V355*/ curfptr[354]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V355*/ curfptr[354])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V355*/ curfptr[354]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V355*/ curfptr[354]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V355*/ curfptr[354])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V355*/ curfptr[354]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V354*/ curfptr[353]); + basilysgc_touch(/*_.VALTUP___V355*/ curfptr[354]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V354*/ curfptr[353]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V353*/ curfptr[352]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V355*/ curfptr[354]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V355*/ curfptr[354]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V356*/ curfptr[355]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V356*/ curfptr[355])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V356*/ curfptr[355])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V356*/ curfptr[355]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V357*/ curfptr[356]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V355*/ curfptr[354]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V352*/ curfptr[351]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V356*/ curfptr[355])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V356*/ curfptr[355])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V356*/ curfptr[355]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V353*/ curfptr[352]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V355*/ curfptr[354]); + basilysgc_touch(/*_.VALDATA___V356*/ curfptr[355]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V357*/ curfptr[356])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V357*/ curfptr[356])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V357*/ curfptr[356]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V358*/ curfptr[357]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V358*/ curfptr[357])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V358*/ curfptr[357])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V358*/ curfptr[357]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V359*/ curfptr[358]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V357*/ curfptr[356])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V357*/ curfptr[356])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V357*/ curfptr[356]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V352*/ curfptr[351]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V358*/ curfptr[357])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V358*/ curfptr[357])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V358*/ curfptr[357]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V353*/ curfptr[352]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V357*/ curfptr[356]); + basilysgc_touch(/*_.VALDATA___V358*/ curfptr[357]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V359*/ curfptr[358])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V359*/ curfptr[358])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V359*/ curfptr[358]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V360*/ curfptr[359]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V360*/ curfptr[359])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V360*/ curfptr[359])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V360*/ curfptr[359]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V361*/ curfptr[360]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V359*/ curfptr[358])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V359*/ curfptr[358])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V359*/ curfptr[358]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V352*/ curfptr[351]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V360*/ curfptr[359])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V360*/ curfptr[359])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V360*/ curfptr[359]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V353*/ curfptr[352]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V359*/ curfptr[358]); + basilysgc_touch(/*_.VALDATA___V360*/ curfptr[359]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V341*/ curfptr[340]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V342*/ curfptr[341]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V344*/ curfptr[343]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V356*/ curfptr[355]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V357*/ curfptr[356]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V358*/ curfptr[357]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V361*/ curfptr[360])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V361*/ curfptr[360]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V359*/ curfptr[358]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V362*/ curfptr[361])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V362*/ curfptr[361]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V360*/ curfptr[359]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V361*/ curfptr[360]); + basilysgc_touch(/*_.VALTUP___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V361*/ curfptr[360]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V353*/ curfptr[352]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-macro.bysl:207:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V352*/ curfptr[351]); + basilysgc_touch(/*_.VALDATA___V353*/ curfptr[352]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V363*/ curfptr[362]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V363*/ curfptr[362]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V364*/ curfptr[363]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V362*/ curfptr[361]); + basilysgc_touch(/*_.VALDATA___V363*/ curfptr[362]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V364*/ curfptr[363])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V364*/ curfptr[363])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V364*/ curfptr[363]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V365*/ curfptr[364]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V365*/ curfptr[364])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V365*/ curfptr[364])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V365*/ curfptr[364]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V366*/ curfptr[365]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V364*/ curfptr[363]); + basilysgc_touch(/*_.VALDATA___V365*/ curfptr[364]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V366*/ curfptr[365])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V366*/ curfptr[365])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V366*/ curfptr[365]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V367*/ curfptr[366]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V367*/ curfptr[366])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V367*/ curfptr[366])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V367*/ curfptr[366]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V368*/ curfptr[367]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V366*/ curfptr[365]); + basilysgc_touch(/*_.VALDATA___V367*/ curfptr[366]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V368*/ curfptr[367])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V368*/ curfptr[367])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V368*/ curfptr[367]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V369*/ curfptr[368]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V369*/ curfptr[368])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V369*/ curfptr[368])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V370*/ curfptr[369]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V368*/ curfptr[367]); + basilysgc_touch(/*_.VALDATA___V369*/ curfptr[368]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V370*/ curfptr[369]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V371*/ curfptr[370]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V371*/ curfptr[370]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V372*/ curfptr[371]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V370*/ curfptr[369]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V338*/ curfptr[337]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V371*/ curfptr[370]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V339*/ curfptr[338]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V372*/ curfptr[371]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V372*/ curfptr[371])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V372*/ curfptr[371]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V373*/ curfptr[372]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V373*/ curfptr[372])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V373*/ curfptr[372]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V372*/ curfptr[371]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V372*/ curfptr[371])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V372*/ curfptr[371]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V373*/ curfptr[372]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V373*/ curfptr[372])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V373*/ curfptr[372]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V372*/ curfptr[371]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V372*/ curfptr[371])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V372*/ curfptr[371]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V373*/ curfptr[372]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V373*/ curfptr[372])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V373*/ curfptr[372]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V372*/ curfptr[371]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V372*/ curfptr[371])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V372*/ curfptr[371]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V373*/ curfptr[372]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V373*/ curfptr[372])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V373*/ curfptr[372]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V372*/ curfptr[371]); + basilysgc_touch(/*_.VALTUP___V373*/ curfptr[372]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V370*/ curfptr[369]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V372*/ curfptr[371]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V371*/ curfptr[370]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V373*/ curfptr[372]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V373*/ curfptr[372])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V373*/ curfptr[372])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V373*/ curfptr[372]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V374*/ curfptr[373]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V374*/ curfptr[373]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V375*/ curfptr[374]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V373*/ curfptr[372])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V373*/ curfptr[372])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V373*/ curfptr[372]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V370*/ curfptr[369]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V374*/ curfptr[373]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V371*/ curfptr[370]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V373*/ curfptr[372]); + basilysgc_touch(/*_.VALDATA___V374*/ curfptr[373]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V375*/ curfptr[374])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V375*/ curfptr[374])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V375*/ curfptr[374]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V376*/ curfptr[375]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V376*/ curfptr[375]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V377*/ curfptr[376]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V375*/ curfptr[374])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V375*/ curfptr[374])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V375*/ curfptr[374]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V370*/ curfptr[369]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V376*/ curfptr[375]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V371*/ curfptr[370]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V375*/ curfptr[374]); + basilysgc_touch(/*_.VALDATA___V376*/ curfptr[375]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V377*/ curfptr[376]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V378*/ curfptr[377]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V378*/ curfptr[377])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V378*/ curfptr[377])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V378*/ curfptr[377]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V379*/ curfptr[378]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V377*/ curfptr[376]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V370*/ curfptr[369]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V378*/ curfptr[377])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V378*/ curfptr[377])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V378*/ curfptr[377]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V371*/ curfptr[370]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V377*/ curfptr[376]); + basilysgc_touch(/*_.VALDATA___V378*/ curfptr[377]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V379*/ curfptr[378])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V379*/ curfptr[378])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V380*/ curfptr[379]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V380*/ curfptr[379])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V380*/ curfptr[379])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V380*/ curfptr[379]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V381*/ curfptr[380]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V379*/ curfptr[378])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V379*/ curfptr[378])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V370*/ curfptr[369]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V380*/ curfptr[379])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V380*/ curfptr[379])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V380*/ curfptr[379]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V371*/ curfptr[370]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V379*/ curfptr[378]); + basilysgc_touch(/*_.VALDATA___V380*/ curfptr[379]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V341*/ curfptr[340]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V342*/ curfptr[341]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V344*/ curfptr[343]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V373*/ curfptr[372]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V375*/ curfptr[374]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V378*/ curfptr[377]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V382*/ curfptr[381])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V382*/ curfptr[381]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V380*/ curfptr[379]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V381*/ curfptr[380]); + basilysgc_touch(/*_.VALTUP___V382*/ curfptr[381]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V370*/ curfptr[369]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V381*/ curfptr[380]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V371*/ curfptr[370]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V382*/ curfptr[381]); BASILYS_LOCATION("warmelt-macro.bysl:216:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V370*/ curfptr[369]); + basilysgc_touch(/*_.VALDATA___V371*/ curfptr[370]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V382*/ curfptr[381])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V382*/ curfptr[381])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V382*/ curfptr[381]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V383*/ curfptr[382]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V383*/ curfptr[382])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V383*/ curfptr[382])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V383*/ curfptr[382]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V384*/ curfptr[383]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V382*/ curfptr[381]); + basilysgc_touch(/*_.VALDATA___V383*/ curfptr[382]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V384*/ curfptr[383])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V384*/ curfptr[383])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V384*/ curfptr[383]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V385*/ curfptr[384]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V385*/ curfptr[384])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V385*/ curfptr[384])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V385*/ curfptr[384]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V386*/ curfptr[385]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V384*/ curfptr[383]); + basilysgc_touch(/*_.VALDATA___V385*/ curfptr[384]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V386*/ curfptr[385]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V387*/ curfptr[386]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V387*/ curfptr[386])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V387*/ curfptr[386])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V387*/ curfptr[386]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V388*/ curfptr[387]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V386*/ curfptr[385]); + basilysgc_touch(/*_.VALDATA___V387*/ curfptr[386]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V388*/ curfptr[387])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V388*/ curfptr[387])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V388*/ curfptr[387]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V389*/ curfptr[388]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V389*/ curfptr[388])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V389*/ curfptr[388])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V389*/ curfptr[388]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V390*/ curfptr[389]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V388*/ curfptr[387]); + basilysgc_touch(/*_.VALDATA___V389*/ curfptr[388]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V390*/ curfptr[389])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V390*/ curfptr[389])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V390*/ curfptr[389]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V391*/ curfptr[390]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V391*/ curfptr[390])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V391*/ curfptr[390])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V391*/ curfptr[390]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V392*/ curfptr[391]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V390*/ curfptr[389]); + basilysgc_touch(/*_.VALDATA___V391*/ curfptr[390]); BASILYS_LOCATION("warmelt-macro.bysl:225:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V392*/ curfptr[391])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V392*/ curfptr[391])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V392*/ curfptr[391]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V393*/ curfptr[392]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V393*/ curfptr[392]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V394*/ curfptr[393]); BASILYS_LOCATION("warmelt-macro.bysl:225:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V392*/ curfptr[391])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V392*/ curfptr[391])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V392*/ curfptr[391]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V370*/ curfptr[369]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V393*/ curfptr[392]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V371*/ curfptr[370]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V394*/ curfptr[393]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V394*/ curfptr[393])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V394*/ curfptr[393]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V394*/ curfptr[393]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V394*/ curfptr[393])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V394*/ curfptr[393]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V394*/ curfptr[393]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V394*/ curfptr[393])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V394*/ curfptr[393]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V394*/ curfptr[393]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V394*/ curfptr[393])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V394*/ curfptr[393]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V394*/ curfptr[393]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V394*/ curfptr[393])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V394*/ curfptr[393]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V394*/ curfptr[393]); + basilysgc_touch(/*_.VALTUP___V395*/ curfptr[394]); BASILYS_LOCATION("warmelt-macro.bysl:225:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V392*/ curfptr[391])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V392*/ curfptr[391])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V392*/ curfptr[391]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V394*/ curfptr[393]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V393*/ curfptr[392]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V395*/ curfptr[394]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V341*/ curfptr[340]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V342*/ curfptr[341]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V344*/ curfptr[343]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V373*/ curfptr[372]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V375*/ curfptr[374]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V378*/ curfptr[377]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V395*/ curfptr[394])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V395*/ curfptr[394]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V396*/ curfptr[395])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V396*/ curfptr[395]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V380*/ curfptr[379]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V395*/ curfptr[394]); + basilysgc_touch(/*_.VALTUP___V396*/ curfptr[395]); BASILYS_LOCATION("warmelt-macro.bysl:225:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V392*/ curfptr[391])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V392*/ curfptr[391])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V392*/ curfptr[391]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V395*/ curfptr[394]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V393*/ curfptr[392]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V396*/ curfptr[395]); BASILYS_LOCATION("warmelt-macro.bysl:225:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V392*/ curfptr[391]); + basilysgc_touch(/*_.VALDATA___V393*/ curfptr[392]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V396*/ curfptr[395]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V397*/ curfptr[396]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V397*/ curfptr[396])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V397*/ curfptr[396])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V397*/ curfptr[396]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V398*/ curfptr[397]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V396*/ curfptr[395]); + basilysgc_touch(/*_.VALDATA___V397*/ curfptr[396]); BASILYS_LOCATION("warmelt-macro.bysl:230:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V398*/ curfptr[397]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V399*/ curfptr[398]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V399*/ curfptr[398]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V400*/ curfptr[399]); BASILYS_LOCATION("warmelt-macro.bysl:230:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V398*/ curfptr[397]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V399*/ curfptr[398]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V400*/ curfptr[399]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V400*/ curfptr[399])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V400*/ curfptr[399]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V401*/ curfptr[400]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V401*/ curfptr[400])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V401*/ curfptr[400]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V400*/ curfptr[399]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V400*/ curfptr[399])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V400*/ curfptr[399]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V401*/ curfptr[400]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V401*/ curfptr[400])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V401*/ curfptr[400]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V400*/ curfptr[399]); + basilysgc_touch(/*_.VALTUP___V401*/ curfptr[400]); BASILYS_LOCATION("warmelt-macro.bysl:230:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V398*/ curfptr[397]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V400*/ curfptr[399]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V399*/ curfptr[398]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V401*/ curfptr[400]); BASILYS_LOCATION("warmelt-macro.bysl:230:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V401*/ curfptr[400])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V401*/ curfptr[400])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V401*/ curfptr[400]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V402*/ curfptr[401]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V402*/ curfptr[401])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V402*/ curfptr[401])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V402*/ curfptr[401]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V403*/ curfptr[402]); BASILYS_LOCATION("warmelt-macro.bysl:230:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V401*/ curfptr[400])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V401*/ curfptr[400])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V401*/ curfptr[400]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V398*/ curfptr[397]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V402*/ curfptr[401])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V402*/ curfptr[401])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V402*/ curfptr[401]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V399*/ curfptr[398]); BASILYS_LOCATION("warmelt-macro.bysl:230:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V401*/ curfptr[400]); + basilysgc_touch(/*_.VALDATA___V402*/ curfptr[401]); BASILYS_LOCATION("warmelt-macro.bysl:230:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V403*/ curfptr[402])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V403*/ curfptr[402])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V403*/ curfptr[402]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V404*/ curfptr[403]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V404*/ curfptr[403])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V404*/ curfptr[403])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V404*/ curfptr[403]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V405*/ curfptr[404]); BASILYS_LOCATION("warmelt-macro.bysl:230:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V403*/ curfptr[402])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V403*/ curfptr[402])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V403*/ curfptr[402]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V398*/ curfptr[397]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V404*/ curfptr[403])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V404*/ curfptr[403])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V404*/ curfptr[403]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V399*/ curfptr[398]); BASILYS_LOCATION("warmelt-macro.bysl:230:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V403*/ curfptr[402]); + basilysgc_touch(/*_.VALDATA___V404*/ curfptr[403]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V405*/ curfptr[404]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V405*/ curfptr[404])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V405*/ curfptr[404]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V406*/ curfptr[405]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V406*/ curfptr[405])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V406*/ curfptr[405]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V405*/ curfptr[404]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V405*/ curfptr[404])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V405*/ curfptr[404]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V401*/ curfptr[400]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V406*/ curfptr[405]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V406*/ curfptr[405])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V406*/ curfptr[405]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V402*/ curfptr[401]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V405*/ curfptr[404]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V405*/ curfptr[404])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V405*/ curfptr[404]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V403*/ curfptr[402]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V406*/ curfptr[405]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V406*/ curfptr[405])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V406*/ curfptr[405]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V404*/ curfptr[403]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V405*/ curfptr[404]); + basilysgc_touch(/*_.VALTUP___V406*/ curfptr[405]); BASILYS_LOCATION("warmelt-macro.bysl:230:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V398*/ curfptr[397]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V405*/ curfptr[404]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V399*/ curfptr[398]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V406*/ curfptr[405]); BASILYS_LOCATION("warmelt-macro.bysl:230:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V398*/ curfptr[397]); + basilysgc_touch(/*_.VALDATA___V399*/ curfptr[398]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V406*/ curfptr[405])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V406*/ curfptr[405])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V406*/ curfptr[405]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V407*/ curfptr[406]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V407*/ curfptr[406])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V407*/ curfptr[406])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V407*/ curfptr[406]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V408*/ curfptr[407]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V406*/ curfptr[405]); + basilysgc_touch(/*_.VALDATA___V407*/ curfptr[406]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V408*/ curfptr[407])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V408*/ curfptr[407])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V408*/ curfptr[407]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V409*/ curfptr[408]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V409*/ curfptr[408]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V410*/ curfptr[409]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V408*/ curfptr[407]); + basilysgc_touch(/*_.VALDATA___V409*/ curfptr[408]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V410*/ curfptr[409]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V411*/ curfptr[410]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V411*/ curfptr[410])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V411*/ curfptr[410])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V411*/ curfptr[410]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V412*/ curfptr[411]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V410*/ curfptr[409]); + basilysgc_touch(/*_.VALDATA___V411*/ curfptr[410]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V412*/ curfptr[411]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V413*/ curfptr[412]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V413*/ curfptr[412]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V414*/ curfptr[413]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V412*/ curfptr[411]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V413*/ curfptr[412]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V414*/ curfptr[413]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V414*/ curfptr[413])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V414*/ curfptr[413]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V415*/ curfptr[414]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V415*/ curfptr[414])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V415*/ curfptr[414]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V414*/ curfptr[413]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V414*/ curfptr[413])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V414*/ curfptr[413]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V415*/ curfptr[414]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V415*/ curfptr[414])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V415*/ curfptr[414]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V414*/ curfptr[413]); + basilysgc_touch(/*_.VALTUP___V415*/ curfptr[414]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V412*/ curfptr[411]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V414*/ curfptr[413]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V413*/ curfptr[412]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V415*/ curfptr[414]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V415*/ curfptr[414]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V416*/ curfptr[415]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V416*/ curfptr[415])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V416*/ curfptr[415])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V416*/ curfptr[415]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V417*/ curfptr[416]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V415*/ curfptr[414]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V412*/ curfptr[411]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V416*/ curfptr[415])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V416*/ curfptr[415])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V416*/ curfptr[415]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V413*/ curfptr[412]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V415*/ curfptr[414]); + basilysgc_touch(/*_.VALDATA___V416*/ curfptr[415]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V417*/ curfptr[416])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V417*/ curfptr[416])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V417*/ curfptr[416]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V418*/ curfptr[417]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V418*/ curfptr[417])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V418*/ curfptr[417])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V418*/ curfptr[417]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V419*/ curfptr[418]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V417*/ curfptr[416])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V417*/ curfptr[416])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V417*/ curfptr[416]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V412*/ curfptr[411]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V418*/ curfptr[417])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V418*/ curfptr[417])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V418*/ curfptr[417]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V413*/ curfptr[412]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V417*/ curfptr[416]); + basilysgc_touch(/*_.VALDATA___V418*/ curfptr[417]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V419*/ curfptr[418])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V419*/ curfptr[418])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V419*/ curfptr[418]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V420*/ curfptr[419]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V420*/ curfptr[419])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V420*/ curfptr[419])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V420*/ curfptr[419]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V421*/ curfptr[420]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V419*/ curfptr[418])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V419*/ curfptr[418])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V419*/ curfptr[418]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V412*/ curfptr[411]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V420*/ curfptr[419])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V420*/ curfptr[419])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V420*/ curfptr[419]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V413*/ curfptr[412]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V419*/ curfptr[418]); + basilysgc_touch(/*_.VALDATA___V420*/ curfptr[419]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V421*/ curfptr[420]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V421*/ curfptr[420])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V421*/ curfptr[420]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V422*/ curfptr[421]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V422*/ curfptr[421])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V422*/ curfptr[421]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V421*/ curfptr[420]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V421*/ curfptr[420])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V421*/ curfptr[420]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V422*/ curfptr[421]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V422*/ curfptr[421])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V422*/ curfptr[421]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V416*/ curfptr[415]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V421*/ curfptr[420]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V421*/ curfptr[420])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V421*/ curfptr[420]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V417*/ curfptr[416]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V422*/ curfptr[421]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V422*/ curfptr[421])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V422*/ curfptr[421]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V418*/ curfptr[417]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V421*/ curfptr[420]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V421*/ curfptr[420])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V421*/ curfptr[420]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V419*/ curfptr[418]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V422*/ curfptr[421]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V422*/ curfptr[421])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V422*/ curfptr[421]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V420*/ curfptr[419]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V421*/ curfptr[420]); + basilysgc_touch(/*_.VALTUP___V422*/ curfptr[421]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V412*/ curfptr[411]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V421*/ curfptr[420]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V413*/ curfptr[412]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V422*/ curfptr[421]); BASILYS_LOCATION("warmelt-macro.bysl:238:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V412*/ curfptr[411]); + basilysgc_touch(/*_.VALDATA___V413*/ curfptr[412]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V422*/ curfptr[421])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V422*/ curfptr[421])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V422*/ curfptr[421]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V423*/ curfptr[422]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V423*/ curfptr[422])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V423*/ curfptr[422])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V424*/ curfptr[423]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V422*/ curfptr[421]); + basilysgc_touch(/*_.VALDATA___V423*/ curfptr[422]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V424*/ curfptr[423]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V425*/ curfptr[424]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V425*/ curfptr[424])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V425*/ curfptr[424])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V425*/ curfptr[424]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V426*/ curfptr[425]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V424*/ curfptr[423]); + basilysgc_touch(/*_.VALDATA___V425*/ curfptr[424]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V426*/ curfptr[425])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V426*/ curfptr[425])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V426*/ curfptr[425]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V427*/ curfptr[426]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V427*/ curfptr[426])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V427*/ curfptr[426])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V427*/ curfptr[426]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V428*/ curfptr[427]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V426*/ curfptr[425]); + basilysgc_touch(/*_.VALDATA___V427*/ curfptr[426]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V428*/ curfptr[427])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V428*/ curfptr[427])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V428*/ curfptr[427]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V429*/ curfptr[428]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V429*/ curfptr[428])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V429*/ curfptr[428])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V429*/ curfptr[428]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V430*/ curfptr[429]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V428*/ curfptr[427]); + basilysgc_touch(/*_.VALDATA___V429*/ curfptr[428]); BASILYS_LOCATION("warmelt-macro.bysl:246:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V430*/ curfptr[429]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V431*/ curfptr[430]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V431*/ curfptr[430])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V431*/ curfptr[430])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V431*/ curfptr[430]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V432*/ curfptr[431]); BASILYS_LOCATION("warmelt-macro.bysl:246:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V430*/ curfptr[429]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V431*/ curfptr[430])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V431*/ curfptr[430])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V431*/ curfptr[430]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V432*/ curfptr[431]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V432*/ curfptr[431])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V432*/ curfptr[431]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V433*/ curfptr[432]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V433*/ curfptr[432])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V433*/ curfptr[432]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V432*/ curfptr[431]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V432*/ curfptr[431])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V432*/ curfptr[431]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V433*/ curfptr[432]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V433*/ curfptr[432])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V433*/ curfptr[432]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V432*/ curfptr[431]); + basilysgc_touch(/*_.VALTUP___V433*/ curfptr[432]); BASILYS_LOCATION("warmelt-macro.bysl:246:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V430*/ curfptr[429]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V432*/ curfptr[431]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V431*/ curfptr[430])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V431*/ curfptr[430])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V431*/ curfptr[430]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V433*/ curfptr[432]); BASILYS_LOCATION("warmelt-macro.bysl:246:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V433*/ curfptr[432])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V433*/ curfptr[432])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V433*/ curfptr[432]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V434*/ curfptr[433]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V434*/ curfptr[433])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V434*/ curfptr[433])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V434*/ curfptr[433]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V435*/ curfptr[434]); BASILYS_LOCATION("warmelt-macro.bysl:246:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V433*/ curfptr[432])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V433*/ curfptr[432])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V433*/ curfptr[432]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V430*/ curfptr[429]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V434*/ curfptr[433])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V434*/ curfptr[433])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V434*/ curfptr[433]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V431*/ curfptr[430]); BASILYS_LOCATION("warmelt-macro.bysl:246:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V433*/ curfptr[432]); + basilysgc_touch(/*_.VALDATA___V434*/ curfptr[433]); BASILYS_LOCATION("warmelt-macro.bysl:246:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V435*/ curfptr[434])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V435*/ curfptr[434])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V435*/ curfptr[434]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V436*/ curfptr[435]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V436*/ curfptr[435]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V437*/ curfptr[436]); BASILYS_LOCATION("warmelt-macro.bysl:246:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V435*/ curfptr[434])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V435*/ curfptr[434])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V435*/ curfptr[434]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V430*/ curfptr[429]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V436*/ curfptr[435]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V431*/ curfptr[430]); BASILYS_LOCATION("warmelt-macro.bysl:246:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V435*/ curfptr[434]); + basilysgc_touch(/*_.VALDATA___V436*/ curfptr[435]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V437*/ curfptr[436]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V437*/ curfptr[436])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V437*/ curfptr[436]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V438*/ curfptr[437]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V438*/ curfptr[437])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V438*/ curfptr[437]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V437*/ curfptr[436]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V437*/ curfptr[436])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V437*/ curfptr[436]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V433*/ curfptr[432]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V438*/ curfptr[437]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V438*/ curfptr[437])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V438*/ curfptr[437]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V434*/ curfptr[433]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V437*/ curfptr[436]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V437*/ curfptr[436])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V437*/ curfptr[436]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V435*/ curfptr[434]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V438*/ curfptr[437]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V438*/ curfptr[437])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V438*/ curfptr[437]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V437*/ curfptr[436]); + basilysgc_touch(/*_.VALTUP___V438*/ curfptr[437]); BASILYS_LOCATION("warmelt-macro.bysl:246:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V430*/ curfptr[429]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V437*/ curfptr[436]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V431*/ curfptr[430])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V431*/ curfptr[430])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V431*/ curfptr[430]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V438*/ curfptr[437]); BASILYS_LOCATION("warmelt-macro.bysl:246:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V430*/ curfptr[429]); + basilysgc_touch(/*_.VALDATA___V431*/ curfptr[430]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V438*/ curfptr[437]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V439*/ curfptr[438]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V439*/ curfptr[438])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V439*/ curfptr[438])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V439*/ curfptr[438]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V440*/ curfptr[439]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V438*/ curfptr[437]); + basilysgc_touch(/*_.VALDATA___V439*/ curfptr[438]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V440*/ curfptr[439])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V440*/ curfptr[439])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V440*/ curfptr[439]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V441*/ curfptr[440]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V441*/ curfptr[440]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V442*/ curfptr[441]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V440*/ curfptr[439]); + basilysgc_touch(/*_.VALDATA___V441*/ curfptr[440]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V442*/ curfptr[441])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V442*/ curfptr[441])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V442*/ curfptr[441]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V443*/ curfptr[442]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V443*/ curfptr[442])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V443*/ curfptr[442])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V443*/ curfptr[442]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V444*/ curfptr[443]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V442*/ curfptr[441]); + basilysgc_touch(/*_.VALDATA___V443*/ curfptr[442]); BASILYS_LOCATION("warmelt-macro.bysl:254:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V444*/ curfptr[443]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V445*/ curfptr[444]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V445*/ curfptr[444])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V445*/ curfptr[444])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V445*/ curfptr[444]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V446*/ curfptr[445]); BASILYS_LOCATION("warmelt-macro.bysl:254:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V444*/ curfptr[443]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V430*/ curfptr[429]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V445*/ curfptr[444])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V445*/ curfptr[444])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V445*/ curfptr[444]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V431*/ curfptr[430]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V446*/ curfptr[445]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V446*/ curfptr[445])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V446*/ curfptr[445]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V447*/ curfptr[446]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V447*/ curfptr[446])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V447*/ curfptr[446]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V446*/ curfptr[445]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V446*/ curfptr[445])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V446*/ curfptr[445]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V447*/ curfptr[446]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V447*/ curfptr[446])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V447*/ curfptr[446]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V446*/ curfptr[445]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V446*/ curfptr[445])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V446*/ curfptr[445]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V447*/ curfptr[446]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V447*/ curfptr[446])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V447*/ curfptr[446]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V431*/ curfptr[430]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V446*/ curfptr[445]); + basilysgc_touch(/*_.VALTUP___V447*/ curfptr[446]); BASILYS_LOCATION("warmelt-macro.bysl:254:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V444*/ curfptr[443]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V446*/ curfptr[445]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V445*/ curfptr[444])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V445*/ curfptr[444])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V445*/ curfptr[444]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V447*/ curfptr[446]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V447*/ curfptr[446]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V447*/ curfptr[446])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V447*/ curfptr[446]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V448*/ curfptr[447]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V448*/ curfptr[447])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V448*/ curfptr[447]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V447*/ curfptr[446]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V447*/ curfptr[446])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V447*/ curfptr[446]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V433*/ curfptr[432]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V448*/ curfptr[447]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V448*/ curfptr[447])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V448*/ curfptr[447]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V434*/ curfptr[433]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V447*/ curfptr[446]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V447*/ curfptr[446])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V447*/ curfptr[446]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V435*/ curfptr[434]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V448*/ curfptr[447]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V448*/ curfptr[447])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V448*/ curfptr[447]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V447*/ curfptr[446]); + basilysgc_touch(/*_.VALTUP___V448*/ curfptr[447]); BASILYS_LOCATION("warmelt-macro.bysl:254:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V444*/ curfptr[443]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V447*/ curfptr[446]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V445*/ curfptr[444])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V445*/ curfptr[444])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V445*/ curfptr[444]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V448*/ curfptr[447]); BASILYS_LOCATION("warmelt-macro.bysl:254:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V444*/ curfptr[443]); + basilysgc_touch(/*_.VALDATA___V445*/ curfptr[444]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V448*/ curfptr[447]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V449*/ curfptr[448]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V449*/ curfptr[448])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V449*/ curfptr[448])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V449*/ curfptr[448]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V450*/ curfptr[449]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V448*/ curfptr[447]); + basilysgc_touch(/*_.VALDATA___V449*/ curfptr[448]); BASILYS_LOCATION("warmelt-macro.bysl:262:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V450*/ curfptr[449]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V451*/ curfptr[450]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V452*/ curfptr[451]); BASILYS_LOCATION("warmelt-macro.bysl:262:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V450*/ curfptr[449]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V452*/ curfptr[451]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V452*/ curfptr[451])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V452*/ curfptr[451]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V453*/ curfptr[452]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V453*/ curfptr[452])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V453*/ curfptr[452]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V452*/ curfptr[451]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V452*/ curfptr[451])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V452*/ curfptr[451]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V453*/ curfptr[452]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V453*/ curfptr[452])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V453*/ curfptr[452]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V452*/ curfptr[451]); + basilysgc_touch(/*_.VALTUP___V453*/ curfptr[452]); BASILYS_LOCATION("warmelt-macro.bysl:262:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V450*/ curfptr[449]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V452*/ curfptr[451]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V453*/ curfptr[452]); BASILYS_LOCATION("warmelt-macro.bysl:262:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V453*/ curfptr[452])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V453*/ curfptr[452])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V453*/ curfptr[452]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V454*/ curfptr[453]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V454*/ curfptr[453])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V454*/ curfptr[453])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V454*/ curfptr[453]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V455*/ curfptr[454]); BASILYS_LOCATION("warmelt-macro.bysl:262:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V453*/ curfptr[452])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V453*/ curfptr[452])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V453*/ curfptr[452]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V450*/ curfptr[449]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V454*/ curfptr[453])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V454*/ curfptr[453])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V454*/ curfptr[453]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V451*/ curfptr[450]); BASILYS_LOCATION("warmelt-macro.bysl:262:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V453*/ curfptr[452]); + basilysgc_touch(/*_.VALDATA___V454*/ curfptr[453]); BASILYS_LOCATION("warmelt-macro.bysl:262:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V455*/ curfptr[454])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V455*/ curfptr[454])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V455*/ curfptr[454]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V456*/ curfptr[455]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V456*/ curfptr[455])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V456*/ curfptr[455])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V456*/ curfptr[455]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V457*/ curfptr[456]); BASILYS_LOCATION("warmelt-macro.bysl:262:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V455*/ curfptr[454])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V455*/ curfptr[454])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V455*/ curfptr[454]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V450*/ curfptr[449]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V456*/ curfptr[455])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V456*/ curfptr[455])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V456*/ curfptr[455]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V451*/ curfptr[450]); BASILYS_LOCATION("warmelt-macro.bysl:262:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V455*/ curfptr[454]); + basilysgc_touch(/*_.VALDATA___V456*/ curfptr[455]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V458*/ curfptr[457]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V458*/ curfptr[457])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V458*/ curfptr[457]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V453*/ curfptr[452]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V458*/ curfptr[457]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V458*/ curfptr[457])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V458*/ curfptr[457]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V454*/ curfptr[453]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V455*/ curfptr[454]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V458*/ curfptr[457]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V458*/ curfptr[457])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V458*/ curfptr[457]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V456*/ curfptr[455]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V457*/ curfptr[456]); + basilysgc_touch(/*_.VALTUP___V458*/ curfptr[457]); BASILYS_LOCATION("warmelt-macro.bysl:262:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V450*/ curfptr[449]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V457*/ curfptr[456]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V458*/ curfptr[457]); BASILYS_LOCATION("warmelt-macro.bysl:262:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V450*/ curfptr[449]); + basilysgc_touch(/*_.VALDATA___V451*/ curfptr[450]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V458*/ curfptr[457])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V458*/ curfptr[457])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V458*/ curfptr[457]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V459*/ curfptr[458]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V459*/ curfptr[458])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V459*/ curfptr[458])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V459*/ curfptr[458]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V460*/ curfptr[459]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V458*/ curfptr[457]); + basilysgc_touch(/*_.VALDATA___V459*/ curfptr[458]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V460*/ curfptr[459])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V460*/ curfptr[459])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V460*/ curfptr[459]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V461*/ curfptr[460]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V461*/ curfptr[460])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V461*/ curfptr[460])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V461*/ curfptr[460]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V462*/ curfptr[461]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V460*/ curfptr[459]); + basilysgc_touch(/*_.VALDATA___V461*/ curfptr[460]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V462*/ curfptr[461]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V463*/ curfptr[462]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V463*/ curfptr[462])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V463*/ curfptr[462])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V463*/ curfptr[462]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V464*/ curfptr[463]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V462*/ curfptr[461]); + basilysgc_touch(/*_.VALDATA___V463*/ curfptr[462]); BASILYS_LOCATION("warmelt-macro.bysl:269:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V464*/ curfptr[463]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V465*/ curfptr[464]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V465*/ curfptr[464])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V465*/ curfptr[464])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V465*/ curfptr[464]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-macro.bysl:269:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V464*/ curfptr[463]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V450*/ curfptr[449]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V465*/ curfptr[464])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V465*/ curfptr[464])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V465*/ curfptr[464]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V451*/ curfptr[450]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V466*/ curfptr[465]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V466*/ curfptr[465])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V466*/ curfptr[465]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V467*/ curfptr[466]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V467*/ curfptr[466])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V467*/ curfptr[466]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V466*/ curfptr[465]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V466*/ curfptr[465])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V466*/ curfptr[465]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V467*/ curfptr[466]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V467*/ curfptr[466])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V467*/ curfptr[466]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V466*/ curfptr[465]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V466*/ curfptr[465])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V466*/ curfptr[465]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V467*/ curfptr[466]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V467*/ curfptr[466])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V467*/ curfptr[466]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V466*/ curfptr[465]); + basilysgc_touch(/*_.VALTUP___V467*/ curfptr[466]); BASILYS_LOCATION("warmelt-macro.bysl:269:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V464*/ curfptr[463]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V466*/ curfptr[465]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V465*/ curfptr[464])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V465*/ curfptr[464])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V465*/ curfptr[464]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V467*/ curfptr[466]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V467*/ curfptr[466]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V467*/ curfptr[466])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V467*/ curfptr[466]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V468*/ curfptr[467]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V468*/ curfptr[467])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V468*/ curfptr[467]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V467*/ curfptr[466]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V467*/ curfptr[466])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V467*/ curfptr[466]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V453*/ curfptr[452]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V468*/ curfptr[467]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V468*/ curfptr[467])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V468*/ curfptr[467]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V454*/ curfptr[453]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V467*/ curfptr[466]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V467*/ curfptr[466])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V467*/ curfptr[466]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V455*/ curfptr[454]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V468*/ curfptr[467]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V468*/ curfptr[467])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V468*/ curfptr[467]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V456*/ curfptr[455]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V467*/ curfptr[466]); + basilysgc_touch(/*_.VALTUP___V468*/ curfptr[467]); BASILYS_LOCATION("warmelt-macro.bysl:269:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V464*/ curfptr[463]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V467*/ curfptr[466]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V465*/ curfptr[464])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V465*/ curfptr[464])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V465*/ curfptr[464]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V468*/ curfptr[467]); BASILYS_LOCATION("warmelt-macro.bysl:269:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V464*/ curfptr[463]); + basilysgc_touch(/*_.VALDATA___V465*/ curfptr[464]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V468*/ curfptr[467])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V468*/ curfptr[467])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V468*/ curfptr[467]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V469*/ curfptr[468]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V469*/ curfptr[468])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V469*/ curfptr[468])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V469*/ curfptr[468]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V470*/ curfptr[469]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V468*/ curfptr[467]); + basilysgc_touch(/*_.VALDATA___V469*/ curfptr[468]); BASILYS_LOCATION("warmelt-macro.bysl:276:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V470*/ curfptr[469]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V471*/ curfptr[470]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V471*/ curfptr[470]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V472*/ curfptr[471]); BASILYS_LOCATION("warmelt-macro.bysl:276:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V470*/ curfptr[469]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V471*/ curfptr[470]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V472*/ curfptr[471]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V472*/ curfptr[471])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V472*/ curfptr[471]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V473*/ curfptr[472]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V473*/ curfptr[472])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V473*/ curfptr[472]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V472*/ curfptr[471]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V472*/ curfptr[471])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V472*/ curfptr[471]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V473*/ curfptr[472]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V473*/ curfptr[472])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V473*/ curfptr[472]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V472*/ curfptr[471]); + basilysgc_touch(/*_.VALTUP___V473*/ curfptr[472]); BASILYS_LOCATION("warmelt-macro.bysl:276:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V470*/ curfptr[469]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V472*/ curfptr[471]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V471*/ curfptr[470]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V473*/ curfptr[472]); BASILYS_LOCATION("warmelt-macro.bysl:276:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V473*/ curfptr[472])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V473*/ curfptr[472])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V473*/ curfptr[472]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V474*/ curfptr[473]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V474*/ curfptr[473]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V475*/ curfptr[474]); BASILYS_LOCATION("warmelt-macro.bysl:276:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V473*/ curfptr[472])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V473*/ curfptr[472])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V473*/ curfptr[472]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V470*/ curfptr[469]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V474*/ curfptr[473]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V471*/ curfptr[470]); BASILYS_LOCATION("warmelt-macro.bysl:276:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V473*/ curfptr[472]); + basilysgc_touch(/*_.VALDATA___V474*/ curfptr[473]); BASILYS_LOCATION("warmelt-macro.bysl:276:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V475*/ curfptr[474])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V475*/ curfptr[474])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V475*/ curfptr[474]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V476*/ curfptr[475]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V476*/ curfptr[475]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V477*/ curfptr[476]); BASILYS_LOCATION("warmelt-macro.bysl:276:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V475*/ curfptr[474])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V475*/ curfptr[474])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V475*/ curfptr[474]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V470*/ curfptr[469]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V476*/ curfptr[475]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V471*/ curfptr[470]); BASILYS_LOCATION("warmelt-macro.bysl:276:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V475*/ curfptr[474]); + basilysgc_touch(/*_.VALDATA___V476*/ curfptr[475]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V477*/ curfptr[476]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V477*/ curfptr[476])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V477*/ curfptr[476]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V478*/ curfptr[477]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V478*/ curfptr[477])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V478*/ curfptr[477]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V477*/ curfptr[476]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V477*/ curfptr[476])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V477*/ curfptr[476]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V473*/ curfptr[472]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V478*/ curfptr[477]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V478*/ curfptr[477])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V478*/ curfptr[477]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V477*/ curfptr[476]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V477*/ curfptr[476])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V477*/ curfptr[476]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V475*/ curfptr[474]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V478*/ curfptr[477]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V478*/ curfptr[477])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V478*/ curfptr[477]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V477*/ curfptr[476]); + basilysgc_touch(/*_.VALTUP___V478*/ curfptr[477]); BASILYS_LOCATION("warmelt-macro.bysl:276:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V470*/ curfptr[469]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V477*/ curfptr[476]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V471*/ curfptr[470]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V478*/ curfptr[477]); BASILYS_LOCATION("warmelt-macro.bysl:276:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V470*/ curfptr[469]); + basilysgc_touch(/*_.VALDATA___V471*/ curfptr[470]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V478*/ curfptr[477])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V478*/ curfptr[477])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V478*/ curfptr[477]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V479*/ curfptr[478]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V479*/ curfptr[478])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V479*/ curfptr[478])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V479*/ curfptr[478]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V480*/ curfptr[479]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V478*/ curfptr[477]); + basilysgc_touch(/*_.VALDATA___V479*/ curfptr[478]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V480*/ curfptr[479])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V480*/ curfptr[479])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V480*/ curfptr[479]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V481*/ curfptr[480]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V481*/ curfptr[480])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V481*/ curfptr[480])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V481*/ curfptr[480]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V482*/ curfptr[481]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V480*/ curfptr[479]); + basilysgc_touch(/*_.VALDATA___V481*/ curfptr[480]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V482*/ curfptr[481])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V482*/ curfptr[481])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V482*/ curfptr[481]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V483*/ curfptr[482]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V483*/ curfptr[482])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V483*/ curfptr[482])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V483*/ curfptr[482]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V484*/ curfptr[483]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V482*/ curfptr[481]); + basilysgc_touch(/*_.VALDATA___V483*/ curfptr[482]); BASILYS_LOCATION("warmelt-macro.bysl:282:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V485*/ curfptr[484]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V485*/ curfptr[484]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V486*/ curfptr[485]); BASILYS_LOCATION("warmelt-macro.bysl:282:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V470*/ curfptr[469]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V485*/ curfptr[484]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V471*/ curfptr[470]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V486*/ curfptr[485]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V486*/ curfptr[485])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V486*/ curfptr[485]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V487*/ curfptr[486]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V487*/ curfptr[486])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V487*/ curfptr[486]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V486*/ curfptr[485]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V486*/ curfptr[485])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V486*/ curfptr[485]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V487*/ curfptr[486]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V487*/ curfptr[486])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V487*/ curfptr[486]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V486*/ curfptr[485]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V486*/ curfptr[485])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V486*/ curfptr[485]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V487*/ curfptr[486]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V487*/ curfptr[486])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V487*/ curfptr[486]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V486*/ curfptr[485]); + basilysgc_touch(/*_.VALTUP___V487*/ curfptr[486]); BASILYS_LOCATION("warmelt-macro.bysl:282:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V486*/ curfptr[485]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V485*/ curfptr[484]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V487*/ curfptr[486]); BASILYS_LOCATION("warmelt-macro.bysl:282:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V487*/ curfptr[486])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V487*/ curfptr[486])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V487*/ curfptr[486]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V488*/ curfptr[487]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V488*/ curfptr[487])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V488*/ curfptr[487])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V488*/ curfptr[487]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V489*/ curfptr[488]); BASILYS_LOCATION("warmelt-macro.bysl:282:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V487*/ curfptr[486])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V487*/ curfptr[486])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V487*/ curfptr[486]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V484*/ curfptr[483]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V488*/ curfptr[487])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V488*/ curfptr[487])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V488*/ curfptr[487]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V485*/ curfptr[484]); BASILYS_LOCATION("warmelt-macro.bysl:282:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V487*/ curfptr[486]); + basilysgc_touch(/*_.VALDATA___V488*/ curfptr[487]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V489*/ curfptr[488]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V489*/ curfptr[488])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V489*/ curfptr[488]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V490*/ curfptr[489]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V490*/ curfptr[489])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V490*/ curfptr[489]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V489*/ curfptr[488]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V489*/ curfptr[488])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V489*/ curfptr[488]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V473*/ curfptr[472]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V490*/ curfptr[489]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V490*/ curfptr[489])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V490*/ curfptr[489]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V489*/ curfptr[488]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V489*/ curfptr[488])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V489*/ curfptr[488]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V475*/ curfptr[474]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V490*/ curfptr[489]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V490*/ curfptr[489])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V490*/ curfptr[489]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V489*/ curfptr[488]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V489*/ curfptr[488])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V489*/ curfptr[488]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V487*/ curfptr[486]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V490*/ curfptr[489]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V490*/ curfptr[489])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V490*/ curfptr[489]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V488*/ curfptr[487]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V489*/ curfptr[488]); + basilysgc_touch(/*_.VALTUP___V490*/ curfptr[489]); BASILYS_LOCATION("warmelt-macro.bysl:282:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V489*/ curfptr[488]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V485*/ curfptr[484]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V490*/ curfptr[489]); BASILYS_LOCATION("warmelt-macro.bysl:282:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V484*/ curfptr[483]); + basilysgc_touch(/*_.VALDATA___V485*/ curfptr[484]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V490*/ curfptr[489])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V490*/ curfptr[489])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V490*/ curfptr[489]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V491*/ curfptr[490]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V491*/ curfptr[490])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V491*/ curfptr[490])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V491*/ curfptr[490]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V492*/ curfptr[491]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V490*/ curfptr[489]); + basilysgc_touch(/*_.VALDATA___V491*/ curfptr[490]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V492*/ curfptr[491])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V492*/ curfptr[491])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V492*/ curfptr[491]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V493*/ curfptr[492]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V494*/ curfptr[493]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V492*/ curfptr[491]); + basilysgc_touch(/*_.VALDATA___V493*/ curfptr[492]); BASILYS_LOCATION("warmelt-macro.bysl:290:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V494*/ curfptr[493]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V495*/ curfptr[494]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V495*/ curfptr[494])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V495*/ curfptr[494])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V495*/ curfptr[494]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V496*/ curfptr[495]); BASILYS_LOCATION("warmelt-macro.bysl:290:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V494*/ curfptr[493]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V495*/ curfptr[494])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V495*/ curfptr[494])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V495*/ curfptr[494]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V496*/ curfptr[495]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V496*/ curfptr[495])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V496*/ curfptr[495]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V497*/ curfptr[496]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V497*/ curfptr[496])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V497*/ curfptr[496]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V496*/ curfptr[495]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V496*/ curfptr[495])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V496*/ curfptr[495]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V497*/ curfptr[496]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V497*/ curfptr[496])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V497*/ curfptr[496]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V496*/ curfptr[495]); + basilysgc_touch(/*_.VALTUP___V497*/ curfptr[496]); BASILYS_LOCATION("warmelt-macro.bysl:290:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V494*/ curfptr[493]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V496*/ curfptr[495]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V495*/ curfptr[494])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V495*/ curfptr[494])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V495*/ curfptr[494]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V497*/ curfptr[496]); BASILYS_LOCATION("warmelt-macro.bysl:290:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V497*/ curfptr[496])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V497*/ curfptr[496])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V497*/ curfptr[496]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V498*/ curfptr[497]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V498*/ curfptr[497])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V498*/ curfptr[497])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V498*/ curfptr[497]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V499*/ curfptr[498]); BASILYS_LOCATION("warmelt-macro.bysl:290:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V497*/ curfptr[496])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V497*/ curfptr[496])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V497*/ curfptr[496]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V494*/ curfptr[493]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V498*/ curfptr[497])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V498*/ curfptr[497])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V498*/ curfptr[497]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V495*/ curfptr[494]); BASILYS_LOCATION("warmelt-macro.bysl:290:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V497*/ curfptr[496]); + basilysgc_touch(/*_.VALDATA___V498*/ curfptr[497]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V499*/ curfptr[498]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V499*/ curfptr[498])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V499*/ curfptr[498]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V500*/ curfptr[499]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V500*/ curfptr[499])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V500*/ curfptr[499]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V499*/ curfptr[498]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V499*/ curfptr[498])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V499*/ curfptr[498]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V497*/ curfptr[496]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V500*/ curfptr[499]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V500*/ curfptr[499])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V500*/ curfptr[499]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V498*/ curfptr[497]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V499*/ curfptr[498]); + basilysgc_touch(/*_.VALTUP___V500*/ curfptr[499]); BASILYS_LOCATION("warmelt-macro.bysl:290:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V494*/ curfptr[493]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V499*/ curfptr[498]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V495*/ curfptr[494])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V495*/ curfptr[494])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V495*/ curfptr[494]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V500*/ curfptr[499]); BASILYS_LOCATION("warmelt-macro.bysl:290:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V494*/ curfptr[493]); + basilysgc_touch(/*_.VALDATA___V495*/ curfptr[494]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V500*/ curfptr[499]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V501*/ curfptr[500]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V501*/ curfptr[500])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V501*/ curfptr[500])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V501*/ curfptr[500]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V502*/ curfptr[501]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V500*/ curfptr[499]); + basilysgc_touch(/*_.VALDATA___V501*/ curfptr[500]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V502*/ curfptr[501]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V503*/ curfptr[502]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V503*/ curfptr[502]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V504*/ curfptr[503]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V502*/ curfptr[501]); + basilysgc_touch(/*_.VALDATA___V503*/ curfptr[502]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V504*/ curfptr[503])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V504*/ curfptr[503])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V504*/ curfptr[503]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V505*/ curfptr[504]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V506*/ curfptr[505]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V504*/ curfptr[503])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V504*/ curfptr[503])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V504*/ curfptr[503]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V506*/ curfptr[505]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V506*/ curfptr[505])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V506*/ curfptr[505]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V507*/ curfptr[506]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V507*/ curfptr[506])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V507*/ curfptr[506]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V506*/ curfptr[505]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V506*/ curfptr[505])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V506*/ curfptr[505]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V507*/ curfptr[506]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V507*/ curfptr[506])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V507*/ curfptr[506]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V506*/ curfptr[505]); + basilysgc_touch(/*_.VALTUP___V507*/ curfptr[506]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V504*/ curfptr[503])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V504*/ curfptr[503])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V504*/ curfptr[503]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V506*/ curfptr[505]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V507*/ curfptr[506]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V507*/ curfptr[506])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V507*/ curfptr[506])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V507*/ curfptr[506]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V508*/ curfptr[507]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V508*/ curfptr[507])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V508*/ curfptr[507])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V508*/ curfptr[507]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V509*/ curfptr[508]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V507*/ curfptr[506])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V507*/ curfptr[506])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V507*/ curfptr[506]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V504*/ curfptr[503]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V508*/ curfptr[507])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V508*/ curfptr[507])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V508*/ curfptr[507]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V505*/ curfptr[504]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V507*/ curfptr[506]); + basilysgc_touch(/*_.VALDATA___V508*/ curfptr[507]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V509*/ curfptr[508])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V509*/ curfptr[508])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V509*/ curfptr[508]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V510*/ curfptr[509]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V510*/ curfptr[509])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V510*/ curfptr[509])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V510*/ curfptr[509]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V511*/ curfptr[510]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V509*/ curfptr[508])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V509*/ curfptr[508])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V509*/ curfptr[508]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V504*/ curfptr[503]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V510*/ curfptr[509])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V510*/ curfptr[509])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V510*/ curfptr[509]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V505*/ curfptr[504]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V509*/ curfptr[508]); + basilysgc_touch(/*_.VALDATA___V510*/ curfptr[509]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V511*/ curfptr[510])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V511*/ curfptr[510])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V511*/ curfptr[510]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V512*/ curfptr[511]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V512*/ curfptr[511]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V511*/ curfptr[510])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V511*/ curfptr[510])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V511*/ curfptr[510]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V504*/ curfptr[503]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V512*/ curfptr[511]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V505*/ curfptr[504]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V511*/ curfptr[510]); + basilysgc_touch(/*_.VALDATA___V512*/ curfptr[511]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V513*/ curfptr[512]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V513*/ curfptr[512])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V513*/ curfptr[512]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V513*/ curfptr[512]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V513*/ curfptr[512])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V513*/ curfptr[512]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V507*/ curfptr[506]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V508*/ curfptr[507]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V513*/ curfptr[512]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V513*/ curfptr[512])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V513*/ curfptr[512]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V509*/ curfptr[508]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V510*/ curfptr[509]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V513*/ curfptr[512]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V513*/ curfptr[512])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V513*/ curfptr[512]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V511*/ curfptr[510]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V513*/ curfptr[512]); + basilysgc_touch(/*_.VALTUP___V514*/ curfptr[513]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V504*/ curfptr[503])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V504*/ curfptr[503])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V504*/ curfptr[503]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V513*/ curfptr[512]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V514*/ curfptr[513]); BASILYS_LOCATION("warmelt-macro.bysl:297:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V504*/ curfptr[503]); + basilysgc_touch(/*_.VALDATA___V505*/ curfptr[504]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V514*/ curfptr[513])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V514*/ curfptr[513])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V514*/ curfptr[513]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V515*/ curfptr[514]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V515*/ curfptr[514])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V515*/ curfptr[514])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V515*/ curfptr[514]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V516*/ curfptr[515]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V514*/ curfptr[513]); + basilysgc_touch(/*_.VALDATA___V515*/ curfptr[514]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V516*/ curfptr[515])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V516*/ curfptr[515])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V516*/ curfptr[515]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V517*/ curfptr[516]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V517*/ curfptr[516])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V517*/ curfptr[516])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V517*/ curfptr[516]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V518*/ curfptr[517]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V516*/ curfptr[515]); + basilysgc_touch(/*_.VALDATA___V517*/ curfptr[516]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V518*/ curfptr[517]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V519*/ curfptr[518]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V519*/ curfptr[518])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V519*/ curfptr[518])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V519*/ curfptr[518]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V520*/ curfptr[519]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V518*/ curfptr[517]); + basilysgc_touch(/*_.VALDATA___V519*/ curfptr[518]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V520*/ curfptr[519])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V520*/ curfptr[519])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V520*/ curfptr[519]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V521*/ curfptr[520]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V521*/ curfptr[520])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V521*/ curfptr[520])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V521*/ curfptr[520]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V522*/ curfptr[521]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V520*/ curfptr[519]); + basilysgc_touch(/*_.VALDATA___V521*/ curfptr[520]); BASILYS_LOCATION("warmelt-macro.bysl:306:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V522*/ curfptr[521]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V523*/ curfptr[522]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V523*/ curfptr[522]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V524*/ curfptr[523]); BASILYS_LOCATION("warmelt-macro.bysl:306:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V522*/ curfptr[521]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V523*/ curfptr[522]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V524*/ curfptr[523]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V524*/ curfptr[523])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V524*/ curfptr[523]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V525*/ curfptr[524]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V525*/ curfptr[524])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V525*/ curfptr[524]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V524*/ curfptr[523]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V524*/ curfptr[523])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V524*/ curfptr[523]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V525*/ curfptr[524]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V525*/ curfptr[524])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V525*/ curfptr[524]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V524*/ curfptr[523]); + basilysgc_touch(/*_.VALTUP___V525*/ curfptr[524]); BASILYS_LOCATION("warmelt-macro.bysl:306:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V522*/ curfptr[521]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V524*/ curfptr[523]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V523*/ curfptr[522]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V525*/ curfptr[524]); BASILYS_LOCATION("warmelt-macro.bysl:306:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V525*/ curfptr[524])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V525*/ curfptr[524])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V525*/ curfptr[524]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V526*/ curfptr[525]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V526*/ curfptr[525])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V526*/ curfptr[525])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V526*/ curfptr[525]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V527*/ curfptr[526]); BASILYS_LOCATION("warmelt-macro.bysl:306:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V525*/ curfptr[524])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V525*/ curfptr[524])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V525*/ curfptr[524]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V522*/ curfptr[521]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V526*/ curfptr[525])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V526*/ curfptr[525])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V526*/ curfptr[525]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V523*/ curfptr[522]); BASILYS_LOCATION("warmelt-macro.bysl:306:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V525*/ curfptr[524]); + basilysgc_touch(/*_.VALDATA___V526*/ curfptr[525]); BASILYS_LOCATION("warmelt-macro.bysl:306:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V527*/ curfptr[526]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V528*/ curfptr[527]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V528*/ curfptr[527])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V528*/ curfptr[527])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V528*/ curfptr[527]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V529*/ curfptr[528]); BASILYS_LOCATION("warmelt-macro.bysl:306:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V527*/ curfptr[526]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V522*/ curfptr[521]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V528*/ curfptr[527])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V528*/ curfptr[527])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V528*/ curfptr[527]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V523*/ curfptr[522]); BASILYS_LOCATION("warmelt-macro.bysl:306:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V527*/ curfptr[526]); + basilysgc_touch(/*_.VALDATA___V528*/ curfptr[527]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V529*/ curfptr[528]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V529*/ curfptr[528])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V529*/ curfptr[528]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V529*/ curfptr[528]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V529*/ curfptr[528])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V529*/ curfptr[528]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V525*/ curfptr[524]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V526*/ curfptr[525]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V529*/ curfptr[528]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V529*/ curfptr[528])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V529*/ curfptr[528]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V528*/ curfptr[527]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V529*/ curfptr[528]); + basilysgc_touch(/*_.VALTUP___V530*/ curfptr[529]); BASILYS_LOCATION("warmelt-macro.bysl:306:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V522*/ curfptr[521]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V529*/ curfptr[528]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V523*/ curfptr[522]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V530*/ curfptr[529]); BASILYS_LOCATION("warmelt-macro.bysl:306:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V522*/ curfptr[521]); + basilysgc_touch(/*_.VALDATA___V523*/ curfptr[522]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V530*/ curfptr[529])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V530*/ curfptr[529])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V530*/ curfptr[529]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V531*/ curfptr[530]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V531*/ curfptr[530])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V531*/ curfptr[530])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V531*/ curfptr[530]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V532*/ curfptr[531]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V530*/ curfptr[529]); + basilysgc_touch(/*_.VALDATA___V531*/ curfptr[530]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V532*/ curfptr[531])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V532*/ curfptr[531])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V532*/ curfptr[531]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V533*/ curfptr[532]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V533*/ curfptr[532])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V533*/ curfptr[532])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V533*/ curfptr[532]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V534*/ curfptr[533]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V532*/ curfptr[531]); + basilysgc_touch(/*_.VALDATA___V533*/ curfptr[532]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V534*/ curfptr[533]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V535*/ curfptr[534]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V535*/ curfptr[534])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V535*/ curfptr[534])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V535*/ curfptr[534]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V536*/ curfptr[535]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V534*/ curfptr[533]); + basilysgc_touch(/*_.VALDATA___V535*/ curfptr[534]); BASILYS_LOCATION("warmelt-macro.bysl:313:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V536*/ curfptr[535])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V536*/ curfptr[535])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V536*/ curfptr[535]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V537*/ curfptr[536]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V537*/ curfptr[536]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V538*/ curfptr[537]); BASILYS_LOCATION("warmelt-macro.bysl:313:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V536*/ curfptr[535])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V536*/ curfptr[535])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V536*/ curfptr[535]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V537*/ curfptr[536]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V538*/ curfptr[537]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V538*/ curfptr[537])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V538*/ curfptr[537]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V539*/ curfptr[538]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V539*/ curfptr[538])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V539*/ curfptr[538]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V538*/ curfptr[537]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V538*/ curfptr[537])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V538*/ curfptr[537]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V539*/ curfptr[538]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V539*/ curfptr[538])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V539*/ curfptr[538]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V538*/ curfptr[537]); + basilysgc_touch(/*_.VALTUP___V539*/ curfptr[538]); BASILYS_LOCATION("warmelt-macro.bysl:313:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V536*/ curfptr[535])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V536*/ curfptr[535])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V536*/ curfptr[535]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V538*/ curfptr[537]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V537*/ curfptr[536]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V539*/ curfptr[538]); BASILYS_LOCATION("warmelt-macro.bysl:313:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V540*/ curfptr[539]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V540*/ curfptr[539]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V541*/ curfptr[540]); BASILYS_LOCATION("warmelt-macro.bysl:313:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V536*/ curfptr[535]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V540*/ curfptr[539]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V537*/ curfptr[536]); BASILYS_LOCATION("warmelt-macro.bysl:313:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V539*/ curfptr[538]); + basilysgc_touch(/*_.VALDATA___V540*/ curfptr[539]); BASILYS_LOCATION("warmelt-macro.bysl:313:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V541*/ curfptr[540]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V542*/ curfptr[541]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V542*/ curfptr[541])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V542*/ curfptr[541])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V542*/ curfptr[541]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V543*/ curfptr[542]); BASILYS_LOCATION("warmelt-macro.bysl:313:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V541*/ curfptr[540]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V536*/ curfptr[535]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V542*/ curfptr[541])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V542*/ curfptr[541])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V542*/ curfptr[541]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V537*/ curfptr[536]); BASILYS_LOCATION("warmelt-macro.bysl:313:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V541*/ curfptr[540]); + basilysgc_touch(/*_.VALDATA___V542*/ curfptr[541]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V543*/ curfptr[542]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V543*/ curfptr[542])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V543*/ curfptr[542]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V544*/ curfptr[543]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V544*/ curfptr[543])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V544*/ curfptr[543]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V543*/ curfptr[542]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V543*/ curfptr[542])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V543*/ curfptr[542]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V544*/ curfptr[543]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V544*/ curfptr[543])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V544*/ curfptr[543]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V543*/ curfptr[542]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V543*/ curfptr[542])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V543*/ curfptr[542]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V544*/ curfptr[543]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V544*/ curfptr[543])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V544*/ curfptr[543]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V542*/ curfptr[541]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V543*/ curfptr[542]); + basilysgc_touch(/*_.VALTUP___V544*/ curfptr[543]); BASILYS_LOCATION("warmelt-macro.bysl:313:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V536*/ curfptr[535])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V536*/ curfptr[535])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V536*/ curfptr[535]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V543*/ curfptr[542]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V537*/ curfptr[536]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V544*/ curfptr[543]); BASILYS_LOCATION("warmelt-macro.bysl:313:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V536*/ curfptr[535]); + basilysgc_touch(/*_.VALDATA___V537*/ curfptr[536]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V544*/ curfptr[543])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V544*/ curfptr[543])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V544*/ curfptr[543]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V545*/ curfptr[544]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V545*/ curfptr[544])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V545*/ curfptr[544])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V545*/ curfptr[544]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V546*/ curfptr[545]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V544*/ curfptr[543]); + basilysgc_touch(/*_.VALDATA___V545*/ curfptr[544]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V546*/ curfptr[545]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V547*/ curfptr[546]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V547*/ curfptr[546]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V548*/ curfptr[547]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V546*/ curfptr[545]); + basilysgc_touch(/*_.VALDATA___V547*/ curfptr[546]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V548*/ curfptr[547])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V548*/ curfptr[547])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V548*/ curfptr[547]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V549*/ curfptr[548]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V549*/ curfptr[548])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V549*/ curfptr[548])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V549*/ curfptr[548]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V550*/ curfptr[549]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V548*/ curfptr[547]); + basilysgc_touch(/*_.VALDATA___V549*/ curfptr[548]); BASILYS_LOCATION("warmelt-macro.bysl:319:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V550*/ curfptr[549]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V551*/ curfptr[550]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V551*/ curfptr[550]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V552*/ curfptr[551]); BASILYS_LOCATION("warmelt-macro.bysl:319:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V550*/ curfptr[549]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V536*/ curfptr[535]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V551*/ curfptr[550]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V537*/ curfptr[536]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V552*/ curfptr[551]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V552*/ curfptr[551])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V552*/ curfptr[551]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V552*/ curfptr[551]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V552*/ curfptr[551])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V552*/ curfptr[551]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V552*/ curfptr[551]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V552*/ curfptr[551])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V552*/ curfptr[551]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V536*/ curfptr[535]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V552*/ curfptr[551]); + basilysgc_touch(/*_.VALTUP___V553*/ curfptr[552]); BASILYS_LOCATION("warmelt-macro.bysl:319:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V550*/ curfptr[549]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V552*/ curfptr[551]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V551*/ curfptr[550]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V553*/ curfptr[552]); BASILYS_LOCATION("warmelt-macro.bysl:319:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V553*/ curfptr[552])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V553*/ curfptr[552])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V553*/ curfptr[552]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V554*/ curfptr[553]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V554*/ curfptr[553])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V554*/ curfptr[553])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V554*/ curfptr[553]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V555*/ curfptr[554]); BASILYS_LOCATION("warmelt-macro.bysl:319:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V553*/ curfptr[552])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V553*/ curfptr[552])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V553*/ curfptr[552]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V550*/ curfptr[549]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V554*/ curfptr[553])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V554*/ curfptr[553])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V554*/ curfptr[553]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V551*/ curfptr[550]); BASILYS_LOCATION("warmelt-macro.bysl:319:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V553*/ curfptr[552]); + basilysgc_touch(/*_.VALDATA___V554*/ curfptr[553]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V555*/ curfptr[554]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V555*/ curfptr[554])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V555*/ curfptr[554]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V556*/ curfptr[555]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V556*/ curfptr[555])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V556*/ curfptr[555]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V555*/ curfptr[554]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V555*/ curfptr[554])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V555*/ curfptr[554]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V556*/ curfptr[555]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V556*/ curfptr[555])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V556*/ curfptr[555]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V555*/ curfptr[554]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V555*/ curfptr[554])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V555*/ curfptr[554]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V556*/ curfptr[555]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V556*/ curfptr[555])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V556*/ curfptr[555]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V542*/ curfptr[541]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V555*/ curfptr[554]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V555*/ curfptr[554])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V555*/ curfptr[554]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V553*/ curfptr[552]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V556*/ curfptr[555]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V556*/ curfptr[555])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V556*/ curfptr[555]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V554*/ curfptr[553]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V555*/ curfptr[554]); + basilysgc_touch(/*_.VALTUP___V556*/ curfptr[555]); BASILYS_LOCATION("warmelt-macro.bysl:319:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V550*/ curfptr[549]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V555*/ curfptr[554]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V551*/ curfptr[550]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V556*/ curfptr[555]); BASILYS_LOCATION("warmelt-macro.bysl:319:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V550*/ curfptr[549]); + basilysgc_touch(/*_.VALDATA___V551*/ curfptr[550]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V556*/ curfptr[555])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V556*/ curfptr[555])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V556*/ curfptr[555]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V557*/ curfptr[556]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V557*/ curfptr[556]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V558*/ curfptr[557]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V556*/ curfptr[555]); + basilysgc_touch(/*_.VALDATA___V557*/ curfptr[556]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V558*/ curfptr[557])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V558*/ curfptr[557])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V558*/ curfptr[557]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V559*/ curfptr[558]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V559*/ curfptr[558])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V559*/ curfptr[558])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V559*/ curfptr[558]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V560*/ curfptr[559]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V558*/ curfptr[557]); + basilysgc_touch(/*_.VALDATA___V559*/ curfptr[558]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V561*/ curfptr[560]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V562*/ curfptr[561]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V563*/ curfptr[562]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V563*/ curfptr[562])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V563*/ curfptr[562]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V563*/ curfptr[562]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V563*/ curfptr[562])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V563*/ curfptr[562]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V562*/ curfptr[561]); + basilysgc_touch(/*_.VALTUP___V563*/ curfptr[562]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V562*/ curfptr[561]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V563*/ curfptr[562]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V564*/ curfptr[563]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V564*/ curfptr[563])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V564*/ curfptr[563])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V564*/ curfptr[563]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V565*/ curfptr[564]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V560*/ curfptr[559]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V564*/ curfptr[563])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V564*/ curfptr[563])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V564*/ curfptr[563]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V561*/ curfptr[560]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V563*/ curfptr[562]); + basilysgc_touch(/*_.VALDATA___V564*/ curfptr[563]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V565*/ curfptr[564])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V565*/ curfptr[564])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V565*/ curfptr[564]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V566*/ curfptr[565]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V566*/ curfptr[565]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V567*/ curfptr[566]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V565*/ curfptr[564])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V565*/ curfptr[564])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V565*/ curfptr[564]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V560*/ curfptr[559]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V566*/ curfptr[565]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V561*/ curfptr[560]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V565*/ curfptr[564]); + basilysgc_touch(/*_.VALDATA___V566*/ curfptr[565]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V567*/ curfptr[566])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V567*/ curfptr[566])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V568*/ curfptr[567]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V568*/ curfptr[567])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V568*/ curfptr[567])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V568*/ curfptr[567]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V569*/ curfptr[568]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V567*/ curfptr[566])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V567*/ curfptr[566])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V560*/ curfptr[559]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V568*/ curfptr[567])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V568*/ curfptr[567])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V568*/ curfptr[567]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V561*/ curfptr[560]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V567*/ curfptr[566]); + basilysgc_touch(/*_.VALDATA___V568*/ curfptr[567]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V569*/ curfptr[568]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V569*/ curfptr[568])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V569*/ curfptr[568]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V570*/ curfptr[569]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V570*/ curfptr[569])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V570*/ curfptr[569]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V569*/ curfptr[568]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V569*/ curfptr[568])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V569*/ curfptr[568]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V570*/ curfptr[569]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V570*/ curfptr[569])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V570*/ curfptr[569]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V564*/ curfptr[563]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V569*/ curfptr[568]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V569*/ curfptr[568])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V569*/ curfptr[568]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V565*/ curfptr[564]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V570*/ curfptr[569]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V570*/ curfptr[569])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V570*/ curfptr[569]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V569*/ curfptr[568]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V569*/ curfptr[568])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V569*/ curfptr[568]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V570*/ curfptr[569]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V570*/ curfptr[569])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V570*/ curfptr[569]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V568*/ curfptr[567]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V569*/ curfptr[568]); + basilysgc_touch(/*_.VALTUP___V570*/ curfptr[569]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V569*/ curfptr[568]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V570*/ curfptr[569]); BASILYS_LOCATION("warmelt-macro.bysl:326:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V560*/ curfptr[559]); + basilysgc_touch(/*_.VALDATA___V561*/ curfptr[560]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V570*/ curfptr[569]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V571*/ curfptr[570]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V571*/ curfptr[570])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V571*/ curfptr[570])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V571*/ curfptr[570]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V572*/ curfptr[571]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V570*/ curfptr[569]); + basilysgc_touch(/*_.VALDATA___V571*/ curfptr[570]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V572*/ curfptr[571]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V573*/ curfptr[572]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V573*/ curfptr[572])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V573*/ curfptr[572])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V574*/ curfptr[573]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V572*/ curfptr[571]); + basilysgc_touch(/*_.VALDATA___V573*/ curfptr[572]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V574*/ curfptr[573]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V575*/ curfptr[574]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V575*/ curfptr[574])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V575*/ curfptr[574])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V575*/ curfptr[574]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V576*/ curfptr[575]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V574*/ curfptr[573]); + basilysgc_touch(/*_.VALDATA___V575*/ curfptr[574]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V577*/ curfptr[576]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V577*/ curfptr[576])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V577*/ curfptr[576])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V577*/ curfptr[576]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V578*/ curfptr[577]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V576*/ curfptr[575]); + basilysgc_touch(/*_.VALDATA___V577*/ curfptr[576]); BASILYS_LOCATION("warmelt-macro.bysl:334:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V579*/ curfptr[578]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V579*/ curfptr[578])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V579*/ curfptr[578])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V580*/ curfptr[579]); BASILYS_LOCATION("warmelt-macro.bysl:334:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V579*/ curfptr[578])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V579*/ curfptr[578])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V581*/ curfptr[580]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V581*/ curfptr[580])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V581*/ curfptr[580]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V581*/ curfptr[580]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V581*/ curfptr[580])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V581*/ curfptr[580]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V580*/ curfptr[579]); + basilysgc_touch(/*_.VALTUP___V581*/ curfptr[580]); BASILYS_LOCATION("warmelt-macro.bysl:334:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V580*/ curfptr[579]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V579*/ curfptr[578])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V579*/ curfptr[578])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V581*/ curfptr[580]); BASILYS_LOCATION("warmelt-macro.bysl:334:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V581*/ curfptr[580])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V581*/ curfptr[580])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V582*/ curfptr[581]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V582*/ curfptr[581])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V582*/ curfptr[581])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V582*/ curfptr[581]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V583*/ curfptr[582]); BASILYS_LOCATION("warmelt-macro.bysl:334:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V581*/ curfptr[580])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V581*/ curfptr[580])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V578*/ curfptr[577]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V582*/ curfptr[581])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V582*/ curfptr[581])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V582*/ curfptr[581]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V579*/ curfptr[578]); BASILYS_LOCATION("warmelt-macro.bysl:334:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V581*/ curfptr[580]); + basilysgc_touch(/*_.VALDATA___V582*/ curfptr[581]); BASILYS_LOCATION("warmelt-macro.bysl:334:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V583*/ curfptr[582])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V583*/ curfptr[582])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V583*/ curfptr[582]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V584*/ curfptr[583]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V584*/ curfptr[583])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V584*/ curfptr[583])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V584*/ curfptr[583]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V585*/ curfptr[584]); BASILYS_LOCATION("warmelt-macro.bysl:334:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V583*/ curfptr[582])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V583*/ curfptr[582])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V583*/ curfptr[582]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V578*/ curfptr[577]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V584*/ curfptr[583])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V584*/ curfptr[583])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V584*/ curfptr[583]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V579*/ curfptr[578]); BASILYS_LOCATION("warmelt-macro.bysl:334:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V583*/ curfptr[582]); + basilysgc_touch(/*_.VALDATA___V584*/ curfptr[583]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V585*/ curfptr[584]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V585*/ curfptr[584])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V585*/ curfptr[584]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V586*/ curfptr[585]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V586*/ curfptr[585])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V586*/ curfptr[585]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V585*/ curfptr[584]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V585*/ curfptr[584])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V585*/ curfptr[584]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V586*/ curfptr[585]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V586*/ curfptr[585])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V586*/ curfptr[585]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V582*/ curfptr[581]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V585*/ curfptr[584]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V585*/ curfptr[584])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V585*/ curfptr[584]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V583*/ curfptr[582]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V586*/ curfptr[585]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V586*/ curfptr[585])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V586*/ curfptr[585]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V584*/ curfptr[583]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V585*/ curfptr[584]); + basilysgc_touch(/*_.VALTUP___V586*/ curfptr[585]); BASILYS_LOCATION("warmelt-macro.bysl:334:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V585*/ curfptr[584]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V579*/ curfptr[578])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V579*/ curfptr[578])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V586*/ curfptr[585]); BASILYS_LOCATION("warmelt-macro.bysl:334:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V578*/ curfptr[577]); + basilysgc_touch(/*_.VALDATA___V579*/ curfptr[578]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V586*/ curfptr[585])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V586*/ curfptr[585])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V586*/ curfptr[585]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V587*/ curfptr[586]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V587*/ curfptr[586])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V587*/ curfptr[586])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V587*/ curfptr[586]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V588*/ curfptr[587]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V586*/ curfptr[585]); + basilysgc_touch(/*_.VALDATA___V587*/ curfptr[586]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V588*/ curfptr[587]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V589*/ curfptr[588]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V589*/ curfptr[588])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V589*/ curfptr[588])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V589*/ curfptr[588]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V590*/ curfptr[589]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V588*/ curfptr[587]); + basilysgc_touch(/*_.VALDATA___V589*/ curfptr[588]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V590*/ curfptr[589])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V590*/ curfptr[589])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V590*/ curfptr[589]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V591*/ curfptr[590]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V592*/ curfptr[591]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V590*/ curfptr[589]); + basilysgc_touch(/*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-macro.bysl:341:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V592*/ curfptr[591])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V592*/ curfptr[591])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V592*/ curfptr[591]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V593*/ curfptr[592]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V593*/ curfptr[592])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V593*/ curfptr[592])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V594*/ curfptr[593]); BASILYS_LOCATION("warmelt-macro.bysl:341:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V592*/ curfptr[591])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V592*/ curfptr[591])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V592*/ curfptr[591]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V593*/ curfptr[592])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V593*/ curfptr[592])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V594*/ curfptr[593]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V594*/ curfptr[593])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V594*/ curfptr[593]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V595*/ curfptr[594]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V595*/ curfptr[594])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V595*/ curfptr[594]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V594*/ curfptr[593]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V594*/ curfptr[593])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V594*/ curfptr[593]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V595*/ curfptr[594]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V595*/ curfptr[594])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V595*/ curfptr[594]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V594*/ curfptr[593]); + basilysgc_touch(/*_.VALTUP___V595*/ curfptr[594]); BASILYS_LOCATION("warmelt-macro.bysl:341:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V592*/ curfptr[591])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V592*/ curfptr[591])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V592*/ curfptr[591]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V594*/ curfptr[593]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V593*/ curfptr[592])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V593*/ curfptr[592])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V595*/ curfptr[594]); BASILYS_LOCATION("warmelt-macro.bysl:341:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V595*/ curfptr[594])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V595*/ curfptr[594])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V595*/ curfptr[594]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V596*/ curfptr[595]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V596*/ curfptr[595]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V597*/ curfptr[596]); BASILYS_LOCATION("warmelt-macro.bysl:341:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V595*/ curfptr[594])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V595*/ curfptr[594])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V595*/ curfptr[594]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V592*/ curfptr[591]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V596*/ curfptr[595]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V593*/ curfptr[592]); BASILYS_LOCATION("warmelt-macro.bysl:341:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V595*/ curfptr[594]); + basilysgc_touch(/*_.VALDATA___V596*/ curfptr[595]); BASILYS_LOCATION("warmelt-macro.bysl:341:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V597*/ curfptr[596])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V597*/ curfptr[596])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V597*/ curfptr[596]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V598*/ curfptr[597]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V598*/ curfptr[597]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V599*/ curfptr[598]); BASILYS_LOCATION("warmelt-macro.bysl:341:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V597*/ curfptr[596])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V597*/ curfptr[596])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V597*/ curfptr[596]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V592*/ curfptr[591]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V598*/ curfptr[597]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V593*/ curfptr[592]); BASILYS_LOCATION("warmelt-macro.bysl:341:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V597*/ curfptr[596]); + basilysgc_touch(/*_.VALDATA___V598*/ curfptr[597]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V599*/ curfptr[598]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V599*/ curfptr[598])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V599*/ curfptr[598]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V599*/ curfptr[598]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V599*/ curfptr[598])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V599*/ curfptr[598]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V595*/ curfptr[594]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V599*/ curfptr[598]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V599*/ curfptr[598])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V599*/ curfptr[598]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V597*/ curfptr[596]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V599*/ curfptr[598]); + basilysgc_touch(/*_.VALTUP___V600*/ curfptr[599]); BASILYS_LOCATION("warmelt-macro.bysl:341:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V592*/ curfptr[591])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V592*/ curfptr[591])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V592*/ curfptr[591]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V599*/ curfptr[598]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V593*/ curfptr[592])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V593*/ curfptr[592])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V600*/ curfptr[599]); BASILYS_LOCATION("warmelt-macro.bysl:341:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V592*/ curfptr[591]); + basilysgc_touch(/*_.VALDATA___V593*/ curfptr[592]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V600*/ curfptr[599])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V600*/ curfptr[599])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V600*/ curfptr[599]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V601*/ curfptr[600]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V601*/ curfptr[600])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V601*/ curfptr[600])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V602*/ curfptr[601]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V600*/ curfptr[599]); + basilysgc_touch(/*_.VALDATA___V601*/ curfptr[600]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V602*/ curfptr[601])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V602*/ curfptr[601])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V602*/ curfptr[601]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V603*/ curfptr[602]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V603*/ curfptr[602])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V603*/ curfptr[602])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V603*/ curfptr[602]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V604*/ curfptr[603]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V602*/ curfptr[601]); + basilysgc_touch(/*_.VALDATA___V603*/ curfptr[602]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V604*/ curfptr[603])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V604*/ curfptr[603])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V604*/ curfptr[603]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V605*/ curfptr[604]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V605*/ curfptr[604])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V605*/ curfptr[604])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V605*/ curfptr[604]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V606*/ curfptr[605]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V604*/ curfptr[603]); + basilysgc_touch(/*_.VALDATA___V605*/ curfptr[604]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V606*/ curfptr[605])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V606*/ curfptr[605])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V606*/ curfptr[605]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V607*/ curfptr[606]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V607*/ curfptr[606])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V607*/ curfptr[606])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V607*/ curfptr[606]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V608*/ curfptr[607]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V606*/ curfptr[605])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V606*/ curfptr[605])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V606*/ curfptr[605]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V607*/ curfptr[606])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V607*/ curfptr[606])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V607*/ curfptr[606]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V608*/ curfptr[607]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V608*/ curfptr[607])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V608*/ curfptr[607]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V609*/ curfptr[608]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V609*/ curfptr[608])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V609*/ curfptr[608]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V608*/ curfptr[607]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V608*/ curfptr[607])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V608*/ curfptr[607]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V609*/ curfptr[608]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V609*/ curfptr[608])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V609*/ curfptr[608]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V608*/ curfptr[607]); + basilysgc_touch(/*_.VALTUP___V609*/ curfptr[608]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V606*/ curfptr[605])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V606*/ curfptr[605])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V606*/ curfptr[605]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V608*/ curfptr[607]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V607*/ curfptr[606])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V607*/ curfptr[606])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V607*/ curfptr[606]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V609*/ curfptr[608]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V609*/ curfptr[608])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V609*/ curfptr[608])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V609*/ curfptr[608]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V610*/ curfptr[609]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V610*/ curfptr[609])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V610*/ curfptr[609])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V610*/ curfptr[609]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V611*/ curfptr[610]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V609*/ curfptr[608])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V609*/ curfptr[608])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V609*/ curfptr[608]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V606*/ curfptr[605]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V610*/ curfptr[609])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V610*/ curfptr[609])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V610*/ curfptr[609]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V607*/ curfptr[606]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V609*/ curfptr[608]); + basilysgc_touch(/*_.VALDATA___V610*/ curfptr[609]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V611*/ curfptr[610])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V611*/ curfptr[610])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V611*/ curfptr[610]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V612*/ curfptr[611]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V612*/ curfptr[611])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V612*/ curfptr[611])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V612*/ curfptr[611]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V613*/ curfptr[612]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V611*/ curfptr[610])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V611*/ curfptr[610])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V611*/ curfptr[610]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V606*/ curfptr[605]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V612*/ curfptr[611])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V612*/ curfptr[611])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V612*/ curfptr[611]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V607*/ curfptr[606]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V611*/ curfptr[610]); + basilysgc_touch(/*_.VALDATA___V612*/ curfptr[611]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V614*/ curfptr[613]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V614*/ curfptr[613])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V614*/ curfptr[613])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V614*/ curfptr[613]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V615*/ curfptr[614]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V606*/ curfptr[605]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V614*/ curfptr[613])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V614*/ curfptr[613])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V614*/ curfptr[613]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V607*/ curfptr[606]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V613*/ curfptr[612]); + basilysgc_touch(/*_.VALDATA___V614*/ curfptr[613]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V616*/ curfptr[615]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V616*/ curfptr[615])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V616*/ curfptr[615]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V609*/ curfptr[608]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V616*/ curfptr[615]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V616*/ curfptr[615])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V616*/ curfptr[615]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V610*/ curfptr[609]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V611*/ curfptr[610]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V616*/ curfptr[615]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V616*/ curfptr[615])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V616*/ curfptr[615]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V612*/ curfptr[611]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V616*/ curfptr[615]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V616*/ curfptr[615])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V616*/ curfptr[615]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V614*/ curfptr[613]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V615*/ curfptr[614]); + basilysgc_touch(/*_.VALTUP___V616*/ curfptr[615]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V606*/ curfptr[605])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V606*/ curfptr[605])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V606*/ curfptr[605]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V615*/ curfptr[614]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V607*/ curfptr[606])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V607*/ curfptr[606])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V607*/ curfptr[606]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V616*/ curfptr[615]); BASILYS_LOCATION("warmelt-macro.bysl:349:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V606*/ curfptr[605]); + basilysgc_touch(/*_.VALDATA___V607*/ curfptr[606]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V616*/ curfptr[615]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V617*/ curfptr[616]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V617*/ curfptr[616])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V617*/ curfptr[616])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V617*/ curfptr[616]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V618*/ curfptr[617]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V616*/ curfptr[615]); + basilysgc_touch(/*_.VALDATA___V617*/ curfptr[616]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V618*/ curfptr[617])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V618*/ curfptr[617])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V618*/ curfptr[617]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V619*/ curfptr[618]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V619*/ curfptr[618])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V619*/ curfptr[618])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V619*/ curfptr[618]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V620*/ curfptr[619]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V618*/ curfptr[617]); + basilysgc_touch(/*_.VALDATA___V619*/ curfptr[618]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V620*/ curfptr[619])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V620*/ curfptr[619])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V620*/ curfptr[619]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V621*/ curfptr[620]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V621*/ curfptr[620])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V621*/ curfptr[620])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V621*/ curfptr[620]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V622*/ curfptr[621]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V620*/ curfptr[619]); + basilysgc_touch(/*_.VALDATA___V621*/ curfptr[620]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V622*/ curfptr[621])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V622*/ curfptr[621])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V622*/ curfptr[621]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V623*/ curfptr[622]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V624*/ curfptr[623]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V622*/ curfptr[621]); + basilysgc_touch(/*_.VALDATA___V623*/ curfptr[622]); BASILYS_LOCATION("warmelt-macro.bysl:357:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V624*/ curfptr[623])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V624*/ curfptr[623])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V624*/ curfptr[623]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V625*/ curfptr[624]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V625*/ curfptr[624])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V625*/ curfptr[624])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V625*/ curfptr[624]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V626*/ curfptr[625]); BASILYS_LOCATION("warmelt-macro.bysl:357:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V624*/ curfptr[623])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V624*/ curfptr[623])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V624*/ curfptr[623]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V625*/ curfptr[624])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V625*/ curfptr[624])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V625*/ curfptr[624]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V626*/ curfptr[625]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V626*/ curfptr[625])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V626*/ curfptr[625]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V627*/ curfptr[626]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V627*/ curfptr[626])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V627*/ curfptr[626]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V626*/ curfptr[625]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V626*/ curfptr[625])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V626*/ curfptr[625]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V627*/ curfptr[626]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V627*/ curfptr[626])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V627*/ curfptr[626]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V626*/ curfptr[625]); + basilysgc_touch(/*_.VALTUP___V627*/ curfptr[626]); BASILYS_LOCATION("warmelt-macro.bysl:357:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V624*/ curfptr[623])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V624*/ curfptr[623])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V624*/ curfptr[623]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V626*/ curfptr[625]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V625*/ curfptr[624])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V625*/ curfptr[624])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V625*/ curfptr[624]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V627*/ curfptr[626]); BASILYS_LOCATION("warmelt-macro.bysl:357:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V627*/ curfptr[626])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V627*/ curfptr[626])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V627*/ curfptr[626]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V628*/ curfptr[627]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V628*/ curfptr[627])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V628*/ curfptr[627])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V628*/ curfptr[627]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V629*/ curfptr[628]); BASILYS_LOCATION("warmelt-macro.bysl:357:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V627*/ curfptr[626])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V627*/ curfptr[626])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V627*/ curfptr[626]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V624*/ curfptr[623]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V628*/ curfptr[627])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V628*/ curfptr[627])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V628*/ curfptr[627]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V625*/ curfptr[624]); BASILYS_LOCATION("warmelt-macro.bysl:357:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V627*/ curfptr[626]); + basilysgc_touch(/*_.VALDATA___V628*/ curfptr[627]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V629*/ curfptr[628]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V629*/ curfptr[628])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V629*/ curfptr[628]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V630*/ curfptr[629]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V630*/ curfptr[629])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V630*/ curfptr[629]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V629*/ curfptr[628]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V629*/ curfptr[628])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V629*/ curfptr[628]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V627*/ curfptr[626]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V630*/ curfptr[629]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V630*/ curfptr[629])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V630*/ curfptr[629]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V628*/ curfptr[627]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V629*/ curfptr[628]); + basilysgc_touch(/*_.VALTUP___V630*/ curfptr[629]); BASILYS_LOCATION("warmelt-macro.bysl:357:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V624*/ curfptr[623])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V624*/ curfptr[623])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V624*/ curfptr[623]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V629*/ curfptr[628]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V625*/ curfptr[624])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V625*/ curfptr[624])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V625*/ curfptr[624]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V630*/ curfptr[629]); BASILYS_LOCATION("warmelt-macro.bysl:357:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V624*/ curfptr[623]); + basilysgc_touch(/*_.VALDATA___V625*/ curfptr[624]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V630*/ curfptr[629])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V630*/ curfptr[629])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V630*/ curfptr[629]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V631*/ curfptr[630]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V631*/ curfptr[630])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V631*/ curfptr[630])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V632*/ curfptr[631]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V630*/ curfptr[629]); + basilysgc_touch(/*_.VALDATA___V631*/ curfptr[630]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V632*/ curfptr[631])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V632*/ curfptr[631])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V632*/ curfptr[631]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V633*/ curfptr[632]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V633*/ curfptr[632]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V634*/ curfptr[633]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V632*/ curfptr[631]); + basilysgc_touch(/*_.VALDATA___V633*/ curfptr[632]); BASILYS_LOCATION("warmelt-macro.bysl:363:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V634*/ curfptr[633]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V635*/ curfptr[634]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V635*/ curfptr[634])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V635*/ curfptr[634])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V635*/ curfptr[634]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V636*/ curfptr[635]); BASILYS_LOCATION("warmelt-macro.bysl:363:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V634*/ curfptr[633]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V624*/ curfptr[623]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V635*/ curfptr[634])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V635*/ curfptr[634])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V635*/ curfptr[634]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V625*/ curfptr[624]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V636*/ curfptr[635]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V636*/ curfptr[635])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V636*/ curfptr[635]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V637*/ curfptr[636])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V636*/ curfptr[635]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V636*/ curfptr[635])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V636*/ curfptr[635]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V637*/ curfptr[636])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V636*/ curfptr[635]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V636*/ curfptr[635])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V636*/ curfptr[635]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V624*/ curfptr[623]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V637*/ curfptr[636])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V625*/ curfptr[624]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V636*/ curfptr[635]); + basilysgc_touch(/*_.VALTUP___V637*/ curfptr[636]); BASILYS_LOCATION("warmelt-macro.bysl:363:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V634*/ curfptr[633]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V636*/ curfptr[635]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V635*/ curfptr[634])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V635*/ curfptr[634])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V635*/ curfptr[634]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V637*/ curfptr[636]); BASILYS_LOCATION("warmelt-macro.bysl:363:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V637*/ curfptr[636])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V637*/ curfptr[636])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V637*/ curfptr[636]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V638*/ curfptr[637]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V638*/ curfptr[637])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V638*/ curfptr[637])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V638*/ curfptr[637]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V639*/ curfptr[638]); BASILYS_LOCATION("warmelt-macro.bysl:363:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V637*/ curfptr[636])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V637*/ curfptr[636])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V637*/ curfptr[636]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V634*/ curfptr[633]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V638*/ curfptr[637])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V638*/ curfptr[637])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V638*/ curfptr[637]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V635*/ curfptr[634]); BASILYS_LOCATION("warmelt-macro.bysl:363:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V637*/ curfptr[636]); + basilysgc_touch(/*_.VALDATA___V638*/ curfptr[637]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V639*/ curfptr[638]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V639*/ curfptr[638])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V639*/ curfptr[638]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V640*/ curfptr[639]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V640*/ curfptr[639])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V640*/ curfptr[639]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V639*/ curfptr[638]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V639*/ curfptr[638])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V639*/ curfptr[638]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V627*/ curfptr[626]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V640*/ curfptr[639]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V640*/ curfptr[639])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V640*/ curfptr[639]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V628*/ curfptr[627]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V639*/ curfptr[638]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V639*/ curfptr[638])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V639*/ curfptr[638]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V637*/ curfptr[636]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V640*/ curfptr[639]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V640*/ curfptr[639])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V640*/ curfptr[639]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V638*/ curfptr[637]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V639*/ curfptr[638]); + basilysgc_touch(/*_.VALTUP___V640*/ curfptr[639]); BASILYS_LOCATION("warmelt-macro.bysl:363:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V634*/ curfptr[633]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V639*/ curfptr[638]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V635*/ curfptr[634])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V635*/ curfptr[634])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V635*/ curfptr[634]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V640*/ curfptr[639]); BASILYS_LOCATION("warmelt-macro.bysl:363:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V634*/ curfptr[633]); + basilysgc_touch(/*_.VALDATA___V635*/ curfptr[634]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V640*/ curfptr[639])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V640*/ curfptr[639])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V640*/ curfptr[639]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V641*/ curfptr[640]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V641*/ curfptr[640])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V641*/ curfptr[640])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V641*/ curfptr[640]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V642*/ curfptr[641]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V640*/ curfptr[639]); + basilysgc_touch(/*_.VALDATA___V641*/ curfptr[640]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V642*/ curfptr[641])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V642*/ curfptr[641])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V642*/ curfptr[641]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V643*/ curfptr[642]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V643*/ curfptr[642])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V643*/ curfptr[642])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V643*/ curfptr[642]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V644*/ curfptr[643]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V642*/ curfptr[641]); + basilysgc_touch(/*_.VALDATA___V643*/ curfptr[642]); BASILYS_LOCATION("warmelt-macro.bysl:369:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V644*/ curfptr[643])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V644*/ curfptr[643])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V645*/ curfptr[644]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V645*/ curfptr[644])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V645*/ curfptr[644])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V645*/ curfptr[644]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V646*/ curfptr[645]); BASILYS_LOCATION("warmelt-macro.bysl:369:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V644*/ curfptr[643])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V644*/ curfptr[643])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V624*/ curfptr[623]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V645*/ curfptr[644])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V645*/ curfptr[644])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V645*/ curfptr[644]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V625*/ curfptr[624]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V647*/ curfptr[646]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V647*/ curfptr[646])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V647*/ curfptr[646]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V647*/ curfptr[646]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V647*/ curfptr[646])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V647*/ curfptr[646]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V624*/ curfptr[623]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V647*/ curfptr[646]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V647*/ curfptr[646])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V647*/ curfptr[646]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V625*/ curfptr[624]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V646*/ curfptr[645]); + basilysgc_touch(/*_.VALTUP___V647*/ curfptr[646]); BASILYS_LOCATION("warmelt-macro.bysl:369:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V644*/ curfptr[643])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V644*/ curfptr[643])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V646*/ curfptr[645]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V645*/ curfptr[644])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V645*/ curfptr[644])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V645*/ curfptr[644]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V647*/ curfptr[646]); BASILYS_LOCATION("warmelt-macro.bysl:369:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V647*/ curfptr[646])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V647*/ curfptr[646])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V647*/ curfptr[646]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V648*/ curfptr[647]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V648*/ curfptr[647])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V648*/ curfptr[647])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V648*/ curfptr[647]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V649*/ curfptr[648]); BASILYS_LOCATION("warmelt-macro.bysl:369:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V647*/ curfptr[646])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V647*/ curfptr[646])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V647*/ curfptr[646]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V644*/ curfptr[643]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V648*/ curfptr[647])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V648*/ curfptr[647])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V648*/ curfptr[647]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V645*/ curfptr[644]); BASILYS_LOCATION("warmelt-macro.bysl:369:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V647*/ curfptr[646]); + basilysgc_touch(/*_.VALDATA___V648*/ curfptr[647]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V649*/ curfptr[648]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V649*/ curfptr[648])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V649*/ curfptr[648]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V650*/ curfptr[649]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V650*/ curfptr[649])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V650*/ curfptr[649]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V649*/ curfptr[648]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V649*/ curfptr[648])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V649*/ curfptr[648]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V627*/ curfptr[626]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V650*/ curfptr[649]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V650*/ curfptr[649])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V650*/ curfptr[649]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V628*/ curfptr[627]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V649*/ curfptr[648]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V649*/ curfptr[648])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V649*/ curfptr[648]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V647*/ curfptr[646]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V650*/ curfptr[649]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V650*/ curfptr[649])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V650*/ curfptr[649]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V648*/ curfptr[647]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V649*/ curfptr[648]); + basilysgc_touch(/*_.VALTUP___V650*/ curfptr[649]); BASILYS_LOCATION("warmelt-macro.bysl:369:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V644*/ curfptr[643])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V644*/ curfptr[643])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V649*/ curfptr[648]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V645*/ curfptr[644])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V645*/ curfptr[644])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V645*/ curfptr[644]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V650*/ curfptr[649]); BASILYS_LOCATION("warmelt-macro.bysl:369:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V644*/ curfptr[643]); + basilysgc_touch(/*_.VALDATA___V645*/ curfptr[644]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V650*/ curfptr[649])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V650*/ curfptr[649])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V650*/ curfptr[649]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V651*/ curfptr[650]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V651*/ curfptr[650])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V651*/ curfptr[650])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V651*/ curfptr[650]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V652*/ curfptr[651]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V650*/ curfptr[649]); + basilysgc_touch(/*_.VALDATA___V651*/ curfptr[650]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V653*/ curfptr[652]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V653*/ curfptr[652])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V653*/ curfptr[652])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V653*/ curfptr[652]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V654*/ curfptr[653]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V652*/ curfptr[651]); + basilysgc_touch(/*_.VALDATA___V653*/ curfptr[652]); BASILYS_LOCATION("warmelt-macro.bysl:375:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V654*/ curfptr[653])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V654*/ curfptr[653])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V654*/ curfptr[653]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V655*/ curfptr[654]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V656*/ curfptr[655]); BASILYS_LOCATION("warmelt-macro.bysl:375:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V654*/ curfptr[653])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V654*/ curfptr[653])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V654*/ curfptr[653]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V656*/ curfptr[655]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V656*/ curfptr[655])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V656*/ curfptr[655]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V657*/ curfptr[656]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V657*/ curfptr[656])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V657*/ curfptr[656]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V656*/ curfptr[655]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V656*/ curfptr[655])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V656*/ curfptr[655]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V657*/ curfptr[656]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V657*/ curfptr[656])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V657*/ curfptr[656]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V656*/ curfptr[655]); + basilysgc_touch(/*_.VALTUP___V657*/ curfptr[656]); BASILYS_LOCATION("warmelt-macro.bysl:375:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V654*/ curfptr[653])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V654*/ curfptr[653])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V654*/ curfptr[653]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V656*/ curfptr[655]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V657*/ curfptr[656]); BASILYS_LOCATION("warmelt-macro.bysl:375:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V657*/ curfptr[656])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V657*/ curfptr[656])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V657*/ curfptr[656]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V658*/ curfptr[657]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V658*/ curfptr[657])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V658*/ curfptr[657])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V658*/ curfptr[657]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V659*/ curfptr[658]); BASILYS_LOCATION("warmelt-macro.bysl:375:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V657*/ curfptr[656])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V657*/ curfptr[656])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V657*/ curfptr[656]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V654*/ curfptr[653]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V658*/ curfptr[657])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V658*/ curfptr[657])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V658*/ curfptr[657]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V655*/ curfptr[654]); BASILYS_LOCATION("warmelt-macro.bysl:375:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V657*/ curfptr[656]); + basilysgc_touch(/*_.VALDATA___V658*/ curfptr[657]); BASILYS_LOCATION("warmelt-macro.bysl:375:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V660*/ curfptr[659]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V660*/ curfptr[659])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V660*/ curfptr[659])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V660*/ curfptr[659]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V661*/ curfptr[660]); BASILYS_LOCATION("warmelt-macro.bysl:375:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V654*/ curfptr[653]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V660*/ curfptr[659])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V660*/ curfptr[659])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V660*/ curfptr[659]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V655*/ curfptr[654]); BASILYS_LOCATION("warmelt-macro.bysl:375:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V659*/ curfptr[658]); + basilysgc_touch(/*_.VALDATA___V660*/ curfptr[659]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V662*/ curfptr[661]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V662*/ curfptr[661])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V662*/ curfptr[661]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V657*/ curfptr[656]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V662*/ curfptr[661]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V662*/ curfptr[661])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V662*/ curfptr[661]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V658*/ curfptr[657]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V662*/ curfptr[661]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V662*/ curfptr[661])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V662*/ curfptr[661]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V660*/ curfptr[659]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V661*/ curfptr[660]); + basilysgc_touch(/*_.VALTUP___V662*/ curfptr[661]); BASILYS_LOCATION("warmelt-macro.bysl:375:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V654*/ curfptr[653])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V654*/ curfptr[653])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V654*/ curfptr[653]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V661*/ curfptr[660]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V662*/ curfptr[661]); BASILYS_LOCATION("warmelt-macro.bysl:375:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V654*/ curfptr[653]); + basilysgc_touch(/*_.VALDATA___V655*/ curfptr[654]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V662*/ curfptr[661])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V662*/ curfptr[661])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V662*/ curfptr[661]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V663*/ curfptr[662]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V663*/ curfptr[662])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V663*/ curfptr[662])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V663*/ curfptr[662]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V664*/ curfptr[663]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V662*/ curfptr[661]); + basilysgc_touch(/*_.VALDATA___V663*/ curfptr[662]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V664*/ curfptr[663])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V664*/ curfptr[663])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V664*/ curfptr[663]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V665*/ curfptr[664]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V665*/ curfptr[664])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V665*/ curfptr[664])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V665*/ curfptr[664]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V666*/ curfptr[665]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V664*/ curfptr[663]); + basilysgc_touch(/*_.VALDATA___V665*/ curfptr[664]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V666*/ curfptr[665])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V666*/ curfptr[665])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V666*/ curfptr[665]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V667*/ curfptr[666]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V667*/ curfptr[666])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V667*/ curfptr[666])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V668*/ curfptr[667]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V666*/ curfptr[665]); + basilysgc_touch(/*_.VALDATA___V667*/ curfptr[666]); BASILYS_LOCATION("warmelt-macro.bysl:382:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V668*/ curfptr[667]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V669*/ curfptr[668]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V670*/ curfptr[669]); BASILYS_LOCATION("warmelt-macro.bysl:382:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V668*/ curfptr[667]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V670*/ curfptr[669]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V670*/ curfptr[669])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V670*/ curfptr[669]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V671*/ curfptr[670]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V671*/ curfptr[670])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V671*/ curfptr[670]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V670*/ curfptr[669]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V670*/ curfptr[669])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V670*/ curfptr[669]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V671*/ curfptr[670]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V671*/ curfptr[670])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V671*/ curfptr[670]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V670*/ curfptr[669]); + basilysgc_touch(/*_.VALTUP___V671*/ curfptr[670]); BASILYS_LOCATION("warmelt-macro.bysl:382:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V668*/ curfptr[667]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V670*/ curfptr[669]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V671*/ curfptr[670]); BASILYS_LOCATION("warmelt-macro.bysl:382:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V671*/ curfptr[670])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V671*/ curfptr[670])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V671*/ curfptr[670]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V672*/ curfptr[671]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V672*/ curfptr[671])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V672*/ curfptr[671])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V672*/ curfptr[671]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V673*/ curfptr[672]); BASILYS_LOCATION("warmelt-macro.bysl:382:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V671*/ curfptr[670])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V671*/ curfptr[670])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V671*/ curfptr[670]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V668*/ curfptr[667]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V672*/ curfptr[671])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V672*/ curfptr[671])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V672*/ curfptr[671]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V669*/ curfptr[668]); BASILYS_LOCATION("warmelt-macro.bysl:382:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V671*/ curfptr[670]); + basilysgc_touch(/*_.VALDATA___V672*/ curfptr[671]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V673*/ curfptr[672]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V673*/ curfptr[672])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V673*/ curfptr[672]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V674*/ curfptr[673]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V674*/ curfptr[673])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V674*/ curfptr[673]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V673*/ curfptr[672]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V673*/ curfptr[672])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V673*/ curfptr[672]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V671*/ curfptr[670]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V674*/ curfptr[673]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V674*/ curfptr[673])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V674*/ curfptr[673]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V672*/ curfptr[671]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V673*/ curfptr[672]); + basilysgc_touch(/*_.VALTUP___V674*/ curfptr[673]); BASILYS_LOCATION("warmelt-macro.bysl:382:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V668*/ curfptr[667]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V673*/ curfptr[672]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V674*/ curfptr[673]); BASILYS_LOCATION("warmelt-macro.bysl:382:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V668*/ curfptr[667]); + basilysgc_touch(/*_.VALDATA___V669*/ curfptr[668]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V674*/ curfptr[673]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V675*/ curfptr[674]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V675*/ curfptr[674])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V675*/ curfptr[674])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V675*/ curfptr[674]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V676*/ curfptr[675]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V674*/ curfptr[673]); + basilysgc_touch(/*_.VALDATA___V675*/ curfptr[674]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V676*/ curfptr[675])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V676*/ curfptr[675])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V677*/ curfptr[676]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V677*/ curfptr[676])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V677*/ curfptr[676])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V677*/ curfptr[676]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V678*/ curfptr[677]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V676*/ curfptr[675]); + basilysgc_touch(/*_.VALDATA___V677*/ curfptr[676]); BASILYS_LOCATION("warmelt-macro.bysl:390:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V678*/ curfptr[677]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V679*/ curfptr[678]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V680*/ curfptr[679]); BASILYS_LOCATION("warmelt-macro.bysl:390:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V678*/ curfptr[677]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V680*/ curfptr[679]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V680*/ curfptr[679])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V680*/ curfptr[679]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V680*/ curfptr[679]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V680*/ curfptr[679])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V680*/ curfptr[679]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V680*/ curfptr[679]); + basilysgc_touch(/*_.VALTUP___V681*/ curfptr[680]); BASILYS_LOCATION("warmelt-macro.bysl:390:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V678*/ curfptr[677]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V680*/ curfptr[679]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V681*/ curfptr[680]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V682*/ curfptr[681]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V682*/ curfptr[681])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V682*/ curfptr[681]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V681*/ curfptr[680]); + basilysgc_touch(/*_.VALTUP___V682*/ curfptr[681]); BASILYS_LOCATION("warmelt-macro.bysl:390:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V678*/ curfptr[677]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V681*/ curfptr[680]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V682*/ curfptr[681]); BASILYS_LOCATION("warmelt-macro.bysl:390:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V678*/ curfptr[677]); + basilysgc_touch(/*_.VALDATA___V679*/ curfptr[678]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V682*/ curfptr[681])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V682*/ curfptr[681])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V682*/ curfptr[681]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V683*/ curfptr[682]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V683*/ curfptr[682])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V683*/ curfptr[682])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V683*/ curfptr[682]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V684*/ curfptr[683]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V682*/ curfptr[681]); + basilysgc_touch(/*_.VALDATA___V683*/ curfptr[682]); BASILYS_LOCATION("warmelt-macro.bysl:398:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V684*/ curfptr[683]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V685*/ curfptr[684]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V685*/ curfptr[684])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V685*/ curfptr[684])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V685*/ curfptr[684]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V686*/ curfptr[685]); BASILYS_LOCATION("warmelt-macro.bysl:398:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V684*/ curfptr[683]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V685*/ curfptr[684])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V685*/ curfptr[684])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V685*/ curfptr[684]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V686*/ curfptr[685]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V686*/ curfptr[685])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V686*/ curfptr[685]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V687*/ curfptr[686]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V687*/ curfptr[686])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V687*/ curfptr[686]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V686*/ curfptr[685]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V686*/ curfptr[685])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V686*/ curfptr[685]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V687*/ curfptr[686]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V687*/ curfptr[686])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V687*/ curfptr[686]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V686*/ curfptr[685]); + basilysgc_touch(/*_.VALTUP___V687*/ curfptr[686]); BASILYS_LOCATION("warmelt-macro.bysl:398:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V684*/ curfptr[683]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V686*/ curfptr[685]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V685*/ curfptr[684])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V685*/ curfptr[684])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V685*/ curfptr[684]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V687*/ curfptr[686]); BASILYS_LOCATION("warmelt-macro.bysl:398:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V688*/ curfptr[687]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V688*/ curfptr[687]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V689*/ curfptr[688]); BASILYS_LOCATION("warmelt-macro.bysl:398:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V684*/ curfptr[683]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V688*/ curfptr[687]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V685*/ curfptr[684]); BASILYS_LOCATION("warmelt-macro.bysl:398:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V687*/ curfptr[686]); + basilysgc_touch(/*_.VALDATA___V688*/ curfptr[687]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V689*/ curfptr[688]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V689*/ curfptr[688])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V689*/ curfptr[688]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V690*/ curfptr[689]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V690*/ curfptr[689])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V690*/ curfptr[689]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V689*/ curfptr[688]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V689*/ curfptr[688])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V689*/ curfptr[688]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V690*/ curfptr[689]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V690*/ curfptr[689])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V690*/ curfptr[689]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V689*/ curfptr[688]); + basilysgc_touch(/*_.VALTUP___V690*/ curfptr[689]); BASILYS_LOCATION("warmelt-macro.bysl:398:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V684*/ curfptr[683]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V689*/ curfptr[688]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V685*/ curfptr[684])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V685*/ curfptr[684])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V685*/ curfptr[684]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V690*/ curfptr[689]); BASILYS_LOCATION("warmelt-macro.bysl:398:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V684*/ curfptr[683]); + basilysgc_touch(/*_.VALDATA___V685*/ curfptr[684]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V690*/ curfptr[689])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V690*/ curfptr[689])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V690*/ curfptr[689]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V691*/ curfptr[690]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V691*/ curfptr[690])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V691*/ curfptr[690])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V691*/ curfptr[690]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V692*/ curfptr[691]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V690*/ curfptr[689]); + basilysgc_touch(/*_.VALDATA___V691*/ curfptr[690]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V692*/ curfptr[691])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V692*/ curfptr[691])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V692*/ curfptr[691]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V693*/ curfptr[692]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V693*/ curfptr[692])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V693*/ curfptr[692])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V693*/ curfptr[692]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V694*/ curfptr[693]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V692*/ curfptr[691]); + basilysgc_touch(/*_.VALDATA___V693*/ curfptr[692]); BASILYS_LOCATION("warmelt-macro.bysl:407:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V695*/ curfptr[694]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V695*/ curfptr[694])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V695*/ curfptr[694])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V695*/ curfptr[694]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V696*/ curfptr[695]); BASILYS_LOCATION("warmelt-macro.bysl:407:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V695*/ curfptr[694])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V695*/ curfptr[694])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V695*/ curfptr[694]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V696*/ curfptr[695]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V696*/ curfptr[695])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V696*/ curfptr[695]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V697*/ curfptr[696]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V697*/ curfptr[696])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V697*/ curfptr[696]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V696*/ curfptr[695]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V696*/ curfptr[695])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V696*/ curfptr[695]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V697*/ curfptr[696]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V697*/ curfptr[696])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V697*/ curfptr[696]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V696*/ curfptr[695]); + basilysgc_touch(/*_.VALTUP___V697*/ curfptr[696]); BASILYS_LOCATION("warmelt-macro.bysl:407:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V696*/ curfptr[695]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V695*/ curfptr[694])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V695*/ curfptr[694])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V695*/ curfptr[694]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V697*/ curfptr[696]); BASILYS_LOCATION("warmelt-macro.bysl:407:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V697*/ curfptr[696])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V697*/ curfptr[696])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V697*/ curfptr[696]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V698*/ curfptr[697]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V698*/ curfptr[697])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V698*/ curfptr[697])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V698*/ curfptr[697]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V699*/ curfptr[698]); BASILYS_LOCATION("warmelt-macro.bysl:407:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V697*/ curfptr[696])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V697*/ curfptr[696])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V697*/ curfptr[696]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V694*/ curfptr[693]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V698*/ curfptr[697])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V698*/ curfptr[697])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V698*/ curfptr[697]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V695*/ curfptr[694]); BASILYS_LOCATION("warmelt-macro.bysl:407:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V697*/ curfptr[696]); + basilysgc_touch(/*_.VALDATA___V698*/ curfptr[697]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V699*/ curfptr[698]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V699*/ curfptr[698])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V699*/ curfptr[698]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V700*/ curfptr[699]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V700*/ curfptr[699])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V700*/ curfptr[699]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V699*/ curfptr[698]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V699*/ curfptr[698])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V699*/ curfptr[698]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V697*/ curfptr[696]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V700*/ curfptr[699]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V700*/ curfptr[699])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V700*/ curfptr[699]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V698*/ curfptr[697]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V699*/ curfptr[698]); + basilysgc_touch(/*_.VALTUP___V700*/ curfptr[699]); BASILYS_LOCATION("warmelt-macro.bysl:407:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V699*/ curfptr[698]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V695*/ curfptr[694])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V695*/ curfptr[694])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V695*/ curfptr[694]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V700*/ curfptr[699]); BASILYS_LOCATION("warmelt-macro.bysl:407:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V694*/ curfptr[693]); + basilysgc_touch(/*_.VALDATA___V695*/ curfptr[694]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V700*/ curfptr[699])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V700*/ curfptr[699])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V700*/ curfptr[699]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V701*/ curfptr[700]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V701*/ curfptr[700])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V701*/ curfptr[700])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V702*/ curfptr[701]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V700*/ curfptr[699]); + basilysgc_touch(/*_.VALDATA___V701*/ curfptr[700]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V703*/ curfptr[702]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V703*/ curfptr[702])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V703*/ curfptr[702])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V703*/ curfptr[702]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V704*/ curfptr[703]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V702*/ curfptr[701]); + basilysgc_touch(/*_.VALDATA___V703*/ curfptr[702]); BASILYS_LOCATION("warmelt-macro.bysl:413:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V704*/ curfptr[703])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V704*/ curfptr[703])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V704*/ curfptr[703]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V705*/ curfptr[704]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V706*/ curfptr[705]); BASILYS_LOCATION("warmelt-macro.bysl:413:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V704*/ curfptr[703])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V704*/ curfptr[703])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V704*/ curfptr[703]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V706*/ curfptr[705]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V706*/ curfptr[705])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V706*/ curfptr[705]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V707*/ curfptr[706])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V706*/ curfptr[705]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V706*/ curfptr[705])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V706*/ curfptr[705]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V707*/ curfptr[706])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V706*/ curfptr[705]); + basilysgc_touch(/*_.VALTUP___V707*/ curfptr[706]); BASILYS_LOCATION("warmelt-macro.bysl:413:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V704*/ curfptr[703])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V704*/ curfptr[703])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V704*/ curfptr[703]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V706*/ curfptr[705]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V707*/ curfptr[706]); BASILYS_LOCATION("warmelt-macro.bysl:413:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V707*/ curfptr[706])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V707*/ curfptr[706])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V707*/ curfptr[706]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V708*/ curfptr[707]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V708*/ curfptr[707])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V708*/ curfptr[707])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V708*/ curfptr[707]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V709*/ curfptr[708]); BASILYS_LOCATION("warmelt-macro.bysl:413:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V707*/ curfptr[706])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V707*/ curfptr[706])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V707*/ curfptr[706]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V704*/ curfptr[703]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V708*/ curfptr[707])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V708*/ curfptr[707])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V708*/ curfptr[707]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-macro.bysl:413:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V707*/ curfptr[706]); + basilysgc_touch(/*_.VALDATA___V708*/ curfptr[707]); BASILYS_LOCATION("warmelt-macro.bysl:413:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V709*/ curfptr[708])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V709*/ curfptr[708])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V709*/ curfptr[708]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V710*/ curfptr[709]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V710*/ curfptr[709])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V710*/ curfptr[709])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V710*/ curfptr[709]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V711*/ curfptr[710]); BASILYS_LOCATION("warmelt-macro.bysl:413:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V709*/ curfptr[708])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V709*/ curfptr[708])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V709*/ curfptr[708]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V704*/ curfptr[703]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V710*/ curfptr[709])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V710*/ curfptr[709])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V710*/ curfptr[709]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-macro.bysl:413:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V709*/ curfptr[708]); + basilysgc_touch(/*_.VALDATA___V710*/ curfptr[709]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V712*/ curfptr[711]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V712*/ curfptr[711])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V712*/ curfptr[711]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V707*/ curfptr[706]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V712*/ curfptr[711]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V712*/ curfptr[711])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V712*/ curfptr[711]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V708*/ curfptr[707]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V709*/ curfptr[708]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V712*/ curfptr[711]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V712*/ curfptr[711])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V712*/ curfptr[711]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V710*/ curfptr[709]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V711*/ curfptr[710]); + basilysgc_touch(/*_.VALTUP___V712*/ curfptr[711]); BASILYS_LOCATION("warmelt-macro.bysl:413:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V704*/ curfptr[703])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V704*/ curfptr[703])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V704*/ curfptr[703]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V711*/ curfptr[710]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V712*/ curfptr[711]); BASILYS_LOCATION("warmelt-macro.bysl:413:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V704*/ curfptr[703]); + basilysgc_touch(/*_.VALDATA___V705*/ curfptr[704]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V712*/ curfptr[711])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V712*/ curfptr[711])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V712*/ curfptr[711]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V713*/ curfptr[712]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V713*/ curfptr[712])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V713*/ curfptr[712])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V713*/ curfptr[712]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V714*/ curfptr[713]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V712*/ curfptr[711]); + basilysgc_touch(/*_.VALDATA___V713*/ curfptr[712]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V714*/ curfptr[713])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V714*/ curfptr[713])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V715*/ curfptr[714]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V715*/ curfptr[714])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V715*/ curfptr[714])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V715*/ curfptr[714]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V716*/ curfptr[715]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V714*/ curfptr[713]); + basilysgc_touch(/*_.VALDATA___V715*/ curfptr[714]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V716*/ curfptr[715])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V716*/ curfptr[715])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V716*/ curfptr[715]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V717*/ curfptr[716]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V717*/ curfptr[716])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V717*/ curfptr[716])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V717*/ curfptr[716]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V718*/ curfptr[717]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V716*/ curfptr[715]); + basilysgc_touch(/*_.VALDATA___V717*/ curfptr[716]); BASILYS_LOCATION("warmelt-macro.bysl:420:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V719*/ curfptr[718]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V720*/ curfptr[719]); BASILYS_LOCATION("warmelt-macro.bysl:420:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V720*/ curfptr[719]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V720*/ curfptr[719])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V720*/ curfptr[719]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V721*/ curfptr[720]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V721*/ curfptr[720])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V721*/ curfptr[720]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V720*/ curfptr[719]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V720*/ curfptr[719])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V720*/ curfptr[719]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V721*/ curfptr[720]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V721*/ curfptr[720])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V721*/ curfptr[720]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V720*/ curfptr[719]); + basilysgc_touch(/*_.VALTUP___V721*/ curfptr[720]); BASILYS_LOCATION("warmelt-macro.bysl:420:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V720*/ curfptr[719]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V721*/ curfptr[720]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V721*/ curfptr[720]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V721*/ curfptr[720])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V721*/ curfptr[720]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V722*/ curfptr[721]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V722*/ curfptr[721])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V722*/ curfptr[721]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V721*/ curfptr[720]); + basilysgc_touch(/*_.VALTUP___V722*/ curfptr[721]); BASILYS_LOCATION("warmelt-macro.bysl:420:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V721*/ curfptr[720]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V722*/ curfptr[721]); BASILYS_LOCATION("warmelt-macro.bysl:420:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V718*/ curfptr[717]); + basilysgc_touch(/*_.VALDATA___V719*/ curfptr[718]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V722*/ curfptr[721])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V722*/ curfptr[721])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V722*/ curfptr[721]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V723*/ curfptr[722]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V723*/ curfptr[722])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V723*/ curfptr[722])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V723*/ curfptr[722]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V724*/ curfptr[723]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V722*/ curfptr[721]); + basilysgc_touch(/*_.VALDATA___V723*/ curfptr[722]); BASILYS_LOCATION("warmelt-macro.bysl:426:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V724*/ curfptr[723])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V724*/ curfptr[723])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V725*/ curfptr[724]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V725*/ curfptr[724])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V725*/ curfptr[724])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V725*/ curfptr[724]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V726*/ curfptr[725]); BASILYS_LOCATION("warmelt-macro.bysl:426:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V724*/ curfptr[723])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V724*/ curfptr[723])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V725*/ curfptr[724])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V725*/ curfptr[724])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V725*/ curfptr[724]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V719*/ curfptr[718]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V726*/ curfptr[725]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V726*/ curfptr[725])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V726*/ curfptr[725]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V727*/ curfptr[726]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V727*/ curfptr[726])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V727*/ curfptr[726]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V726*/ curfptr[725]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V726*/ curfptr[725])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V726*/ curfptr[725]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V727*/ curfptr[726]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V727*/ curfptr[726])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V727*/ curfptr[726]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V726*/ curfptr[725]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V726*/ curfptr[725])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V726*/ curfptr[725]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V727*/ curfptr[726]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V727*/ curfptr[726])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V727*/ curfptr[726]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V726*/ curfptr[725]); + basilysgc_touch(/*_.VALTUP___V727*/ curfptr[726]); BASILYS_LOCATION("warmelt-macro.bysl:426:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V724*/ curfptr[723])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V724*/ curfptr[723])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V726*/ curfptr[725]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V725*/ curfptr[724])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V725*/ curfptr[724])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V725*/ curfptr[724]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V727*/ curfptr[726]); BASILYS_LOCATION("warmelt-macro.bysl:426:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V727*/ curfptr[726]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V728*/ curfptr[727]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V728*/ curfptr[727])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V728*/ curfptr[727])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V728*/ curfptr[727]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V729*/ curfptr[728]); BASILYS_LOCATION("warmelt-macro.bysl:426:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V727*/ curfptr[726]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V724*/ curfptr[723]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V728*/ curfptr[727])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V728*/ curfptr[727])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V728*/ curfptr[727]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V725*/ curfptr[724]); BASILYS_LOCATION("warmelt-macro.bysl:426:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V727*/ curfptr[726]); + basilysgc_touch(/*_.VALDATA___V728*/ curfptr[727]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V729*/ curfptr[728]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V729*/ curfptr[728])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V729*/ curfptr[728]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V730*/ curfptr[729]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V730*/ curfptr[729])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V730*/ curfptr[729]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V729*/ curfptr[728]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V729*/ curfptr[728])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V729*/ curfptr[728]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V730*/ curfptr[729]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V730*/ curfptr[729])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V730*/ curfptr[729]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V728*/ curfptr[727]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V729*/ curfptr[728]); + basilysgc_touch(/*_.VALTUP___V730*/ curfptr[729]); BASILYS_LOCATION("warmelt-macro.bysl:426:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V724*/ curfptr[723])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V724*/ curfptr[723])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V729*/ curfptr[728]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V725*/ curfptr[724])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V725*/ curfptr[724])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V725*/ curfptr[724]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V730*/ curfptr[729]); BASILYS_LOCATION("warmelt-macro.bysl:426:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V724*/ curfptr[723]); + basilysgc_touch(/*_.VALDATA___V725*/ curfptr[724]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V730*/ curfptr[729])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V730*/ curfptr[729])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V731*/ curfptr[730]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V731*/ curfptr[730])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V731*/ curfptr[730])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V731*/ curfptr[730]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V732*/ curfptr[731]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V730*/ curfptr[729]); + basilysgc_touch(/*_.VALDATA___V731*/ curfptr[730]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V732*/ curfptr[731])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V732*/ curfptr[731])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V733*/ curfptr[732]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V733*/ curfptr[732])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V733*/ curfptr[732])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V733*/ curfptr[732]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V734*/ curfptr[733]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V732*/ curfptr[731]); + basilysgc_touch(/*_.VALDATA___V733*/ curfptr[732]); BASILYS_LOCATION("warmelt-macro.bysl:432:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V735*/ curfptr[734]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V735*/ curfptr[734])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V735*/ curfptr[734])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V735*/ curfptr[734]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V736*/ curfptr[735]); BASILYS_LOCATION("warmelt-macro.bysl:432:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V735*/ curfptr[734])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V735*/ curfptr[734])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V735*/ curfptr[734]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V719*/ curfptr[718]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V737*/ curfptr[736]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V737*/ curfptr[736])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V737*/ curfptr[736]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V737*/ curfptr[736]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V737*/ curfptr[736])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V737*/ curfptr[736]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V737*/ curfptr[736]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V737*/ curfptr[736])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V737*/ curfptr[736]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V736*/ curfptr[735]); + basilysgc_touch(/*_.VALTUP___V737*/ curfptr[736]); BASILYS_LOCATION("warmelt-macro.bysl:432:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V736*/ curfptr[735]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V735*/ curfptr[734])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V735*/ curfptr[734])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V735*/ curfptr[734]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V737*/ curfptr[736]); BASILYS_LOCATION("warmelt-macro.bysl:432:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V737*/ curfptr[736])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V737*/ curfptr[736])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V737*/ curfptr[736]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V738*/ curfptr[737]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V738*/ curfptr[737])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V738*/ curfptr[737])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V738*/ curfptr[737]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V739*/ curfptr[738]); BASILYS_LOCATION("warmelt-macro.bysl:432:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V737*/ curfptr[736])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V737*/ curfptr[736])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V737*/ curfptr[736]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V734*/ curfptr[733]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V738*/ curfptr[737])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V738*/ curfptr[737])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V738*/ curfptr[737]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V735*/ curfptr[734]); BASILYS_LOCATION("warmelt-macro.bysl:432:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V737*/ curfptr[736]); + basilysgc_touch(/*_.VALDATA___V738*/ curfptr[737]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V739*/ curfptr[738]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V739*/ curfptr[738])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V739*/ curfptr[738]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V740*/ curfptr[739]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V740*/ curfptr[739])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V740*/ curfptr[739]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V739*/ curfptr[738]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V739*/ curfptr[738])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V739*/ curfptr[738]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V737*/ curfptr[736]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V740*/ curfptr[739]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V740*/ curfptr[739])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V740*/ curfptr[739]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V738*/ curfptr[737]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V739*/ curfptr[738]); + basilysgc_touch(/*_.VALTUP___V740*/ curfptr[739]); BASILYS_LOCATION("warmelt-macro.bysl:432:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V739*/ curfptr[738]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V735*/ curfptr[734])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V735*/ curfptr[734])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V735*/ curfptr[734]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V740*/ curfptr[739]); BASILYS_LOCATION("warmelt-macro.bysl:432:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V734*/ curfptr[733]); + basilysgc_touch(/*_.VALDATA___V735*/ curfptr[734]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V740*/ curfptr[739])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V740*/ curfptr[739])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V740*/ curfptr[739]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V741*/ curfptr[740]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V741*/ curfptr[740])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V741*/ curfptr[740])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V741*/ curfptr[740]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V742*/ curfptr[741]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V740*/ curfptr[739]); + basilysgc_touch(/*_.VALDATA___V741*/ curfptr[740]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V742*/ curfptr[741])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V742*/ curfptr[741])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V742*/ curfptr[741]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V743*/ curfptr[742]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V743*/ curfptr[742])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V743*/ curfptr[742])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V743*/ curfptr[742]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V744*/ curfptr[743]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V742*/ curfptr[741]); + basilysgc_touch(/*_.VALDATA___V743*/ curfptr[742]); BASILYS_LOCATION("warmelt-macro.bysl:439:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V745*/ curfptr[744]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V746*/ curfptr[745]); BASILYS_LOCATION("warmelt-macro.bysl:439:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V719*/ curfptr[718]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V746*/ curfptr[745]); + basilysgc_touch(/*_.VALTUP___V747*/ curfptr[746]); BASILYS_LOCATION("warmelt-macro.bysl:439:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V746*/ curfptr[745]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V747*/ curfptr[746]); BASILYS_LOCATION("warmelt-macro.bysl:439:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V747*/ curfptr[746])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V747*/ curfptr[746])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V747*/ curfptr[746]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V748*/ curfptr[747]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V748*/ curfptr[747])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V748*/ curfptr[747])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V748*/ curfptr[747]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V749*/ curfptr[748]); BASILYS_LOCATION("warmelt-macro.bysl:439:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V747*/ curfptr[746])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V747*/ curfptr[746])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V747*/ curfptr[746]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V744*/ curfptr[743]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V748*/ curfptr[747])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V748*/ curfptr[747])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V748*/ curfptr[747]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V745*/ curfptr[744]); BASILYS_LOCATION("warmelt-macro.bysl:439:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V747*/ curfptr[746]); + basilysgc_touch(/*_.VALDATA___V748*/ curfptr[747]); BASILYS_LOCATION("warmelt-macro.bysl:439:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V749*/ curfptr[748])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V749*/ curfptr[748])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V749*/ curfptr[748]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V750*/ curfptr[749]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V751*/ curfptr[750]); BASILYS_LOCATION("warmelt-macro.bysl:439:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V749*/ curfptr[748])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V749*/ curfptr[748])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V749*/ curfptr[748]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V744*/ curfptr[743]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V745*/ curfptr[744]); BASILYS_LOCATION("warmelt-macro.bysl:439:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V749*/ curfptr[748]); + basilysgc_touch(/*_.VALDATA___V750*/ curfptr[749]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V751*/ curfptr[750]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V751*/ curfptr[750])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V751*/ curfptr[750]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V752*/ curfptr[751]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V752*/ curfptr[751])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V752*/ curfptr[751]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V751*/ curfptr[750]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V751*/ curfptr[750])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V751*/ curfptr[750]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V747*/ curfptr[746]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V752*/ curfptr[751]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V752*/ curfptr[751])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V752*/ curfptr[751]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V748*/ curfptr[747]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V751*/ curfptr[750]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V751*/ curfptr[750])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V751*/ curfptr[750]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V749*/ curfptr[748]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V752*/ curfptr[751]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V752*/ curfptr[751])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V752*/ curfptr[751]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V751*/ curfptr[750]); + basilysgc_touch(/*_.VALTUP___V752*/ curfptr[751]); BASILYS_LOCATION("warmelt-macro.bysl:439:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V751*/ curfptr[750]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V752*/ curfptr[751]); BASILYS_LOCATION("warmelt-macro.bysl:439:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V744*/ curfptr[743]); + basilysgc_touch(/*_.VALDATA___V745*/ curfptr[744]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V752*/ curfptr[751])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V752*/ curfptr[751])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V752*/ curfptr[751]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V753*/ curfptr[752]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V753*/ curfptr[752])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V753*/ curfptr[752])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V753*/ curfptr[752]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V754*/ curfptr[753]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V752*/ curfptr[751]); + basilysgc_touch(/*_.VALDATA___V753*/ curfptr[752]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V754*/ curfptr[753])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V754*/ curfptr[753])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V754*/ curfptr[753]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V755*/ curfptr[754]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V755*/ curfptr[754])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V755*/ curfptr[754])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V755*/ curfptr[754]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V756*/ curfptr[755]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V754*/ curfptr[753]); + basilysgc_touch(/*_.VALDATA___V755*/ curfptr[754]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V756*/ curfptr[755])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V756*/ curfptr[755])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V756*/ curfptr[755]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V757*/ curfptr[756]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V757*/ curfptr[756])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V757*/ curfptr[756])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V757*/ curfptr[756]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V758*/ curfptr[757]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V756*/ curfptr[755]); + basilysgc_touch(/*_.VALDATA___V757*/ curfptr[756]); BASILYS_LOCATION("warmelt-macro.bysl:446:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V759*/ curfptr[758]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V759*/ curfptr[758]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V760*/ curfptr[759]); BASILYS_LOCATION("warmelt-macro.bysl:446:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V759*/ curfptr[758]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V719*/ curfptr[718]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V760*/ curfptr[759]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V760*/ curfptr[759])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V760*/ curfptr[759]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V761*/ curfptr[760]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V761*/ curfptr[760])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V761*/ curfptr[760]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V760*/ curfptr[759]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V760*/ curfptr[759])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V760*/ curfptr[759]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V761*/ curfptr[760]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V761*/ curfptr[760])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V761*/ curfptr[760]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V760*/ curfptr[759]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V760*/ curfptr[759])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V760*/ curfptr[759]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V761*/ curfptr[760]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V761*/ curfptr[760])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V761*/ curfptr[760]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V760*/ curfptr[759]); + basilysgc_touch(/*_.VALTUP___V761*/ curfptr[760]); BASILYS_LOCATION("warmelt-macro.bysl:446:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V760*/ curfptr[759]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V759*/ curfptr[758]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V761*/ curfptr[760]); BASILYS_LOCATION("warmelt-macro.bysl:446:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V762*/ curfptr[761]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V762*/ curfptr[761])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V762*/ curfptr[761])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V762*/ curfptr[761]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V763*/ curfptr[762]); BASILYS_LOCATION("warmelt-macro.bysl:446:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V758*/ curfptr[757]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V762*/ curfptr[761])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V762*/ curfptr[761])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V762*/ curfptr[761]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V759*/ curfptr[758]); BASILYS_LOCATION("warmelt-macro.bysl:446:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V761*/ curfptr[760]); + basilysgc_touch(/*_.VALDATA___V762*/ curfptr[761]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V763*/ curfptr[762]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V763*/ curfptr[762])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V763*/ curfptr[762]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V764*/ curfptr[763]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V764*/ curfptr[763])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V764*/ curfptr[763]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V763*/ curfptr[762]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V763*/ curfptr[762])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V763*/ curfptr[762]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V764*/ curfptr[763]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V764*/ curfptr[763])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V764*/ curfptr[763]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V762*/ curfptr[761]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V763*/ curfptr[762]); + basilysgc_touch(/*_.VALTUP___V764*/ curfptr[763]); BASILYS_LOCATION("warmelt-macro.bysl:446:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V763*/ curfptr[762]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V759*/ curfptr[758]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V764*/ curfptr[763]); BASILYS_LOCATION("warmelt-macro.bysl:446:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V758*/ curfptr[757]); + basilysgc_touch(/*_.VALDATA___V759*/ curfptr[758]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V764*/ curfptr[763])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V764*/ curfptr[763])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V764*/ curfptr[763]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V765*/ curfptr[764]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V765*/ curfptr[764])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V765*/ curfptr[764])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V765*/ curfptr[764]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V766*/ curfptr[765]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V764*/ curfptr[763]); + basilysgc_touch(/*_.VALDATA___V765*/ curfptr[764]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V766*/ curfptr[765])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V766*/ curfptr[765])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V766*/ curfptr[765]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V767*/ curfptr[766]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V767*/ curfptr[766]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V768*/ curfptr[767]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V766*/ curfptr[765]); + basilysgc_touch(/*_.VALDATA___V767*/ curfptr[766]); BASILYS_LOCATION("warmelt-macro.bysl:452:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V768*/ curfptr[767])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V768*/ curfptr[767])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V768*/ curfptr[767]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V769*/ curfptr[768]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V769*/ curfptr[768]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V770*/ curfptr[769]); BASILYS_LOCATION("warmelt-macro.bysl:452:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V768*/ curfptr[767])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V768*/ curfptr[767])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V768*/ curfptr[767]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V758*/ curfptr[757]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V769*/ curfptr[768]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V759*/ curfptr[758]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V770*/ curfptr[769]); + basilysgc_touch(/*_.VALTUP___V771*/ curfptr[770]); BASILYS_LOCATION("warmelt-macro.bysl:452:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V768*/ curfptr[767])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V768*/ curfptr[767])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V768*/ curfptr[767]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V770*/ curfptr[769]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V769*/ curfptr[768]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V771*/ curfptr[770]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V772*/ curfptr[771]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V772*/ curfptr[771])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V772*/ curfptr[771]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V772*/ curfptr[771]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V772*/ curfptr[771])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V772*/ curfptr[771]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V762*/ curfptr[761]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V771*/ curfptr[770]); + basilysgc_touch(/*_.VALTUP___V772*/ curfptr[771]); BASILYS_LOCATION("warmelt-macro.bysl:452:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V768*/ curfptr[767])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V768*/ curfptr[767])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V768*/ curfptr[767]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V771*/ curfptr[770]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V769*/ curfptr[768]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V772*/ curfptr[771]); BASILYS_LOCATION("warmelt-macro.bysl:452:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V768*/ curfptr[767]); + basilysgc_touch(/*_.VALDATA___V769*/ curfptr[768]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V772*/ curfptr[771])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V772*/ curfptr[771])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V772*/ curfptr[771]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V773*/ curfptr[772]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V774*/ curfptr[773]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V772*/ curfptr[771]); + basilysgc_touch(/*_.VALDATA___V773*/ curfptr[772]); BASILYS_LOCATION("warmelt-macro.bysl:458:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V774*/ curfptr[773]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V775*/ curfptr[774]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V775*/ curfptr[774])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V775*/ curfptr[774])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V775*/ curfptr[774]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V776*/ curfptr[775]); BASILYS_LOCATION("warmelt-macro.bysl:458:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V774*/ curfptr[773]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V775*/ curfptr[774])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V775*/ curfptr[774])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V775*/ curfptr[774]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V719*/ curfptr[718]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V776*/ curfptr[775]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V776*/ curfptr[775])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V776*/ curfptr[775]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V777*/ curfptr[776]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V777*/ curfptr[776])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V777*/ curfptr[776]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V776*/ curfptr[775]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V776*/ curfptr[775])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V776*/ curfptr[775]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V777*/ curfptr[776]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V777*/ curfptr[776])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V777*/ curfptr[776]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V776*/ curfptr[775]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V776*/ curfptr[775])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V776*/ curfptr[775]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V777*/ curfptr[776]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V777*/ curfptr[776])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V777*/ curfptr[776]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V776*/ curfptr[775]); + basilysgc_touch(/*_.VALTUP___V777*/ curfptr[776]); BASILYS_LOCATION("warmelt-macro.bysl:458:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V774*/ curfptr[773]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V776*/ curfptr[775]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V775*/ curfptr[774])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V775*/ curfptr[774])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V775*/ curfptr[774]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V777*/ curfptr[776]); BASILYS_LOCATION("warmelt-macro.bysl:458:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V777*/ curfptr[776])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V777*/ curfptr[776])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V778*/ curfptr[777]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V778*/ curfptr[777])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V778*/ curfptr[777])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V778*/ curfptr[777]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V779*/ curfptr[778]); BASILYS_LOCATION("warmelt-macro.bysl:458:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V777*/ curfptr[776])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V777*/ curfptr[776])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V774*/ curfptr[773]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V778*/ curfptr[777])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V778*/ curfptr[777])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V778*/ curfptr[777]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V775*/ curfptr[774]); BASILYS_LOCATION("warmelt-macro.bysl:458:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V777*/ curfptr[776]); + basilysgc_touch(/*_.VALDATA___V778*/ curfptr[777]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V779*/ curfptr[778]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V779*/ curfptr[778])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V779*/ curfptr[778]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V780*/ curfptr[779]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V780*/ curfptr[779])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V780*/ curfptr[779]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V779*/ curfptr[778]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V779*/ curfptr[778])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V779*/ curfptr[778]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V780*/ curfptr[779]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V780*/ curfptr[779])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V780*/ curfptr[779]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V778*/ curfptr[777]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V779*/ curfptr[778]); + basilysgc_touch(/*_.VALTUP___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-macro.bysl:458:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V774*/ curfptr[773]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V779*/ curfptr[778]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V775*/ curfptr[774])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V775*/ curfptr[774])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V775*/ curfptr[774]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-macro.bysl:458:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V774*/ curfptr[773]); + basilysgc_touch(/*_.VALDATA___V775*/ curfptr[774]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V781*/ curfptr[780]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V781*/ curfptr[780])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V781*/ curfptr[780])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V781*/ curfptr[780]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V782*/ curfptr[781]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V780*/ curfptr[779]); + basilysgc_touch(/*_.VALDATA___V781*/ curfptr[780]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V782*/ curfptr[781])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V782*/ curfptr[781])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V783*/ curfptr[782]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V783*/ curfptr[782])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V783*/ curfptr[782])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V783*/ curfptr[782]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V784*/ curfptr[783]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V782*/ curfptr[781]); + basilysgc_touch(/*_.VALDATA___V783*/ curfptr[782]); BASILYS_LOCATION("warmelt-macro.bysl:465:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V785*/ curfptr[784]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V786*/ curfptr[785]); BASILYS_LOCATION("warmelt-macro.bysl:465:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V719*/ curfptr[718]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V786*/ curfptr[785]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V786*/ curfptr[785])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V786*/ curfptr[785]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V787*/ curfptr[786]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V787*/ curfptr[786])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V787*/ curfptr[786]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V786*/ curfptr[785]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V786*/ curfptr[785])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V786*/ curfptr[785]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V787*/ curfptr[786]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V787*/ curfptr[786])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V787*/ curfptr[786]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V786*/ curfptr[785]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V786*/ curfptr[785])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V786*/ curfptr[785]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V787*/ curfptr[786]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V787*/ curfptr[786])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V787*/ curfptr[786]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V786*/ curfptr[785]); + basilysgc_touch(/*_.VALTUP___V787*/ curfptr[786]); BASILYS_LOCATION("warmelt-macro.bysl:465:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V786*/ curfptr[785]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V787*/ curfptr[786]); BASILYS_LOCATION("warmelt-macro.bysl:465:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V788*/ curfptr[787]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V788*/ curfptr[787])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V788*/ curfptr[787])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V789*/ curfptr[788]); BASILYS_LOCATION("warmelt-macro.bysl:465:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V784*/ curfptr[783]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V788*/ curfptr[787])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V788*/ curfptr[787])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V785*/ curfptr[784]); BASILYS_LOCATION("warmelt-macro.bysl:465:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V787*/ curfptr[786]); + basilysgc_touch(/*_.VALDATA___V788*/ curfptr[787]); BASILYS_LOCATION("warmelt-macro.bysl:465:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V790*/ curfptr[789]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V790*/ curfptr[789])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V790*/ curfptr[789])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V790*/ curfptr[789]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V791*/ curfptr[790]); BASILYS_LOCATION("warmelt-macro.bysl:465:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V784*/ curfptr[783]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V790*/ curfptr[789])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V790*/ curfptr[789])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V790*/ curfptr[789]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V785*/ curfptr[784]); BASILYS_LOCATION("warmelt-macro.bysl:465:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V789*/ curfptr[788]); + basilysgc_touch(/*_.VALDATA___V790*/ curfptr[789]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V791*/ curfptr[790]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V791*/ curfptr[790])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V791*/ curfptr[790]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V792*/ curfptr[791]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V792*/ curfptr[791])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V792*/ curfptr[791]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V791*/ curfptr[790]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V791*/ curfptr[790])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V791*/ curfptr[790]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V792*/ curfptr[791]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V792*/ curfptr[791])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V792*/ curfptr[791]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V791*/ curfptr[790]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V791*/ curfptr[790])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V791*/ curfptr[790]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V792*/ curfptr[791]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V792*/ curfptr[791])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V792*/ curfptr[791]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V790*/ curfptr[789]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V791*/ curfptr[790]); + basilysgc_touch(/*_.VALTUP___V792*/ curfptr[791]); BASILYS_LOCATION("warmelt-macro.bysl:465:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V791*/ curfptr[790]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V792*/ curfptr[791]); BASILYS_LOCATION("warmelt-macro.bysl:465:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V784*/ curfptr[783]); + basilysgc_touch(/*_.VALDATA___V785*/ curfptr[784]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V792*/ curfptr[791])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V792*/ curfptr[791])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V792*/ curfptr[791]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V793*/ curfptr[792]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V793*/ curfptr[792]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V794*/ curfptr[793]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V792*/ curfptr[791]); + basilysgc_touch(/*_.VALDATA___V793*/ curfptr[792]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V794*/ curfptr[793])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V794*/ curfptr[793])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V794*/ curfptr[793]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V795*/ curfptr[794]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V795*/ curfptr[794])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V795*/ curfptr[794])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V795*/ curfptr[794]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V796*/ curfptr[795]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V794*/ curfptr[793]); + basilysgc_touch(/*_.VALDATA___V795*/ curfptr[794]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V796*/ curfptr[795])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V796*/ curfptr[795])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V796*/ curfptr[795]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V797*/ curfptr[796]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V797*/ curfptr[796])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V797*/ curfptr[796])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V797*/ curfptr[796]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V798*/ curfptr[797]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V796*/ curfptr[795]); + basilysgc_touch(/*_.VALDATA___V797*/ curfptr[796]); BASILYS_LOCATION("warmelt-macro.bysl:473:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V799*/ curfptr[798]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V799*/ curfptr[798])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V799*/ curfptr[798])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V799*/ curfptr[798]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V800*/ curfptr[799]); BASILYS_LOCATION("warmelt-macro.bysl:473:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V784*/ curfptr[783]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V799*/ curfptr[798])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V799*/ curfptr[798])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V799*/ curfptr[798]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V785*/ curfptr[784]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V800*/ curfptr[799]); + basilysgc_touch(/*_.VALTUP___V801*/ curfptr[800]); BASILYS_LOCATION("warmelt-macro.bysl:473:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V800*/ curfptr[799]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V799*/ curfptr[798])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V799*/ curfptr[798])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V799*/ curfptr[798]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V801*/ curfptr[800]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V802*/ curfptr[801]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V802*/ curfptr[801])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V802*/ curfptr[801]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V802*/ curfptr[801]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V802*/ curfptr[801])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V802*/ curfptr[801]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V801*/ curfptr[800])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V801*/ curfptr[800]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V802*/ curfptr[801]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V802*/ curfptr[801])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V802*/ curfptr[801]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V790*/ curfptr[789]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V801*/ curfptr[800]); + basilysgc_touch(/*_.VALTUP___V802*/ curfptr[801]); BASILYS_LOCATION("warmelt-macro.bysl:473:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V801*/ curfptr[800]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V799*/ curfptr[798])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V799*/ curfptr[798])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V799*/ curfptr[798]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V802*/ curfptr[801]); BASILYS_LOCATION("warmelt-macro.bysl:473:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V798*/ curfptr[797]); + basilysgc_touch(/*_.VALDATA___V799*/ curfptr[798]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V802*/ curfptr[801])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V802*/ curfptr[801])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V802*/ curfptr[801]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V803*/ curfptr[802]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V803*/ curfptr[802])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V803*/ curfptr[802])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V803*/ curfptr[802]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V804*/ curfptr[803]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V802*/ curfptr[801]); + basilysgc_touch(/*_.VALDATA___V803*/ curfptr[802]); BASILYS_LOCATION("warmelt-macro.bysl:479:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V804*/ curfptr[803])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V804*/ curfptr[803])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V804*/ curfptr[803]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V805*/ curfptr[804]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V805*/ curfptr[804])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V805*/ curfptr[804])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V805*/ curfptr[804]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V806*/ curfptr[805]); BASILYS_LOCATION("warmelt-macro.bysl:479:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V804*/ curfptr[803])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V804*/ curfptr[803])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V804*/ curfptr[803]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V805*/ curfptr[804])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V805*/ curfptr[804])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V805*/ curfptr[804]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V806*/ curfptr[805]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V806*/ curfptr[805])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V806*/ curfptr[805]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V807*/ curfptr[806]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V807*/ curfptr[806])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V807*/ curfptr[806]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V806*/ curfptr[805]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V806*/ curfptr[805])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V806*/ curfptr[805]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V807*/ curfptr[806]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V807*/ curfptr[806])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V807*/ curfptr[806]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V806*/ curfptr[805]); + basilysgc_touch(/*_.VALTUP___V807*/ curfptr[806]); BASILYS_LOCATION("warmelt-macro.bysl:479:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V804*/ curfptr[803])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V804*/ curfptr[803])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V804*/ curfptr[803]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V806*/ curfptr[805]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V805*/ curfptr[804])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V805*/ curfptr[804])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V805*/ curfptr[804]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V807*/ curfptr[806]); BASILYS_LOCATION("warmelt-macro.bysl:479:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V807*/ curfptr[806]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V808*/ curfptr[807]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V808*/ curfptr[807])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V808*/ curfptr[807])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V808*/ curfptr[807]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V809*/ curfptr[808]); BASILYS_LOCATION("warmelt-macro.bysl:479:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V807*/ curfptr[806]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V804*/ curfptr[803]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V808*/ curfptr[807])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V808*/ curfptr[807])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V808*/ curfptr[807]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V805*/ curfptr[804]); BASILYS_LOCATION("warmelt-macro.bysl:479:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V807*/ curfptr[806]); + basilysgc_touch(/*_.VALDATA___V808*/ curfptr[807]); BASILYS_LOCATION("warmelt-macro.bysl:479:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V809*/ curfptr[808])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V809*/ curfptr[808])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V809*/ curfptr[808]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V810*/ curfptr[809]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V810*/ curfptr[809])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V810*/ curfptr[809])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V811*/ curfptr[810]); BASILYS_LOCATION("warmelt-macro.bysl:479:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V809*/ curfptr[808])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V809*/ curfptr[808])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V809*/ curfptr[808]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V804*/ curfptr[803]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V810*/ curfptr[809])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V810*/ curfptr[809])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V805*/ curfptr[804]); BASILYS_LOCATION("warmelt-macro.bysl:479:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V809*/ curfptr[808]); + basilysgc_touch(/*_.VALDATA___V810*/ curfptr[809]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V811*/ curfptr[810]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V811*/ curfptr[810])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V811*/ curfptr[810]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V812*/ curfptr[811]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V812*/ curfptr[811])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V812*/ curfptr[811]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V811*/ curfptr[810]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V811*/ curfptr[810])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V811*/ curfptr[810]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V812*/ curfptr[811]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V812*/ curfptr[811])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V812*/ curfptr[811]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V808*/ curfptr[807]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V811*/ curfptr[810]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V811*/ curfptr[810])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V811*/ curfptr[810]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V809*/ curfptr[808]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V812*/ curfptr[811]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V812*/ curfptr[811])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V812*/ curfptr[811]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V811*/ curfptr[810]); + basilysgc_touch(/*_.VALTUP___V812*/ curfptr[811]); BASILYS_LOCATION("warmelt-macro.bysl:479:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V804*/ curfptr[803])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V804*/ curfptr[803])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V804*/ curfptr[803]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V811*/ curfptr[810]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V805*/ curfptr[804])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V805*/ curfptr[804])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V805*/ curfptr[804]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V812*/ curfptr[811]); BASILYS_LOCATION("warmelt-macro.bysl:479:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V804*/ curfptr[803]); + basilysgc_touch(/*_.VALDATA___V805*/ curfptr[804]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V812*/ curfptr[811])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V812*/ curfptr[811])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V813*/ curfptr[812]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V813*/ curfptr[812])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V813*/ curfptr[812])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V813*/ curfptr[812]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V814*/ curfptr[813]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V812*/ curfptr[811]); + basilysgc_touch(/*_.VALDATA___V813*/ curfptr[812]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V815*/ curfptr[814]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V815*/ curfptr[814])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V815*/ curfptr[814])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V815*/ curfptr[814]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V816*/ curfptr[815]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V814*/ curfptr[813]); + basilysgc_touch(/*_.VALDATA___V815*/ curfptr[814]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V816*/ curfptr[815])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V816*/ curfptr[815])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V816*/ curfptr[815]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V817*/ curfptr[816]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V817*/ curfptr[816])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V817*/ curfptr[816])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V818*/ curfptr[817]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V816*/ curfptr[815]); + basilysgc_touch(/*_.VALDATA___V817*/ curfptr[816]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V818*/ curfptr[817])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V818*/ curfptr[817])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V818*/ curfptr[817]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V819*/ curfptr[818]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V820*/ curfptr[819]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V818*/ curfptr[817])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V818*/ curfptr[817])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V818*/ curfptr[817]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V784*/ curfptr[783]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V785*/ curfptr[784]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V820*/ curfptr[819]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V820*/ curfptr[819])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V820*/ curfptr[819]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V821*/ curfptr[820]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V821*/ curfptr[820])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V821*/ curfptr[820]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V820*/ curfptr[819]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V820*/ curfptr[819])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V820*/ curfptr[819]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V821*/ curfptr[820]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V821*/ curfptr[820])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V821*/ curfptr[820]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V820*/ curfptr[819]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V820*/ curfptr[819])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V820*/ curfptr[819]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V821*/ curfptr[820]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V821*/ curfptr[820])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V821*/ curfptr[820]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V820*/ curfptr[819]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V820*/ curfptr[819])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V820*/ curfptr[819]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V821*/ curfptr[820]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V821*/ curfptr[820])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V821*/ curfptr[820]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V820*/ curfptr[819]); + basilysgc_touch(/*_.VALTUP___V821*/ curfptr[820]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V818*/ curfptr[817])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V818*/ curfptr[817])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V818*/ curfptr[817]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V820*/ curfptr[819]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V821*/ curfptr[820]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V822*/ curfptr[821]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V822*/ curfptr[821])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V822*/ curfptr[821])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V822*/ curfptr[821]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V823*/ curfptr[822]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V818*/ curfptr[817]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V822*/ curfptr[821])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V822*/ curfptr[821])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V822*/ curfptr[821]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V819*/ curfptr[818]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V821*/ curfptr[820]); + basilysgc_touch(/*_.VALDATA___V822*/ curfptr[821]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V823*/ curfptr[822])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V823*/ curfptr[822])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V823*/ curfptr[822]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V824*/ curfptr[823]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V824*/ curfptr[823]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V825*/ curfptr[824]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V823*/ curfptr[822])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V823*/ curfptr[822])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V823*/ curfptr[822]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V818*/ curfptr[817]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V824*/ curfptr[823]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V819*/ curfptr[818]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V823*/ curfptr[822]); + basilysgc_touch(/*_.VALDATA___V824*/ curfptr[823]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V825*/ curfptr[824])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V825*/ curfptr[824])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V825*/ curfptr[824]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V826*/ curfptr[825]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V826*/ curfptr[825]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V827*/ curfptr[826]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V825*/ curfptr[824])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V825*/ curfptr[824])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V825*/ curfptr[824]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V818*/ curfptr[817]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V826*/ curfptr[825]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V819*/ curfptr[818]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V825*/ curfptr[824]); + basilysgc_touch(/*_.VALDATA___V826*/ curfptr[825]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V827*/ curfptr[826]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V827*/ curfptr[826])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V827*/ curfptr[826]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V827*/ curfptr[826]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V827*/ curfptr[826])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V827*/ curfptr[826]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V827*/ curfptr[826]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V827*/ curfptr[826])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V827*/ curfptr[826]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V790*/ curfptr[789]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V827*/ curfptr[826]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V827*/ curfptr[826])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V827*/ curfptr[826]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V822*/ curfptr[821]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V827*/ curfptr[826]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V827*/ curfptr[826])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V827*/ curfptr[826]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V823*/ curfptr[822]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V827*/ curfptr[826]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V827*/ curfptr[826])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V827*/ curfptr[826]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V825*/ curfptr[824]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V827*/ curfptr[826]); + basilysgc_touch(/*_.VALTUP___V828*/ curfptr[827]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V818*/ curfptr[817])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V818*/ curfptr[817])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V818*/ curfptr[817]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V827*/ curfptr[826]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V828*/ curfptr[827]); BASILYS_LOCATION("warmelt-macro.bysl:486:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V818*/ curfptr[817]); + basilysgc_touch(/*_.VALDATA___V819*/ curfptr[818]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V828*/ curfptr[827])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V828*/ curfptr[827])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V828*/ curfptr[827]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V829*/ curfptr[828]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V829*/ curfptr[828])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V829*/ curfptr[828])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V829*/ curfptr[828]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V830*/ curfptr[829]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V828*/ curfptr[827]); + basilysgc_touch(/*_.VALDATA___V829*/ curfptr[828]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V830*/ curfptr[829])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V830*/ curfptr[829])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V830*/ curfptr[829]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V831*/ curfptr[830]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V831*/ curfptr[830])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V831*/ curfptr[830])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V831*/ curfptr[830]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V832*/ curfptr[831]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V830*/ curfptr[829]); + basilysgc_touch(/*_.VALDATA___V831*/ curfptr[830]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V833*/ curfptr[832]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V833*/ curfptr[832])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V833*/ curfptr[832])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V833*/ curfptr[832]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V834*/ curfptr[833]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V832*/ curfptr[831]); + basilysgc_touch(/*_.VALDATA___V833*/ curfptr[832]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V834*/ curfptr[833])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V834*/ curfptr[833])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V834*/ curfptr[833]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V835*/ curfptr[834]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V835*/ curfptr[834])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V835*/ curfptr[834])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V835*/ curfptr[834]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V836*/ curfptr[835]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V834*/ curfptr[833]); + basilysgc_touch(/*_.VALDATA___V835*/ curfptr[834]); BASILYS_LOCATION("warmelt-macro.bysl:495:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V836*/ curfptr[835])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V836*/ curfptr[835])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V836*/ curfptr[835]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V837*/ curfptr[836]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V837*/ curfptr[836]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V838*/ curfptr[837]); BASILYS_LOCATION("warmelt-macro.bysl:495:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V836*/ curfptr[835])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V836*/ curfptr[835])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V836*/ curfptr[835]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V818*/ curfptr[817]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V837*/ curfptr[836]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V819*/ curfptr[818]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V838*/ curfptr[837]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V838*/ curfptr[837])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V838*/ curfptr[837]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V838*/ curfptr[837]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V838*/ curfptr[837])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V838*/ curfptr[837]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V838*/ curfptr[837]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V838*/ curfptr[837])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V838*/ curfptr[837]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V838*/ curfptr[837]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V838*/ curfptr[837])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V838*/ curfptr[837]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V838*/ curfptr[837]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V838*/ curfptr[837])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V838*/ curfptr[837]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V818*/ curfptr[817]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V838*/ curfptr[837]); + basilysgc_touch(/*_.VALTUP___V839*/ curfptr[838]); BASILYS_LOCATION("warmelt-macro.bysl:495:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V836*/ curfptr[835])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V836*/ curfptr[835])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V836*/ curfptr[835]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V838*/ curfptr[837]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V837*/ curfptr[836]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V839*/ curfptr[838]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V840*/ curfptr[839]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V840*/ curfptr[839])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V840*/ curfptr[839]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V840*/ curfptr[839]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V840*/ curfptr[839])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V840*/ curfptr[839]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V840*/ curfptr[839]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V840*/ curfptr[839])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V840*/ curfptr[839]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V790*/ curfptr[789]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V840*/ curfptr[839]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V840*/ curfptr[839])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V840*/ curfptr[839]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V822*/ curfptr[821]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V823*/ curfptr[822]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V840*/ curfptr[839]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V840*/ curfptr[839])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V840*/ curfptr[839]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V839*/ curfptr[838])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V839*/ curfptr[838]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V825*/ curfptr[824]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V840*/ curfptr[839]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V840*/ curfptr[839])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V840*/ curfptr[839]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V839*/ curfptr[838]); + basilysgc_touch(/*_.VALTUP___V840*/ curfptr[839]); BASILYS_LOCATION("warmelt-macro.bysl:495:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V836*/ curfptr[835])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V836*/ curfptr[835])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V836*/ curfptr[835]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V839*/ curfptr[838]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V837*/ curfptr[836]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V840*/ curfptr[839]); BASILYS_LOCATION("warmelt-macro.bysl:495:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V836*/ curfptr[835]); + basilysgc_touch(/*_.VALDATA___V837*/ curfptr[836]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V840*/ curfptr[839])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V840*/ curfptr[839])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V840*/ curfptr[839]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V841*/ curfptr[840]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V841*/ curfptr[840])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V841*/ curfptr[840])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V841*/ curfptr[840]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V842*/ curfptr[841]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V840*/ curfptr[839]); + basilysgc_touch(/*_.VALDATA___V841*/ curfptr[840]); BASILYS_LOCATION("warmelt-macro.bysl:501:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V842*/ curfptr[841]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V843*/ curfptr[842]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V843*/ curfptr[842])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V843*/ curfptr[842])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V844*/ curfptr[843]); BASILYS_LOCATION("warmelt-macro.bysl:501:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V842*/ curfptr[841]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V818*/ curfptr[817]); - - /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V844*/ curfptr[843]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V844*/ curfptr[843])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V844*/ curfptr[843]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); - - /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V844*/ curfptr[843]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V844*/ curfptr[843])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V844*/ curfptr[843]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); - - /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V844*/ curfptr[843]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V844*/ curfptr[843])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V844*/ curfptr[843]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]); - - /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V844*/ curfptr[843]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V844*/ curfptr[843])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V844*/ curfptr[843]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]); - - /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V844*/ curfptr[843]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V844*/ curfptr[843])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V844*/ curfptr[843]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V818*/ curfptr[817]); - - /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V844*/ curfptr[843]); - - BASILYS_LOCATION("warmelt-macro.bysl:501:/ putslot"); - /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V842*/ curfptr[841]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V844*/ curfptr[843]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V843*/ curfptr[842])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V843*/ curfptr[842])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V819*/ curfptr[818]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V823*/ curfptr[822]); - - /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V825*/ curfptr[824]); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V845*/ curfptr[844]); BASILYS_LOCATION("warmelt-macro.bysl:501:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V842*/ curfptr[841]))->obj_vartab[6] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V843*/ curfptr[842])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V843*/ curfptr[842])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V845*/ curfptr[844]); - BASILYS_LOCATION("warmelt-macro.bysl:501:/ touch"); - /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V842*/ curfptr[841]); - - BASILYS_LOCATION("warmelt-macro.bysl:506:/ putslot"); - /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V847*/ curfptr[846]); - - BASILYS_LOCATION("warmelt-macro.bysl:506:/ putslot"); - /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALDATA___V842*/ curfptr[841]); - /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V848*/ curfptr[847]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V848*/ curfptr[847])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V848*/ curfptr[847]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V846*/ curfptr[845]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V846*/ curfptr[845])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V846*/ curfptr[845]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V848*/ curfptr[847]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V848*/ curfptr[847])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V848*/ curfptr[847]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V846*/ curfptr[845]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V846*/ curfptr[845])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V846*/ curfptr[845]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V848*/ curfptr[847]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V848*/ curfptr[847])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V848*/ curfptr[847]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V846*/ curfptr[845]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V846*/ curfptr[845])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V846*/ curfptr[845]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V790*/ curfptr[789]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V848*/ curfptr[847]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V848*/ curfptr[847])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V848*/ curfptr[847]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V846*/ curfptr[845]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V846*/ curfptr[845])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V846*/ curfptr[845]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V822*/ curfptr[821]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V848*/ curfptr[847]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V848*/ curfptr[847])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V848*/ curfptr[847]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V818*/ curfptr[817]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V846*/ curfptr[845]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V846*/ curfptr[845])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V846*/ curfptr[845]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V848*/ curfptr[847]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V848*/ curfptr[847])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V848*/ curfptr[847]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V846*/ curfptr[845]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V846*/ curfptr[845])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V846*/ curfptr[845]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V848*/ curfptr[847]); + basilysgc_touch(/*_.VALTUP___V846*/ curfptr[845]); + + BASILYS_LOCATION("warmelt-macro.bysl:501:/ putslot"); + /*putslot*/ + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V843*/ curfptr[842])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V843*/ curfptr[842])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V846*/ curfptr[845]); + + BASILYS_LOCATION("warmelt-macro.bysl:501:/ touch"); + /*touch:VALUEDATA_*/ + basilysgc_touch(/*_.VALDATA___V843*/ curfptr[842]); + + BASILYS_LOCATION("warmelt-macro.bysl:506:/ putslot"); + /*putslot*/ + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V847*/ curfptr[846])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V847*/ curfptr[846])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V847*/ curfptr[846]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V848*/ curfptr[847]); BASILYS_LOCATION("warmelt-macro.bysl:506:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V848*/ curfptr[847]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V847*/ curfptr[846])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V847*/ curfptr[846])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V847*/ curfptr[846]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALDATA___V843*/ curfptr[842]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V849*/ curfptr[848])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V849*/ curfptr[848])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V849*/ curfptr[848])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V849*/ curfptr[848])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V849*/ curfptr[848])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V823*/ curfptr[822]); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V849*/ curfptr[848])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V825*/ curfptr[824]); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V849*/ curfptr[848]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V849*/ curfptr[848]); BASILYS_LOCATION("warmelt-macro.bysl:506:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]))->obj_vartab[6] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V847*/ curfptr[846])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V847*/ curfptr[846])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V847*/ curfptr[846]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V849*/ curfptr[848]); + /*putupl*/ + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V850*/ curfptr[849]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V850*/ curfptr[849])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V850*/ curfptr[849]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_SRC__V7*/ curfptr[6]),6))), (0)))); + + /*putupl*/ + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V850*/ curfptr[849]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V850*/ curfptr[849])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V850*/ curfptr[849]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]); + + /*putupl*/ + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V850*/ curfptr[849]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V850*/ curfptr[849])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V850*/ curfptr[849]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V790*/ curfptr[789]); + + /*putupl*/ + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V850*/ curfptr[849]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V850*/ curfptr[849])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V850*/ curfptr[849]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V822*/ curfptr[821]); + + /*putupl*/ + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V850*/ curfptr[849]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V850*/ curfptr[849])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V850*/ curfptr[849]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823]); + + /*putupl*/ + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V850*/ curfptr[849]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V850*/ curfptr[849])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V850*/ curfptr[849]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825]); + + /*touch:INITUP_*/ + basilysgc_touch(/*_.VALTUP___V850*/ curfptr[849]); + + BASILYS_LOCATION("warmelt-macro.bysl:506:/ putslot"); + /*putslot*/ + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V847*/ curfptr[846])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V847*/ curfptr[846])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V847*/ curfptr[846]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V850*/ curfptr[849]); + BASILYS_LOCATION("warmelt-macro.bysl:506:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V846*/ curfptr[845]); + basilysgc_touch(/*_.VALDATA___V847*/ curfptr[846]); BASILYS_LOCATION("warmelt-macro.bysl:514:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V850*/ curfptr[849])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V851*/ curfptr[850])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_789__SEXPR_NTH_SON#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V850*/ curfptr[849])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + ((basilysroutine_ptr_t)/*_.VALROUT___V851*/ curfptr[850])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-macro.bysl:514:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V850*/ curfptr[849]); + basilysgc_touch(/*_.VALROUT___V851*/ curfptr[850]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V851*/ curfptr[850])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V850*/ curfptr[849])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V851*/ curfptr[850])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V850*/ curfptr[849]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V852*/ curfptr[851])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V851*/ curfptr[850])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V852*/ curfptr[851])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V851*/ curfptr[850]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V851*/ curfptr[850]); + basilysgc_touch(/*_.VALCLO___V852*/ curfptr[851]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V852*/ curfptr[851])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V852*/ curfptr[851])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V852*/ curfptr[851]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V853*/ curfptr[852]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V853*/ curfptr[852])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V853*/ curfptr[852])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V853*/ curfptr[852]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V854*/ curfptr[853]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V852*/ curfptr[851]); + basilysgc_touch(/*_.VALDATA___V853*/ curfptr[852]); BASILYS_LOCATION("warmelt-macro.bysl:527:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V854*/ curfptr[853])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V855*/ curfptr[854])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__EXPAND_RESTLIST_AS_TUPLE#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V854*/ curfptr[853])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V855*/ curfptr[854])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:527:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V854*/ curfptr[853])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V855*/ curfptr[854])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__EXPAND_RESTLIST_AS_TUPLE#1", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V854*/ curfptr[853])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + ((basilysroutine_ptr_t)/*_.VALROUT___V855*/ curfptr[854])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#2", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#5", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[5] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[5] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#6", NULL != (/*_.CLASS_MACRO_BINDING__V16*/ curfptr[15])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_MACRO_BINDING__V16*/ curfptr[15]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_MACRO_BINDING__V16*/ curfptr[15]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#7", NULL != (/*_.CLASS_SELECTOR_BINDING__V17*/ curfptr[16])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_SELECTOR_BINDING__V17*/ curfptr[16]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_SELECTOR_BINDING__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-macro.bysl:589:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V858*/ curfptr[857])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V859*/ curfptr[858])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_803__EXPAND_MSEND#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V858*/ curfptr[857])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + ((basilysroutine_ptr_t)/*_.VALROUT___V859*/ curfptr[858])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-macro.bysl:589:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V858*/ curfptr[857])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V859*/ curfptr[858])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_803__EXPAND_MSEND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V858*/ curfptr[857])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V859*/ curfptr[858])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:589:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V858*/ curfptr[857])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V859*/ curfptr[858])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_803__EXPAND_MSEND#2", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V858*/ curfptr[857])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + ((basilysroutine_ptr_t)/*_.VALROUT___V859*/ curfptr[858])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); BASILYS_LOCATION("warmelt-macro.bysl:589:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V858*/ curfptr[857])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V859*/ curfptr[858])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_803__EXPAND_MSEND#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V858*/ curfptr[857])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + ((basilysroutine_ptr_t)/*_.VALROUT___V859*/ curfptr[858])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); BASILYS_LOCATION("warmelt-macro.bysl:550:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V860*/ curfptr[859])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V861*/ curfptr[860])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_799__EXPAND_PAIRLIST_AS_TUPLE#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V860*/ curfptr[859])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V861*/ curfptr[860])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:550:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V860*/ curfptr[859])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V861*/ curfptr[860])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_799__EXPAND_PAIRLIST_AS_TUPLE#1", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V860*/ curfptr[859])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + ((basilysroutine_ptr_t)/*_.VALROUT___V861*/ curfptr[860])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-macro.bysl:550:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V860*/ curfptr[859])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V860*/ curfptr[859])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V861*/ curfptr[860])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V861*/ curfptr[860])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-macro.bysl:550:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V860*/ curfptr[859]); + basilysgc_touch(/*_.VALROUT___V861*/ curfptr[860]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V859*/ curfptr[858])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V860*/ curfptr[859])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V859*/ curfptr[858])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V860*/ curfptr[859]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V860*/ curfptr[859])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V861*/ curfptr[860])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V860*/ curfptr[859])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V861*/ curfptr[860]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V859*/ curfptr[858]); + basilysgc_touch(/*_.VALCLO___V860*/ curfptr[859]); BASILYS_LOCATION("warmelt-macro.bysl:589:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V858*/ curfptr[857])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V859*/ curfptr[858]); - ((basilysroutine_ptr_t)/*_.VALROUT___V858*/ curfptr[857])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V859*/ curfptr[858]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V859*/ curfptr[858])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V860*/ curfptr[859]); + ((basilysroutine_ptr_t)/*_.VALROUT___V859*/ curfptr[858])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V860*/ curfptr[859]); BASILYS_LOCATION("warmelt-macro.bysl:589:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V858*/ curfptr[857])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V80*/ curfptr[79]); - ((basilysroutine_ptr_t)/*_.VALROUT___V858*/ curfptr[857])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V80*/ curfptr[79]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V859*/ curfptr[858])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V81*/ curfptr[80]); + ((basilysroutine_ptr_t)/*_.VALROUT___V859*/ curfptr[858])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-macro.bysl:589:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V858*/ curfptr[857])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V858*/ curfptr[857])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V859*/ curfptr[858])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V859*/ curfptr[858])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-macro.bysl:589:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V858*/ curfptr[857]); + basilysgc_touch(/*_.VALROUT___V859*/ curfptr[858]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V857*/ curfptr[856])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V858*/ curfptr[857])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V857*/ curfptr[856])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V858*/ curfptr[857]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V858*/ curfptr[857])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V859*/ curfptr[858])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V858*/ curfptr[857])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V859*/ curfptr[858]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V857*/ curfptr[856]); + basilysgc_touch(/*_.VALCLO___V858*/ curfptr[857]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V857*/ curfptr[856]); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V857*/ curfptr[856]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V858*/ curfptr[857]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V858*/ curfptr[857]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#9", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V18*/ curfptr[17])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V18*/ curfptr[17]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-macro.bysl:839:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V862*/ curfptr[861])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V863*/ curfptr[862])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_849__EXPAND_PRIMITIVE#0", NULL != (/*_.CLASS_PRIMITIVE__V23*/ curfptr[22])); - ((basilysroutine_ptr_t)/*_.VALROUT___V862*/ curfptr[861])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE__V23*/ curfptr[22]); + ((basilysroutine_ptr_t)/*_.VALROUT___V863*/ curfptr[862])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-macro.bysl:839:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V862*/ curfptr[861])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V863*/ curfptr[862])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_849__EXPAND_PRIMITIVE#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V862*/ curfptr[861])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + ((basilysroutine_ptr_t)/*_.VALROUT___V863*/ curfptr[862])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-macro.bysl:839:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V862*/ curfptr[861])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V863*/ curfptr[862])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_849__EXPAND_PRIMITIVE#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V862*/ curfptr[861])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V863*/ curfptr[862])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V863*/ curfptr[862])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V854*/ curfptr[853])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V863*/ curfptr[862])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V854*/ curfptr[853]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V864*/ curfptr[863])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V855*/ curfptr[854])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V864*/ curfptr[863])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V855*/ curfptr[854]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V863*/ curfptr[862]); + basilysgc_touch(/*_.VALCLO___V864*/ curfptr[863]); BASILYS_LOCATION("warmelt-macro.bysl:839:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V862*/ curfptr[861])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V863*/ curfptr[862]); - ((basilysroutine_ptr_t)/*_.VALROUT___V862*/ curfptr[861])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V863*/ curfptr[862]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V863*/ curfptr[862])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V864*/ curfptr[863]); + ((basilysroutine_ptr_t)/*_.VALROUT___V863*/ curfptr[862])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V864*/ curfptr[863]); BASILYS_LOCATION("warmelt-macro.bysl:839:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V862*/ curfptr[861])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V98*/ curfptr[97]); - ((basilysroutine_ptr_t)/*_.VALROUT___V862*/ curfptr[861])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V98*/ curfptr[97]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V863*/ curfptr[862])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V99*/ curfptr[98]); + ((basilysroutine_ptr_t)/*_.VALROUT___V863*/ curfptr[862])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V99*/ curfptr[98]); BASILYS_LOCATION("warmelt-macro.bysl:839:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V862*/ curfptr[861]); + basilysgc_touch(/*_.VALROUT___V863*/ curfptr[862]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V861*/ curfptr[860])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V862*/ curfptr[861])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V861*/ curfptr[860])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V862*/ curfptr[861]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V862*/ curfptr[861])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V863*/ curfptr[862])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V862*/ curfptr[861])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V863*/ curfptr[862]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V861*/ curfptr[860]); + basilysgc_touch(/*_.VALCLO___V862*/ curfptr[861]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V861*/ curfptr[860]); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V861*/ curfptr[860]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V862*/ curfptr[861]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V862*/ curfptr[861]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#11", NULL != (/*_.CLASS_CITERATOR_BINDING__V19*/ curfptr[18])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_CITERATOR_BINDING__V19*/ curfptr[18]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_CITERATOR_BINDING__V19*/ curfptr[18]); BASILYS_LOCATION("warmelt-macro.bysl:619:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V865*/ curfptr[864])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V866*/ curfptr[865])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_809__EXPAND_CITERATION#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V865*/ curfptr[864])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + ((basilysroutine_ptr_t)/*_.VALROUT___V866*/ curfptr[865])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-macro.bysl:619:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V865*/ curfptr[864])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V866*/ curfptr[865])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_809__EXPAND_CITERATION#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V865*/ curfptr[864])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V866*/ curfptr[865])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:619:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V865*/ curfptr[864])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V866*/ curfptr[865])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_809__EXPAND_CITERATION#2", NULL != (/*_.CLASS_CITERATOR__V13*/ curfptr[12])); - ((basilysroutine_ptr_t)/*_.VALROUT___V865*/ curfptr[864])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CITERATOR__V13*/ curfptr[12]); + ((basilysroutine_ptr_t)/*_.VALROUT___V866*/ curfptr[865])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CITERATOR__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-macro.bysl:619:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V865*/ curfptr[864])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V866*/ curfptr[865])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_809__EXPAND_CITERATION#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V865*/ curfptr[864])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + ((basilysroutine_ptr_t)/*_.VALROUT___V866*/ curfptr[865])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); BASILYS_LOCATION("warmelt-macro.bysl:619:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V865*/ curfptr[864])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V859*/ curfptr[858]); - ((basilysroutine_ptr_t)/*_.VALROUT___V865*/ curfptr[864])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V859*/ curfptr[858]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V866*/ curfptr[865])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V860*/ curfptr[859]); + ((basilysroutine_ptr_t)/*_.VALROUT___V866*/ curfptr[865])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V860*/ curfptr[859]); BASILYS_LOCATION("warmelt-macro.bysl:619:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V865*/ curfptr[864])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V866*/ curfptr[865])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_809__EXPAND_CITERATION#5", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V865*/ curfptr[864])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + ((basilysroutine_ptr_t)/*_.VALROUT___V866*/ curfptr[865])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-macro.bysl:619:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V865*/ curfptr[864])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V865*/ curfptr[864])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V866*/ curfptr[865])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V866*/ curfptr[865])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-macro.bysl:1088:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V867*/ curfptr[866])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V868*/ curfptr[867])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_905__LAMBDA_ARG_BINDINGS#0", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V867*/ curfptr[866])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + ((basilysroutine_ptr_t)/*_.VALROUT___V868*/ curfptr[867])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-macro.bysl:1088:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V867*/ curfptr[866])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V868*/ curfptr[867])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_905__LAMBDA_ARG_BINDINGS#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V867*/ curfptr[866])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + ((basilysroutine_ptr_t)/*_.VALROUT___V868*/ curfptr[867])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-macro.bysl:1088:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V867*/ curfptr[866])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V868*/ curfptr[867])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_905__LAMBDA_ARG_BINDINGS#2", NULL != (/*_.CTYPE_VALUE__V36*/ curfptr[35])); - ((basilysroutine_ptr_t)/*_.VALROUT___V867*/ curfptr[866])->tabval[2] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V36*/ curfptr[35]); + ((basilysroutine_ptr_t)/*_.VALROUT___V868*/ curfptr[867])->tabval[2] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-macro.bysl:1088:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V867*/ curfptr[866])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V868*/ curfptr[867])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_905__LAMBDA_ARG_BINDINGS#3", NULL != (/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36])); - ((basilysroutine_ptr_t)/*_.VALROUT___V867*/ curfptr[866])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36]); + ((basilysroutine_ptr_t)/*_.VALROUT___V868*/ curfptr[867])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-macro.bysl:1088:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V867*/ curfptr[866])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V868*/ curfptr[867])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_905__LAMBDA_ARG_BINDINGS#4", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); - ((basilysroutine_ptr_t)/*_.VALROUT___V867*/ curfptr[866])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); + ((basilysroutine_ptr_t)/*_.VALROUT___V868*/ curfptr[867])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-macro.bysl:1088:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V867*/ curfptr[866])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V868*/ curfptr[867])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_905__LAMBDA_ARG_BINDINGS#5", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V867*/ curfptr[866])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + ((basilysroutine_ptr_t)/*_.VALROUT___V868*/ curfptr[867])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-macro.bysl:1088:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V867*/ curfptr[866])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V868*/ curfptr[867])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_905__LAMBDA_ARG_BINDINGS#6", NULL != (/*_.CLASS_CTYPE__V39*/ curfptr[38])); - ((basilysroutine_ptr_t)/*_.VALROUT___V867*/ curfptr[866])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V39*/ curfptr[38]); + ((basilysroutine_ptr_t)/*_.VALROUT___V868*/ curfptr[867])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-macro.bysl:1088:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V867*/ curfptr[866])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V868*/ curfptr[867])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_905__LAMBDA_ARG_BINDINGS#7", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V867*/ curfptr[866])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + ((basilysroutine_ptr_t)/*_.VALROUT___V868*/ curfptr[867])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); BASILYS_LOCATION("warmelt-macro.bysl:1088:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V867*/ curfptr[866])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V868*/ curfptr[867])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_905__LAMBDA_ARG_BINDINGS#8", NULL != (/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31])); - ((basilysroutine_ptr_t)/*_.VALROUT___V867*/ curfptr[866])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); + ((basilysroutine_ptr_t)/*_.VALROUT___V868*/ curfptr[867])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-macro.bysl:1088:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V867*/ curfptr[866])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V868*/ curfptr[867])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_905__LAMBDA_ARG_BINDINGS#9", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V867*/ curfptr[866])->tabval[9] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + ((basilysroutine_ptr_t)/*_.VALROUT___V868*/ curfptr[867])->tabval[9] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); BASILYS_LOCATION("warmelt-macro.bysl:1088:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V867*/ curfptr[866]); + basilysgc_touch(/*_.VALROUT___V868*/ curfptr[867]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V866*/ curfptr[865])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V867*/ curfptr[866])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V866*/ curfptr[865])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V867*/ curfptr[866]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V867*/ curfptr[866])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V868*/ curfptr[867])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V867*/ curfptr[866])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V868*/ curfptr[867]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V866*/ curfptr[865]); + basilysgc_touch(/*_.VALCLO___V867*/ curfptr[866]); BASILYS_LOCATION("warmelt-macro.bysl:619:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V865*/ curfptr[864])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V866*/ curfptr[865]); - ((basilysroutine_ptr_t)/*_.VALROUT___V865*/ curfptr[864])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V866*/ curfptr[865]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V866*/ curfptr[865])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V867*/ curfptr[866]); + ((basilysroutine_ptr_t)/*_.VALROUT___V866*/ curfptr[865])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V867*/ curfptr[866]); BASILYS_LOCATION("warmelt-macro.bysl:619:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V865*/ curfptr[864])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V112*/ curfptr[111]); - ((basilysroutine_ptr_t)/*_.VALROUT___V865*/ curfptr[864])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V112*/ curfptr[111]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V866*/ curfptr[865])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V113*/ curfptr[112]); + ((basilysroutine_ptr_t)/*_.VALROUT___V866*/ curfptr[865])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V113*/ curfptr[112]); BASILYS_LOCATION("warmelt-macro.bysl:619:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V865*/ curfptr[864]); + basilysgc_touch(/*_.VALROUT___V866*/ curfptr[865]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V864*/ curfptr[863])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V865*/ curfptr[864])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V864*/ curfptr[863])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V865*/ curfptr[864]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V865*/ curfptr[864])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V866*/ curfptr[865])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V865*/ curfptr[864])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V866*/ curfptr[865]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V864*/ curfptr[863]); + basilysgc_touch(/*_.VALCLO___V865*/ curfptr[864]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V864*/ curfptr[863]); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V864*/ curfptr[863]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V865*/ curfptr[864]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V865*/ curfptr[864]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#13", NULL != (/*_.CLASS_CMATCHER_BINDING__V20*/ curfptr[19])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V20*/ curfptr[19]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-macro.bysl:677:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V869*/ curfptr[868])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V870*/ curfptr[869])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_813__EXPAND_CMATCHEXPR#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V869*/ curfptr[868])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + ((basilysroutine_ptr_t)/*_.VALROUT___V870*/ curfptr[869])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-macro.bysl:677:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V869*/ curfptr[868])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V870*/ curfptr[869])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_813__EXPAND_CMATCHEXPR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V869*/ curfptr[868])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V870*/ curfptr[869])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:677:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V869*/ curfptr[868])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V870*/ curfptr[869])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_813__EXPAND_CMATCHEXPR#2", NULL != (/*_.CLASS_CMATCHER__V14*/ curfptr[13])); - ((basilysroutine_ptr_t)/*_.VALROUT___V869*/ curfptr[868])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CMATCHER__V14*/ curfptr[13]); + ((basilysroutine_ptr_t)/*_.VALROUT___V870*/ curfptr[869])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CMATCHER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-macro.bysl:677:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V869*/ curfptr[868])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V870*/ curfptr[869])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_813__EXPAND_CMATCHEXPR#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V869*/ curfptr[868])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + ((basilysroutine_ptr_t)/*_.VALROUT___V870*/ curfptr[869])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); BASILYS_LOCATION("warmelt-macro.bysl:677:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V869*/ curfptr[868])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V863*/ curfptr[862]); - ((basilysroutine_ptr_t)/*_.VALROUT___V869*/ curfptr[868])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V863*/ curfptr[862]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V870*/ curfptr[869])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V864*/ curfptr[863]); + ((basilysroutine_ptr_t)/*_.VALROUT___V870*/ curfptr[869])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V864*/ curfptr[863]); BASILYS_LOCATION("warmelt-macro.bysl:677:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V869*/ curfptr[868])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V134*/ curfptr[133]); - ((basilysroutine_ptr_t)/*_.VALROUT___V869*/ curfptr[868])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V870*/ curfptr[869])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V135*/ curfptr[134]); + ((basilysroutine_ptr_t)/*_.VALROUT___V870*/ curfptr[869])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134]); BASILYS_LOCATION("warmelt-macro.bysl:677:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V869*/ curfptr[868]); + basilysgc_touch(/*_.VALROUT___V870*/ curfptr[869]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V868*/ curfptr[867])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V869*/ curfptr[868])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V868*/ curfptr[867])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V869*/ curfptr[868]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V869*/ curfptr[868])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V870*/ curfptr[869])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V869*/ curfptr[868])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V870*/ curfptr[869]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V868*/ curfptr[867]); + basilysgc_touch(/*_.VALCLO___V869*/ curfptr[868]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V868*/ curfptr[867]); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[14] = (basilys_ptr_t)(/*_.VALCLO___V868*/ curfptr[867]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V869*/ curfptr[868]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[14] = (basilys_ptr_t)(/*_.VALCLO___V869*/ curfptr[868]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#15", NULL != (/*_.CLASS_FUNMATCHER_BINDING__V21*/ curfptr[20])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[15] = (basilys_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V21*/ curfptr[20]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[15] = (basilys_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V21*/ curfptr[20]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#16", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); BASILYS_LOCATION("warmelt-macro.bysl:570:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V871*/ curfptr[870])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V872*/ curfptr[871])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_801__EXPAND_APPLY#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V871*/ curfptr[870])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + ((basilysroutine_ptr_t)/*_.VALROUT___V872*/ curfptr[871])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-macro.bysl:570:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V871*/ curfptr[870])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V872*/ curfptr[871])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_801__EXPAND_APPLY#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V871*/ curfptr[870])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V872*/ curfptr[871])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:570:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V871*/ curfptr[870])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V863*/ curfptr[862]); - ((basilysroutine_ptr_t)/*_.VALROUT___V871*/ curfptr[870])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V863*/ curfptr[862]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V872*/ curfptr[871])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V864*/ curfptr[863]); + ((basilysroutine_ptr_t)/*_.VALROUT___V872*/ curfptr[871])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V864*/ curfptr[863]); BASILYS_LOCATION("warmelt-macro.bysl:570:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V871*/ curfptr[870])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V871*/ curfptr[870])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V872*/ curfptr[871])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V872*/ curfptr[871])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-macro.bysl:570:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V871*/ curfptr[870])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V66*/ curfptr[65]); - ((basilysroutine_ptr_t)/*_.VALROUT___V871*/ curfptr[870])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V66*/ curfptr[65]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V872*/ curfptr[871])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V67*/ curfptr[66]); + ((basilysroutine_ptr_t)/*_.VALROUT___V872*/ curfptr[871])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V67*/ curfptr[66]); BASILYS_LOCATION("warmelt-macro.bysl:570:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V871*/ curfptr[870]); + basilysgc_touch(/*_.VALROUT___V872*/ curfptr[871]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V870*/ curfptr[869])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V871*/ curfptr[870])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V870*/ curfptr[869])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V871*/ curfptr[870]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V871*/ curfptr[870])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V872*/ curfptr[871])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V871*/ curfptr[870])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V872*/ curfptr[871]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V870*/ curfptr[869]); + basilysgc_touch(/*_.VALCLO___V871*/ curfptr[870]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V870*/ curfptr[869]); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[17] = (basilys_ptr_t)(/*_.VALCLO___V870*/ curfptr[869]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V871*/ curfptr[870]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[17] = (basilys_ptr_t)(/*_.VALCLO___V871*/ curfptr[870]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#18", NULL != (/*_.CLASS_PRIMITIVE__V23*/ curfptr[22])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE__V23*/ curfptr[22]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#19", NULL != (/*_.CLASS_SELECTOR__V24*/ curfptr[23])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[19] = (basilys_ptr_t)(/*_.CLASS_SELECTOR__V24*/ curfptr[23]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[19] = (basilys_ptr_t)(/*_.CLASS_SELECTOR__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#20", NULL != (/*_.CLASS_CITERATOR__V13*/ curfptr[12])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[20] = (basilys_ptr_t)(/*_.CLASS_CITERATOR__V13*/ curfptr[12]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[20] = (basilys_ptr_t)(/*_.CLASS_CITERATOR__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#21", NULL != (/*_.CLASS_CMATCHER__V14*/ curfptr[13])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[21] = (basilys_ptr_t)(/*_.CLASS_CMATCHER__V14*/ curfptr[13]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[21] = (basilys_ptr_t)(/*_.CLASS_CMATCHER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#22", NULL != (/*_.CLASS_FUNMATCHER__V25*/ curfptr[24])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[22] = (basilys_ptr_t)(/*_.CLASS_FUNMATCHER__V25*/ curfptr[24]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[22] = (basilys_ptr_t)(/*_.CLASS_FUNMATCHER__V25*/ curfptr[24]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V872*/ curfptr[871])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V872*/ curfptr[871])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V872*/ curfptr[871]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V873*/ curfptr[872]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V873*/ curfptr[872])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V873*/ curfptr[872])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V873*/ curfptr[872]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V874*/ curfptr[873]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V872*/ curfptr[871]); + basilysgc_touch(/*_.VALDATA___V873*/ curfptr[872]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#23", NULL != (/*_.VALDATA___V872*/ curfptr[871])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[23] = (basilys_ptr_t)(/*_.VALDATA___V872*/ curfptr[871]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#23", NULL != (/*_.VALDATA___V873*/ curfptr[872])); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[23] = (basilys_ptr_t)(/*_.VALDATA___V873*/ curfptr[872]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V874*/ curfptr[873])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V874*/ curfptr[873])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V874*/ curfptr[873]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V875*/ curfptr[874]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V875*/ curfptr[874])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V875*/ curfptr[874])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V875*/ curfptr[874]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V876*/ curfptr[875]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V874*/ curfptr[873]); + basilysgc_touch(/*_.VALDATA___V875*/ curfptr[874]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#24", NULL != (/*_.VALDATA___V874*/ curfptr[873])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[24] = (basilys_ptr_t)(/*_.VALDATA___V874*/ curfptr[873]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#24", NULL != (/*_.VALDATA___V875*/ curfptr[874])); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[24] = (basilys_ptr_t)(/*_.VALDATA___V875*/ curfptr[874]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_819__MACROEXPAND_1#25", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[25] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[25] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-macro.bysl:717:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V877*/ curfptr[876])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V878*/ curfptr[877])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_817__EXPAND_KEYWORDFUN#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V877*/ curfptr[876])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + ((basilysroutine_ptr_t)/*_.VALROUT___V878*/ curfptr[877])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-macro.bysl:717:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V877*/ curfptr[876])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V878*/ curfptr[877])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_817__EXPAND_KEYWORDFUN#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V877*/ curfptr[876])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V878*/ curfptr[877])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:717:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V877*/ curfptr[876]); + basilysgc_touch(/*_.VALROUT___V878*/ curfptr[877]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V876*/ curfptr[875])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V877*/ curfptr[876])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V876*/ curfptr[875])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V877*/ curfptr[876]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V877*/ curfptr[876])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V878*/ curfptr[877])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V877*/ curfptr[876])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V878*/ curfptr[877]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V876*/ curfptr[875]); + basilysgc_touch(/*_.VALCLO___V877*/ curfptr[876]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V876*/ curfptr[875]); - ((basilysroutine_ptr_t)/*_.VALROUT___V856*/ curfptr[855])->tabval[26] = (basilys_ptr_t)(/*_.VALCLO___V876*/ curfptr[875]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V877*/ curfptr[876]); + ((basilysroutine_ptr_t)/*_.VALROUT___V857*/ curfptr[856])->tabval[26] = (basilys_ptr_t)(/*_.VALCLO___V877*/ curfptr[876]); BASILYS_LOCATION("warmelt-macro.bysl:725:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V856*/ curfptr[855]); + basilysgc_touch(/*_.VALROUT___V857*/ curfptr[856]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V856*/ curfptr[855])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V855*/ curfptr[854])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V856*/ curfptr[855]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V857*/ curfptr[856])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V856*/ curfptr[855])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V857*/ curfptr[856]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V855*/ curfptr[854]); + basilysgc_touch(/*_.VALCLO___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-macro.bysl:527:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V854*/ curfptr[853])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V854*/ curfptr[853])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V855*/ curfptr[854])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V855*/ curfptr[854])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-macro.bysl:527:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V854*/ curfptr[853]); + basilysgc_touch(/*_.VALROUT___V855*/ curfptr[854]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V878*/ curfptr[877])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V878*/ curfptr[877])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V878*/ curfptr[877]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V879*/ curfptr[878]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V879*/ curfptr[878])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V879*/ curfptr[878])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V879*/ curfptr[878]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V880*/ curfptr[879]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V878*/ curfptr[877]); + basilysgc_touch(/*_.VALDATA___V879*/ curfptr[878]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V880*/ curfptr[879])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V880*/ curfptr[879])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V880*/ curfptr[879]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V881*/ curfptr[880]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V881*/ curfptr[880])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V881*/ curfptr[880])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V881*/ curfptr[880]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V882*/ curfptr[881]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V880*/ curfptr[879]); + basilysgc_touch(/*_.VALDATA___V881*/ curfptr[880]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V882*/ curfptr[881])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V882*/ curfptr[881])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V882*/ curfptr[881]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V883*/ curfptr[882]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V883*/ curfptr[882])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V883*/ curfptr[882])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V883*/ curfptr[882]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V884*/ curfptr[883]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V882*/ curfptr[881]); + basilysgc_touch(/*_.VALDATA___V883*/ curfptr[882]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V884*/ curfptr[883])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V884*/ curfptr[883])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V884*/ curfptr[883]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V885*/ curfptr[884]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V885*/ curfptr[884])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V885*/ curfptr[884])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V885*/ curfptr[884]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V886*/ curfptr[885]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V884*/ curfptr[883]); + basilysgc_touch(/*_.VALDATA___V885*/ curfptr[884]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V886*/ curfptr[885])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V886*/ curfptr[885])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V886*/ curfptr[885]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V887*/ curfptr[886]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V887*/ curfptr[886])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V887*/ curfptr[886])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V888*/ curfptr[887]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V886*/ curfptr[885]); + basilysgc_touch(/*_.VALDATA___V887*/ curfptr[886]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V888*/ curfptr[887])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V888*/ curfptr[887])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V888*/ curfptr[887]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V889*/ curfptr[888]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V889*/ curfptr[888])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V889*/ curfptr[888])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V889*/ curfptr[888]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V890*/ curfptr[889]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V888*/ curfptr[887]); + basilysgc_touch(/*_.VALDATA___V889*/ curfptr[888]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V890*/ curfptr[889]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V891*/ curfptr[890]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V891*/ curfptr[890])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V891*/ curfptr[890])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V891*/ curfptr[890]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V892*/ curfptr[891]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V890*/ curfptr[889]); + basilysgc_touch(/*_.VALDATA___V891*/ curfptr[890]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V892*/ curfptr[891])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V892*/ curfptr[891])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V892*/ curfptr[891]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V893*/ curfptr[892]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V893*/ curfptr[892])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V893*/ curfptr[892])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V893*/ curfptr[892]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V894*/ curfptr[893]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V892*/ curfptr[891]); + basilysgc_touch(/*_.VALDATA___V893*/ curfptr[892]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V894*/ curfptr[893])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V894*/ curfptr[893])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V894*/ curfptr[893]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V895*/ curfptr[894]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V895*/ curfptr[894])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V895*/ curfptr[894])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V895*/ curfptr[894]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V896*/ curfptr[895]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V894*/ curfptr[893]); + basilysgc_touch(/*_.VALDATA___V895*/ curfptr[894]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V896*/ curfptr[895])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V896*/ curfptr[895])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V896*/ curfptr[895]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V897*/ curfptr[896]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V897*/ curfptr[896])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V897*/ curfptr[896])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V897*/ curfptr[896]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V898*/ curfptr[897]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V896*/ curfptr[895]); + basilysgc_touch(/*_.VALDATA___V897*/ curfptr[896]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V898*/ curfptr[897])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V898*/ curfptr[897])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V898*/ curfptr[897]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V899*/ curfptr[898]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V899*/ curfptr[898])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V899*/ curfptr[898])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V899*/ curfptr[898]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V900*/ curfptr[899]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V898*/ curfptr[897]); + basilysgc_touch(/*_.VALDATA___V899*/ curfptr[898]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V900*/ curfptr[899])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V900*/ curfptr[899])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V900*/ curfptr[899]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V901*/ curfptr[900]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V901*/ curfptr[900])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V901*/ curfptr[900])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V901*/ curfptr[900]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V902*/ curfptr[901]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V900*/ curfptr[899]); + basilysgc_touch(/*_.VALDATA___V901*/ curfptr[900]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V902*/ curfptr[901])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V902*/ curfptr[901])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V902*/ curfptr[901]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V903*/ curfptr[902]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V903*/ curfptr[902])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V903*/ curfptr[902])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V903*/ curfptr[902]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V904*/ curfptr[903]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V902*/ curfptr[901]); + basilysgc_touch(/*_.VALDATA___V903*/ curfptr[902]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V904*/ curfptr[903]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V905*/ curfptr[904]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V905*/ curfptr[904])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V905*/ curfptr[904])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V905*/ curfptr[904]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V906*/ curfptr[905]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V904*/ curfptr[903]); + basilysgc_touch(/*_.VALDATA___V905*/ curfptr[904]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V906*/ curfptr[905])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V906*/ curfptr[905])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V906*/ curfptr[905]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V907*/ curfptr[906]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V907*/ curfptr[906])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V907*/ curfptr[906])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V908*/ curfptr[907]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V906*/ curfptr[905]); + basilysgc_touch(/*_.VALDATA___V907*/ curfptr[906]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V908*/ curfptr[907])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V908*/ curfptr[907])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V908*/ curfptr[907]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V909*/ curfptr[908]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V909*/ curfptr[908])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V909*/ curfptr[908])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V909*/ curfptr[908]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V910*/ curfptr[909]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V908*/ curfptr[907]); + basilysgc_touch(/*_.VALDATA___V909*/ curfptr[908]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V910*/ curfptr[909])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V910*/ curfptr[909])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V910*/ curfptr[909]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V911*/ curfptr[910]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V912*/ curfptr[911]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V910*/ curfptr[909]); + basilysgc_touch(/*_.VALDATA___V911*/ curfptr[910]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V912*/ curfptr[911])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V912*/ curfptr[911])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V912*/ curfptr[911]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V913*/ curfptr[912]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V913*/ curfptr[912])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V913*/ curfptr[912])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V914*/ curfptr[913]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V912*/ curfptr[911]); + basilysgc_touch(/*_.VALDATA___V913*/ curfptr[912]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V914*/ curfptr[913])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V914*/ curfptr[913])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V914*/ curfptr[913]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V915*/ curfptr[914]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V915*/ curfptr[914])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V915*/ curfptr[914])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V916*/ curfptr[915]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V914*/ curfptr[913]); + basilysgc_touch(/*_.VALDATA___V915*/ curfptr[914]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V916*/ curfptr[915])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V916*/ curfptr[915])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V917*/ curfptr[916]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V917*/ curfptr[916])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V917*/ curfptr[916])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V917*/ curfptr[916]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V918*/ curfptr[917]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V916*/ curfptr[915]); + basilysgc_touch(/*_.VALDATA___V917*/ curfptr[916]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V919*/ curfptr[918]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V920*/ curfptr[919]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]))->obj_vartab[4] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_ROOT__V27*/ curfptr[26]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V920*/ curfptr[919]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V920*/ curfptr[919])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V920*/ curfptr[919]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V27*/ curfptr[26]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V921*/ curfptr[920]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V921*/ curfptr[920])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V921*/ curfptr[920]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V27*/ curfptr[26]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V920*/ curfptr[919]); + basilysgc_touch(/*_.VALTUP___V921*/ curfptr[920]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]))->obj_vartab[5] = (basilys_ptr_t)( - /*_.VALTUP___V920*/ curfptr[919]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]))->obj_vartab[5] = (basilys_ptr_t)( + /*_.VALTUP___V921*/ curfptr[920]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V921*/ curfptr[920])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V921*/ curfptr[920])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V921*/ curfptr[920]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V922*/ curfptr[921]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V922*/ curfptr[921])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V922*/ curfptr[921])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V922*/ curfptr[921]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V923*/ curfptr[922]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V921*/ curfptr[920])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V921*/ curfptr[920])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V921*/ curfptr[920]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V918*/ curfptr[917]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V922*/ curfptr[921])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V922*/ curfptr[921])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V922*/ curfptr[921]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V919*/ curfptr[918]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V921*/ curfptr[920]); + basilysgc_touch(/*_.VALDATA___V922*/ curfptr[921]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V923*/ curfptr[922])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V923*/ curfptr[922])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V923*/ curfptr[922]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V924*/ curfptr[923]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V924*/ curfptr[923])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V924*/ curfptr[923])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V925*/ curfptr[924]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V923*/ curfptr[922])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V923*/ curfptr[922])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V923*/ curfptr[922]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V918*/ curfptr[917]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V924*/ curfptr[923])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V924*/ curfptr[923])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V919*/ curfptr[918]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V923*/ curfptr[922]); + basilysgc_touch(/*_.VALDATA___V924*/ curfptr[923]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V925*/ curfptr[924])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V925*/ curfptr[924])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V925*/ curfptr[924]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V926*/ curfptr[925]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V926*/ curfptr[925])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V926*/ curfptr[925])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V926*/ curfptr[925]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V927*/ curfptr[926]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V925*/ curfptr[924])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V925*/ curfptr[924])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V925*/ curfptr[924]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALDATA___V918*/ curfptr[917]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V926*/ curfptr[925])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V926*/ curfptr[925])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V926*/ curfptr[925]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALDATA___V919*/ curfptr[918]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V925*/ curfptr[924]); + basilysgc_touch(/*_.VALDATA___V926*/ curfptr[925]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V927*/ curfptr[926]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V927*/ curfptr[926])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V927*/ curfptr[926]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V921*/ curfptr[920]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V928*/ curfptr[927]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V928*/ curfptr[927])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V928*/ curfptr[927]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V922*/ curfptr[921]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V927*/ curfptr[926]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V927*/ curfptr[926])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V927*/ curfptr[926]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V923*/ curfptr[922]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V928*/ curfptr[927]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V928*/ curfptr[927])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V928*/ curfptr[927]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V927*/ curfptr[926]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V927*/ curfptr[926])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V927*/ curfptr[926]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V925*/ curfptr[924]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V928*/ curfptr[927]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V928*/ curfptr[927])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V928*/ curfptr[927]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V926*/ curfptr[925]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V927*/ curfptr[926]); + basilysgc_touch(/*_.VALTUP___V928*/ curfptr[927]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]))->obj_vartab[6] = (basilys_ptr_t)( - /*_.VALTUP___V927*/ curfptr[926]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]))->obj_vartab[6] = (basilys_ptr_t)( + /*_.VALTUP___V928*/ curfptr[927]); BASILYS_LOCATION("warmelt-macro.bysl:856:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V918*/ curfptr[917]); + basilysgc_touch(/*_.VALDATA___V919*/ curfptr[918]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V928*/ curfptr[927])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V928*/ curfptr[927])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V928*/ curfptr[927]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V929*/ curfptr[928]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V929*/ curfptr[928])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V929*/ curfptr[928])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V929*/ curfptr[928]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V930*/ curfptr[929]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V928*/ curfptr[927]); + basilysgc_touch(/*_.VALDATA___V929*/ curfptr[928]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V930*/ curfptr[929])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V930*/ curfptr[929])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V930*/ curfptr[929]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V931*/ curfptr[930]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V931*/ curfptr[930])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V931*/ curfptr[930])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V931*/ curfptr[930]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V932*/ curfptr[931]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V930*/ curfptr[929]); + basilysgc_touch(/*_.VALDATA___V931*/ curfptr[930]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V933*/ curfptr[932]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V933*/ curfptr[932])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V933*/ curfptr[932])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V933*/ curfptr[932]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V934*/ curfptr[933]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V932*/ curfptr[931]); + basilysgc_touch(/*_.VALDATA___V933*/ curfptr[932]); BASILYS_LOCATION("warmelt-macro.bysl:864:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V934*/ curfptr[933])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V935*/ curfptr[934])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_871__PATTERNEXPAND_PAIRLIST_AS_TUPLE#0", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V934*/ curfptr[933])->tabval[0] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + ((basilysroutine_ptr_t)/*_.VALROUT___V935*/ curfptr[934])->tabval[0] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-macro.bysl:864:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V934*/ curfptr[933])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V935*/ curfptr[934])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_871__PATTERNEXPAND_PAIRLIST_AS_TUPLE#1", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V934*/ curfptr[933])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + ((basilysroutine_ptr_t)/*_.VALROUT___V935*/ curfptr[934])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-macro.bysl:992:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V936*/ curfptr[935])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V937*/ curfptr[936])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__PATTERNEXPAND_1#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V936*/ curfptr[935])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V937*/ curfptr[936])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:992:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V936*/ curfptr[935])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V918*/ curfptr[917]); - ((basilysroutine_ptr_t)/*_.VALROUT___V936*/ curfptr[935])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V937*/ curfptr[936])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V919*/ curfptr[918]); + ((basilysroutine_ptr_t)/*_.VALROUT___V937*/ curfptr[936])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]); BASILYS_LOCATION("warmelt-macro.bysl:992:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V936*/ curfptr[935])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V937*/ curfptr[936])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__PATTERNEXPAND_1#2", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V936*/ curfptr[935])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + ((basilysroutine_ptr_t)/*_.VALROUT___V937*/ curfptr[936])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-macro.bysl:992:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V936*/ curfptr[935])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V937*/ curfptr[936])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__PATTERNEXPAND_1#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V936*/ curfptr[935])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + ((basilysroutine_ptr_t)/*_.VALROUT___V937*/ curfptr[936])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V937*/ curfptr[936])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V937*/ curfptr[936])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V937*/ curfptr[936]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V938*/ curfptr[937]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V938*/ curfptr[937])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V938*/ curfptr[937])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V938*/ curfptr[937]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V939*/ curfptr[938]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V937*/ curfptr[936]); + basilysgc_touch(/*_.VALDATA___V938*/ curfptr[937]); BASILYS_LOCATION("warmelt-macro.bysl:992:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V936*/ curfptr[935])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__PATTERNEXPAND_1#4", NULL != (/*_.VALDATA___V937*/ curfptr[936])); - ((basilysroutine_ptr_t)/*_.VALROUT___V936*/ curfptr[935])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V937*/ curfptr[936]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V937*/ curfptr[936])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__PATTERNEXPAND_1#4", NULL != (/*_.VALDATA___V938*/ curfptr[937])); + ((basilysroutine_ptr_t)/*_.VALROUT___V937*/ curfptr[936])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V938*/ curfptr[937]); BASILYS_LOCATION("warmelt-macro.bysl:992:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V936*/ curfptr[935])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V936*/ curfptr[935])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V937*/ curfptr[936])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V937*/ curfptr[936])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-macro.bysl:992:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V936*/ curfptr[935])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V774*/ curfptr[773]); - ((basilysroutine_ptr_t)/*_.VALROUT___V936*/ curfptr[935])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V937*/ curfptr[936])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V775*/ curfptr[774]); + ((basilysroutine_ptr_t)/*_.VALROUT___V937*/ curfptr[936])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V775*/ curfptr[774]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V940*/ curfptr[939]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V940*/ curfptr[939])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V940*/ curfptr[939])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V940*/ curfptr[939]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V941*/ curfptr[940]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V939*/ curfptr[938]); + basilysgc_touch(/*_.VALDATA___V940*/ curfptr[939]); BASILYS_LOCATION("warmelt-macro.bysl:992:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V936*/ curfptr[935])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__PATTERNEXPAND_1#7", NULL != (/*_.VALDATA___V939*/ curfptr[938])); - ((basilysroutine_ptr_t)/*_.VALROUT___V936*/ curfptr[935])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V937*/ curfptr[936])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__PATTERNEXPAND_1#7", NULL != (/*_.VALDATA___V940*/ curfptr[939])); + ((basilysroutine_ptr_t)/*_.VALROUT___V937*/ curfptr[936])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V940*/ curfptr[939]); BASILYS_LOCATION("warmelt-macro.bysl:992:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V936*/ curfptr[935])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V768*/ curfptr[767]); - ((basilysroutine_ptr_t)/*_.VALROUT___V936*/ curfptr[935])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V768*/ curfptr[767]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V937*/ curfptr[936])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V769*/ curfptr[768]); + ((basilysroutine_ptr_t)/*_.VALROUT___V937*/ curfptr[936])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768]); BASILYS_LOCATION("warmelt-macro.bysl:992:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V936*/ curfptr[935])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V937*/ curfptr[936])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__PATTERNEXPAND_1#9", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V936*/ curfptr[935])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + ((basilysroutine_ptr_t)/*_.VALROUT___V937*/ curfptr[936])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); BASILYS_LOCATION("warmelt-macro.bysl:992:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V936*/ curfptr[935])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V758*/ curfptr[757]); - ((basilysroutine_ptr_t)/*_.VALROUT___V936*/ curfptr[935])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V937*/ curfptr[936])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V759*/ curfptr[758]); + ((basilysroutine_ptr_t)/*_.VALROUT___V937*/ curfptr[936])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758]); BASILYS_LOCATION("warmelt-macro.bysl:911:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V942*/ curfptr[941])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V943*/ curfptr[942])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_890__PATTERNEXPAND_EXPR#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V942*/ curfptr[941])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + ((basilysroutine_ptr_t)/*_.VALROUT___V943*/ curfptr[942])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-macro.bysl:911:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V942*/ curfptr[941])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V943*/ curfptr[942])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_890__PATTERNEXPAND_EXPR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V942*/ curfptr[941])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V943*/ curfptr[942])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:911:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V942*/ curfptr[941])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V918*/ curfptr[917]); - ((basilysroutine_ptr_t)/*_.VALROUT___V942*/ curfptr[941])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V943*/ curfptr[942])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V919*/ curfptr[918]); + ((basilysroutine_ptr_t)/*_.VALROUT___V943*/ curfptr[942])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]); BASILYS_LOCATION("warmelt-macro.bysl:911:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V942*/ curfptr[941])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V943*/ curfptr[942])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_890__PATTERNEXPAND_EXPR#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V942*/ curfptr[941])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + ((basilysroutine_ptr_t)/*_.VALROUT___V943*/ curfptr[942])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); BASILYS_LOCATION("warmelt-macro.bysl:911:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V942*/ curfptr[941])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V943*/ curfptr[942])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_890__PATTERNEXPAND_EXPR#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V942*/ curfptr[941])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + ((basilysroutine_ptr_t)/*_.VALROUT___V943*/ curfptr[942])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); BASILYS_LOCATION("warmelt-macro.bysl:911:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V942*/ curfptr[941])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V943*/ curfptr[942])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_890__PATTERNEXPAND_EXPR#5", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); - ((basilysroutine_ptr_t)/*_.VALROUT___V942*/ curfptr[941])->tabval[5] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); + ((basilysroutine_ptr_t)/*_.VALROUT___V943*/ curfptr[942])->tabval[5] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-macro.bysl:911:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V942*/ curfptr[941])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V943*/ curfptr[942])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_890__PATTERNEXPAND_EXPR#6", NULL != (/*_.CLASS_PATMACRO_BINDING__V34*/ curfptr[33])); - ((basilysroutine_ptr_t)/*_.VALROUT___V942*/ curfptr[941])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_PATMACRO_BINDING__V34*/ curfptr[33]); + ((basilysroutine_ptr_t)/*_.VALROUT___V943*/ curfptr[942])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_PATMACRO_BINDING__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-macro.bysl:911:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V942*/ curfptr[941])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V943*/ curfptr[942])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_890__PATTERNEXPAND_EXPR#7", NULL != (/*_.CLASS_CMATCHER_BINDING__V20*/ curfptr[19])); - ((basilysroutine_ptr_t)/*_.VALROUT___V942*/ curfptr[941])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V20*/ curfptr[19]); + ((basilysroutine_ptr_t)/*_.VALROUT___V943*/ curfptr[942])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-macro.bysl:911:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V942*/ curfptr[941])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V943*/ curfptr[942])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_890__PATTERNEXPAND_EXPR#8", NULL != (/*_.CLASS_CMATCHER__V14*/ curfptr[13])); - ((basilysroutine_ptr_t)/*_.VALROUT___V942*/ curfptr[941])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CMATCHER__V14*/ curfptr[13]); + ((basilysroutine_ptr_t)/*_.VALROUT___V943*/ curfptr[942])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CMATCHER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-macro.bysl:873:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V944*/ curfptr[943])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_876__PATMACEXPAND_FOR_MATCHER#0", NULL != (/*_.CLASS_ANY_MATCHER__V29*/ curfptr[28])); - ((basilysroutine_ptr_t)/*_.VALROUT___V944*/ curfptr[943])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ANY_MATCHER__V29*/ curfptr[28]); + ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ANY_MATCHER__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-macro.bysl:873:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V944*/ curfptr[943])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_876__PATMACEXPAND_FOR_MATCHER#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V944*/ curfptr[943])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:873:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V944*/ curfptr[943])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V918*/ curfptr[917]); - ((basilysroutine_ptr_t)/*_.VALROUT___V944*/ curfptr[943])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V919*/ curfptr[918]); + ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]); BASILYS_LOCATION("warmelt-macro.bysl:873:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V944*/ curfptr[943])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_876__PATMACEXPAND_FOR_MATCHER#3", NULL != (/*_.DISCR_BOX__V30*/ curfptr[29])); - ((basilysroutine_ptr_t)/*_.VALROUT___V944*/ curfptr[943])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_BOX__V30*/ curfptr[29]); + ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_BOX__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-macro.bysl:873:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V944*/ curfptr[943])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_876__PATMACEXPAND_FOR_MATCHER#4", NULL != (/*_.MULTIPLE_MAP__V31*/ curfptr[30])); - ((basilysroutine_ptr_t)/*_.VALROUT___V944*/ curfptr[943])->tabval[4] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V31*/ curfptr[30]); + ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[4] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-macro.bysl:873:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V944*/ curfptr[943])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_876__PATMACEXPAND_FOR_MATCHER#5", NULL != (/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31])); - ((basilysroutine_ptr_t)/*_.VALROUT___V944*/ curfptr[943])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); + ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-macro.bysl:873:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V944*/ curfptr[943])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V944*/ curfptr[943])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-macro.bysl:873:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V944*/ curfptr[943])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_876__PATMACEXPAND_FOR_MATCHER#7", NULL != (/*_.CLASS_NAMED__V33*/ curfptr[32])); - ((basilysroutine_ptr_t)/*_.VALROUT___V944*/ curfptr[943])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_NAMED__V33*/ curfptr[32]); + ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_NAMED__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-macro.bysl:885:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V946*/ curfptr[945])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_884__LAMBDA_#0", NULL != (/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31])); - ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); + ((basilysroutine_ptr_t)/*_.VALROUT___V946*/ curfptr[945])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-macro.bysl:885:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V946*/ curfptr[945])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V946*/ curfptr[945])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-macro.bysl:885:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V946*/ curfptr[945])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_884__LAMBDA_#2", NULL != (/*_.CLASS_NAMED__V33*/ curfptr[32])); - ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NAMED__V33*/ curfptr[32]); + ((basilysroutine_ptr_t)/*_.VALROUT___V946*/ curfptr[945])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NAMED__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-macro.bysl:885:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V945*/ curfptr[944]); + basilysgc_touch(/*_.VALROUT___V946*/ curfptr[945]); BASILYS_LOCATION("warmelt-macro.bysl:873:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V944*/ curfptr[943])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_876__PATMACEXPAND_FOR_MATCHER#8", NULL != (/*_.VALROUT___V945*/ curfptr[944])); - ((basilysroutine_ptr_t)/*_.VALROUT___V944*/ curfptr[943])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_876__PATMACEXPAND_FOR_MATCHER#8", NULL != (/*_.VALROUT___V946*/ curfptr[945])); + ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V946*/ curfptr[945]); BASILYS_LOCATION("warmelt-macro.bysl:873:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V944*/ curfptr[943])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V935*/ curfptr[934]); - ((basilysroutine_ptr_t)/*_.VALROUT___V944*/ curfptr[943])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V935*/ curfptr[934]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V936*/ curfptr[935]); + ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V936*/ curfptr[935]); BASILYS_LOCATION("warmelt-macro.bysl:873:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V944*/ curfptr[943])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_876__PATMACEXPAND_FOR_MATCHER#10", NULL != (/*_.CLASS_NAMED__V33*/ curfptr[32])); - ((basilysroutine_ptr_t)/*_.VALROUT___V944*/ curfptr[943])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_NAMED__V33*/ curfptr[32]); + ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_NAMED__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-macro.bysl:897:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V946*/ curfptr[945])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V935*/ curfptr[934]); - ((basilysroutine_ptr_t)/*_.VALROUT___V946*/ curfptr[945])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V935*/ curfptr[934]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V936*/ curfptr[935]); + ((basilysroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V936*/ curfptr[935]); BASILYS_LOCATION("warmelt-macro.bysl:897:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V946*/ curfptr[945])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_889__LAMBDA_#1", NULL != (/*_.CLASS_NAMED__V33*/ curfptr[32])); - ((basilysroutine_ptr_t)/*_.VALROUT___V946*/ curfptr[945])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NAMED__V33*/ curfptr[32]); + ((basilysroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NAMED__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-macro.bysl:897:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V946*/ curfptr[945]); + basilysgc_touch(/*_.VALROUT___V947*/ curfptr[946]); BASILYS_LOCATION("warmelt-macro.bysl:873:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V944*/ curfptr[943])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_876__PATMACEXPAND_FOR_MATCHER#11", NULL != (/*_.VALROUT___V946*/ curfptr[945])); - ((basilysroutine_ptr_t)/*_.VALROUT___V944*/ curfptr[943])->tabval[11] = (basilys_ptr_t)(/*_.VALROUT___V946*/ curfptr[945]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_876__PATMACEXPAND_FOR_MATCHER#11", NULL != (/*_.VALROUT___V947*/ curfptr[946])); + ((basilysroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[11] = (basilys_ptr_t)(/*_.VALROUT___V947*/ curfptr[946]); BASILYS_LOCATION("warmelt-macro.bysl:873:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V944*/ curfptr[943]); + basilysgc_touch(/*_.VALROUT___V945*/ curfptr[944]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V943*/ curfptr[942])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V944*/ curfptr[943])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V943*/ curfptr[942])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V944*/ curfptr[943]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V944*/ curfptr[943])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V944*/ curfptr[943])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V945*/ curfptr[944]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V943*/ curfptr[942]); + basilysgc_touch(/*_.VALCLO___V944*/ curfptr[943]); BASILYS_LOCATION("warmelt-macro.bysl:911:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V942*/ curfptr[941])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V943*/ curfptr[942]); - ((basilysroutine_ptr_t)/*_.VALROUT___V942*/ curfptr[941])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V943*/ curfptr[942]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V943*/ curfptr[942])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V944*/ curfptr[943]); + ((basilysroutine_ptr_t)/*_.VALROUT___V943*/ curfptr[942])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V944*/ curfptr[943]); BASILYS_LOCATION("warmelt-macro.bysl:911:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V942*/ curfptr[941])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V846*/ curfptr[845]); - ((basilysroutine_ptr_t)/*_.VALROUT___V942*/ curfptr[941])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V943*/ curfptr[942])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V847*/ curfptr[846]); + ((basilysroutine_ptr_t)/*_.VALROUT___V943*/ curfptr[942])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V847*/ curfptr[846]); BASILYS_LOCATION("warmelt-macro.bysl:911:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V942*/ curfptr[941])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V943*/ curfptr[942])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_890__PATTERNEXPAND_EXPR#11", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); - ((basilysroutine_ptr_t)/*_.VALROUT___V942*/ curfptr[941])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); + ((basilysroutine_ptr_t)/*_.VALROUT___V943*/ curfptr[942])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); BASILYS_LOCATION("warmelt-macro.bysl:911:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V942*/ curfptr[941]); + basilysgc_touch(/*_.VALROUT___V943*/ curfptr[942]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V941*/ curfptr[940])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V942*/ curfptr[941])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V941*/ curfptr[940])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V942*/ curfptr[941]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V942*/ curfptr[941])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V943*/ curfptr[942])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V942*/ curfptr[941])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V943*/ curfptr[942]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V941*/ curfptr[940]); + basilysgc_touch(/*_.VALCLO___V942*/ curfptr[941]); BASILYS_LOCATION("warmelt-macro.bysl:992:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V936*/ curfptr[935])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V941*/ curfptr[940]); - ((basilysroutine_ptr_t)/*_.VALROUT___V936*/ curfptr[935])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V941*/ curfptr[940]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V937*/ curfptr[936])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V942*/ curfptr[941]); + ((basilysroutine_ptr_t)/*_.VALROUT___V937*/ curfptr[936])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V942*/ curfptr[941]); BASILYS_LOCATION("warmelt-macro.bysl:992:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V936*/ curfptr[935]); + basilysgc_touch(/*_.VALROUT___V937*/ curfptr[936]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V935*/ curfptr[934])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V936*/ curfptr[935])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V935*/ curfptr[934])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V936*/ curfptr[935]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V936*/ curfptr[935])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V937*/ curfptr[936])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V936*/ curfptr[935])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V937*/ curfptr[936]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V935*/ curfptr[934]); + basilysgc_touch(/*_.VALCLO___V936*/ curfptr[935]); BASILYS_LOCATION("warmelt-macro.bysl:864:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V934*/ curfptr[933])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V935*/ curfptr[934]); - ((basilysroutine_ptr_t)/*_.VALROUT___V934*/ curfptr[933])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V935*/ curfptr[934]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V935*/ curfptr[934])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V936*/ curfptr[935]); + ((basilysroutine_ptr_t)/*_.VALROUT___V935*/ curfptr[934])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V936*/ curfptr[935]); BASILYS_LOCATION("warmelt-macro.bysl:866:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V935*/ curfptr[934]); - ((basilysroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V935*/ curfptr[934]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V948*/ curfptr[947])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V936*/ curfptr[935]); + ((basilysroutine_ptr_t)/*_.VALROUT___V948*/ curfptr[947])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V936*/ curfptr[935]); BASILYS_LOCATION("warmelt-macro.bysl:866:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V947*/ curfptr[946]); + basilysgc_touch(/*_.VALROUT___V948*/ curfptr[947]); BASILYS_LOCATION("warmelt-macro.bysl:864:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V934*/ curfptr[933])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_871__PATTERNEXPAND_PAIRLIST_AS_TUPLE#3", NULL != (/*_.VALROUT___V947*/ curfptr[946])); - ((basilysroutine_ptr_t)/*_.VALROUT___V934*/ curfptr[933])->tabval[3] = (basilys_ptr_t)(/*_.VALROUT___V947*/ curfptr[946]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V935*/ curfptr[934])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_871__PATTERNEXPAND_PAIRLIST_AS_TUPLE#3", NULL != (/*_.VALROUT___V948*/ curfptr[947])); + ((basilysroutine_ptr_t)/*_.VALROUT___V935*/ curfptr[934])->tabval[3] = (basilys_ptr_t)(/*_.VALROUT___V948*/ curfptr[947]); BASILYS_LOCATION("warmelt-macro.bysl:864:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V934*/ curfptr[933]); + basilysgc_touch(/*_.VALROUT___V935*/ curfptr[934]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V948*/ curfptr[947])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V934*/ curfptr[933])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V948*/ curfptr[947])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V934*/ curfptr[933]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V949*/ curfptr[948])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V935*/ curfptr[934])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V949*/ curfptr[948])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V935*/ curfptr[934]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V948*/ curfptr[947]); + basilysgc_touch(/*_.VALCLO___V949*/ curfptr[948]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V949*/ curfptr[948])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V949*/ curfptr[948])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V949*/ curfptr[948]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V950*/ curfptr[949]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V950*/ curfptr[949])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V950*/ curfptr[949])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V950*/ curfptr[949]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V951*/ curfptr[950]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V949*/ curfptr[948]); + basilysgc_touch(/*_.VALDATA___V950*/ curfptr[949]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V951*/ curfptr[950])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V951*/ curfptr[950])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V951*/ curfptr[950]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V952*/ curfptr[951]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V952*/ curfptr[951])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V952*/ curfptr[951])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V952*/ curfptr[951]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V953*/ curfptr[952]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V951*/ curfptr[950]); + basilysgc_touch(/*_.VALDATA___V952*/ curfptr[951]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V953*/ curfptr[952]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V954*/ curfptr[953]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V954*/ curfptr[953])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V954*/ curfptr[953])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V954*/ curfptr[953]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V955*/ curfptr[954]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V953*/ curfptr[952]); + basilysgc_touch(/*_.VALDATA___V954*/ curfptr[953]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V955*/ curfptr[954])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V955*/ curfptr[954])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V955*/ curfptr[954]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V956*/ curfptr[955]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V956*/ curfptr[955])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V956*/ curfptr[955])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V957*/ curfptr[956]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V955*/ curfptr[954]); + basilysgc_touch(/*_.VALDATA___V956*/ curfptr[955]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V957*/ curfptr[956])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V957*/ curfptr[956])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V957*/ curfptr[956]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V958*/ curfptr[957]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V958*/ curfptr[957])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V958*/ curfptr[957])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V958*/ curfptr[957]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V959*/ curfptr[958]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V957*/ curfptr[956]); + basilysgc_touch(/*_.VALDATA___V958*/ curfptr[957]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V959*/ curfptr[958])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V959*/ curfptr[958])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V959*/ curfptr[958]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V960*/ curfptr[959]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V960*/ curfptr[959])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V960*/ curfptr[959])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V960*/ curfptr[959]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V961*/ curfptr[960]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V959*/ curfptr[958]); + basilysgc_touch(/*_.VALDATA___V960*/ curfptr[959]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V961*/ curfptr[960])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V961*/ curfptr[960])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V961*/ curfptr[960]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V962*/ curfptr[961]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V962*/ curfptr[961])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V962*/ curfptr[961])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V962*/ curfptr[961]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V963*/ curfptr[962]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V961*/ curfptr[960]); + basilysgc_touch(/*_.VALDATA___V962*/ curfptr[961]); BASILYS_LOCATION("warmelt-macro.bysl:1065:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V963*/ curfptr[962])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V964*/ curfptr[963])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_900__MACROEXPAND_TOPLEVEL_LIST#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V963*/ curfptr[962])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + ((basilysroutine_ptr_t)/*_.VALROUT___V964*/ curfptr[963])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); BASILYS_LOCATION("warmelt-macro.bysl:1065:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V963*/ curfptr[962])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V964*/ curfptr[963])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_900__MACROEXPAND_TOPLEVEL_LIST#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V963*/ curfptr[962])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V964*/ curfptr[963])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:1065:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V963*/ curfptr[962])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V964*/ curfptr[963])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_900__MACROEXPAND_TOPLEVEL_LIST#2", NULL != (/*_.LIST_MAP__V35*/ curfptr[34])); - ((basilysroutine_ptr_t)/*_.VALROUT___V963*/ curfptr[962])->tabval[2] = (basilys_ptr_t)(/*_.LIST_MAP__V35*/ curfptr[34]); + ((basilysroutine_ptr_t)/*_.VALROUT___V964*/ curfptr[963])->tabval[2] = (basilys_ptr_t)(/*_.LIST_MAP__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-macro.bysl:1065:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V963*/ curfptr[962])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V964*/ curfptr[963])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_900__MACROEXPAND_TOPLEVEL_LIST#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V963*/ curfptr[962])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + ((basilysroutine_ptr_t)/*_.VALROUT___V964*/ curfptr[963])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); BASILYS_LOCATION("warmelt-macro.bysl:1065:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V963*/ curfptr[962])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V963*/ curfptr[962])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V964*/ curfptr[963])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V964*/ curfptr[963])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-macro.bysl:1072:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V964*/ curfptr[963])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V965*/ curfptr[964])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_904__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V964*/ curfptr[963])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + ((basilysroutine_ptr_t)/*_.VALROUT___V965*/ curfptr[964])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); BASILYS_LOCATION("warmelt-macro.bysl:1072:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V964*/ curfptr[963])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V964*/ curfptr[963])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V965*/ curfptr[964])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V965*/ curfptr[964])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-macro.bysl:1072:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V964*/ curfptr[963]); + basilysgc_touch(/*_.VALROUT___V965*/ curfptr[964]); BASILYS_LOCATION("warmelt-macro.bysl:1065:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V963*/ curfptr[962])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_900__MACROEXPAND_TOPLEVEL_LIST#5", NULL != (/*_.VALROUT___V964*/ curfptr[963])); - ((basilysroutine_ptr_t)/*_.VALROUT___V963*/ curfptr[962])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V964*/ curfptr[963]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V964*/ curfptr[963])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_900__MACROEXPAND_TOPLEVEL_LIST#5", NULL != (/*_.VALROUT___V965*/ curfptr[964])); + ((basilysroutine_ptr_t)/*_.VALROUT___V964*/ curfptr[963])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V965*/ curfptr[964]); BASILYS_LOCATION("warmelt-macro.bysl:1065:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V963*/ curfptr[962]); + basilysgc_touch(/*_.VALROUT___V964*/ curfptr[963]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V965*/ curfptr[964])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V963*/ curfptr[962])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V965*/ curfptr[964])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V963*/ curfptr[962]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V966*/ curfptr[965])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V964*/ curfptr[963])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V966*/ curfptr[965])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V964*/ curfptr[963]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V965*/ curfptr[964]); + basilysgc_touch(/*_.VALCLO___V966*/ curfptr[965]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V966*/ curfptr[965])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V966*/ curfptr[965])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V966*/ curfptr[965]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V967*/ curfptr[966]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V967*/ curfptr[966])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V967*/ curfptr[966])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V967*/ curfptr[966]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V968*/ curfptr[967]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V966*/ curfptr[965]); + basilysgc_touch(/*_.VALDATA___V967*/ curfptr[966]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V968*/ curfptr[967])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V968*/ curfptr[967])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V968*/ curfptr[967]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V969*/ curfptr[968]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V969*/ curfptr[968])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V969*/ curfptr[968])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V969*/ curfptr[968]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V970*/ curfptr[969]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V968*/ curfptr[967]); + basilysgc_touch(/*_.VALDATA___V969*/ curfptr[968]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V970*/ curfptr[969])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V970*/ curfptr[969])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V970*/ curfptr[969]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V971*/ curfptr[970]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V971*/ curfptr[970])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V971*/ curfptr[970])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V971*/ curfptr[970]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V972*/ curfptr[971]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V970*/ curfptr[969]); + basilysgc_touch(/*_.VALDATA___V971*/ curfptr[970]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V972*/ curfptr[971])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V972*/ curfptr[971])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V973*/ curfptr[972]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V973*/ curfptr[972])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V973*/ curfptr[972])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V973*/ curfptr[972]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V974*/ curfptr[973]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V972*/ curfptr[971]); + basilysgc_touch(/*_.VALDATA___V973*/ curfptr[972]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V974*/ curfptr[973])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V974*/ curfptr[973])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V974*/ curfptr[973]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V975*/ curfptr[974]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V975*/ curfptr[974])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V975*/ curfptr[974])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V975*/ curfptr[974]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V976*/ curfptr[975]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V974*/ curfptr[973]); + basilysgc_touch(/*_.VALDATA___V975*/ curfptr[974]); BASILYS_LOCATION("warmelt-macro.bysl:1172:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V976*/ curfptr[975])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V977*/ curfptr[976])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_915__INSTALL_INITIAL_MACRO#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V976*/ curfptr[975])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + ((basilysroutine_ptr_t)/*_.VALROUT___V977*/ curfptr[976])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); BASILYS_LOCATION("warmelt-macro.bysl:1172:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V976*/ curfptr[975])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V977*/ curfptr[976])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_915__INSTALL_INITIAL_MACRO#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V976*/ curfptr[975])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + ((basilysroutine_ptr_t)/*_.VALROUT___V977*/ curfptr[976])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V977*/ curfptr[976])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V976*/ curfptr[975])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V977*/ curfptr[976])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V976*/ curfptr[975]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V978*/ curfptr[977])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V977*/ curfptr[976])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V978*/ curfptr[977])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V977*/ curfptr[976]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V977*/ curfptr[976]); + basilysgc_touch(/*_.VALCLO___V978*/ curfptr[977]); BASILYS_LOCATION("warmelt-macro.bysl:1172:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V976*/ curfptr[975])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V977*/ curfptr[976]); - ((basilysroutine_ptr_t)/*_.VALROUT___V976*/ curfptr[975])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V977*/ curfptr[976])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V978*/ curfptr[977]); + ((basilysroutine_ptr_t)/*_.VALROUT___V977*/ curfptr[976])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]); BASILYS_LOCATION("warmelt-macro.bysl:1172:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V976*/ curfptr[975])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V977*/ curfptr[976])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_915__INSTALL_INITIAL_MACRO#3", NULL != (/*_.CLASS_MACRO_BINDING__V16*/ curfptr[15])); - ((basilysroutine_ptr_t)/*_.VALROUT___V976*/ curfptr[975])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_MACRO_BINDING__V16*/ curfptr[15]); + ((basilysroutine_ptr_t)/*_.VALROUT___V977*/ curfptr[976])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_MACRO_BINDING__V16*/ curfptr[15]); BASILYS_LOCATION("warmelt-macro.bysl:1172:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V976*/ curfptr[975])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V977*/ curfptr[976])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_915__INSTALL_INITIAL_MACRO#4", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V976*/ curfptr[975])->tabval[4] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + ((basilysroutine_ptr_t)/*_.VALROUT___V977*/ curfptr[976])->tabval[4] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-macro.bysl:1172:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V976*/ curfptr[975])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V977*/ curfptr[976])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_915__INSTALL_INITIAL_MACRO#5", NULL != (/*_.INITIAL_ENVIRONMENT__V41*/ curfptr[40])); - ((basilysroutine_ptr_t)/*_.VALROUT___V976*/ curfptr[975])->tabval[5] = (basilys_ptr_t)(/*_.INITIAL_ENVIRONMENT__V41*/ curfptr[40]); + ((basilysroutine_ptr_t)/*_.VALROUT___V977*/ curfptr[976])->tabval[5] = (basilys_ptr_t)(/*_.INITIAL_ENVIRONMENT__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-macro.bysl:1172:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V976*/ curfptr[975]); + basilysgc_touch(/*_.VALROUT___V977*/ curfptr[976]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V978*/ curfptr[977])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V978*/ curfptr[977])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V978*/ curfptr[977]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V979*/ curfptr[978]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V979*/ curfptr[978])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V979*/ curfptr[978])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V979*/ curfptr[978]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V980*/ curfptr[979]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V978*/ curfptr[977]); + basilysgc_touch(/*_.VALDATA___V979*/ curfptr[978]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V980*/ curfptr[979])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V980*/ curfptr[979])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V980*/ curfptr[979]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V981*/ curfptr[980]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V982*/ curfptr[981]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V980*/ curfptr[979]); + basilysgc_touch(/*_.VALDATA___V981*/ curfptr[980]); BASILYS_LOCATION("warmelt-macro.bysl:1198:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V982*/ curfptr[981])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V983*/ curfptr[982])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_921__INSTALL_INITIAL_PATMACRO#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V982*/ curfptr[981])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + ((basilysroutine_ptr_t)/*_.VALROUT___V983*/ curfptr[982])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); BASILYS_LOCATION("warmelt-macro.bysl:1198:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V982*/ curfptr[981])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V983*/ curfptr[982])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_921__INSTALL_INITIAL_PATMACRO#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V982*/ curfptr[981])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + ((basilysroutine_ptr_t)/*_.VALROUT___V983*/ curfptr[982])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); BASILYS_LOCATION("warmelt-macro.bysl:1198:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V982*/ curfptr[981])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V983*/ curfptr[982])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_921__INSTALL_INITIAL_PATMACRO#2", NULL != (/*_.CLASS_PATMACRO_BINDING__V34*/ curfptr[33])); - ((basilysroutine_ptr_t)/*_.VALROUT___V982*/ curfptr[981])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_PATMACRO_BINDING__V34*/ curfptr[33]); + ((basilysroutine_ptr_t)/*_.VALROUT___V983*/ curfptr[982])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_PATMACRO_BINDING__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-macro.bysl:1198:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V982*/ curfptr[981])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V983*/ curfptr[982])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_921__INSTALL_INITIAL_PATMACRO#3", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V982*/ curfptr[981])->tabval[3] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + ((basilysroutine_ptr_t)/*_.VALROUT___V983*/ curfptr[982])->tabval[3] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-macro.bysl:1198:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V982*/ curfptr[981])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V983*/ curfptr[982])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_921__INSTALL_INITIAL_PATMACRO#4", NULL != (/*_.INITIAL_ENVIRONMENT__V41*/ curfptr[40])); - ((basilysroutine_ptr_t)/*_.VALROUT___V982*/ curfptr[981])->tabval[4] = (basilys_ptr_t)(/*_.INITIAL_ENVIRONMENT__V41*/ curfptr[40]); + ((basilysroutine_ptr_t)/*_.VALROUT___V983*/ curfptr[982])->tabval[4] = (basilys_ptr_t)(/*_.INITIAL_ENVIRONMENT__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-macro.bysl:1198:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V982*/ curfptr[981]); + basilysgc_touch(/*_.VALROUT___V983*/ curfptr[982]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V983*/ curfptr[982])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V982*/ curfptr[981])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V983*/ curfptr[982])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V982*/ curfptr[981]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V984*/ curfptr[983])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V983*/ curfptr[982])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V984*/ curfptr[983])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V983*/ curfptr[982]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V983*/ curfptr[982]); + basilysgc_touch(/*_.VALCLO___V984*/ curfptr[983]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V984*/ curfptr[983])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V984*/ curfptr[983])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V984*/ curfptr[983]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V985*/ curfptr[984]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V985*/ curfptr[984])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V985*/ curfptr[984])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V985*/ curfptr[984]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V986*/ curfptr[985]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V984*/ curfptr[983]); + basilysgc_touch(/*_.VALDATA___V985*/ curfptr[984]); BASILYS_LOCATION("warmelt-macro.bysl:1216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V986*/ curfptr[985])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V986*/ curfptr[985])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V986*/ curfptr[985]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V987*/ curfptr[986]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V987*/ curfptr[986])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V987*/ curfptr[986])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V987*/ curfptr[986]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V988*/ curfptr[987]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V988*/ curfptr[987]); + basilysgc_touch(/*_.VALTUP___V989*/ curfptr[988]); BASILYS_LOCATION("warmelt-macro.bysl:1216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V986*/ curfptr[985])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V986*/ curfptr[985])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V986*/ curfptr[985]))->obj_vartab[2] = (basilys_ptr_t)( - /*_.VALTUP___V988*/ curfptr[987]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V987*/ curfptr[986])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V987*/ curfptr[986])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V987*/ curfptr[986]))->obj_vartab[2] = (basilys_ptr_t)( + /*_.VALTUP___V989*/ curfptr[988]); BASILYS_LOCATION("warmelt-macro.bysl:1216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V986*/ curfptr[985])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V986*/ curfptr[985])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V986*/ curfptr[985]))->obj_vartab[3] = (basilys_ptr_t)( + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V987*/ curfptr[986])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V987*/ curfptr[986])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V987*/ curfptr[986]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_LONG)))); /*putupl*/ - basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V990*/ curfptr[989]))== OBMAG_MULTIPLE); - basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V990*/ curfptr[989])))); - ((basilysmultiple_ptr_t)(/*_.VALTUP___V990*/ curfptr[989]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V989*/ curfptr[988]); + basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V991*/ curfptr[990]))== OBMAG_MULTIPLE); + basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V991*/ curfptr[990])))); + ((basilysmultiple_ptr_t)(/*_.VALTUP___V991*/ curfptr[990]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V990*/ curfptr[989]); /*touch:INITUP_*/ - basilysgc_touch(/*_.VALTUP___V990*/ curfptr[989]); + basilysgc_touch(/*_.VALTUP___V991*/ curfptr[990]); BASILYS_LOCATION("warmelt-macro.bysl:1216:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V986*/ curfptr[985])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V986*/ curfptr[985])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V986*/ curfptr[985]))->obj_vartab[4] = (basilys_ptr_t)( - /*_.VALTUP___V990*/ curfptr[989]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V987*/ curfptr[986])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V987*/ curfptr[986])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V987*/ curfptr[986]))->obj_vartab[4] = (basilys_ptr_t)( + /*_.VALTUP___V991*/ curfptr[990]); BASILYS_LOCATION("warmelt-macro.bysl:1216:/ touch"); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V986*/ curfptr[985]); + basilysgc_touch(/*_.VALDATA___V987*/ curfptr[986]); BASILYS_LOCATION("warmelt-macro.bysl:1220:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V991*/ curfptr[990])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V992*/ curfptr[991])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_930__WARN_IF_REDEFINED#0", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V991*/ curfptr[990])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + ((basilysroutine_ptr_t)/*_.VALROUT___V992*/ curfptr[991])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); BASILYS_LOCATION("warmelt-macro.bysl:1220:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V991*/ curfptr[990])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V992*/ curfptr[991])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_930__WARN_IF_REDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V991*/ curfptr[990])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + ((basilysroutine_ptr_t)/*_.VALROUT___V992*/ curfptr[991])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:1220:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V991*/ curfptr[990])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V992*/ curfptr[991])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_930__WARN_IF_REDEFINED#2", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); - ((basilysroutine_ptr_t)/*_.VALROUT___V991*/ curfptr[990])->tabval[2] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); + ((basilysroutine_ptr_t)/*_.VALROUT___V992*/ curfptr[991])->tabval[2] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-macro.bysl:1220:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V991*/ curfptr[990]); + basilysgc_touch(/*_.VALROUT___V992*/ curfptr[991]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V992*/ curfptr[991])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V991*/ curfptr[990])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V992*/ curfptr[991])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V991*/ curfptr[990]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V993*/ curfptr[992])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V992*/ curfptr[991])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V993*/ curfptr[992])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V992*/ curfptr[991]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V992*/ curfptr[991]); + basilysgc_touch(/*_.VALCLO___V993*/ curfptr[992]); - BASILYS_LOCATION("warmelt-macro.bysl:1232:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V993*/ curfptr[992])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_932__PARSE_PAIRLIST_C_CODE_EXPANSION#0", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V993*/ curfptr[992])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V994*/ curfptr[993])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_932__FLATTEN_FOR_C_CODE_EXPANSION#0", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V994*/ curfptr[993])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:1232:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V993*/ curfptr[992])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_932__PARSE_PAIRLIST_C_CODE_EXPANSION#1", NULL != (/*_.DISCR_STRING__V42*/ curfptr[41])); - ((basilysroutine_ptr_t)/*_.VALROUT___V993*/ curfptr[992])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_STRING__V42*/ curfptr[41]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V994*/ curfptr[993])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_932__FLATTEN_FOR_C_CODE_EXPANSION#1", NULL != (/*_.DISCR_VERBATIMSTRING__V42*/ curfptr[41])); + ((basilysroutine_ptr_t)/*_.VALROUT___V994*/ curfptr[993])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V42*/ curfptr[41]); - BASILYS_LOCATION("warmelt-macro.bysl:1232:/ putroutconst"); - /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V993*/ curfptr[992])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_932__PARSE_PAIRLIST_C_CODE_EXPANSION#2", NULL != (/*_.DISCR_VERBATIMSTRING__V43*/ curfptr[42])); - ((basilysroutine_ptr_t)/*_.VALROUT___V993*/ curfptr[992])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V43*/ curfptr[42]); + /*putclosurout*/ + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V995*/ curfptr[994])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V994*/ curfptr[993])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V995*/ curfptr[994])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V994*/ curfptr[993]); + + /*touch:DATACLOSURE_*/ + basilysgc_touch(/*_.VALCLO___V995*/ curfptr[994]); + + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ putroutconstnotnull"); + /*putroutconstnotnull*/ + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V994*/ curfptr[993])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V995*/ curfptr[994]); + ((basilysroutine_ptr_t)/*_.VALROUT___V994*/ curfptr[993])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V995*/ curfptr[994]); - BASILYS_LOCATION("warmelt-macro.bysl:1232:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V993*/ curfptr[992])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_932__PARSE_PAIRLIST_C_CODE_EXPANSION#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V993*/ curfptr[992])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V994*/ curfptr[993])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_932__FLATTEN_FOR_C_CODE_EXPANSION#3", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V994*/ curfptr[993])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:1232:/ touch"); - /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V993*/ curfptr[992]); + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V994*/ curfptr[993])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_932__FLATTEN_FOR_C_CODE_EXPANSION#4", NULL != (/*_.CLASS_LOCATED__V43*/ curfptr[42])); + ((basilysroutine_ptr_t)/*_.VALROUT___V994*/ curfptr[993])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_LOCATED__V43*/ curfptr[42]); - /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V994*/ curfptr[993])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V993*/ curfptr[992])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V994*/ curfptr[993])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V993*/ curfptr[992]); + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V994*/ curfptr[993])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_932__FLATTEN_FOR_C_CODE_EXPANSION#5", NULL != (/*_.CLASS_NAMED__V33*/ curfptr[32])); + ((basilysroutine_ptr_t)/*_.VALROUT___V994*/ curfptr[993])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NAMED__V33*/ curfptr[32]); - /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V994*/ curfptr[993]); + BASILYS_LOCATION("warmelt-macro.bysl:1233:/ touch"); + /*touch:IROUTVAL_*/ + basilysgc_touch(/*_.VALROUT___V994*/ curfptr[993]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V995*/ curfptr[994]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V996*/ curfptr[995]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V996*/ curfptr[995])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V996*/ curfptr[995])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V996*/ curfptr[995]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V997*/ curfptr[996]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V995*/ curfptr[994]); + basilysgc_touch(/*_.VALDATA___V996*/ curfptr[995]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V997*/ curfptr[996])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V997*/ curfptr[996])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V997*/ curfptr[996]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V998*/ curfptr[997]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V998*/ curfptr[997])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V998*/ curfptr[997])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V998*/ curfptr[997]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V999*/ curfptr[998]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V997*/ curfptr[996]); + basilysgc_touch(/*_.VALDATA___V998*/ curfptr[997]); - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1279:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_938__MEXPAND_DEFPRIMITIVE#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V999*/ curfptr[998])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1000*/ curfptr[999])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_938__PARSE_PAIRLIST_C_CODE_EXPANSION#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1000*/ curfptr[999])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1279:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_938__MEXPAND_DEFPRIMITIVE#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V999*/ curfptr[998])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1000*/ curfptr[999])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_938__PARSE_PAIRLIST_C_CODE_EXPANSION#1", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1000*/ curfptr[999])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); + + BASILYS_LOCATION("warmelt-macro.bysl:1279:/ putroutconstnotnull"); + /*putroutconstnotnull*/ + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1000*/ curfptr[999])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V995*/ curfptr[994]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1000*/ curfptr[999])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V995*/ curfptr[994]); - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1279:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_938__MEXPAND_DEFPRIMITIVE#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V999*/ curfptr[998])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1000*/ curfptr[999])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_938__PARSE_PAIRLIST_C_CODE_EXPANSION#3", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1000*/ curfptr[999])->tabval[3] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1279:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_938__MEXPAND_DEFPRIMITIVE#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V999*/ curfptr[998])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1000*/ curfptr[999])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_938__PARSE_PAIRLIST_C_CODE_EXPANSION#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1000*/ curfptr[999])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ putroutconstnotnull"); - /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V866*/ curfptr[865]); - ((basilysroutine_ptr_t)/*_.VALROUT___V999*/ curfptr[998])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V866*/ curfptr[865]); + BASILYS_LOCATION("warmelt-macro.bysl:1279:/ touch"); + /*touch:IROUTVAL_*/ + basilysgc_touch(/*_.VALROUT___V1000*/ curfptr[999]); - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ putroutconst"); - /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_938__MEXPAND_DEFPRIMITIVE#5", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V999*/ curfptr[998])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + /*putclosurout*/ + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1001*/ curfptr[1000])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1000*/ curfptr[999])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1001*/ curfptr[1000])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1000*/ curfptr[999]); - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ putroutconst"); - /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_938__MEXPAND_DEFPRIMITIVE#6", NULL != (/*_.CLASS_CTYPE__V39*/ curfptr[38])); - ((basilysroutine_ptr_t)/*_.VALROUT___V999*/ curfptr[998])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V39*/ curfptr[38]); + /*touch:DATACLOSURE_*/ + basilysgc_touch(/*_.VALCLO___V1001*/ curfptr[1000]); - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ putroutconstnotnull"); - /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V994*/ curfptr[993]); - ((basilysroutine_ptr_t)/*_.VALROUT___V999*/ curfptr[998])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V994*/ curfptr[993]); + /*putslot*/ + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1003*/ curfptr[1002]); - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ putroutconstnotnull"); - /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V278*/ curfptr[277]); - ((basilysroutine_ptr_t)/*_.VALROUT___V999*/ curfptr[998])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); + /*touch:VALUEDATA_*/ + basilysgc_touch(/*_.VALDATA___V1002*/ curfptr[1001]); - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1300:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_938__MEXPAND_DEFPRIMITIVE#9", NULL != (/*_.CLASS_PRIMITIVE__V23*/ curfptr[22])); - ((basilysroutine_ptr_t)/*_.VALROUT___V999*/ curfptr[998])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE__V23*/ curfptr[22]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1004*/ curfptr[1003])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_942__CHECK_C_EXPANSION#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1004*/ curfptr[1003])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1300:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_938__MEXPAND_DEFPRIMITIVE#10", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V18*/ curfptr[17])); - ((basilysroutine_ptr_t)/*_.VALROUT___V999*/ curfptr[998])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V18*/ curfptr[17]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1004*/ curfptr[1003])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_942__CHECK_C_EXPANSION#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1004*/ curfptr[1003])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ putroutconstnotnull"); - /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V992*/ curfptr[991]); - ((basilysroutine_ptr_t)/*_.VALROUT___V999*/ curfptr[998])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V992*/ curfptr[991]); - - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1300:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_938__MEXPAND_DEFPRIMITIVE#12", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V999*/ curfptr[998])->tabval[12] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1004*/ curfptr[1003])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_942__CHECK_C_EXPANSION#2", NULL != (/*_.CLASS_NAMED__V33*/ curfptr[32])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1004*/ curfptr[1003])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NAMED__V33*/ curfptr[32]); - BASILYS_LOCATION("warmelt-macro.bysl:1256:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:1300:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V999*/ curfptr[998]); + basilysgc_touch(/*_.VALROUT___V1004*/ curfptr[1003]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1000*/ curfptr[999])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V999*/ curfptr[998])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1000*/ curfptr[999])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V999*/ curfptr[998]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1005*/ curfptr[1004])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1004*/ curfptr[1003])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1005*/ curfptr[1004])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1004*/ curfptr[1003]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1000*/ curfptr[999]); + basilysgc_touch(/*_.VALCLO___V1005*/ curfptr[1004]); - /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1002*/ curfptr[1001]); + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_944__MEXPAND_DEFPRIMITIVE#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1001*/ curfptr[1000]); + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_944__MEXPAND_DEFPRIMITIVE#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_942__MEXPAND_DEFCITERATOR#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1003*/ curfptr[1002])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_944__MEXPAND_DEFPRIMITIVE#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_942__MEXPAND_DEFCITERATOR#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1003*/ curfptr[1002])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_944__MEXPAND_DEFPRIMITIVE#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconstnotnull"); + /*putroutconstnotnull*/ + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V867*/ curfptr[866]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V867*/ curfptr[866]); BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_942__MEXPAND_DEFCITERATOR#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1003*/ curfptr[1002])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_944__MEXPAND_DEFPRIMITIVE#5", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_942__MEXPAND_DEFCITERATOR#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1003*/ curfptr[1002])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_944__MEXPAND_DEFPRIMITIVE#6", NULL != (/*_.CLASS_CTYPE__V39*/ curfptr[38])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V866*/ curfptr[865]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1003*/ curfptr[1002])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V866*/ curfptr[865]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1001*/ curfptr[1000]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V1001*/ curfptr[1000]); + + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_944__MEXPAND_DEFPRIMITIVE#8", NULL != (/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V994*/ curfptr[993]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1003*/ curfptr[1002])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V994*/ curfptr[993]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V279*/ curfptr[278]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V279*/ curfptr[278]); + + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_944__MEXPAND_DEFPRIMITIVE#10", NULL != (/*_.CLASS_PRIMITIVE__V23*/ curfptr[22])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE__V23*/ curfptr[22]); + + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_944__MEXPAND_DEFPRIMITIVE#11", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V18*/ curfptr[17])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_942__MEXPAND_DEFCITERATOR#6", NULL != (/*_.CLASS_CITERATOR__V13*/ curfptr[12])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1003*/ curfptr[1002])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CITERATOR__V13*/ curfptr[12]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_944__MEXPAND_DEFPRIMITIVE#12", NULL != (/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_942__MEXPAND_DEFCITERATOR#7", NULL != (/*_.CLASS_CITERATOR_BINDING__V19*/ curfptr[18])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1003*/ curfptr[1002])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CITERATOR_BINDING__V19*/ curfptr[18]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_944__MEXPAND_DEFPRIMITIVE#13", NULL != (/*_.CLASS_ANY_BINDING__V45*/ curfptr[44])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V45*/ curfptr[44]); + + BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconstnotnull"); + /*putroutconstnotnull*/ + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1005*/ curfptr[1004]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[14] = (basilys_ptr_t)(/*_.VALCLO___V1005*/ curfptr[1004]); BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V292*/ curfptr[291]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1003*/ curfptr[1002])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V993*/ curfptr[992]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[15] = (basilys_ptr_t)(/*_.VALCLO___V993*/ curfptr[992]); BASILYS_LOCATION("warmelt-macro.bysl:1326:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_942__MEXPAND_DEFCITERATOR#9", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1003*/ curfptr[1002])->tabval[9] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_944__MEXPAND_DEFPRIMITIVE#16", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[16] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-macro.bysl:1326:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1003*/ curfptr[1002]); + basilysgc_touch(/*_.VALROUT___V1006*/ curfptr[1005]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1004*/ curfptr[1003])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1004*/ curfptr[1003])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1003*/ curfptr[1002]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1007*/ curfptr[1006])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1007*/ curfptr[1006])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1006*/ curfptr[1005]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1004*/ curfptr[1003]); + basilysgc_touch(/*_.VALCLO___V1007*/ curfptr[1006]); + + /*putslot*/ + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1008*/ curfptr[1007])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1008*/ curfptr[1007])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1008*/ curfptr[1007]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1009*/ curfptr[1008]); + + /*touch:VALUEDATA_*/ + basilysgc_touch(/*_.VALDATA___V1008*/ curfptr[1007]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1005*/ curfptr[1004])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1005*/ curfptr[1004])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1005*/ curfptr[1004]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1006*/ curfptr[1005]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1011*/ curfptr[1010]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1005*/ curfptr[1004]); + basilysgc_touch(/*_.VALDATA___V1010*/ curfptr[1009]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_946__MEXPAND_DEFCMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_950__MEXPAND_DEFCITERATOR#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_946__MEXPAND_DEFCMATCHER#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_950__MEXPAND_DEFCITERATOR#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_946__MEXPAND_DEFCMATCHER#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_950__MEXPAND_DEFCITERATOR#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_946__MEXPAND_DEFCMATCHER#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_950__MEXPAND_DEFCITERATOR#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V866*/ curfptr[865]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V866*/ curfptr[865]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V867*/ curfptr[866]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V867*/ curfptr[866]); + + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconstnotnull"); + /*putroutconstnotnull*/ + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1001*/ curfptr[1000]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1001*/ curfptr[1000]); + + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_950__MEXPAND_DEFCITERATOR#6", NULL != (/*_.CLASS_CITERATOR__V13*/ curfptr[12])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CITERATOR__V13*/ curfptr[12]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_946__MEXPAND_DEFCMATCHER#5", NULL != (/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_950__MEXPAND_DEFCITERATOR#7", NULL != (/*_.CLASS_CITERATOR_BINDING__V19*/ curfptr[18])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CITERATOR_BINDING__V19*/ curfptr[18]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconstnotnull"); + /*putroutconstnotnull*/ + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V293*/ curfptr[292]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V293*/ curfptr[292]); + + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_946__MEXPAND_DEFCMATCHER#6", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_950__MEXPAND_DEFCITERATOR#9", NULL != (/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_946__MEXPAND_DEFCMATCHER#7", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[7] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_950__MEXPAND_DEFCITERATOR#10", NULL != (/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_946__MEXPAND_DEFCMATCHER#8", NULL != (/*_.VALROUT___V1008*/ curfptr[1007])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V1008*/ curfptr[1007]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_950__MEXPAND_DEFCITERATOR#11", NULL != (/*_.CLASS_ANY_BINDING__V45*/ curfptr[44])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V45*/ curfptr[44]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V994*/ curfptr[993]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V994*/ curfptr[993]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1005*/ curfptr[1004]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V1005*/ curfptr[1004]); + + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_950__MEXPAND_DEFCITERATOR#13", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1012*/ curfptr[1011])->tabval[13] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + + BASILYS_LOCATION("warmelt-macro.bysl:1408:/ touch"); + /*touch:IROUTVAL_*/ + basilysgc_touch(/*_.VALROUT___V1012*/ curfptr[1011]); + + /*putclosurout*/ + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1013*/ curfptr[1012])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1012*/ curfptr[1011])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1013*/ curfptr[1012])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1012*/ curfptr[1011]); + + /*touch:DATACLOSURE_*/ + basilysgc_touch(/*_.VALCLO___V1013*/ curfptr[1012]); + + /*putslot*/ + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1014*/ curfptr[1013])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1014*/ curfptr[1013])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1014*/ curfptr[1013]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1015*/ curfptr[1014]); + + /*touch:VALUEDATA_*/ + basilysgc_touch(/*_.VALDATA___V1014*/ curfptr[1013]); + + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_954__MEXPAND_DEFCMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_954__MEXPAND_DEFCMATCHER#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_946__MEXPAND_DEFCMATCHER#10", NULL != (/*_.CLASS_CMATCHER__V14*/ curfptr[13])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_CMATCHER__V14*/ curfptr[13]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_954__MEXPAND_DEFCMATCHER#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_954__MEXPAND_DEFCMATCHER#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V302*/ curfptr[301]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V867*/ curfptr[866]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V867*/ curfptr[866]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_946__MEXPAND_DEFCMATCHER#12", NULL != (/*_.CLASS_CMATCHER_BINDING__V20*/ curfptr[19])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V20*/ curfptr[19]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_954__MEXPAND_DEFCMATCHER#5", NULL != (/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_946__MEXPAND_DEFCMATCHER#13", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[13] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_954__MEXPAND_DEFCMATCHER#6", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:1409:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_954__MEXPAND_DEFCMATCHER#7", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[7] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); + + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_954__MEXPAND_DEFCMATCHER#8", NULL != (/*_.VALROUT___V1017*/ curfptr[1016])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016]); + + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconstnotnull"); + /*putroutconstnotnull*/ + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1001*/ curfptr[1000]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V1001*/ curfptr[1000]); + + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_954__MEXPAND_DEFCMATCHER#10", NULL != (/*_.CLASS_CMATCHER__V14*/ curfptr[13])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_CMATCHER__V14*/ curfptr[13]); + + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconstnotnull"); + /*putroutconstnotnull*/ + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V303*/ curfptr[302]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V303*/ curfptr[302]); + + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_954__MEXPAND_DEFCMATCHER#12", NULL != (/*_.CLASS_CMATCHER_BINDING__V20*/ curfptr[19])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V20*/ curfptr[19]); + + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_954__MEXPAND_DEFCMATCHER#13", NULL != (/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[13] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36]); + + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_954__MEXPAND_DEFCMATCHER#14", NULL != (/*_.CLASS_ANY_BINDING__V45*/ curfptr[44])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V45*/ curfptr[44]); + + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconstnotnull"); + /*putroutconstnotnull*/ + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1005*/ curfptr[1004]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[15] = (basilys_ptr_t)(/*_.VALCLO___V1005*/ curfptr[1004]); + + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ putroutconst"); + /*putroutconst*/ + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_954__MEXPAND_DEFCMATCHER#16", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1016*/ curfptr[1015])->tabval[16] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + + BASILYS_LOCATION("warmelt-macro.bysl:1515:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1007*/ curfptr[1006]); + basilysgc_touch(/*_.VALROUT___V1016*/ curfptr[1015]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1009*/ curfptr[1008])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1009*/ curfptr[1008])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1007*/ curfptr[1006]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1018*/ curfptr[1017])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1016*/ curfptr[1015])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1018*/ curfptr[1017])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1016*/ curfptr[1015]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1009*/ curfptr[1008]); + basilysgc_touch(/*_.VALCLO___V1018*/ curfptr[1017]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1011*/ curfptr[1010]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1020*/ curfptr[1019]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1010*/ curfptr[1009]); + basilysgc_touch(/*_.VALDATA___V1019*/ curfptr[1018]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1012*/ curfptr[1011])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1012*/ curfptr[1011])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1012*/ curfptr[1011]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1013*/ curfptr[1012]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1022*/ curfptr[1021]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1012*/ curfptr[1011]); + basilysgc_touch(/*_.VALDATA___V1021*/ curfptr[1020]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ 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_953__MEXPAND_DEFUNMATCHER#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_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_961__MEXPAND_DEFUNMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1023*/ curfptr[1022])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ 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_953__MEXPAND_DEFUNMATCHER#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_961__MEXPAND_DEFUNMATCHER#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1023*/ curfptr[1022])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ 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_953__MEXPAND_DEFUNMATCHER#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_961__MEXPAND_DEFUNMATCHER#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1023*/ curfptr[1022])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ 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_953__MEXPAND_DEFUNMATCHER#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_961__MEXPAND_DEFUNMATCHER#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1023*/ curfptr[1022])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1014*/ curfptr[1013])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V866*/ curfptr[865]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V866*/ curfptr[865]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V867*/ curfptr[866]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1023*/ curfptr[1022])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V867*/ curfptr[866]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ 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_953__MEXPAND_DEFUNMATCHER#5", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_961__MEXPAND_DEFUNMATCHER#5", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1023*/ curfptr[1022])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ 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_953__MEXPAND_DEFUNMATCHER#6", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[6] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_961__MEXPAND_DEFUNMATCHER#6", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1023*/ curfptr[1022])->tabval[6] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ 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_953__MEXPAND_DEFUNMATCHER#7", NULL != (/*_.VALROUT___V1015*/ curfptr[1014])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1015*/ curfptr[1014]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_961__MEXPAND_DEFUNMATCHER#7", NULL != (/*_.VALROUT___V1024*/ curfptr[1023])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1023*/ curfptr[1022])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1024*/ curfptr[1023]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1014*/ curfptr[1013])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1023*/ curfptr[1022])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1014*/ curfptr[1013])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V312*/ curfptr[311]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V312*/ curfptr[311]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V313*/ curfptr[312]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1023*/ curfptr[1022])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V313*/ curfptr[312]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ 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_953__MEXPAND_DEFUNMATCHER#10", NULL != (/*_.CLASS_FUNMATCHER__V25*/ curfptr[24])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_FUNMATCHER__V25*/ curfptr[24]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_961__MEXPAND_DEFUNMATCHER#10", NULL != (/*_.CLASS_FUNMATCHER__V25*/ curfptr[24])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1023*/ curfptr[1022])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_FUNMATCHER__V25*/ curfptr[24]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ 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_953__MEXPAND_DEFUNMATCHER#11", NULL != (/*_.CLASS_FUNMATCHER_BINDING__V21*/ curfptr[20])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V21*/ curfptr[20]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_961__MEXPAND_DEFUNMATCHER#11", NULL != (/*_.CLASS_FUNMATCHER_BINDING__V21*/ curfptr[20])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1023*/ curfptr[1022])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V21*/ curfptr[20]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ 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_953__MEXPAND_DEFUNMATCHER#12", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[12] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_961__MEXPAND_DEFUNMATCHER#12", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1023*/ curfptr[1022])->tabval[12] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:1544:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:1672:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1014*/ curfptr[1013]); + basilysgc_touch(/*_.VALROUT___V1023*/ curfptr[1022]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1016*/ curfptr[1015])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1014*/ curfptr[1013])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1016*/ curfptr[1015])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1014*/ curfptr[1013]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1025*/ curfptr[1024])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1023*/ curfptr[1022])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1025*/ curfptr[1024])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1023*/ curfptr[1022]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1016*/ curfptr[1015]); + basilysgc_touch(/*_.VALCLO___V1025*/ curfptr[1024]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1017*/ curfptr[1016])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1017*/ curfptr[1016])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1017*/ curfptr[1016]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1018*/ curfptr[1017]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1026*/ curfptr[1025])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1026*/ curfptr[1025])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1026*/ curfptr[1025]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1027*/ curfptr[1026]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1017*/ curfptr[1016]); + basilysgc_touch(/*_.VALDATA___V1026*/ curfptr[1025]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__MEXPAND_DEFUN#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__MEXPAND_DEFUN#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__MEXPAND_DEFUN#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__MEXPAND_DEFUN#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__MEXPAND_DEFUN#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__MEXPAND_DEFUN#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__MEXPAND_DEFUN#3", NULL != (/*_.FRESH_ENV__V45*/ curfptr[44])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[3] = (basilys_ptr_t)(/*_.FRESH_ENV__V45*/ curfptr[44]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__MEXPAND_DEFUN#3", NULL != (/*_.FRESH_ENV__V47*/ curfptr[46])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[3] = (basilys_ptr_t)(/*_.FRESH_ENV__V47*/ curfptr[46]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__MEXPAND_DEFUN#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__MEXPAND_DEFUN#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__MEXPAND_DEFUN#5", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__MEXPAND_DEFUN#5", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V866*/ curfptr[865]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V866*/ curfptr[865]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V867*/ curfptr[866]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V867*/ curfptr[866]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__MEXPAND_DEFUN#7", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[7] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__MEXPAND_DEFUN#7", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[7] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__MEXPAND_DEFUN#8", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[8] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__MEXPAND_DEFUN#8", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[8] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:1693:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1821:/ 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_962__LAMBDA_#0", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1020*/ curfptr[1019])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + 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_970__LAMBDA_#0", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1029*/ curfptr[1028])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:1693:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:1821:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1020*/ curfptr[1019]); + basilysgc_touch(/*_.VALROUT___V1029*/ curfptr[1028]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__MEXPAND_DEFUN#9", NULL != (/*_.VALROUT___V1020*/ curfptr[1019])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1020*/ curfptr[1019]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__MEXPAND_DEFUN#9", NULL != (/*_.VALROUT___V1029*/ curfptr[1028])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1029*/ curfptr[1028]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V859*/ curfptr[858]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V859*/ curfptr[858]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V860*/ curfptr[859]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V860*/ curfptr[859]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V268*/ curfptr[267]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V269*/ curfptr[268]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V269*/ curfptr[268]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__MEXPAND_DEFUN#12", NULL != (/*_.CLASS_FUNCTION_BINDING__V46*/ curfptr[45])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_FUNCTION_BINDING__V46*/ curfptr[45]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__MEXPAND_DEFUN#12", NULL != (/*_.CLASS_FUNCTION_BINDING__V48*/ curfptr[47])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_FUNCTION_BINDING__V48*/ curfptr[47]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V992*/ curfptr[991]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V992*/ curfptr[991]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V993*/ curfptr[992]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V993*/ curfptr[992]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__MEXPAND_DEFUN#14", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1019*/ curfptr[1018])->tabval[14] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__MEXPAND_DEFUN#14", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1028*/ curfptr[1027])->tabval[14] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:1663:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:1791:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1019*/ curfptr[1018]); + basilysgc_touch(/*_.VALROUT___V1028*/ curfptr[1027]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1021*/ curfptr[1020])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1019*/ curfptr[1018])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1021*/ curfptr[1020])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1019*/ curfptr[1018]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1030*/ curfptr[1029])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1028*/ curfptr[1027])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1030*/ curfptr[1029])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1028*/ curfptr[1027]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1021*/ curfptr[1020]); + basilysgc_touch(/*_.VALCLO___V1030*/ curfptr[1029]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1022*/ curfptr[1021])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1022*/ curfptr[1021])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1022*/ curfptr[1021]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1023*/ curfptr[1022]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1032*/ curfptr[1031]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1022*/ curfptr[1021]); + basilysgc_touch(/*_.VALDATA___V1031*/ curfptr[1030]); /*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])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1025*/ curfptr[1024]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1033*/ curfptr[1032])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1033*/ curfptr[1032])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1033*/ curfptr[1032]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1034*/ curfptr[1033]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1024*/ curfptr[1023]); + basilysgc_touch(/*_.VALDATA___V1033*/ curfptr[1032]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_965__SCAN_DEFCLASS#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_973__SCAN_DEFCLASS#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_965__SCAN_DEFCLASS#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_973__SCAN_DEFCLASS#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_965__SCAN_DEFCLASS#2", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_973__SCAN_DEFCLASS#2", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1028*/ curfptr[1027]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1037*/ curfptr[1036]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1027*/ curfptr[1026]); + basilysgc_touch(/*_.VALDATA___V1036*/ curfptr[1035]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_965__SCAN_DEFCLASS#3", NULL != (/*_.VALDATA___V1027*/ curfptr[1026])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_973__SCAN_DEFCLASS#3", NULL != (/*_.VALDATA___V1036*/ curfptr[1035])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_965__SCAN_DEFCLASS#4", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_973__SCAN_DEFCLASS#4", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_965__SCAN_DEFCLASS#5", NULL != (/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_973__SCAN_DEFCLASS#5", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_965__SCAN_DEFCLASS#6", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_973__SCAN_DEFCLASS#6", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_965__SCAN_DEFCLASS#7", NULL != (/*_.CLASS_CLASS__V48*/ curfptr[47])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CLASS__V48*/ curfptr[47]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_973__SCAN_DEFCLASS#7", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1029*/ curfptr[1028])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1029*/ curfptr[1028])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1029*/ curfptr[1028]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1030*/ curfptr[1029]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1039*/ curfptr[1038]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1029*/ curfptr[1028]); + basilysgc_touch(/*_.VALDATA___V1038*/ curfptr[1037]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_965__SCAN_DEFCLASS#8", NULL != (/*_.VALDATA___V1029*/ curfptr[1028])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V1029*/ curfptr[1028]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_973__SCAN_DEFCLASS#8", NULL != (/*_.VALDATA___V1038*/ curfptr[1037])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_965__SCAN_DEFCLASS#9", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_973__SCAN_DEFCLASS#9", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_965__SCAN_DEFCLASS#10", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_973__SCAN_DEFCLASS#10", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1032*/ curfptr[1031]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1041*/ curfptr[1040]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1031*/ curfptr[1030]); + basilysgc_touch(/*_.VALDATA___V1040*/ curfptr[1039]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_965__SCAN_DEFCLASS#11", NULL != (/*_.VALDATA___V1031*/ curfptr[1030])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_973__SCAN_DEFCLASS#11", NULL != (/*_.VALDATA___V1040*/ curfptr[1039])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1033*/ curfptr[1032])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1033*/ curfptr[1032])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1033*/ curfptr[1032]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1034*/ curfptr[1033]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1043*/ curfptr[1042]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1033*/ curfptr[1032]); + basilysgc_touch(/*_.VALDATA___V1042*/ curfptr[1041]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_965__SCAN_DEFCLASS#13", NULL != (/*_.VALDATA___V1033*/ curfptr[1032])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V1033*/ curfptr[1032]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_973__SCAN_DEFCLASS#13", NULL != (/*_.VALDATA___V1042*/ curfptr[1041])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V992*/ curfptr[991]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[14] = (basilys_ptr_t)(/*_.VALCLO___V992*/ curfptr[991]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V993*/ curfptr[992]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1035*/ curfptr[1034])->tabval[14] = (basilys_ptr_t)(/*_.VALCLO___V993*/ curfptr[992]); - BASILYS_LOCATION("warmelt-macro.bysl:1720:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:1848:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1026*/ curfptr[1025]); + basilysgc_touch(/*_.VALROUT___V1035*/ curfptr[1034]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1035*/ curfptr[1034])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1035*/ curfptr[1034])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1026*/ curfptr[1025]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1044*/ curfptr[1043])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1035*/ curfptr[1034])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1044*/ curfptr[1043])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1035*/ curfptr[1034]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1035*/ curfptr[1034]); + basilysgc_touch(/*_.VALCLO___V1044*/ curfptr[1043]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1037*/ curfptr[1036]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1045*/ curfptr[1044])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1045*/ curfptr[1044])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1045*/ curfptr[1044]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1046*/ curfptr[1045]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1036*/ curfptr[1035]); + basilysgc_touch(/*_.VALDATA___V1045*/ curfptr[1044]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1039*/ curfptr[1038]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1047*/ curfptr[1046])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1047*/ curfptr[1046])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1047*/ curfptr[1046]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1048*/ curfptr[1047]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1038*/ curfptr[1037]); + basilysgc_touch(/*_.VALDATA___V1047*/ curfptr[1046]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_987__MEXPAND_DEFCLASS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_987__MEXPAND_DEFCLASS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + 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_987__MEXPAND_DEFCLASS#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1035*/ curfptr[1034]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1035*/ curfptr[1034]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1044*/ curfptr[1043]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1044*/ curfptr[1043]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + 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_987__MEXPAND_DEFCLASS#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#5", NULL != (/*_.DISCR_SEQCLASS__V49*/ curfptr[48])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_SEQCLASS__V49*/ curfptr[48]); + 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_987__MEXPAND_DEFCLASS#5", NULL != (/*_.DISCR_SEQCLASS__V51*/ curfptr[50])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_SEQCLASS__V51*/ curfptr[50]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#6", NULL != (/*_.CLASS_CLASS__V48*/ curfptr[47])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS__V48*/ curfptr[47]); + 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_987__MEXPAND_DEFCLASS#6", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#7", NULL != (/*_.DISCR_INTEGER__V50*/ curfptr[49])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V50*/ curfptr[49]); + 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_987__MEXPAND_DEFCLASS#7", NULL != (/*_.DISCR_INTEGER__V52*/ curfptr[51])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V52*/ curfptr[51]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#8", NULL != (/*_.DISCR_MAPSTRINGS__V51*/ curfptr[50])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MAPSTRINGS__V51*/ curfptr[50]); + 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_987__MEXPAND_DEFCLASS#8", NULL != (/*_.DISCR_MAPSTRINGS__V53*/ curfptr[52])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MAPSTRINGS__V53*/ curfptr[52]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#9", NULL != (/*_.DISCR_SEQFIELD__V52*/ curfptr[51])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_SEQFIELD__V52*/ curfptr[51]); + 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_987__MEXPAND_DEFCLASS#9", NULL != (/*_.DISCR_SEQFIELD__V54*/ curfptr[53])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_SEQFIELD__V54*/ curfptr[53]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#10", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + 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_987__MEXPAND_DEFCLASS#10", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#11", NULL != (/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46]); + 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_987__MEXPAND_DEFCLASS#11", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#12", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[12] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + 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_987__MEXPAND_DEFCLASS#12", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[12] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#13", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[13] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]); + 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_987__MEXPAND_DEFCLASS#13", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[13] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#14", NULL != (/*_.CLASS_FIELD__V53*/ curfptr[52])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_FIELD__V53*/ curfptr[52]); + 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_987__MEXPAND_DEFCLASS#14", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.bysl:1897:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2025:/ 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_989__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V53*/ curfptr[52])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1041*/ curfptr[1040])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FIELD__V53*/ curfptr[52]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_997__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1050*/ curfptr[1049])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.bysl:1897:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2025:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1041*/ curfptr[1040]); + basilysgc_touch(/*_.VALROUT___V1050*/ curfptr[1049]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#15", NULL != (/*_.VALROUT___V1041*/ curfptr[1040])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[15] = (basilys_ptr_t)(/*_.VALROUT___V1041*/ curfptr[1040]); + 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_987__MEXPAND_DEFCLASS#15", NULL != (/*_.VALROUT___V1050*/ curfptr[1049])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[15] = (basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#16", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + 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_987__MEXPAND_DEFCLASS#16", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#17", NULL != (/*_.CLASS_FIELD__V53*/ curfptr[52])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_FIELD__V53*/ curfptr[52]); + 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_987__MEXPAND_DEFCLASS#17", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#18", NULL != (/*_.CLASS_FIELD_BINDING__V54*/ curfptr[53])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V54*/ curfptr[53]); + 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_987__MEXPAND_DEFCLASS#18", NULL != (/*_.CLASS_FIELD_BINDING__V56*/ curfptr[55])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V56*/ curfptr[55]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V992*/ curfptr[991]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[19] = (basilys_ptr_t)(/*_.VALCLO___V992*/ curfptr[991]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V993*/ curfptr[992]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[19] = (basilys_ptr_t)(/*_.VALCLO___V993*/ curfptr[992]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#20", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[20] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + 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_987__MEXPAND_DEFCLASS#20", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[20] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:1906:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_992__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1042*/ curfptr[1041])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1051*/ curfptr[1050])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1051*/ curfptr[1050])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:1906:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_992__LAMBDA_#1", NULL != (/*_.CLASS_FIELD__V53*/ curfptr[52])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1042*/ curfptr[1041])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FIELD__V53*/ curfptr[52]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1051*/ curfptr[1050])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__LAMBDA_#1", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1051*/ curfptr[1050])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.bysl:1906:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_992__LAMBDA_#2", NULL != (/*_.CLASS_FIELD_BINDING__V54*/ curfptr[53])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1042*/ curfptr[1041])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V54*/ curfptr[53]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1051*/ curfptr[1050])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__LAMBDA_#2", NULL != (/*_.CLASS_FIELD_BINDING__V56*/ curfptr[55])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1051*/ curfptr[1050])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V56*/ curfptr[55]); - BASILYS_LOCATION("warmelt-macro.bysl:1906:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V992*/ curfptr[991]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1042*/ curfptr[1041])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V992*/ curfptr[991]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1051*/ curfptr[1050])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V993*/ curfptr[992]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1051*/ curfptr[1050])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V993*/ curfptr[992]); - BASILYS_LOCATION("warmelt-macro.bysl:1906:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_992__LAMBDA_#4", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1042*/ curfptr[1041])->tabval[4] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1051*/ curfptr[1050])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__LAMBDA_#4", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1051*/ curfptr[1050])->tabval[4] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:1906:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2034:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1042*/ curfptr[1041]); + basilysgc_touch(/*_.VALROUT___V1051*/ curfptr[1050]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__MEXPAND_DEFCLASS#21", NULL != (/*_.VALROUT___V1042*/ curfptr[1041])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[21] = (basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041]); + 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_987__MEXPAND_DEFCLASS#21", NULL != (/*_.VALROUT___V1051*/ curfptr[1050])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[21] = (basilys_ptr_t)(/*_.VALROUT___V1051*/ curfptr[1050]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1040*/ curfptr[1039])->tabval[22] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V353*/ curfptr[352]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[22] = (basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352]); - BASILYS_LOCATION("warmelt-macro.bysl:1841:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:1969:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1040*/ curfptr[1039]); + basilysgc_touch(/*_.VALROUT___V1049*/ curfptr[1048]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1043*/ curfptr[1042])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1040*/ curfptr[1039])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1043*/ curfptr[1042])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1040*/ curfptr[1039]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1052*/ curfptr[1051])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1052*/ curfptr[1051])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1049*/ curfptr[1048]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1043*/ curfptr[1042]); + basilysgc_touch(/*_.VALCLO___V1052*/ curfptr[1051]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1045*/ curfptr[1044]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1053*/ curfptr[1052])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1053*/ curfptr[1052])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1053*/ curfptr[1052]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1054*/ curfptr[1053]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1044*/ curfptr[1043]); + basilysgc_touch(/*_.VALDATA___V1053*/ curfptr[1052]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1046*/ curfptr[1045])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1046*/ curfptr[1045])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1046*/ curfptr[1045]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1047*/ curfptr[1046]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1055*/ curfptr[1054])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1055*/ curfptr[1054])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1055*/ curfptr[1054]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1056*/ curfptr[1055]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1046*/ curfptr[1045]); + basilysgc_touch(/*_.VALDATA___V1055*/ curfptr[1054]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1049*/ curfptr[1048]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1057*/ curfptr[1056])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1057*/ curfptr[1056])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1057*/ curfptr[1056]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1058*/ curfptr[1057]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1048*/ curfptr[1047]); + basilysgc_touch(/*_.VALDATA___V1057*/ curfptr[1056]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1051*/ curfptr[1050]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1060*/ curfptr[1059]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1050*/ curfptr[1049]); + basilysgc_touch(/*_.VALDATA___V1059*/ curfptr[1058]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1053*/ curfptr[1052]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1062*/ curfptr[1061]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1052*/ curfptr[1051]); + basilysgc_touch(/*_.VALDATA___V1061*/ curfptr[1060]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1054*/ curfptr[1053])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1054*/ curfptr[1053])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1054*/ curfptr[1053]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1055*/ curfptr[1054]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1063*/ curfptr[1062])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1063*/ curfptr[1062])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1063*/ curfptr[1062]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1064*/ curfptr[1063]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1054*/ curfptr[1053]); + basilysgc_touch(/*_.VALDATA___V1063*/ curfptr[1062]); - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_995__PARSE_FIELD_ASSIGNMENT#0", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1056*/ curfptr[1055])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + 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_1003__PARSE_FIELD_ASSIGNMENT#0", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_995__PARSE_FIELD_ASSIGNMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1056*/ curfptr[1055])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1003__PARSE_FIELD_ASSIGNMENT#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.bysl:1951:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_995__PARSE_FIELD_ASSIGNMENT#2", NULL != (/*_.DISCR_BOX__V30*/ curfptr[29])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1056*/ curfptr[1055])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_BOX__V30*/ curfptr[29]); + 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_1003__PARSE_FIELD_ASSIGNMENT#2", NULL != (/*_.DISCR_BOX__V30*/ curfptr[29])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_BOX__V30*/ curfptr[29]); - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_995__PARSE_FIELD_ASSIGNMENT#3", NULL != (/*_.CLASS_CLASS__V48*/ curfptr[47])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1056*/ curfptr[1055])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CLASS__V48*/ curfptr[47]); + 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_1003__PARSE_FIELD_ASSIGNMENT#3", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_995__PARSE_FIELD_ASSIGNMENT#4", NULL != (/*_.MULTIPLE_ITERATE_TEST__V55*/ curfptr[54])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1056*/ curfptr[1055])->tabval[4] = (basilys_ptr_t)(/*_.MULTIPLE_ITERATE_TEST__V55*/ curfptr[54]); + 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_1003__PARSE_FIELD_ASSIGNMENT#4", NULL != (/*_.MULTIPLE_ITERATE_TEST__V57*/ curfptr[56])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[4] = (basilys_ptr_t)(/*_.MULTIPLE_ITERATE_TEST__V57*/ curfptr[56]); - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_995__PARSE_FIELD_ASSIGNMENT#5", NULL != (/*_.CLASS_FIELD__V53*/ curfptr[52])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1056*/ curfptr[1055])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_FIELD__V53*/ curfptr[52]); + 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_1003__PARSE_FIELD_ASSIGNMENT#5", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.bysl:1963:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1057*/ curfptr[1056])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_999__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V53*/ curfptr[52])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1057*/ curfptr[1056])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FIELD__V53*/ curfptr[52]); + 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_1007__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1066*/ curfptr[1065])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.bysl:1963:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2091:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1057*/ curfptr[1056]); + basilysgc_touch(/*_.VALROUT___V1066*/ curfptr[1065]); - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_995__PARSE_FIELD_ASSIGNMENT#6", NULL != (/*_.VALROUT___V1057*/ curfptr[1056])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1056*/ curfptr[1055])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1057*/ curfptr[1056]); + 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_1003__PARSE_FIELD_ASSIGNMENT#6", NULL != (/*_.VALROUT___V1066*/ curfptr[1065])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1066*/ curfptr[1065]); - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_995__PARSE_FIELD_ASSIGNMENT#7", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1056*/ curfptr[1055])->tabval[7] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); + 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_1003__PARSE_FIELD_ASSIGNMENT#7", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[7] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_995__PARSE_FIELD_ASSIGNMENT#8", NULL != (/*_.CLASS_FIELD_BINDING__V54*/ curfptr[53])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1056*/ curfptr[1055])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V54*/ curfptr[53]); + 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_1003__PARSE_FIELD_ASSIGNMENT#8", NULL != (/*_.CLASS_FIELD_BINDING__V56*/ curfptr[55])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V56*/ curfptr[55]); - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_995__PARSE_FIELD_ASSIGNMENT#9", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1056*/ curfptr[1055])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); + 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_1003__PARSE_FIELD_ASSIGNMENT#9", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_995__PARSE_FIELD_ASSIGNMENT#10", NULL != (/*_.CLASS_FIELD__V53*/ curfptr[52])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1056*/ curfptr[1055])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_FIELD__V53*/ curfptr[52]); + 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_1003__PARSE_FIELD_ASSIGNMENT#10", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1056*/ curfptr[1055])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V398*/ curfptr[397]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1056*/ curfptr[1055])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V399*/ curfptr[398]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398]); - BASILYS_LOCATION("warmelt-macro.bysl:1951:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2079:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1056*/ curfptr[1055]); + basilysgc_touch(/*_.VALROUT___V1065*/ curfptr[1064]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1058*/ curfptr[1057])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1056*/ curfptr[1055])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1058*/ curfptr[1057])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1056*/ curfptr[1055]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1067*/ curfptr[1066])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1067*/ curfptr[1066])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1065*/ curfptr[1064]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1058*/ curfptr[1057]); + basilysgc_touch(/*_.VALCLO___V1067*/ curfptr[1066]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1060*/ curfptr[1059]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1069*/ curfptr[1068]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1059*/ curfptr[1058]); + basilysgc_touch(/*_.VALDATA___V1068*/ curfptr[1067]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#4", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#4", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#5", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#5", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#6", NULL != (/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#6", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#7", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#7", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#8", NULL != (/*_.CLASS_CLASS__V48*/ curfptr[47])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CLASS__V48*/ curfptr[47]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#8", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#9", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#9", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1062*/ curfptr[1061])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1062*/ curfptr[1061])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1062*/ curfptr[1061]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1063*/ curfptr[1062]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1071*/ curfptr[1070])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1071*/ curfptr[1070])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1071*/ curfptr[1070]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1072*/ curfptr[1071]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1062*/ curfptr[1061]); + basilysgc_touch(/*_.VALDATA___V1071*/ curfptr[1070]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#10", NULL != (/*_.VALDATA___V1062*/ curfptr[1061])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1062*/ curfptr[1061]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#10", NULL != (/*_.VALDATA___V1071*/ curfptr[1070])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1071*/ curfptr[1070]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#12", NULL != (/*_.VALDATA___V1031*/ curfptr[1030])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#12", NULL != (/*_.VALDATA___V1040*/ curfptr[1039])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1058*/ curfptr[1057]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V1058*/ curfptr[1057]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1067*/ curfptr[1066]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V1067*/ curfptr[1066]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#14", NULL != (/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[14] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#14", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[14] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#15", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[15] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#15", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[15] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V370*/ curfptr[369]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V371*/ curfptr[370]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#17", NULL != (/*_.CLASS_INSTANCE_BINDING__V57*/ curfptr[56])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_INSTANCE_BINDING__V57*/ curfptr[56]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#17", NULL != (/*_.CLASS_INSTANCE_BINDING__V58*/ curfptr[57])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_INSTANCE_BINDING__V58*/ curfptr[57]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V992*/ curfptr[991]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[18] = (basilys_ptr_t)(/*_.VALCLO___V992*/ curfptr[991]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V993*/ curfptr[992]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[18] = (basilys_ptr_t)(/*_.VALCLO___V993*/ curfptr[992]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1000__MEXPAND_DEFINSTANCE#19", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1061*/ curfptr[1060])->tabval[19] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1008__MEXPAND_DEFINSTANCE#19", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[19] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:2004:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2132:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1061*/ curfptr[1060]); + basilysgc_touch(/*_.VALROUT___V1070*/ curfptr[1069]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1064*/ curfptr[1063])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1064*/ curfptr[1063])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1061*/ curfptr[1060]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1073*/ curfptr[1072])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1073*/ curfptr[1072])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1070*/ curfptr[1069]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1064*/ curfptr[1063]); + basilysgc_touch(/*_.VALCLO___V1073*/ curfptr[1072]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1066*/ curfptr[1065]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1074*/ curfptr[1073])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1074*/ curfptr[1073])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1074*/ curfptr[1073]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1075*/ curfptr[1074]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1065*/ curfptr[1064]); + basilysgc_touch(/*_.VALDATA___V1074*/ curfptr[1073]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1068*/ curfptr[1067]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1077*/ curfptr[1076]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1067*/ curfptr[1066]); + basilysgc_touch(/*_.VALDATA___V1076*/ curfptr[1075]); - /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1070*/ curfptr[1069]); - - /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1069*/ curfptr[1068]); - - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#4", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#4", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#5", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#5", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#6", NULL != (/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#6", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#7", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#7", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#8", NULL != (/*_.CLASS_CLASS__V48*/ curfptr[47])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CLASS__V48*/ curfptr[47]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#8", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#9", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#9", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#10", NULL != (/*_.VALDATA___V1062*/ curfptr[1061])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1062*/ curfptr[1061]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#10", NULL != (/*_.VALDATA___V1071*/ curfptr[1070])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1071*/ curfptr[1070]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#12", NULL != (/*_.VALDATA___V1031*/ curfptr[1030])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#12", NULL != (/*_.VALDATA___V1040*/ curfptr[1039])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1058*/ curfptr[1057]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V1058*/ curfptr[1057]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1067*/ curfptr[1066]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V1067*/ curfptr[1066]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#14", NULL != (/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[14] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#14", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[14] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#15", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[15] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#15", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[15] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V392*/ curfptr[391]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V392*/ curfptr[391]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V393*/ curfptr[392]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#17", NULL != (/*_.CLASS_SELECTOR_BINDING__V17*/ curfptr[16])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_SELECTOR_BINDING__V17*/ curfptr[16]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#17", NULL != (/*_.CLASS_SELECTOR_BINDING__V17*/ curfptr[16])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_SELECTOR_BINDING__V17*/ curfptr[16]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V992*/ curfptr[991]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[18] = (basilys_ptr_t)(/*_.VALCLO___V992*/ curfptr[991]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V993*/ curfptr[992]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[18] = (basilys_ptr_t)(/*_.VALCLO___V993*/ curfptr[992]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1010__MEXPAND_DEFSELECTOR#19", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[19] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1016__MEXPAND_DEFSELECTOR#19", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[19] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:2101:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2229:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1071*/ curfptr[1070]); + basilysgc_touch(/*_.VALROUT___V1078*/ curfptr[1077]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1072*/ curfptr[1071])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1072*/ curfptr[1071])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1071*/ curfptr[1070]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1079*/ curfptr[1078])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1079*/ curfptr[1078])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1078*/ curfptr[1077]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1072*/ curfptr[1071]); + basilysgc_touch(/*_.VALCLO___V1079*/ curfptr[1078]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1073*/ curfptr[1072])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1073*/ curfptr[1072])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1073*/ curfptr[1072]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1074*/ curfptr[1073]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1081*/ curfptr[1080]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1073*/ curfptr[1072]); + basilysgc_touch(/*_.VALDATA___V1080*/ curfptr[1079]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__MEXPAND_INSTANCE#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1020__MEXPAND_INSTANCE#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__MEXPAND_INSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1020__MEXPAND_INSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__MEXPAND_INSTANCE#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1020__MEXPAND_INSTANCE#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__MEXPAND_INSTANCE#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1020__MEXPAND_INSTANCE#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__MEXPAND_INSTANCE#4", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1020__MEXPAND_INSTANCE#4", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__MEXPAND_INSTANCE#5", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1020__MEXPAND_INSTANCE#5", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__MEXPAND_INSTANCE#6", NULL != (/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1020__MEXPAND_INSTANCE#6", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__MEXPAND_INSTANCE#7", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1020__MEXPAND_INSTANCE#7", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__MEXPAND_INSTANCE#8", NULL != (/*_.CLASS_CLASS__V48*/ curfptr[47])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CLASS__V48*/ curfptr[47]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1020__MEXPAND_INSTANCE#8", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__MEXPAND_INSTANCE#9", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1020__MEXPAND_INSTANCE#9", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1058*/ curfptr[1057]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V1058*/ curfptr[1057]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1067*/ curfptr[1066]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V1067*/ curfptr[1066]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__MEXPAND_INSTANCE#11", NULL != (/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[11] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1020__MEXPAND_INSTANCE#11", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[11] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__MEXPAND_INSTANCE#12", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1020__MEXPAND_INSTANCE#12", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V412*/ curfptr[411]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V413*/ curfptr[412]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412]); - BASILYS_LOCATION("warmelt-macro.bysl:2195:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2323:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1075*/ curfptr[1074]); + basilysgc_touch(/*_.VALROUT___V1082*/ curfptr[1081]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1076*/ curfptr[1075])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1076*/ curfptr[1075])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1075*/ curfptr[1074]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1083*/ curfptr[1082])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1083*/ curfptr[1082])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1082*/ curfptr[1081]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1076*/ curfptr[1075]); + basilysgc_touch(/*_.VALCLO___V1083*/ curfptr[1082]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1078*/ curfptr[1077]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1085*/ curfptr[1084]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1077*/ curfptr[1076]); + basilysgc_touch(/*_.VALDATA___V1084*/ curfptr[1083]); - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1079*/ curfptr[1078])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1018__PARSE_FIELD_PATTERN#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1079*/ curfptr[1078])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + 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_1024__PARSE_FIELD_PATTERN#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1079*/ curfptr[1078])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1018__PARSE_FIELD_PATTERN#1", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1079*/ curfptr[1078])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + 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_1024__PARSE_FIELD_PATTERN#1", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1079*/ curfptr[1078])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1018__PARSE_FIELD_PATTERN#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1079*/ curfptr[1078])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1024__PARSE_FIELD_PATTERN#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1079*/ curfptr[1078])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V918*/ curfptr[917]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1079*/ curfptr[1078])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V919*/ curfptr[918]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]); - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1079*/ curfptr[1078])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1018__PARSE_FIELD_PATTERN#4", NULL != (/*_.CLASS_CLASS__V48*/ curfptr[47])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1079*/ curfptr[1078])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_CLASS__V48*/ curfptr[47]); + 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_1024__PARSE_FIELD_PATTERN#4", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1079*/ curfptr[1078])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1018__PARSE_FIELD_PATTERN#5", NULL != (/*_.DISCR_BOX__V30*/ curfptr[29])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1079*/ curfptr[1078])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_BOX__V30*/ curfptr[29]); + 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_1024__PARSE_FIELD_PATTERN#5", NULL != (/*_.DISCR_BOX__V30*/ curfptr[29])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_BOX__V30*/ curfptr[29]); - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1079*/ curfptr[1078])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V935*/ curfptr[934]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1079*/ curfptr[1078])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V935*/ curfptr[934]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V936*/ curfptr[935]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V936*/ curfptr[935]); - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1079*/ curfptr[1078])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1018__PARSE_FIELD_PATTERN#7", NULL != (/*_.MULTIPLE_ITERATE_TEST__V55*/ curfptr[54])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1079*/ curfptr[1078])->tabval[7] = (basilys_ptr_t)(/*_.MULTIPLE_ITERATE_TEST__V55*/ curfptr[54]); + 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_1024__PARSE_FIELD_PATTERN#7", NULL != (/*_.MULTIPLE_ITERATE_TEST__V57*/ curfptr[56])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[7] = (basilys_ptr_t)(/*_.MULTIPLE_ITERATE_TEST__V57*/ curfptr[56]); - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1079*/ curfptr[1078])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1018__PARSE_FIELD_PATTERN#8", NULL != (/*_.CLASS_FIELD__V53*/ curfptr[52])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1079*/ curfptr[1078])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_FIELD__V53*/ curfptr[52]); + 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_1024__PARSE_FIELD_PATTERN#8", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.bysl:2272:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1080*/ curfptr[1079])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1020__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V53*/ curfptr[52])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1080*/ curfptr[1079])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FIELD__V53*/ curfptr[52]); + 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_1026__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.bysl:2272:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2400:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1080*/ curfptr[1079]); + basilysgc_touch(/*_.VALROUT___V1087*/ curfptr[1086]); - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1079*/ curfptr[1078])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1018__PARSE_FIELD_PATTERN#9", NULL != (/*_.VALROUT___V1080*/ curfptr[1079])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1079*/ curfptr[1078])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1080*/ curfptr[1079]); + 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_1024__PARSE_FIELD_PATTERN#9", NULL != (/*_.VALROUT___V1087*/ curfptr[1086])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1087*/ curfptr[1086]); - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1079*/ curfptr[1078])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1018__PARSE_FIELD_PATTERN#10", NULL != (/*_.CLASS_FIELD__V53*/ curfptr[52])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1079*/ curfptr[1078])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_FIELD__V53*/ curfptr[52]); + 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_1024__PARSE_FIELD_PATTERN#10", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1079*/ curfptr[1078])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V804*/ curfptr[803]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1079*/ curfptr[1078])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V804*/ curfptr[803]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V805*/ curfptr[804]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V805*/ curfptr[804]); - BASILYS_LOCATION("warmelt-macro.bysl:2258:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2386:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1079*/ curfptr[1078]); + basilysgc_touch(/*_.VALROUT___V1086*/ curfptr[1085]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1081*/ curfptr[1080])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1079*/ curfptr[1078])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1081*/ curfptr[1080])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1079*/ curfptr[1078]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1088*/ curfptr[1087])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1088*/ curfptr[1087])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1086*/ curfptr[1085]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1081*/ curfptr[1080]); + basilysgc_touch(/*_.VALCLO___V1088*/ curfptr[1087]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1021__PATEXPAND_INSTANCE#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1027__PATEXPAND_INSTANCE#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1021__PATEXPAND_INSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1027__PATEXPAND_INSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V918*/ curfptr[917]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V919*/ curfptr[918]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1021__PATEXPAND_INSTANCE#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1027__PATEXPAND_INSTANCE#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1021__PATEXPAND_INSTANCE#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1027__PATEXPAND_INSTANCE#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1021__PATEXPAND_INSTANCE#5", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[5] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1027__PATEXPAND_INSTANCE#5", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[5] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1021__PATEXPAND_INSTANCE#6", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1027__PATEXPAND_INSTANCE#6", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1021__PATEXPAND_INSTANCE#7", NULL != (/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1027__PATEXPAND_INSTANCE#7", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1021__PATEXPAND_INSTANCE#8", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1027__PATEXPAND_INSTANCE#8", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1021__PATEXPAND_INSTANCE#9", NULL != (/*_.CLASS_CLASS__V48*/ curfptr[47])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_CLASS__V48*/ curfptr[47]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1027__PATEXPAND_INSTANCE#9", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1021__PATEXPAND_INSTANCE#10", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1027__PATEXPAND_INSTANCE#10", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1081*/ curfptr[1080]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V1081*/ curfptr[1080]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1088*/ curfptr[1087]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V1088*/ curfptr[1087]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V798*/ curfptr[797]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V799*/ curfptr[798]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V799*/ curfptr[798]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1021__PATEXPAND_INSTANCE#13", NULL != (/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[13] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1027__PATEXPAND_INSTANCE#13", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[13] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1021__PATEXPAND_INSTANCE#14", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[14] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1027__PATEXPAND_INSTANCE#14", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[14] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:2300:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2428:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1082*/ curfptr[1081]); + basilysgc_touch(/*_.VALROUT___V1089*/ curfptr[1088]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1083*/ curfptr[1082])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1083*/ curfptr[1082])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1082*/ curfptr[1081]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1090*/ curfptr[1089])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1090*/ curfptr[1089])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1089*/ curfptr[1088]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1083*/ curfptr[1082]); + basilysgc_touch(/*_.VALCLO___V1090*/ curfptr[1089]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1085*/ curfptr[1084]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1091*/ curfptr[1090])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1091*/ curfptr[1090])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1091*/ curfptr[1090]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1092*/ curfptr[1091]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1084*/ curfptr[1083]); + basilysgc_touch(/*_.VALDATA___V1091*/ curfptr[1090]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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_1025__PATEXPAND_OBJECT#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_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__PATEXPAND_OBJECT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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_1025__PATEXPAND_OBJECT#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_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__PATEXPAND_OBJECT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V918*/ curfptr[917]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V919*/ curfptr[918]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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_1025__PATEXPAND_OBJECT#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__PATEXPAND_OBJECT#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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_1025__PATEXPAND_OBJECT#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_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__PATEXPAND_OBJECT#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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_1025__PATEXPAND_OBJECT#5", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[5] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__PATEXPAND_OBJECT#5", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[5] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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_1025__PATEXPAND_OBJECT#6", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__PATEXPAND_OBJECT#6", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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_1025__PATEXPAND_OBJECT#7", NULL != (/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V47*/ curfptr[46]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__PATEXPAND_OBJECT#7", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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_1025__PATEXPAND_OBJECT#8", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__PATEXPAND_OBJECT#8", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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_1025__PATEXPAND_OBJECT#9", NULL != (/*_.CLASS_CLASS__V48*/ curfptr[47])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_CLASS__V48*/ curfptr[47]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__PATEXPAND_OBJECT#9", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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_1025__PATEXPAND_OBJECT#10", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__PATEXPAND_OBJECT#10", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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[11] = (basilys_ptr_t)(/*_.VALCLO___V1081*/ curfptr[1080]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1088*/ curfptr[1087]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V1088*/ curfptr[1087]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V784*/ curfptr[783]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V785*/ curfptr[784]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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_1025__PATEXPAND_OBJECT#13", NULL != (/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[13] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__PATEXPAND_OBJECT#13", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[13] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ 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_1025__PATEXPAND_OBJECT#14", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[14] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__PATEXPAND_OBJECT#14", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1093*/ curfptr[1092])->tabval[14] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:2367:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2495:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1086*/ curfptr[1085]); + basilysgc_touch(/*_.VALROUT___V1093*/ curfptr[1092]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1087*/ curfptr[1086])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1087*/ curfptr[1086])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1086*/ curfptr[1085]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1094*/ curfptr[1093])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1093*/ curfptr[1092])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1094*/ curfptr[1093])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1093*/ curfptr[1092]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1087*/ curfptr[1086]); + basilysgc_touch(/*_.VALCLO___V1094*/ curfptr[1093]); - BASILYS_LOCATION("warmelt-macro.bysl:2432:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2560:/ 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_1027__MEXPAND_OBJECT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1095*/ curfptr[1094])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__MEXPAND_OBJECT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1095*/ curfptr[1094])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2432:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2560:/ 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_1027__MEXPAND_OBJECT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1095*/ curfptr[1094])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__MEXPAND_OBJECT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1095*/ curfptr[1094])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2432:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2560:/ 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_1027__MEXPAND_OBJECT#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1095*/ curfptr[1094])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__MEXPAND_OBJECT#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1095*/ curfptr[1094])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2432:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2560:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1088*/ curfptr[1087]); + basilysgc_touch(/*_.VALROUT___V1095*/ curfptr[1094]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1089*/ curfptr[1088])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1089*/ curfptr[1088])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1088*/ curfptr[1087]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1096*/ curfptr[1095])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1095*/ curfptr[1094])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1096*/ curfptr[1095])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1095*/ curfptr[1094]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1089*/ curfptr[1088]); + basilysgc_touch(/*_.VALCLO___V1096*/ curfptr[1095]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1091*/ curfptr[1090]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1097*/ curfptr[1096])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1097*/ curfptr[1096])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1097*/ curfptr[1096]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1098*/ curfptr[1097]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1090*/ curfptr[1089]); + basilysgc_touch(/*_.VALDATA___V1097*/ curfptr[1096]); - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1092*/ curfptr[1091])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__MEXPAND_UNSAFE_PUT_FIELDS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1092*/ curfptr[1091])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1037__MEXPAND_UNSAFE_PUT_FIELDS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1092*/ curfptr[1091])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__MEXPAND_UNSAFE_PUT_FIELDS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1092*/ curfptr[1091])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1037__MEXPAND_UNSAFE_PUT_FIELDS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1092*/ curfptr[1091])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1092*/ curfptr[1091])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1092*/ curfptr[1091])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__MEXPAND_UNSAFE_PUT_FIELDS#3", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1092*/ curfptr[1091])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1037__MEXPAND_UNSAFE_PUT_FIELDS#3", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1092*/ curfptr[1091])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__MEXPAND_UNSAFE_PUT_FIELDS#4", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1092*/ curfptr[1091])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1037__MEXPAND_UNSAFE_PUT_FIELDS#4", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1092*/ curfptr[1091])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1058*/ curfptr[1057]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1092*/ curfptr[1091])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1058*/ curfptr[1057]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1067*/ curfptr[1066]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1067*/ curfptr[1066]); - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1092*/ curfptr[1091])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__MEXPAND_UNSAFE_PUT_FIELDS#6", NULL != (/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1092*/ curfptr[1091])->tabval[6] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1037__MEXPAND_UNSAFE_PUT_FIELDS#6", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[6] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1092*/ curfptr[1091])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1031__MEXPAND_UNSAFE_PUT_FIELDS#7", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1092*/ curfptr[1091])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1037__MEXPAND_UNSAFE_PUT_FIELDS#7", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1092*/ curfptr[1091])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V464*/ curfptr[463]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1092*/ curfptr[1091])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V465*/ curfptr[464]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V465*/ curfptr[464]); - BASILYS_LOCATION("warmelt-macro.bysl:2448:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2576:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1092*/ curfptr[1091]); + basilysgc_touch(/*_.VALROUT___V1099*/ curfptr[1098]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1093*/ curfptr[1092])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1092*/ curfptr[1091])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1093*/ curfptr[1092])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1092*/ curfptr[1091]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1100*/ curfptr[1099])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1100*/ curfptr[1099])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1099*/ curfptr[1098]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1093*/ curfptr[1092]); + basilysgc_touch(/*_.VALCLO___V1100*/ curfptr[1099]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1094*/ curfptr[1093])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1094*/ curfptr[1093])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1094*/ curfptr[1093]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1095*/ curfptr[1094]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1102*/ curfptr[1101]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1094*/ curfptr[1093]); + basilysgc_touch(/*_.VALDATA___V1101*/ curfptr[1100]); - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1096*/ curfptr[1095])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1035__MEXPAND_PUT_FIELDS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1096*/ curfptr[1095])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1041__MEXPAND_PUT_FIELDS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1096*/ curfptr[1095])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1035__MEXPAND_PUT_FIELDS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1096*/ curfptr[1095])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1041__MEXPAND_PUT_FIELDS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1096*/ curfptr[1095])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1096*/ curfptr[1095])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1096*/ curfptr[1095])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1035__MEXPAND_PUT_FIELDS#3", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1096*/ curfptr[1095])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); + 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_1041__MEXPAND_PUT_FIELDS#3", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1096*/ curfptr[1095])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1035__MEXPAND_PUT_FIELDS#4", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1096*/ curfptr[1095])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + 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_1041__MEXPAND_PUT_FIELDS#4", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1096*/ curfptr[1095])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1058*/ curfptr[1057]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1096*/ curfptr[1095])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1058*/ curfptr[1057]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1067*/ curfptr[1066]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1067*/ curfptr[1066]); - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1096*/ curfptr[1095])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1035__MEXPAND_PUT_FIELDS#6", NULL != (/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1096*/ curfptr[1095])->tabval[6] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55]); + 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_1041__MEXPAND_PUT_FIELDS#6", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[6] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1096*/ curfptr[1095])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1035__MEXPAND_PUT_FIELDS#7", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1096*/ curfptr[1095])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + 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_1041__MEXPAND_PUT_FIELDS#7", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1096*/ curfptr[1095])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V450*/ curfptr[449]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1096*/ curfptr[1095])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V451*/ curfptr[450]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]); - BASILYS_LOCATION("warmelt-macro.bysl:2488:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2616:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1096*/ curfptr[1095]); + basilysgc_touch(/*_.VALROUT___V1103*/ curfptr[1102]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1097*/ curfptr[1096])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1096*/ curfptr[1095])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1097*/ curfptr[1096])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1096*/ curfptr[1095]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1104*/ curfptr[1103])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1104*/ curfptr[1103])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1103*/ curfptr[1102]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1097*/ curfptr[1096]); + basilysgc_touch(/*_.VALCLO___V1104*/ curfptr[1103]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1099*/ curfptr[1098]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1105*/ curfptr[1104])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1105*/ curfptr[1104])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1105*/ curfptr[1104]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1106*/ curfptr[1105]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1098*/ curfptr[1097]); + basilysgc_touch(/*_.VALDATA___V1105*/ curfptr[1104]); - BASILYS_LOCATION("warmelt-macro.bysl:2528:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1100*/ curfptr[1099])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__MEXPAND_UNSAFE_GET_FIELD#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1100*/ curfptr[1099])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1045__MEXPAND_UNSAFE_GET_FIELD#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.bysl:2528:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1100*/ curfptr[1099])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__MEXPAND_UNSAFE_GET_FIELD#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1100*/ curfptr[1099])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1045__MEXPAND_UNSAFE_GET_FIELD#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.bysl:2528:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1100*/ curfptr[1099])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__MEXPAND_UNSAFE_GET_FIELD#2", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1100*/ curfptr[1099])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + 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_1045__MEXPAND_UNSAFE_GET_FIELD#2", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.bysl:2528:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1100*/ curfptr[1099])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1058*/ curfptr[1057]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1100*/ curfptr[1099])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1058*/ curfptr[1057]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1067*/ curfptr[1066]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1067*/ curfptr[1066]); - BASILYS_LOCATION("warmelt-macro.bysl:2528:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1100*/ curfptr[1099])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V398*/ curfptr[397]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1100*/ curfptr[1099])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V399*/ curfptr[398]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398]); - BASILYS_LOCATION("warmelt-macro.bysl:2528:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1100*/ curfptr[1099])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V444*/ curfptr[443]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1100*/ curfptr[1099])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V445*/ curfptr[444]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V445*/ curfptr[444]); - BASILYS_LOCATION("warmelt-macro.bysl:2528:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2656:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1100*/ curfptr[1099]); + basilysgc_touch(/*_.VALROUT___V1107*/ curfptr[1106]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1101*/ curfptr[1100])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1100*/ curfptr[1099])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1101*/ curfptr[1100])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1100*/ curfptr[1099]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1108*/ curfptr[1107])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1108*/ curfptr[1107])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1107*/ curfptr[1106]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1101*/ curfptr[1100]); + basilysgc_touch(/*_.VALCLO___V1108*/ curfptr[1107]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1102*/ curfptr[1101])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1102*/ curfptr[1101])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1102*/ curfptr[1101]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1103*/ curfptr[1102]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1110*/ curfptr[1109]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1102*/ curfptr[1101]); + basilysgc_touch(/*_.VALDATA___V1109*/ curfptr[1108]); - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1043__MEXPAND_GET_FIELD#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1111*/ curfptr[1110])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1049__MEXPAND_GET_FIELD#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1111*/ curfptr[1110])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1043__MEXPAND_GET_FIELD#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1111*/ curfptr[1110])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1049__MEXPAND_GET_FIELD#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1111*/ curfptr[1110])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1043__MEXPAND_GET_FIELD#2", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1111*/ curfptr[1110])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1049__MEXPAND_GET_FIELD#2", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1111*/ curfptr[1110])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1058*/ curfptr[1057]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1058*/ curfptr[1057]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1111*/ curfptr[1110])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1067*/ curfptr[1066]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1111*/ curfptr[1110])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1067*/ curfptr[1066]); - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V398*/ curfptr[397]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1111*/ curfptr[1110])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V399*/ curfptr[398]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1111*/ curfptr[1110])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398]); - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V430*/ curfptr[429]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1111*/ curfptr[1110])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V431*/ curfptr[430]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1111*/ curfptr[1110])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V431*/ curfptr[430]); - BASILYS_LOCATION("warmelt-macro.bysl:2562:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2690:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1104*/ curfptr[1103]); + basilysgc_touch(/*_.VALROUT___V1111*/ curfptr[1110]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1105*/ curfptr[1104])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1105*/ curfptr[1104])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1104*/ curfptr[1103]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1112*/ curfptr[1111])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1111*/ curfptr[1110])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1112*/ curfptr[1111])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1111*/ curfptr[1110]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1105*/ curfptr[1104]); + basilysgc_touch(/*_.VALCLO___V1112*/ curfptr[1111]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1106*/ curfptr[1105])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1106*/ curfptr[1105])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1106*/ curfptr[1105]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1107*/ curfptr[1106]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1113*/ curfptr[1112])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1113*/ curfptr[1112])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1113*/ curfptr[1112]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1114*/ curfptr[1113]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1106*/ curfptr[1105]); + basilysgc_touch(/*_.VALDATA___V1113*/ curfptr[1112]); - BASILYS_LOCATION("warmelt-macro.bysl:2597:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1108*/ curfptr[1107])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1047__MEXPAND_SETQ#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1108*/ curfptr[1107])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1053__MEXPAND_SETQ#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.bysl:2597:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1108*/ curfptr[1107])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1047__MEXPAND_SETQ#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1108*/ curfptr[1107])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1053__MEXPAND_SETQ#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.bysl:2597:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1108*/ curfptr[1107])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1047__MEXPAND_SETQ#2", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1108*/ curfptr[1107])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + 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_1053__MEXPAND_SETQ#2", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:2597:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1108*/ curfptr[1107])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V168*/ curfptr[167]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1108*/ curfptr[1107])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V169*/ curfptr[168]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V169*/ curfptr[168]); - BASILYS_LOCATION("warmelt-macro.bysl:2597:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1108*/ curfptr[1107])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1108*/ curfptr[1107])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:2597:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2725:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1108*/ curfptr[1107]); + basilysgc_touch(/*_.VALROUT___V1115*/ curfptr[1114]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1109*/ curfptr[1108])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1108*/ curfptr[1107])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1109*/ curfptr[1108])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1108*/ curfptr[1107]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1116*/ curfptr[1115])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1116*/ curfptr[1115])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1115*/ curfptr[1114]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1109*/ curfptr[1108]); + basilysgc_touch(/*_.VALCLO___V1116*/ curfptr[1115]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1110*/ curfptr[1109])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1110*/ curfptr[1109])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1110*/ curfptr[1109]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1111*/ curfptr[1110]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1117*/ curfptr[1116])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1117*/ curfptr[1116])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1117*/ curfptr[1116]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1118*/ curfptr[1117]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1110*/ curfptr[1109]); + basilysgc_touch(/*_.VALDATA___V1117*/ curfptr[1116]); - BASILYS_LOCATION("warmelt-macro.bysl:2623:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1112*/ curfptr[1111])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1051__MEXPAND_IF#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1112*/ curfptr[1111])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1057__MEXPAND_IF#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.bysl:2623:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1112*/ curfptr[1111])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1051__MEXPAND_IF#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1112*/ curfptr[1111])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1057__MEXPAND_IF#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.bysl:2623:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1112*/ curfptr[1111])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1051__MEXPAND_IF#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1112*/ curfptr[1111])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + 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_1057__MEXPAND_IF#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.bysl:2623:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1112*/ curfptr[1111])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1112*/ curfptr[1111])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:2623:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1112*/ curfptr[1111])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V484*/ curfptr[483]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1112*/ curfptr[1111])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V485*/ curfptr[484]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484]); - BASILYS_LOCATION("warmelt-macro.bysl:2623:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1112*/ curfptr[1111])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V470*/ curfptr[469]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1112*/ curfptr[1111])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V471*/ curfptr[470]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470]); - BASILYS_LOCATION("warmelt-macro.bysl:2623:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2751:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1112*/ curfptr[1111]); + basilysgc_touch(/*_.VALROUT___V1119*/ curfptr[1118]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1113*/ curfptr[1112])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1112*/ curfptr[1111])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1113*/ curfptr[1112])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1112*/ curfptr[1111]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1120*/ curfptr[1119])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1120*/ curfptr[1119])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1119*/ curfptr[1118]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1113*/ curfptr[1112]); + basilysgc_touch(/*_.VALCLO___V1120*/ curfptr[1119]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1115*/ curfptr[1114]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1122*/ curfptr[1121]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1114*/ curfptr[1113]); + basilysgc_touch(/*_.VALDATA___V1121*/ curfptr[1120]); - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1116*/ curfptr[1115])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1055__MEXPAND_CPPIF#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1116*/ curfptr[1115])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1061__MEXPAND_CPPIF#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1116*/ curfptr[1115])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1055__MEXPAND_CPPIF#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1116*/ curfptr[1115])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1061__MEXPAND_CPPIF#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1116*/ curfptr[1115])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1055__MEXPAND_CPPIF#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1116*/ curfptr[1115])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + 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_1061__MEXPAND_CPPIF#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1116*/ curfptr[1115])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1116*/ curfptr[1115])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1116*/ curfptr[1115])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1055__MEXPAND_CPPIF#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1116*/ curfptr[1115])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + 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_1061__MEXPAND_CPPIF#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1116*/ curfptr[1115])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V504*/ curfptr[503]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1116*/ curfptr[1115])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V504*/ curfptr[503]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V505*/ curfptr[504]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]); - BASILYS_LOCATION("warmelt-macro.bysl:2670:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2798:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1116*/ curfptr[1115]); + basilysgc_touch(/*_.VALROUT___V1123*/ curfptr[1122]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1117*/ curfptr[1116])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1116*/ curfptr[1115])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1117*/ curfptr[1116])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1116*/ curfptr[1115]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1124*/ curfptr[1123])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1124*/ curfptr[1123])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1123*/ curfptr[1122]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1117*/ curfptr[1116]); + basilysgc_touch(/*_.VALCLO___V1124*/ curfptr[1123]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1118*/ curfptr[1117])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1118*/ curfptr[1117])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1118*/ curfptr[1117]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1119*/ curfptr[1118]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1125*/ curfptr[1124])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1125*/ curfptr[1124])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1125*/ curfptr[1124]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1126*/ curfptr[1125]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1118*/ curfptr[1117]); + basilysgc_touch(/*_.VALDATA___V1125*/ curfptr[1124]); - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1120*/ curfptr[1119])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1059__MEXPAND_COND#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1120*/ curfptr[1119])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1127*/ curfptr[1126])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1065__MEXPAND_COND#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1127*/ curfptr[1126])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1120*/ curfptr[1119])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1059__MEXPAND_COND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1120*/ curfptr[1119])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1127*/ curfptr[1126])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1065__MEXPAND_COND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1127*/ curfptr[1126])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1120*/ curfptr[1119])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1059__MEXPAND_COND#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1120*/ curfptr[1119])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1127*/ curfptr[1126])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1065__MEXPAND_COND#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1127*/ curfptr[1126])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1120*/ curfptr[1119])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1059__MEXPAND_COND#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1120*/ curfptr[1119])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1127*/ curfptr[1126])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1065__MEXPAND_COND#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1127*/ curfptr[1126])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1120*/ curfptr[1119])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1059__MEXPAND_COND#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1120*/ curfptr[1119])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1127*/ curfptr[1126])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1065__MEXPAND_COND#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1127*/ curfptr[1126])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1120*/ curfptr[1119])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1059__MEXPAND_COND#5", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1120*/ curfptr[1119])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1127*/ curfptr[1126])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1065__MEXPAND_COND#5", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1127*/ curfptr[1126])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2732:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2860:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1121*/ curfptr[1120])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1061__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1121*/ curfptr[1120])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1128*/ curfptr[1127])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1067__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1128*/ curfptr[1127])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2732:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2860:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1121*/ curfptr[1120]); + basilysgc_touch(/*_.VALROUT___V1128*/ curfptr[1127]); - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1120*/ curfptr[1119])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1059__MEXPAND_COND#6", NULL != (/*_.VALROUT___V1121*/ curfptr[1120])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1120*/ curfptr[1119])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1121*/ curfptr[1120]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1127*/ curfptr[1126])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1065__MEXPAND_COND#6", NULL != (/*_.VALROUT___V1128*/ curfptr[1127])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1127*/ curfptr[1126])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1128*/ curfptr[1127]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1123*/ curfptr[1122]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1130*/ curfptr[1129]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1122*/ curfptr[1121]); + basilysgc_touch(/*_.VALDATA___V1129*/ curfptr[1128]); - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1120*/ curfptr[1119])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1059__MEXPAND_COND#7", NULL != (/*_.VALDATA___V1122*/ curfptr[1121])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1120*/ curfptr[1119])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1127*/ curfptr[1126])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1065__MEXPAND_COND#7", NULL != (/*_.VALDATA___V1129*/ curfptr[1128])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1127*/ curfptr[1126])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128]); - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1125*/ curfptr[1124])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1124__PAIRLIST_TO_PROGN#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1125*/ curfptr[1124])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1130__PAIRLIST_TO_PROGN#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1132*/ curfptr[1131])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1125*/ curfptr[1124])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1124__PAIRLIST_TO_PROGN#1", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1125*/ curfptr[1124])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + 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_1130__PAIRLIST_TO_PROGN#1", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1132*/ curfptr[1131])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1125*/ curfptr[1124])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1124__PAIRLIST_TO_PROGN#2", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1125*/ curfptr[1124])->tabval[2] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + 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_1130__PAIRLIST_TO_PROGN#2", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1132*/ curfptr[1131])->tabval[2] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1125*/ curfptr[1124])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1124__PAIRLIST_TO_PROGN#3", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1125*/ curfptr[1124])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + 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_1130__PAIRLIST_TO_PROGN#3", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1132*/ curfptr[1131])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1125*/ curfptr[1124])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1125*/ curfptr[1124])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1132*/ curfptr[1131])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1132*/ curfptr[1131])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3301:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3429:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3301:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3429:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1126*/ curfptr[1125]); + basilysgc_touch(/*_.VALROUT___V1133*/ curfptr[1132]); - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1125*/ curfptr[1124])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1124__PAIRLIST_TO_PROGN#5", NULL != (/*_.VALROUT___V1126*/ curfptr[1125])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1125*/ curfptr[1124])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125]); + 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_1130__PAIRLIST_TO_PROGN#5", NULL != (/*_.VALROUT___V1133*/ curfptr[1132])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1132*/ curfptr[1131])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132]); - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1125*/ curfptr[1124])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V148*/ curfptr[147]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1125*/ curfptr[1124])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1132*/ curfptr[1131])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V149*/ curfptr[148]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1132*/ curfptr[1131])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148]); - BASILYS_LOCATION("warmelt-macro.bysl:3294:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3422:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1125*/ curfptr[1124]); + basilysgc_touch(/*_.VALROUT___V1132*/ curfptr[1131]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1124*/ curfptr[1123])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1125*/ curfptr[1124])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1124*/ curfptr[1123])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1125*/ curfptr[1124]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1131*/ curfptr[1130])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1132*/ curfptr[1131])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1131*/ curfptr[1130])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1132*/ curfptr[1131]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1124*/ curfptr[1123]); + basilysgc_touch(/*_.VALCLO___V1131*/ curfptr[1130]); - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1120*/ curfptr[1119])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1124*/ curfptr[1123]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1120*/ curfptr[1119])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V1124*/ curfptr[1123]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1127*/ curfptr[1126])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1131*/ curfptr[1130]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1127*/ curfptr[1126])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V1131*/ curfptr[1130]); - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1120*/ curfptr[1119])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V494*/ curfptr[493]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1120*/ curfptr[1119])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1127*/ curfptr[1126])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V495*/ curfptr[494]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1127*/ curfptr[1126])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V495*/ curfptr[494]); - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1120*/ curfptr[1119])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1120*/ curfptr[1119])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1127*/ curfptr[1126])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1127*/ curfptr[1126])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1120*/ curfptr[1119])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V484*/ curfptr[483]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1120*/ curfptr[1119])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1127*/ curfptr[1126])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V485*/ curfptr[484]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1127*/ curfptr[1126])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484]); - BASILYS_LOCATION("warmelt-macro.bysl:2722:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2850:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1120*/ curfptr[1119]); + basilysgc_touch(/*_.VALROUT___V1127*/ curfptr[1126]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1127*/ curfptr[1126])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1120*/ curfptr[1119])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1127*/ curfptr[1126])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1120*/ curfptr[1119]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1134*/ curfptr[1133])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1127*/ curfptr[1126])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1134*/ curfptr[1133])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1127*/ curfptr[1126]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1127*/ curfptr[1126]); + basilysgc_touch(/*_.VALCLO___V1134*/ curfptr[1133]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1129*/ curfptr[1128]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1135*/ curfptr[1134])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1135*/ curfptr[1134])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1135*/ curfptr[1134]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1136*/ curfptr[1135]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1128*/ curfptr[1127]); + basilysgc_touch(/*_.VALDATA___V1135*/ curfptr[1134]); - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ 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_1066__MEXPAND_AND#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_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1137*/ curfptr[1136])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__MEXPAND_AND#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1137*/ curfptr[1136])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ 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_1066__MEXPAND_AND#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_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1137*/ curfptr[1136])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__MEXPAND_AND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1137*/ curfptr[1136])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ 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_1066__MEXPAND_AND#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1137*/ curfptr[1136])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__MEXPAND_AND#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1137*/ curfptr[1136])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ 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_1066__MEXPAND_AND#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1137*/ curfptr[1136])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__MEXPAND_AND#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1137*/ curfptr[1136])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ 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_1066__MEXPAND_AND#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1137*/ curfptr[1136])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__MEXPAND_AND#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1137*/ curfptr[1136])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1137*/ curfptr[1136])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1137*/ curfptr[1136])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:2828:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2956:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1131*/ curfptr[1130])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1131*/ curfptr[1130])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1138*/ curfptr[1137])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1138*/ curfptr[1137])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:2828:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2956:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1131*/ curfptr[1130]); + basilysgc_touch(/*_.VALROUT___V1138*/ curfptr[1137]); - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ 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_1066__MEXPAND_AND#6", NULL != (/*_.VALROUT___V1131*/ curfptr[1130])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1131*/ curfptr[1130]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1137*/ curfptr[1136])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__MEXPAND_AND#6", NULL != (/*_.VALROUT___V1138*/ curfptr[1137])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1137*/ curfptr[1136])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1138*/ curfptr[1137]); - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V470*/ curfptr[469]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1137*/ curfptr[1136])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V471*/ curfptr[470]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1137*/ curfptr[1136])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470]); - BASILYS_LOCATION("warmelt-macro.bysl:2817:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2945:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1130*/ curfptr[1129]); + basilysgc_touch(/*_.VALROUT___V1137*/ curfptr[1136]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1132*/ curfptr[1131])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1132*/ curfptr[1131])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1130*/ curfptr[1129]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1139*/ curfptr[1138])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1137*/ curfptr[1136])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1139*/ curfptr[1138])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1137*/ curfptr[1136]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1132*/ curfptr[1131]); + basilysgc_touch(/*_.VALCLO___V1139*/ curfptr[1138]); - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1069__PATEXPAND_AS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1075__PATEXPAND_AS#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.bysl:2855:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1069__PATEXPAND_AS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1075__PATEXPAND_AS#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.bysl:2855:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V918*/ curfptr[917]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V919*/ curfptr[918]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]); - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1069__PATEXPAND_AS#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + 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_1075__PATEXPAND_AS#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V948*/ curfptr[947]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V948*/ curfptr[947]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V949*/ curfptr[948]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V949*/ curfptr[948]); - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V768*/ curfptr[767]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V768*/ curfptr[767]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V769*/ curfptr[768]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768]); - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V758*/ curfptr[757]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V759*/ curfptr[758]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758]); - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V744*/ curfptr[743]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V745*/ curfptr[744]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]); - BASILYS_LOCATION("warmelt-macro.bysl:2855:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:2983:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1133*/ curfptr[1132]); + basilysgc_touch(/*_.VALROUT___V1140*/ curfptr[1139]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1134*/ curfptr[1133])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1134*/ curfptr[1133])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1133*/ curfptr[1132]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1141*/ curfptr[1140])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1141*/ curfptr[1140])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1140*/ curfptr[1139]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1134*/ curfptr[1133]); + basilysgc_touch(/*_.VALCLO___V1141*/ curfptr[1140]); - BASILYS_LOCATION("warmelt-macro.bysl:2891:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3019:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1135*/ curfptr[1134])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1071__MEXPAND_AS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1135*/ curfptr[1134])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1142*/ curfptr[1141])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1077__MEXPAND_AS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1142*/ curfptr[1141])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2891:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3019:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1135*/ curfptr[1134])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1071__MEXPAND_AS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1135*/ curfptr[1134])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1142*/ curfptr[1141])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1077__MEXPAND_AS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1142*/ curfptr[1141])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2891:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3019:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1135*/ curfptr[1134])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1071__MEXPAND_AS#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1135*/ curfptr[1134])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1142*/ curfptr[1141])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1077__MEXPAND_AS#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1142*/ curfptr[1141])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2891:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3019:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1135*/ curfptr[1134]); + basilysgc_touch(/*_.VALROUT___V1142*/ curfptr[1141]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1136*/ curfptr[1135])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1135*/ curfptr[1134])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1136*/ curfptr[1135])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1135*/ curfptr[1134]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1143*/ curfptr[1142])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1142*/ curfptr[1141])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1143*/ curfptr[1142])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1142*/ curfptr[1141]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1136*/ curfptr[1135]); + basilysgc_touch(/*_.VALCLO___V1143*/ curfptr[1142]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1138*/ curfptr[1137]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1144*/ curfptr[1143])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1144*/ curfptr[1143])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1144*/ curfptr[1143]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1145*/ curfptr[1144]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1137*/ curfptr[1136]); + basilysgc_touch(/*_.VALDATA___V1144*/ curfptr[1143]); - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1139*/ curfptr[1138])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1075__PATEXPAND_AND#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1139*/ curfptr[1138])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1081__PATEXPAND_AND#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1146*/ curfptr[1145])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1139*/ curfptr[1138])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1075__PATEXPAND_AND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1139*/ curfptr[1138])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1081__PATEXPAND_AND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1146*/ curfptr[1145])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1139*/ curfptr[1138])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V918*/ curfptr[917]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1139*/ curfptr[1138])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V919*/ curfptr[918]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1146*/ curfptr[1145])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]); - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1139*/ curfptr[1138])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1075__PATEXPAND_AND#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1139*/ curfptr[1138])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1081__PATEXPAND_AND#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1146*/ curfptr[1145])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1139*/ curfptr[1138])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V948*/ curfptr[947]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1139*/ curfptr[1138])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V948*/ curfptr[947]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V949*/ curfptr[948]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1146*/ curfptr[1145])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V949*/ curfptr[948]); - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1139*/ curfptr[1138])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V734*/ curfptr[733]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1139*/ curfptr[1138])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V735*/ curfptr[734]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1146*/ curfptr[1145])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V735*/ curfptr[734]); - BASILYS_LOCATION("warmelt-macro.bysl:2906:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3034:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1139*/ curfptr[1138]); + basilysgc_touch(/*_.VALROUT___V1146*/ curfptr[1145]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1140*/ curfptr[1139])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1139*/ curfptr[1138])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1140*/ curfptr[1139])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1139*/ curfptr[1138]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1147*/ curfptr[1146])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1147*/ curfptr[1146])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1146*/ curfptr[1145]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1140*/ curfptr[1139]); + basilysgc_touch(/*_.VALCLO___V1147*/ curfptr[1146]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1141*/ curfptr[1140])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1141*/ curfptr[1140])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1141*/ curfptr[1140]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1142*/ curfptr[1141]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1149*/ curfptr[1148]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1141*/ curfptr[1140]); + basilysgc_touch(/*_.VALDATA___V1148*/ curfptr[1147]); - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1079__MEXPAND_OR#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1085__MEXPAND_OR#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1079__MEXPAND_OR#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1085__MEXPAND_OR#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1079__MEXPAND_OR#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1085__MEXPAND_OR#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1079__MEXPAND_OR#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1085__MEXPAND_OR#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1079__MEXPAND_OR#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1085__MEXPAND_OR#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:2939:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3067:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1151*/ curfptr[1150])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1151*/ curfptr[1150])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:2939:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3067:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1144*/ curfptr[1143]); + basilysgc_touch(/*_.VALROUT___V1151*/ curfptr[1150]); - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1079__MEXPAND_OR#6", NULL != (/*_.VALROUT___V1144*/ curfptr[1143])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1085__MEXPAND_OR#6", NULL != (/*_.VALROUT___V1151*/ curfptr[1150])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1151*/ curfptr[1150]); - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V494*/ curfptr[493]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V495*/ curfptr[494]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V495*/ curfptr[494]); - BASILYS_LOCATION("warmelt-macro.bysl:2929:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3057:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1143*/ curfptr[1142]); + basilysgc_touch(/*_.VALROUT___V1150*/ curfptr[1149]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1145*/ curfptr[1144])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1145*/ curfptr[1144])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1143*/ curfptr[1142]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1152*/ curfptr[1151])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1152*/ curfptr[1151])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1150*/ curfptr[1149]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1145*/ curfptr[1144]); + basilysgc_touch(/*_.VALCLO___V1152*/ curfptr[1151]); - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1082__PATEXPAND_OR#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1146*/ curfptr[1145])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1153*/ curfptr[1152])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1088__PATEXPAND_OR#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1153*/ curfptr[1152])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1082__PATEXPAND_OR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1146*/ curfptr[1145])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1153*/ curfptr[1152])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1088__PATEXPAND_OR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1153*/ curfptr[1152])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V918*/ curfptr[917]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1146*/ curfptr[1145])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1153*/ curfptr[1152])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V919*/ curfptr[918]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1153*/ curfptr[1152])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]); - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1082__PATEXPAND_OR#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1146*/ curfptr[1145])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1153*/ curfptr[1152])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1088__PATEXPAND_OR#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1153*/ curfptr[1152])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V948*/ curfptr[947]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1146*/ curfptr[1145])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V948*/ curfptr[947]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1153*/ curfptr[1152])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V949*/ curfptr[948]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1153*/ curfptr[1152])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V949*/ curfptr[948]); - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V724*/ curfptr[723]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1146*/ curfptr[1145])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1153*/ curfptr[1152])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V725*/ curfptr[724]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1153*/ curfptr[1152])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V725*/ curfptr[724]); - BASILYS_LOCATION("warmelt-macro.bysl:2956:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3084:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1146*/ curfptr[1145]); + basilysgc_touch(/*_.VALROUT___V1153*/ curfptr[1152]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1147*/ curfptr[1146])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1146*/ curfptr[1145])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1147*/ curfptr[1146])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1146*/ curfptr[1145]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1154*/ curfptr[1153])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1153*/ curfptr[1152])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1154*/ curfptr[1153])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1153*/ curfptr[1152]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1147*/ curfptr[1146]); + basilysgc_touch(/*_.VALCLO___V1154*/ curfptr[1153]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1149*/ curfptr[1148]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1156*/ curfptr[1155]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1148*/ curfptr[1147]); + basilysgc_touch(/*_.VALDATA___V1155*/ curfptr[1154]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1086__MEXPAND_MATCH#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1092__MEXPAND_MATCH#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1086__MEXPAND_MATCH#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1092__MEXPAND_MATCH#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1086__MEXPAND_MATCH#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1092__MEXPAND_MATCH#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1086__MEXPAND_MATCH#4", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[4] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1092__MEXPAND_MATCH#4", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[4] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1086__MEXPAND_MATCH#5", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1092__MEXPAND_MATCH#5", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1086__MEXPAND_MATCH#6", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1092__MEXPAND_MATCH#6", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2991:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3119:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1151*/ curfptr[1150])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1088__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1151*/ curfptr[1150])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1158*/ curfptr[1157])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1094__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1158*/ curfptr[1157])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:2991:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3119:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1151*/ curfptr[1150]); + basilysgc_touch(/*_.VALROUT___V1158*/ curfptr[1157]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1086__MEXPAND_MATCH#7", NULL != (/*_.VALROUT___V1151*/ curfptr[1150])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1151*/ curfptr[1150]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1092__MEXPAND_MATCH#7", NULL != (/*_.VALROUT___V1158*/ curfptr[1157])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1158*/ curfptr[1157]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1086__MEXPAND_MATCH#8", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1092__MEXPAND_MATCH#8", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1153*/ curfptr[1152]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1159*/ curfptr[1158])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1159*/ curfptr[1158])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1159*/ curfptr[1158]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1160*/ curfptr[1159]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1152*/ curfptr[1151]); + basilysgc_touch(/*_.VALDATA___V1159*/ curfptr[1158]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1086__MEXPAND_MATCH#9", NULL != (/*_.VALDATA___V1152*/ curfptr[1151])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1092__MEXPAND_MATCH#9", NULL != (/*_.VALDATA___V1159*/ curfptr[1158])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V1159*/ curfptr[1158]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V859*/ curfptr[858]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V859*/ curfptr[858]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V860*/ curfptr[859]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V860*/ curfptr[859]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V918*/ curfptr[917]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V919*/ curfptr[918]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V935*/ curfptr[934]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V935*/ curfptr[934]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V936*/ curfptr[935]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V936*/ curfptr[935]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1086__MEXPAND_MATCH#13", NULL != (/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[13] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1092__MEXPAND_MATCH#13", NULL != (/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[13] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V550*/ curfptr[549]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V551*/ curfptr[550]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V536*/ curfptr[535]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V536*/ curfptr[535]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V537*/ curfptr[536]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V522*/ curfptr[521]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V523*/ curfptr[522]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1086__MEXPAND_MATCH#17", NULL != (/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[17] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V56*/ curfptr[55]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1092__MEXPAND_MATCH#17", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[17] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.bysl:2979:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3107:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1150*/ curfptr[1149]); + basilysgc_touch(/*_.VALROUT___V1157*/ curfptr[1156]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1154*/ curfptr[1153])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1154*/ curfptr[1153])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1150*/ curfptr[1149]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1161*/ curfptr[1160])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1161*/ curfptr[1160])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1157*/ curfptr[1156]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1154*/ curfptr[1153]); + basilysgc_touch(/*_.VALCLO___V1161*/ curfptr[1160]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1156*/ curfptr[1155]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1163*/ curfptr[1162]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1155*/ curfptr[1154]); + basilysgc_touch(/*_.VALDATA___V1162*/ curfptr[1161]); - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1093__MEXPAND_LETBINDING#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + 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_1099__MEXPAND_LETBINDING#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1093__MEXPAND_LETBINDING#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1099__MEXPAND_LETBINDING#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1093__MEXPAND_LETBINDING#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1099__MEXPAND_LETBINDING#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1093__MEXPAND_LETBINDING#3", NULL != (/*_.CTYPE_VALUE__V36*/ curfptr[35])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[3] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V36*/ curfptr[35]); + 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_1099__MEXPAND_LETBINDING#3", NULL != (/*_.CTYPE_VALUE__V36*/ curfptr[35])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[3] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V36*/ curfptr[35]); - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1093__MEXPAND_LETBINDING#4", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + 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_1099__MEXPAND_LETBINDING#4", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1093__MEXPAND_LETBINDING#5", NULL != (/*_.CLASS_CTYPE__V39*/ curfptr[38])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V39*/ curfptr[38]); + 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_1099__MEXPAND_LETBINDING#5", NULL != (/*_.CLASS_CTYPE__V39*/ curfptr[38])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V39*/ curfptr[38]); - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1093__MEXPAND_LETBINDING#6", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + 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_1099__MEXPAND_LETBINDING#6", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1164*/ curfptr[1163])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V560*/ curfptr[559]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1164*/ curfptr[1163])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V561*/ curfptr[560]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]); - BASILYS_LOCATION("warmelt-macro.bysl:3078:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3206:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1157*/ curfptr[1156]); + basilysgc_touch(/*_.VALROUT___V1164*/ curfptr[1163]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1158*/ curfptr[1157])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1158*/ curfptr[1157])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1157*/ curfptr[1156]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1165*/ curfptr[1164])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1164*/ curfptr[1163])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1165*/ curfptr[1164])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1164*/ curfptr[1163]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1158*/ curfptr[1157]); + basilysgc_touch(/*_.VALCLO___V1165*/ curfptr[1164]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__MEXPAND_LET#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_LET#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__MEXPAND_LET#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_LET#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__MEXPAND_LET#2", NULL != (/*_.FRESH_ENV__V45*/ curfptr[44])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V45*/ curfptr[44]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_LET#2", NULL != (/*_.FRESH_ENV__V47*/ curfptr[46])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V47*/ curfptr[46]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__MEXPAND_LET#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_LET#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__MEXPAND_LET#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_LET#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__MEXPAND_LET#5", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_LET#5", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1158*/ curfptr[1157]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V1158*/ curfptr[1157]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1165*/ curfptr[1164]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V1165*/ curfptr[1164]); - BASILYS_LOCATION("warmelt-macro.bysl:3148:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3276:/ 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__LAMBDA_#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_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1167*/ curfptr[1166])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1103__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1167*/ curfptr[1166])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3148:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3276:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1160*/ curfptr[1159])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1158*/ curfptr[1157]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1160*/ curfptr[1159])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V1158*/ curfptr[1157]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1167*/ curfptr[1166])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1165*/ curfptr[1164]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1167*/ curfptr[1166])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V1165*/ curfptr[1164]); - BASILYS_LOCATION("warmelt-macro.bysl:3148:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3276:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1160*/ curfptr[1159]); + basilysgc_touch(/*_.VALROUT___V1167*/ curfptr[1166]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__MEXPAND_LET#7", NULL != (/*_.VALROUT___V1160*/ curfptr[1159])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1160*/ curfptr[1159]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_LET#7", NULL != (/*_.VALROUT___V1167*/ curfptr[1166])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1167*/ curfptr[1166]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__MEXPAND_LET#8", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[8] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_LET#8", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[8] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V560*/ curfptr[559]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V561*/ curfptr[560]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__MEXPAND_LET#10", NULL != (/*_.CLASS_LET_BINDING__V58*/ curfptr[57])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_LET_BINDING__V58*/ curfptr[57]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_LET#10", NULL != (/*_.CLASS_LET_BINDING__V59*/ curfptr[58])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_LET_BINDING__V59*/ curfptr[58]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__MEXPAND_LET#11", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[11] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_LET#11", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[11] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:3156:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3284:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1161*/ curfptr[1160])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V560*/ curfptr[559]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1161*/ curfptr[1160])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V561*/ curfptr[560]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]); - BASILYS_LOCATION("warmelt-macro.bysl:3156:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3284:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1161*/ curfptr[1160])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1098__LAMBDA_#1", NULL != (/*_.CLASS_LET_BINDING__V58*/ curfptr[57])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1161*/ curfptr[1160])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_LET_BINDING__V58*/ curfptr[57]); + 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_1104__LAMBDA_#1", NULL != (/*_.CLASS_LET_BINDING__V59*/ curfptr[58])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_LET_BINDING__V59*/ curfptr[58]); - BASILYS_LOCATION("warmelt-macro.bysl:3156:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3284:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1161*/ curfptr[1160])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1098__LAMBDA_#2", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1161*/ curfptr[1160])->tabval[2] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + 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_1104__LAMBDA_#2", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[2] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:3156:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3284:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1161*/ curfptr[1160]); + basilysgc_touch(/*_.VALROUT___V1168*/ curfptr[1167]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__MEXPAND_LET#12", NULL != (/*_.VALROUT___V1161*/ curfptr[1160])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[12] = (basilys_ptr_t)(/*_.VALROUT___V1161*/ curfptr[1160]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_LET#12", NULL != (/*_.VALROUT___V1168*/ curfptr[1167])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[12] = (basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3168:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3296:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1162*/ curfptr[1161])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1162*/ curfptr[1161])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1169*/ curfptr[1168])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1169*/ curfptr[1168])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3168:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3296:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1162*/ curfptr[1161]); + basilysgc_touch(/*_.VALROUT___V1169*/ curfptr[1168]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__MEXPAND_LET#14", NULL != (/*_.VALROUT___V1162*/ curfptr[1161])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V1162*/ curfptr[1161]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_LET#14", NULL != (/*_.VALROUT___V1169*/ curfptr[1168])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V1169*/ curfptr[1168]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V578*/ curfptr[577]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V579*/ curfptr[578]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]); - BASILYS_LOCATION("warmelt-macro.bysl:3129:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3257:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1159*/ curfptr[1158]); + basilysgc_touch(/*_.VALROUT___V1166*/ curfptr[1165]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1163*/ curfptr[1162])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1163*/ curfptr[1162])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1159*/ curfptr[1158]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1170*/ curfptr[1169])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1170*/ curfptr[1169])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1166*/ curfptr[1165]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1163*/ curfptr[1162]); + basilysgc_touch(/*_.VALCLO___V1170*/ curfptr[1169]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1164*/ curfptr[1163])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1164*/ curfptr[1163])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1164*/ curfptr[1163]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1165*/ curfptr[1164]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1171*/ curfptr[1170])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1171*/ curfptr[1170])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1171*/ curfptr[1170]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1172*/ curfptr[1171]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1164*/ curfptr[1163]); + basilysgc_touch(/*_.VALDATA___V1171*/ curfptr[1170]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1167*/ curfptr[1166]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1173*/ curfptr[1172])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1173*/ curfptr[1172])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1173*/ curfptr[1172]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1174*/ curfptr[1173]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1166*/ curfptr[1165]); + basilysgc_touch(/*_.VALDATA___V1173*/ curfptr[1172]); - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ 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_1104__MEXPAND_LAMBDA#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_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_LAMBDA#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ 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_1104__MEXPAND_LAMBDA#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_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_LAMBDA#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ 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_1104__MEXPAND_LAMBDA#2", NULL != (/*_.FRESH_ENV__V45*/ curfptr[44])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V45*/ curfptr[44]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_LAMBDA#2", NULL != (/*_.FRESH_ENV__V47*/ curfptr[46])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V47*/ curfptr[46]); - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V866*/ curfptr[865]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V866*/ curfptr[865]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V867*/ curfptr[866]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V867*/ curfptr[866]); - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ 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_1104__MEXPAND_LAMBDA#4", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[4] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_LAMBDA#4", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[4] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ 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_1104__MEXPAND_LAMBDA#5", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[5] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_LAMBDA#5", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[5] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:3195:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3323:/ 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_1106__LAMBDA_#0", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1169*/ curfptr[1168])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1176*/ curfptr[1175])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1112__LAMBDA_#0", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1176*/ curfptr[1175])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:3195:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3323:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1169*/ curfptr[1168]); + basilysgc_touch(/*_.VALROUT___V1176*/ curfptr[1175]); - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ 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_1104__MEXPAND_LAMBDA#6", NULL != (/*_.VALROUT___V1169*/ curfptr[1168])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1169*/ curfptr[1168]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_LAMBDA#6", NULL != (/*_.VALROUT___V1176*/ curfptr[1175])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1176*/ curfptr[1175]); - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ 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_1104__MEXPAND_LAMBDA#7", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[7] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_LAMBDA#7", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[7] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ 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_1104__MEXPAND_LAMBDA#8", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_LAMBDA#8", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3197:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3325:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1170*/ curfptr[1169])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1170*/ curfptr[1169])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1177*/ curfptr[1176])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1177*/ curfptr[1176])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3197:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3325:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1170*/ curfptr[1169]); + basilysgc_touch(/*_.VALROUT___V1177*/ curfptr[1176]); - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ 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_1104__MEXPAND_LAMBDA#10", NULL != (/*_.VALROUT___V1170*/ curfptr[1169])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[10] = (basilys_ptr_t)(/*_.VALROUT___V1170*/ curfptr[1169]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_LAMBDA#10", NULL != (/*_.VALROUT___V1177*/ curfptr[1176])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[10] = (basilys_ptr_t)(/*_.VALROUT___V1177*/ curfptr[1176]); - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V592*/ curfptr[591]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V592*/ curfptr[591]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V593*/ curfptr[592]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]); - BASILYS_LOCATION("warmelt-macro.bysl:3180:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3308:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1168*/ curfptr[1167]); + basilysgc_touch(/*_.VALROUT___V1175*/ curfptr[1174]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1171*/ curfptr[1170])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1171*/ curfptr[1170])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1168*/ curfptr[1167]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1178*/ curfptr[1177])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1178*/ curfptr[1177])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1175*/ curfptr[1174]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1171*/ curfptr[1170]); + basilysgc_touch(/*_.VALCLO___V1178*/ curfptr[1177]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1172*/ curfptr[1171])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1172*/ curfptr[1171])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1172*/ curfptr[1171]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1173*/ curfptr[1172]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1179*/ curfptr[1178])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1179*/ curfptr[1178])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1179*/ curfptr[1178]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1180*/ curfptr[1179]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1172*/ curfptr[1171]); + basilysgc_touch(/*_.VALDATA___V1179*/ curfptr[1178]); - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_MULTICALL#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1116__MEXPAND_MULTICALL#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.bysl:3210:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_MULTICALL#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1116__MEXPAND_MULTICALL#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.bysl:3210:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_MULTICALL#2", NULL != (/*_.FRESH_ENV__V45*/ curfptr[44])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V45*/ curfptr[44]); + 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_1116__MEXPAND_MULTICALL#2", NULL != (/*_.FRESH_ENV__V47*/ curfptr[46])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V47*/ curfptr[46]); - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V866*/ curfptr[865]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V866*/ curfptr[865]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V867*/ curfptr[866]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V867*/ curfptr[866]); - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_MULTICALL#5", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]); + 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_1116__MEXPAND_MULTICALL#5", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_MULTICALL#6", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[6] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + 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_1116__MEXPAND_MULTICALL#6", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[6] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:3227:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3355:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1112__LAMBDA_#0", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1182*/ curfptr[1181])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1118__LAMBDA_#0", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1182*/ curfptr[1181])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:3227:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3355:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1175*/ curfptr[1174]); + basilysgc_touch(/*_.VALROUT___V1182*/ curfptr[1181]); - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_MULTICALL#7", NULL != (/*_.VALROUT___V1175*/ curfptr[1174])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174]); + 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_1116__MEXPAND_MULTICALL#7", NULL != (/*_.VALROUT___V1182*/ curfptr[1181])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1182*/ curfptr[1181]); - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_MULTICALL#8", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[8] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + 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_1116__MEXPAND_MULTICALL#8", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[8] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_MULTICALL#9", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + 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_1116__MEXPAND_MULTICALL#9", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3230:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3358:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1176*/ curfptr[1175])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1176*/ curfptr[1175])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1183*/ curfptr[1182])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1183*/ curfptr[1182])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3230:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3358:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1176*/ curfptr[1175]); + basilysgc_touch(/*_.VALROUT___V1183*/ curfptr[1182]); - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1110__MEXPAND_MULTICALL#11", NULL != (/*_.VALROUT___V1176*/ curfptr[1175])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[11] = (basilys_ptr_t)(/*_.VALROUT___V1176*/ curfptr[1175]); + 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_1116__MEXPAND_MULTICALL#11", NULL != (/*_.VALROUT___V1183*/ curfptr[1182])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[11] = (basilys_ptr_t)(/*_.VALROUT___V1183*/ curfptr[1182]); - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V606*/ curfptr[605]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V606*/ curfptr[605]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V607*/ curfptr[606]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V607*/ curfptr[606]); - BASILYS_LOCATION("warmelt-macro.bysl:3210:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3338:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1174*/ curfptr[1173]); + basilysgc_touch(/*_.VALROUT___V1181*/ curfptr[1180]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1177*/ curfptr[1176])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1177*/ curfptr[1176])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1174*/ curfptr[1173]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1184*/ curfptr[1183])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1184*/ curfptr[1183])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1181*/ curfptr[1180]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1177*/ curfptr[1176]); + basilysgc_touch(/*_.VALCLO___V1184*/ curfptr[1183]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1179*/ curfptr[1178]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1186*/ curfptr[1185]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1178*/ curfptr[1177]); + basilysgc_touch(/*_.VALDATA___V1185*/ curfptr[1184]); - BASILYS_LOCATION("warmelt-macro.bysl:3246:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1180*/ curfptr[1179])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1116__MEXPAND_QUOTE#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1180*/ curfptr[1179])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1122__MEXPAND_QUOTE#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.bysl:3246:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1180*/ curfptr[1179])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1116__MEXPAND_QUOTE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1180*/ curfptr[1179])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1122__MEXPAND_QUOTE#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.bysl:3246:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1180*/ curfptr[1179])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1116__MEXPAND_QUOTE#2", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1180*/ curfptr[1179])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + 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_1122__MEXPAND_QUOTE#2", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:3246:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1180*/ curfptr[1179])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1116__MEXPAND_QUOTE#3", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1180*/ curfptr[1179])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); + 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_1122__MEXPAND_QUOTE#3", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.bysl:3246:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1180*/ curfptr[1179])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V192*/ curfptr[191]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1180*/ curfptr[1179])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V193*/ curfptr[192]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]); - BASILYS_LOCATION("warmelt-macro.bysl:3246:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3374:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1180*/ curfptr[1179]); + basilysgc_touch(/*_.VALROUT___V1187*/ curfptr[1186]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1181*/ curfptr[1180])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1180*/ curfptr[1179])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1181*/ curfptr[1180])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1180*/ curfptr[1179]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1188*/ curfptr[1187])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1188*/ curfptr[1187])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1187*/ curfptr[1186]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1181*/ curfptr[1180]); + basilysgc_touch(/*_.VALCLO___V1188*/ curfptr[1187]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1182*/ curfptr[1181])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1182*/ curfptr[1181])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1182*/ curfptr[1181]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1183*/ curfptr[1182]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1190*/ curfptr[1189]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1182*/ curfptr[1181]); + basilysgc_touch(/*_.VALDATA___V1189*/ curfptr[1188]); - BASILYS_LOCATION("warmelt-macro.bysl:3269:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3397:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1184*/ curfptr[1183])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1120__MEXPAND_COMMENT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1184*/ curfptr[1183])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1126__MEXPAND_COMMENT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3269:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3397:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1184*/ curfptr[1183])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1120__MEXPAND_COMMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1184*/ curfptr[1183])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1126__MEXPAND_COMMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3269:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3397:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1184*/ curfptr[1183])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V182*/ curfptr[181]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1184*/ curfptr[1183])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V183*/ curfptr[182]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V183*/ curfptr[182]); - BASILYS_LOCATION("warmelt-macro.bysl:3269:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3397:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1184*/ curfptr[1183]); + basilysgc_touch(/*_.VALROUT___V1191*/ curfptr[1190]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1185*/ curfptr[1184])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1184*/ curfptr[1183])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1185*/ curfptr[1184])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1184*/ curfptr[1183]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1192*/ curfptr[1191])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1192*/ curfptr[1191])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1191*/ curfptr[1190]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1185*/ curfptr[1184]); + basilysgc_touch(/*_.VALCLO___V1192*/ curfptr[1191]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1187*/ curfptr[1186]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1194*/ curfptr[1193]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1186*/ curfptr[1185]); + basilysgc_touch(/*_.VALDATA___V1193*/ curfptr[1192]); - BASILYS_LOCATION("warmelt-macro.bysl:3312:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1127__PAIRLIST_TO_RETURN#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1133__PAIRLIST_TO_RETURN#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3312:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1127__PAIRLIST_TO_RETURN#1", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[1] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1133__PAIRLIST_TO_RETURN#1", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[1] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.bysl:3312:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1127__PAIRLIST_TO_RETURN#2", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1133__PAIRLIST_TO_RETURN#2", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:3312:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3317:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3445:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1189*/ curfptr[1188])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1189*/ curfptr[1188])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1196*/ curfptr[1195])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1196*/ curfptr[1195])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3317:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3445:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1189*/ curfptr[1188]); + basilysgc_touch(/*_.VALROUT___V1196*/ curfptr[1195]); - BASILYS_LOCATION("warmelt-macro.bysl:3312:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1127__PAIRLIST_TO_RETURN#4", NULL != (/*_.VALROUT___V1189*/ curfptr[1188])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V1189*/ curfptr[1188]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1133__PAIRLIST_TO_RETURN#4", NULL != (/*_.VALROUT___V1196*/ curfptr[1195])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V1196*/ curfptr[1195]); - BASILYS_LOCATION("warmelt-macro.bysl:3312:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V158*/ curfptr[157]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V158*/ curfptr[157]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V159*/ curfptr[158]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); - BASILYS_LOCATION("warmelt-macro.bysl:3312:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3440:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1188*/ curfptr[1187]); + basilysgc_touch(/*_.VALROUT___V1195*/ curfptr[1194]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1190*/ curfptr[1189])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1190*/ curfptr[1189])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1188*/ curfptr[1187]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1197*/ curfptr[1196])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1197*/ curfptr[1196])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1195*/ curfptr[1194]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1190*/ curfptr[1189]); + basilysgc_touch(/*_.VALCLO___V1197*/ curfptr[1196]); - BASILYS_LOCATION("warmelt-macro.bysl:3325:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3453:/ 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_1130__MEXPAND_PROGN#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1136__MEXPAND_PROGN#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.bysl:3325:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3453:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1124*/ curfptr[1123]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V1124*/ curfptr[1123]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1131*/ curfptr[1130]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V1131*/ curfptr[1130]); - BASILYS_LOCATION("warmelt-macro.bysl:3325:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3453:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1191*/ curfptr[1190]); + basilysgc_touch(/*_.VALROUT___V1198*/ curfptr[1197]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1192*/ curfptr[1191])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1192*/ curfptr[1191])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1191*/ curfptr[1190]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1199*/ curfptr[1198])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1199*/ curfptr[1198])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1198*/ curfptr[1197]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1192*/ curfptr[1191]); + basilysgc_touch(/*_.VALCLO___V1199*/ curfptr[1198]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1194*/ curfptr[1193]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1201*/ curfptr[1200]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1193*/ curfptr[1192]); + basilysgc_touch(/*_.VALDATA___V1200*/ curfptr[1199]); - BASILYS_LOCATION("warmelt-macro.bysl:3346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3474:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1134__MEXPAND_RETURN#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1202*/ curfptr[1201])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1140__MEXPAND_RETURN#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1202*/ curfptr[1201])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3346:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3474:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1190*/ curfptr[1189]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V1190*/ curfptr[1189]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1202*/ curfptr[1201])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1197*/ curfptr[1196]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1202*/ curfptr[1201])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V1197*/ curfptr[1196]); - BASILYS_LOCATION("warmelt-macro.bysl:3346:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3474:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1195*/ curfptr[1194]); + basilysgc_touch(/*_.VALROUT___V1202*/ curfptr[1201]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1196*/ curfptr[1195])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1196*/ curfptr[1195])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1195*/ curfptr[1194]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1203*/ curfptr[1202])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1202*/ curfptr[1201])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1203*/ curfptr[1202])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1202*/ curfptr[1201]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1196*/ curfptr[1195]); + basilysgc_touch(/*_.VALCLO___V1203*/ curfptr[1202]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1197*/ curfptr[1196])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1197*/ curfptr[1196])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1197*/ curfptr[1196]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1198*/ curfptr[1197]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1205*/ curfptr[1204]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1197*/ curfptr[1196]); + basilysgc_touch(/*_.VALDATA___V1204*/ curfptr[1203]); - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ 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_1138__MEXPAND_FOREVER#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_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1144__MEXPAND_FOREVER#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ 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_1138__MEXPAND_FOREVER#2", NULL != (/*_.FRESH_ENV__V45*/ curfptr[44])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V45*/ curfptr[44]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1144__MEXPAND_FOREVER#2", NULL != (/*_.FRESH_ENV__V47*/ curfptr[46])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V47*/ curfptr[46]); - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ 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_1138__MEXPAND_FOREVER#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1144__MEXPAND_FOREVER#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ 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_1138__MEXPAND_FOREVER#4", NULL != (/*_.CLASS_LABEL_BINDING__V59*/ curfptr[58])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_LABEL_BINDING__V59*/ curfptr[58]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1144__MEXPAND_FOREVER#4", NULL != (/*_.CLASS_LABEL_BINDING__V60*/ curfptr[59])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_LABEL_BINDING__V60*/ curfptr[59]); - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ 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_1138__MEXPAND_FOREVER#5", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[5] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1144__MEXPAND_FOREVER#5", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[5] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ 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_1138__MEXPAND_FOREVER#6", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[6] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1144__MEXPAND_FOREVER#6", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[6] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ 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_1138__MEXPAND_FOREVER#7", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1144__MEXPAND_FOREVER#7", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3382:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3510:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1207*/ curfptr[1206])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1207*/ curfptr[1206])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3382:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3510:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1200*/ curfptr[1199]); + basilysgc_touch(/*_.VALROUT___V1207*/ curfptr[1206]); - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ 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_1138__MEXPAND_FOREVER#9", NULL != (/*_.VALROUT___V1200*/ curfptr[1199])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1144__MEXPAND_FOREVER#9", NULL != (/*_.VALROUT___V1207*/ curfptr[1206])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1207*/ curfptr[1206]); - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V634*/ curfptr[633]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V635*/ curfptr[634]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V635*/ curfptr[634]); - BASILYS_LOCATION("warmelt-macro.bysl:3361:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3489:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1199*/ curfptr[1198]); + basilysgc_touch(/*_.VALROUT___V1206*/ curfptr[1205]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1201*/ curfptr[1200])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1201*/ curfptr[1200])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1199*/ curfptr[1198]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1208*/ curfptr[1207])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1208*/ curfptr[1207])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1206*/ curfptr[1205]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1201*/ curfptr[1200]); + basilysgc_touch(/*_.VALCLO___V1208*/ curfptr[1207]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1202*/ curfptr[1201])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1202*/ curfptr[1201])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1202*/ curfptr[1201]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1203*/ curfptr[1202]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1209*/ curfptr[1208])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1209*/ curfptr[1208])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1209*/ curfptr[1208]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1210*/ curfptr[1209]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1202*/ curfptr[1201]); + basilysgc_touch(/*_.VALDATA___V1209*/ curfptr[1208]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1205*/ curfptr[1204]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1211*/ curfptr[1210])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1211*/ curfptr[1210])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1211*/ curfptr[1210]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1212*/ curfptr[1211]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1204*/ curfptr[1203]); + basilysgc_touch(/*_.VALDATA___V1211*/ curfptr[1210]); - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_EXIT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1151__MEXPAND_EXIT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1213*/ curfptr[1212])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_EXIT#2", NULL != (/*_.FRESH_ENV__V45*/ curfptr[44])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V45*/ curfptr[44]); + 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_1151__MEXPAND_EXIT#2", NULL != (/*_.FRESH_ENV__V47*/ curfptr[46])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V47*/ curfptr[46]); - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_EXIT#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + 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_1151__MEXPAND_EXIT#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_EXIT#4", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); + 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_1151__MEXPAND_EXIT#4", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_EXIT#5", NULL != (/*_.CLASS_LABEL_BINDING__V59*/ curfptr[58])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_LABEL_BINDING__V59*/ curfptr[58]); + 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_1151__MEXPAND_EXIT#5", NULL != (/*_.CLASS_LABEL_BINDING__V60*/ curfptr[59])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_LABEL_BINDING__V60*/ curfptr[59]); - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_EXIT#6", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[6] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + 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_1151__MEXPAND_EXIT#6", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[6] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_EXIT#7", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + 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_1151__MEXPAND_EXIT#7", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1213*/ curfptr[1212])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3418:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3546:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1207*/ curfptr[1206])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1207*/ curfptr[1206])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3418:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3546:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1207*/ curfptr[1206]); + basilysgc_touch(/*_.VALROUT___V1214*/ curfptr[1213]); - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_EXIT#9", NULL != (/*_.VALROUT___V1207*/ curfptr[1206])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1207*/ curfptr[1206]); + 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_1151__MEXPAND_EXIT#9", NULL != (/*_.VALROUT___V1214*/ curfptr[1213])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213]); - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V644*/ curfptr[643]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1206*/ curfptr[1205])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1213*/ curfptr[1212])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V645*/ curfptr[644]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V645*/ curfptr[644]); - BASILYS_LOCATION("warmelt-macro.bysl:3395:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3523:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1206*/ curfptr[1205]); + basilysgc_touch(/*_.VALROUT___V1213*/ curfptr[1212]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1208*/ curfptr[1207])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1206*/ curfptr[1205])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1208*/ curfptr[1207])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1206*/ curfptr[1205]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1215*/ curfptr[1214])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1213*/ curfptr[1212])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1215*/ curfptr[1214])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1213*/ curfptr[1212]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1208*/ curfptr[1207]); + basilysgc_touch(/*_.VALCLO___V1215*/ curfptr[1214]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1209*/ curfptr[1208])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1209*/ curfptr[1208])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1209*/ curfptr[1208]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1210*/ curfptr[1209]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1217*/ curfptr[1216]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1209*/ curfptr[1208]); + basilysgc_touch(/*_.VALDATA___V1216*/ curfptr[1215]); - BASILYS_LOCATION("warmelt-macro.bysl:3433:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3561:/ 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_1150__MEXPAND_COMPILE_WARNING#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_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_1156__MEXPAND_COMPILE_WARNING#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.bysl:3433:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3561:/ 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_1150__MEXPAND_COMPILE_WARNING#1", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + 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_1156__MEXPAND_COMPILE_WARNING#1", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3433:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3561:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3433:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3561:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V654*/ curfptr[653]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V654*/ curfptr[653]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V655*/ curfptr[654]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]); - BASILYS_LOCATION("warmelt-macro.bysl:3433:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3561:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1211*/ curfptr[1210]); + basilysgc_touch(/*_.VALROUT___V1218*/ curfptr[1217]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1212*/ curfptr[1211])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1212*/ curfptr[1211])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1211*/ curfptr[1210]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1219*/ curfptr[1218])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1219*/ curfptr[1218])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1218*/ curfptr[1217]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1212*/ curfptr[1211]); + basilysgc_touch(/*_.VALCLO___V1219*/ curfptr[1218]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1213*/ curfptr[1212])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1213*/ curfptr[1212])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1213*/ curfptr[1212]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1214*/ curfptr[1213]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1220*/ curfptr[1219])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1220*/ curfptr[1219])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1220*/ curfptr[1219]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1221*/ curfptr[1220]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1213*/ curfptr[1212]); + basilysgc_touch(/*_.VALDATA___V1220*/ curfptr[1219]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1154__MEXPAND_ASSERT_MSG#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1160__MEXPAND_ASSERT_MSG#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1154__MEXPAND_ASSERT_MSG#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1160__MEXPAND_ASSERT_MSG#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1154__MEXPAND_ASSERT_MSG#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1160__MEXPAND_ASSERT_MSG#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1217*/ curfptr[1216]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1224*/ curfptr[1223]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1216*/ curfptr[1215]); + basilysgc_touch(/*_.VALDATA___V1223*/ curfptr[1222]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1154__MEXPAND_ASSERT_MSG#4", NULL != (/*_.VALDATA___V1216*/ curfptr[1215])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1160__MEXPAND_ASSERT_MSG#4", NULL != (/*_.VALDATA___V1223*/ curfptr[1222])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1154__MEXPAND_ASSERT_MSG#5", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[5] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1160__MEXPAND_ASSERT_MSG#5", NULL != (/*_.FIND_ENV__V15*/ curfptr[14])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[5] = (basilys_ptr_t)(/*_.FIND_ENV__V15*/ curfptr[14]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1154__MEXPAND_ASSERT_MSG#6", NULL != (/*_.FIND_ENV_DEBUG__V60*/ curfptr[59])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[6] = (basilys_ptr_t)(/*_.FIND_ENV_DEBUG__V60*/ curfptr[59]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1160__MEXPAND_ASSERT_MSG#6", NULL != (/*_.FIND_ENV_DEBUG__V61*/ curfptr[60])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[6] = (basilys_ptr_t)(/*_.FIND_ENV_DEBUG__V61*/ curfptr[60]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1154__MEXPAND_ASSERT_MSG#7", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V18*/ curfptr[17])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V18*/ curfptr[17]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1160__MEXPAND_ASSERT_MSG#7", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V18*/ curfptr[17])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V18*/ curfptr[17]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1154__MEXPAND_ASSERT_MSG#8", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1160__MEXPAND_ASSERT_MSG#8", NULL != (/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V22*/ curfptr[21]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1154__MEXPAND_ASSERT_MSG#9", NULL != (/*_.CLASS_PRIMITIVE__V23*/ curfptr[22])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE__V23*/ curfptr[22]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1160__MEXPAND_ASSERT_MSG#9", NULL != (/*_.CLASS_PRIMITIVE__V23*/ curfptr[22])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE__V23*/ curfptr[22]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V98*/ curfptr[97]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V98*/ curfptr[97]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V99*/ curfptr[98]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V99*/ curfptr[98]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1154__MEXPAND_ASSERT_MSG#11", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1160__MEXPAND_ASSERT_MSG#11", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1154__MEXPAND_ASSERT_MSG#12", NULL != (/*_.DISCR_INTEGER__V50*/ curfptr[49])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V50*/ curfptr[49]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1160__MEXPAND_ASSERT_MSG#12", NULL != (/*_.DISCR_INTEGER__V52*/ curfptr[51])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V52*/ curfptr[51]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V484*/ curfptr[483]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V485*/ curfptr[484]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V504*/ curfptr[503]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V504*/ curfptr[503]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V505*/ curfptr[504]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1218*/ curfptr[1217])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1218*/ curfptr[1217])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1218*/ curfptr[1217]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1219*/ curfptr[1218]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1226*/ curfptr[1225]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1218*/ curfptr[1217]); + basilysgc_touch(/*_.VALDATA___V1225*/ curfptr[1224]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1154__MEXPAND_ASSERT_MSG#15", NULL != (/*_.VALDATA___V1218*/ curfptr[1217])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V1218*/ curfptr[1217]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1160__MEXPAND_ASSERT_MSG#15", NULL != (/*_.VALDATA___V1225*/ curfptr[1224])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1222*/ curfptr[1221])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224]); - BASILYS_LOCATION("warmelt-macro.bysl:3472:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3600:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1215*/ curfptr[1214]); + basilysgc_touch(/*_.VALROUT___V1222*/ curfptr[1221]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1220*/ curfptr[1219])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1220*/ curfptr[1219])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1215*/ curfptr[1214]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1227*/ curfptr[1226])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1222*/ curfptr[1221])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1227*/ curfptr[1226])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1222*/ curfptr[1221]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1220*/ curfptr[1219]); + basilysgc_touch(/*_.VALCLO___V1227*/ curfptr[1226]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1221*/ curfptr[1220])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1221*/ curfptr[1220])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1221*/ curfptr[1220]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1222*/ curfptr[1221]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1229*/ curfptr[1228]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1221*/ curfptr[1220]); + basilysgc_touch(/*_.VALDATA___V1228*/ curfptr[1227]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1224*/ curfptr[1223]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1230*/ curfptr[1229])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1230*/ curfptr[1229])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1230*/ curfptr[1229]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1231*/ curfptr[1230]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1223*/ curfptr[1222]); + basilysgc_touch(/*_.VALDATA___V1230*/ curfptr[1229]); - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ 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_1164__MEXPAND_DEBUG_MSG#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_DEBUG_MSG#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ 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_1164__MEXPAND_DEBUG_MSG#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_DEBUG_MSG#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ 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_1164__MEXPAND_DEBUG_MSG#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_DEBUG_MSG#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1225*/ curfptr[1224])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ 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_1164__MEXPAND_DEBUG_MSG#4", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_DEBUG_MSG#4", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1227*/ curfptr[1226]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1233*/ curfptr[1232])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1233*/ curfptr[1232])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1233*/ curfptr[1232]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1234*/ curfptr[1233]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1226*/ curfptr[1225]); + basilysgc_touch(/*_.VALDATA___V1233*/ curfptr[1232]); - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ 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_1164__MEXPAND_DEBUG_MSG#5", NULL != (/*_.VALDATA___V1226*/ curfptr[1225])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_DEBUG_MSG#5", NULL != (/*_.VALDATA___V1233*/ curfptr[1232])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1233*/ curfptr[1232]); - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1225*/ curfptr[1224])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V66*/ curfptr[65]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V66*/ curfptr[65]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V67*/ curfptr[66]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V67*/ curfptr[66]); - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ 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_1164__MEXPAND_DEBUG_MSG#7", NULL != (/*_.VALDATA___V884*/ curfptr[883])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V884*/ curfptr[883]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_DEBUG_MSG#7", NULL != (/*_.VALDATA___V885*/ curfptr[884])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V885*/ curfptr[884]); - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ 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_1164__MEXPAND_DEBUG_MSG#8", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_DEBUG_MSG#8", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ 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_1164__MEXPAND_DEBUG_MSG#9", NULL != (/*_.DISCR_INTEGER__V50*/ curfptr[49])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V50*/ curfptr[49]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_DEBUG_MSG#9", NULL != (/*_.DISCR_INTEGER__V52*/ curfptr[51])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V52*/ curfptr[51]); - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1225*/ curfptr[1224])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V504*/ curfptr[503]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V504*/ curfptr[503]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V505*/ curfptr[504]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]); - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ 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_1164__MEXPAND_DEBUG_MSG#11", NULL != (/*_.VALDATA___V1218*/ curfptr[1217])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1218*/ curfptr[1217]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_DEBUG_MSG#11", NULL != (/*_.VALDATA___V1225*/ curfptr[1224])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224]); - BASILYS_LOCATION("warmelt-macro.bysl:3552:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3680:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1225*/ curfptr[1224]); + basilysgc_touch(/*_.VALROUT___V1232*/ curfptr[1231]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1228*/ curfptr[1227])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1225*/ curfptr[1224])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1228*/ curfptr[1227])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1225*/ curfptr[1224]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1235*/ curfptr[1234])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1235*/ curfptr[1234])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1232*/ curfptr[1231]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1228*/ curfptr[1227]); + basilysgc_touch(/*_.VALCLO___V1235*/ curfptr[1234]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1229*/ curfptr[1228])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1229*/ curfptr[1228])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1229*/ curfptr[1228]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1230*/ curfptr[1229]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1237*/ curfptr[1236]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1229*/ curfptr[1228]); + basilysgc_touch(/*_.VALDATA___V1236*/ curfptr[1235]); - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1231*/ curfptr[1230])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_EXPORT_VALUES#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1231*/ curfptr[1230])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1176__MEXPAND_EXPORT_VALUES#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1231*/ curfptr[1230])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_EXPORT_VALUES#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1231*/ curfptr[1230])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1176__MEXPAND_EXPORT_VALUES#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1231*/ curfptr[1230])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_EXPORT_VALUES#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1231*/ curfptr[1230])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + 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_1176__MEXPAND_EXPORT_VALUES#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1231*/ curfptr[1230])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_EXPORT_VALUES#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1231*/ curfptr[1230])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + 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_1176__MEXPAND_EXPORT_VALUES#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1231*/ curfptr[1230])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_EXPORT_VALUES#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1231*/ curfptr[1230])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + 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_1176__MEXPAND_EXPORT_VALUES#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1231*/ curfptr[1230])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1231*/ curfptr[1230])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1238*/ curfptr[1237])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1231*/ curfptr[1230])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_EXPORT_VALUES#6", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1231*/ curfptr[1230])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + 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_1176__MEXPAND_EXPORT_VALUES#6", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1231*/ curfptr[1230])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_EXPORT_VALUES#7", NULL != (/*_.DEBUGMSG__V61*/ curfptr[60])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1231*/ curfptr[1230])->tabval[7] = (basilys_ptr_t)(/*_.DEBUGMSG__V61*/ curfptr[60]); + 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_1176__MEXPAND_EXPORT_VALUES#7", NULL != (/*_.DEBUGMSG__V62*/ curfptr[61])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[7] = (basilys_ptr_t)(/*_.DEBUGMSG__V62*/ curfptr[61]); - BASILYS_LOCATION("warmelt-macro.bysl:3623:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3751:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1239*/ curfptr[1238])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1239*/ curfptr[1238])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3623:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3751:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1172__LAMBDA_#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1239*/ curfptr[1238])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1178__LAMBDA_#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1239*/ curfptr[1238])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:3623:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3751:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1172__LAMBDA_#2", NULL != (/*_.DEBUGMSG__V61*/ curfptr[60])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1232*/ curfptr[1231])->tabval[2] = (basilys_ptr_t)(/*_.DEBUGMSG__V61*/ curfptr[60]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1239*/ curfptr[1238])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1178__LAMBDA_#2", NULL != (/*_.DEBUGMSG__V62*/ curfptr[61])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1239*/ curfptr[1238])->tabval[2] = (basilys_ptr_t)(/*_.DEBUGMSG__V62*/ curfptr[61]); - BASILYS_LOCATION("warmelt-macro.bysl:3623:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3751:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1232*/ curfptr[1231]); + basilysgc_touch(/*_.VALROUT___V1239*/ curfptr[1238]); - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1231*/ curfptr[1230])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1170__MEXPAND_EXPORT_VALUES#8", NULL != (/*_.VALROUT___V1232*/ curfptr[1231])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1231*/ curfptr[1230])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V1232*/ curfptr[1231]); + 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_1176__MEXPAND_EXPORT_VALUES#8", NULL != (/*_.VALROUT___V1239*/ curfptr[1238])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V1239*/ curfptr[1238]); - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1231*/ curfptr[1230])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V212*/ curfptr[211]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1231*/ curfptr[1230])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V212*/ curfptr[211]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1238*/ curfptr[1237])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V213*/ curfptr[212]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V213*/ curfptr[212]); - BASILYS_LOCATION("warmelt-macro.bysl:3613:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3741:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1231*/ curfptr[1230]); + basilysgc_touch(/*_.VALROUT___V1238*/ curfptr[1237]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1233*/ curfptr[1232])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1231*/ curfptr[1230])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1233*/ curfptr[1232])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1231*/ curfptr[1230]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1240*/ curfptr[1239])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1238*/ curfptr[1237])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1240*/ curfptr[1239])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1238*/ curfptr[1237]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1233*/ curfptr[1232]); + basilysgc_touch(/*_.VALCLO___V1240*/ curfptr[1239]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1235*/ curfptr[1234]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1241*/ curfptr[1240])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1241*/ curfptr[1240])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1241*/ curfptr[1240]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1242*/ curfptr[1241]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1234*/ curfptr[1233]); + basilysgc_touch(/*_.VALDATA___V1241*/ curfptr[1240]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1237*/ curfptr[1236]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1243*/ curfptr[1242])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1243*/ curfptr[1242])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1243*/ curfptr[1242]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1244*/ curfptr[1243]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1236*/ curfptr[1235]); + basilysgc_touch(/*_.VALDATA___V1243*/ curfptr[1242]); - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ 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_1177__MEXPAND_EXPORT_MACRO#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1183__MEXPAND_EXPORT_MACRO#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.bysl:3643:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ 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_1177__MEXPAND_EXPORT_MACRO#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1183__MEXPAND_EXPORT_MACRO#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ 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_1177__MEXPAND_EXPORT_MACRO#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + 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_1183__MEXPAND_EXPORT_MACRO#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1238*/ curfptr[1237])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1245*/ curfptr[1244])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ 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_1177__MEXPAND_EXPORT_MACRO#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + 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_1183__MEXPAND_EXPORT_MACRO#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1238*/ curfptr[1237])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V224*/ curfptr[223]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1245*/ curfptr[1244])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V225*/ curfptr[224]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]); - BASILYS_LOCATION("warmelt-macro.bysl:3643:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3771:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1238*/ curfptr[1237]); + basilysgc_touch(/*_.VALROUT___V1245*/ curfptr[1244]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1239*/ curfptr[1238])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1238*/ curfptr[1237])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1239*/ curfptr[1238])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1238*/ curfptr[1237]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1246*/ curfptr[1245])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1245*/ curfptr[1244])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1246*/ curfptr[1245])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1245*/ curfptr[1244]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1239*/ curfptr[1238]); + basilysgc_touch(/*_.VALCLO___V1246*/ curfptr[1245]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1240*/ curfptr[1239])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1240*/ curfptr[1239])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1240*/ curfptr[1239]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1241*/ curfptr[1240]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1248*/ curfptr[1247]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1240*/ curfptr[1239]); + basilysgc_touch(/*_.VALDATA___V1247*/ curfptr[1246]); - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1181__MEXPAND_EXPORT_PATMACRO#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + 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_1187__MEXPAND_EXPORT_PATMACRO#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.bysl:3674:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1181__MEXPAND_EXPORT_PATMACRO#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + 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_1187__MEXPAND_EXPORT_PATMACRO#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1181__MEXPAND_EXPORT_PATMACRO#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + 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_1187__MEXPAND_EXPORT_PATMACRO#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1181__MEXPAND_EXPORT_PATMACRO#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + 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_1187__MEXPAND_EXPORT_PATMACRO#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V238*/ curfptr[237]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V238*/ curfptr[237]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V239*/ curfptr[238]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238]); - BASILYS_LOCATION("warmelt-macro.bysl:3674:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3802:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1242*/ curfptr[1241]); + basilysgc_touch(/*_.VALROUT___V1249*/ curfptr[1248]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1243*/ curfptr[1242])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1243*/ curfptr[1242])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1242*/ curfptr[1241]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1250*/ curfptr[1249])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1250*/ curfptr[1249])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1249*/ curfptr[1248]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1243*/ curfptr[1242]); + basilysgc_touch(/*_.VALCLO___V1250*/ curfptr[1249]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1244*/ curfptr[1243])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1244*/ curfptr[1243])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1244*/ curfptr[1243]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1245*/ curfptr[1244]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1251*/ curfptr[1250])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1251*/ curfptr[1250])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1251*/ curfptr[1250]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1252*/ curfptr[1251]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1244*/ curfptr[1243]); + basilysgc_touch(/*_.VALDATA___V1251*/ curfptr[1250]); - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1185__MEXPAND_EXPORT_CLASS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1253*/ curfptr[1252])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1191__MEXPAND_EXPORT_CLASS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1253*/ curfptr[1252])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1185__MEXPAND_EXPORT_CLASS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1253*/ curfptr[1252])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1191__MEXPAND_EXPORT_CLASS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1253*/ curfptr[1252])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1185__MEXPAND_EXPORT_CLASS#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1253*/ curfptr[1252])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1191__MEXPAND_EXPORT_CLASS#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1253*/ curfptr[1252])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1185__MEXPAND_EXPORT_CLASS#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1253*/ curfptr[1252])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1191__MEXPAND_EXPORT_CLASS#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1253*/ curfptr[1252])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1185__MEXPAND_EXPORT_CLASS#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1253*/ curfptr[1252])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1191__MEXPAND_EXPORT_CLASS#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1253*/ curfptr[1252])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1253*/ curfptr[1252])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1253*/ curfptr[1252])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1185__MEXPAND_EXPORT_CLASS#6", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1253*/ curfptr[1252])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1191__MEXPAND_EXPORT_CLASS#6", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1253*/ curfptr[1252])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:3721:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3849:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1247*/ curfptr[1246])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1247*/ curfptr[1246])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1254*/ curfptr[1253])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1254*/ curfptr[1253])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3721:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3849:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1247*/ curfptr[1246])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1187__LAMBDA_#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1247*/ curfptr[1246])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1254*/ curfptr[1253])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1193__LAMBDA_#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1254*/ curfptr[1253])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:3721:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3849:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1247*/ curfptr[1246]); + basilysgc_touch(/*_.VALROUT___V1254*/ curfptr[1253]); - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1185__MEXPAND_EXPORT_CLASS#7", NULL != (/*_.VALROUT___V1247*/ curfptr[1246])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1247*/ curfptr[1246]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1253*/ curfptr[1252])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1191__MEXPAND_EXPORT_CLASS#7", NULL != (/*_.VALROUT___V1254*/ curfptr[1253])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1253*/ curfptr[1252])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1254*/ curfptr[1253]); - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V218*/ curfptr[217]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V218*/ curfptr[217]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1253*/ curfptr[1252])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ curfptr[218]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1253*/ curfptr[1252])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218]); - BASILYS_LOCATION("warmelt-macro.bysl:3711:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3839:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1246*/ curfptr[1245]); + basilysgc_touch(/*_.VALROUT___V1253*/ curfptr[1252]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1248*/ curfptr[1247])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1248*/ curfptr[1247])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1246*/ curfptr[1245]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1255*/ curfptr[1254])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1253*/ curfptr[1252])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1255*/ curfptr[1254])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1253*/ curfptr[1252]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1248*/ curfptr[1247]); + basilysgc_touch(/*_.VALCLO___V1255*/ curfptr[1254]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1249*/ curfptr[1248])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1249*/ curfptr[1248])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1249*/ curfptr[1248]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1250*/ curfptr[1249]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1257*/ curfptr[1256]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1249*/ curfptr[1248]); + basilysgc_touch(/*_.VALDATA___V1256*/ curfptr[1255]); - BASILYS_LOCATION("warmelt-macro.bysl:3739:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1251*/ curfptr[1250])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1190__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1251*/ curfptr[1250])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1258*/ curfptr[1257])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1196__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1258*/ curfptr[1257])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3739:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1251*/ curfptr[1250])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1190__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1251*/ curfptr[1250])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1258*/ curfptr[1257])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1196__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1258*/ curfptr[1257])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3739:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1251*/ curfptr[1250])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1190__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1251*/ curfptr[1250])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1258*/ curfptr[1257])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1196__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1258*/ curfptr[1257])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3739:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1251*/ curfptr[1250])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V668*/ curfptr[667]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1251*/ curfptr[1250])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1258*/ curfptr[1257])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V669*/ curfptr[668]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1258*/ curfptr[1257])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]); - BASILYS_LOCATION("warmelt-macro.bysl:3739:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3867:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1251*/ curfptr[1250]); + basilysgc_touch(/*_.VALROUT___V1258*/ curfptr[1257]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1251*/ curfptr[1250])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1252*/ curfptr[1251])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1251*/ curfptr[1250]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1259*/ curfptr[1258])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1258*/ curfptr[1257])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1259*/ curfptr[1258])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1258*/ curfptr[1257]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1252*/ curfptr[1251]); + basilysgc_touch(/*_.VALCLO___V1259*/ curfptr[1258]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1253*/ curfptr[1252])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1253*/ curfptr[1252])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1253*/ curfptr[1252]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1254*/ curfptr[1253]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1260*/ curfptr[1259])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1260*/ curfptr[1259])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1260*/ curfptr[1259]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1261*/ curfptr[1260]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1253*/ curfptr[1252]); + basilysgc_touch(/*_.VALDATA___V1260*/ curfptr[1259]); - BASILYS_LOCATION("warmelt-macro.bysl:3764:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1255*/ curfptr[1254])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1194__MEXPAND_PARENT_MODULE_ENVIRONMENT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1255*/ curfptr[1254])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1200__MEXPAND_PARENT_MODULE_ENVIRONMENT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3764:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1255*/ curfptr[1254])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1194__MEXPAND_PARENT_MODULE_ENVIRONMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1255*/ curfptr[1254])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1200__MEXPAND_PARENT_MODULE_ENVIRONMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3764:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1255*/ curfptr[1254])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1194__MEXPAND_PARENT_MODULE_ENVIRONMENT#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1255*/ curfptr[1254])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1200__MEXPAND_PARENT_MODULE_ENVIRONMENT#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3764:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1255*/ curfptr[1254])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V678*/ curfptr[677]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1255*/ curfptr[1254])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V679*/ curfptr[678]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]); - BASILYS_LOCATION("warmelt-macro.bysl:3764:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3892:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1255*/ curfptr[1254]); + basilysgc_touch(/*_.VALROUT___V1262*/ curfptr[1261]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1256*/ curfptr[1255])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1255*/ curfptr[1254])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1256*/ curfptr[1255])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1255*/ curfptr[1254]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1263*/ curfptr[1262])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1263*/ curfptr[1262])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1262*/ curfptr[1261]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1256*/ curfptr[1255]); + basilysgc_touch(/*_.VALCLO___V1263*/ curfptr[1262]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1258*/ curfptr[1257]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1264*/ curfptr[1263])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1264*/ curfptr[1263])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1264*/ curfptr[1263]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1265*/ curfptr[1264]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1257*/ curfptr[1256]); + basilysgc_touch(/*_.VALDATA___V1264*/ curfptr[1263]); - BASILYS_LOCATION("warmelt-macro.bysl:3787:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1198__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1259*/ curfptr[1258])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1266*/ curfptr[1265])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1204__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1266*/ curfptr[1265])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3787:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1198__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1259*/ curfptr[1258])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1266*/ curfptr[1265])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1204__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1266*/ curfptr[1265])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3787:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1198__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1259*/ curfptr[1258])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1266*/ curfptr[1265])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1204__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1266*/ curfptr[1265])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3787:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V684*/ curfptr[683]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1259*/ curfptr[1258])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1266*/ curfptr[1265])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V685*/ curfptr[684]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1266*/ curfptr[1265])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V685*/ curfptr[684]); - BASILYS_LOCATION("warmelt-macro.bysl:3787:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3915:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1259*/ curfptr[1258]); + basilysgc_touch(/*_.VALROUT___V1266*/ curfptr[1265]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1260*/ curfptr[1259])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1260*/ curfptr[1259])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1259*/ curfptr[1258]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1267*/ curfptr[1266])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1266*/ curfptr[1265])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1267*/ curfptr[1266])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1266*/ curfptr[1265]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1260*/ curfptr[1259]); + basilysgc_touch(/*_.VALCLO___V1267*/ curfptr[1266]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1261*/ curfptr[1260])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1261*/ curfptr[1260])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1261*/ curfptr[1260]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1262*/ curfptr[1261]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1268*/ curfptr[1267])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1268*/ curfptr[1267])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1268*/ curfptr[1267]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1269*/ curfptr[1268]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1261*/ curfptr[1260]); + basilysgc_touch(/*_.VALDATA___V1268*/ curfptr[1267]); - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1263*/ curfptr[1262])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_FETCH_PREDEFINED#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1263*/ curfptr[1262])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1270*/ curfptr[1269])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1208__MEXPAND_FETCH_PREDEFINED#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1270*/ curfptr[1269])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1263*/ curfptr[1262])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_FETCH_PREDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1263*/ curfptr[1262])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1270*/ curfptr[1269])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1208__MEXPAND_FETCH_PREDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1270*/ curfptr[1269])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1263*/ curfptr[1262])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_FETCH_PREDEFINED#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1263*/ curfptr[1262])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1270*/ curfptr[1269])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1208__MEXPAND_FETCH_PREDEFINED#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1270*/ curfptr[1269])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1263*/ curfptr[1262])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1263*/ curfptr[1262])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1270*/ curfptr[1269])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1270*/ curfptr[1269])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1263*/ curfptr[1262])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_FETCH_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1263*/ curfptr[1262])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1270*/ curfptr[1269])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1208__MEXPAND_FETCH_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1270*/ curfptr[1269])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1263*/ curfptr[1262])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V694*/ curfptr[693]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1263*/ curfptr[1262])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1270*/ curfptr[1269])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V695*/ curfptr[694]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1270*/ curfptr[1269])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V695*/ curfptr[694]); - BASILYS_LOCATION("warmelt-macro.bysl:3814:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3942:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1263*/ curfptr[1262]); + basilysgc_touch(/*_.VALROUT___V1270*/ curfptr[1269]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1264*/ curfptr[1263])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1263*/ curfptr[1262])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1264*/ curfptr[1263])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1263*/ curfptr[1262]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1271*/ curfptr[1270])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1270*/ curfptr[1269])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1271*/ curfptr[1270])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1270*/ curfptr[1269]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1264*/ curfptr[1263]); + basilysgc_touch(/*_.VALCLO___V1271*/ curfptr[1270]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1266*/ curfptr[1265]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1273*/ curfptr[1272]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1265*/ curfptr[1264]); + basilysgc_touch(/*_.VALDATA___V1272*/ curfptr[1271]); - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1206__MEXPAND_STORE_PREDEFINED#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1267*/ curfptr[1266])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1274*/ curfptr[1273])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1212__MEXPAND_STORE_PREDEFINED#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1274*/ curfptr[1273])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1206__MEXPAND_STORE_PREDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1267*/ curfptr[1266])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1274*/ curfptr[1273])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1212__MEXPAND_STORE_PREDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1274*/ curfptr[1273])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1206__MEXPAND_STORE_PREDEFINED#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1267*/ curfptr[1266])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1274*/ curfptr[1273])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1212__MEXPAND_STORE_PREDEFINED#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1274*/ curfptr[1273])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V855*/ curfptr[854]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1267*/ curfptr[1266])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V855*/ curfptr[854]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1274*/ curfptr[1273])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V856*/ curfptr[855]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1274*/ curfptr[1273])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V856*/ curfptr[855]); - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ putroutconst"); /*putroutconst*/ - basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266])) == OBMAG_ROUTINE); - if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1206__MEXPAND_STORE_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); - ((basilysroutine_ptr_t)/*_.VALROUT___V1267*/ curfptr[1266])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); + basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1274*/ curfptr[1273])) == OBMAG_ROUTINE); + if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1212__MEXPAND_STORE_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); + ((basilysroutine_ptr_t)/*_.VALROUT___V1274*/ curfptr[1273])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ putroutconstnotnull"); /*putroutconstnotnull*/ - basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266])) == OBMAG_ROUTINE); - basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V704*/ curfptr[703]); - ((basilysroutine_ptr_t)/*_.VALROUT___V1267*/ curfptr[1266])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V704*/ curfptr[703]); + basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1274*/ curfptr[1273])) == OBMAG_ROUTINE); + basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); + ((basilysroutine_ptr_t)/*_.VALROUT___V1274*/ curfptr[1273])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); - BASILYS_LOCATION("warmelt-macro.bysl:3840:/ touch"); + BASILYS_LOCATION("warmelt-macro.bysl:3968:/ touch"); /*touch:IROUTVAL_*/ - basilysgc_touch(/*_.VALROUT___V1267*/ curfptr[1266]); + basilysgc_touch(/*_.VALROUT___V1274*/ curfptr[1273]); /*putclosurout*/ - basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1268*/ curfptr[1267])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266])) == OBMAG_ROUTINE); - ((basilysclosure_ptr_t)/*_.VALCLO___V1268*/ curfptr[1267])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1267*/ curfptr[1266]); + basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1275*/ curfptr[1274])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1274*/ curfptr[1273])) == OBMAG_ROUTINE); + ((basilysclosure_ptr_t)/*_.VALCLO___V1275*/ curfptr[1274])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1274*/ curfptr[1273]); /*touch:DATACLOSURE_*/ - basilysgc_touch(/*_.VALCLO___V1268*/ curfptr[1267]); + basilysgc_touch(/*_.VALCLO___V1275*/ curfptr[1274]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1270*/ curfptr[1269]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1277*/ curfptr[1276]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1269*/ curfptr[1268]); + basilysgc_touch(/*_.VALDATA___V1276*/ curfptr[1275]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1271*/ curfptr[1270])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1271*/ curfptr[1270])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1271*/ curfptr[1270]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1272*/ curfptr[1271]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1279*/ curfptr[1278]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1271*/ curfptr[1270]); + basilysgc_touch(/*_.VALDATA___V1278*/ curfptr[1277]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1273*/ curfptr[1272])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1273*/ curfptr[1272])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1273*/ curfptr[1272]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1274*/ curfptr[1273]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1281*/ curfptr[1280]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1273*/ curfptr[1272]); + basilysgc_touch(/*_.VALDATA___V1280*/ curfptr[1279]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1275*/ curfptr[1274])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1275*/ curfptr[1274])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1275*/ curfptr[1274]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1276*/ curfptr[1275]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1282*/ curfptr[1281])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1282*/ curfptr[1281])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1282*/ curfptr[1281]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1283*/ curfptr[1282]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1275*/ curfptr[1274]); + basilysgc_touch(/*_.VALDATA___V1282*/ curfptr[1281]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1277*/ curfptr[1276])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1277*/ curfptr[1276])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1277*/ curfptr[1276]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1278*/ curfptr[1277]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1285*/ curfptr[1284]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1277*/ curfptr[1276]); + basilysgc_touch(/*_.VALDATA___V1284*/ curfptr[1283]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1279*/ curfptr[1278])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1279*/ curfptr[1278])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1279*/ curfptr[1278]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1280*/ curfptr[1279]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1286*/ curfptr[1285])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1286*/ curfptr[1285])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1286*/ curfptr[1285]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1287*/ curfptr[1286]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1279*/ curfptr[1278]); + basilysgc_touch(/*_.VALDATA___V1286*/ curfptr[1285]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1282*/ curfptr[1281]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1288*/ curfptr[1287])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1288*/ curfptr[1287])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1288*/ curfptr[1287]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1289*/ curfptr[1288]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1281*/ curfptr[1280]); + basilysgc_touch(/*_.VALDATA___V1288*/ curfptr[1287]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1283*/ curfptr[1282])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1283*/ curfptr[1282])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1283*/ curfptr[1282]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1284*/ curfptr[1283]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1290*/ curfptr[1289])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1290*/ curfptr[1289])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1290*/ curfptr[1289]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1291*/ curfptr[1290]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1283*/ curfptr[1282]); + basilysgc_touch(/*_.VALDATA___V1290*/ curfptr[1289]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1285*/ curfptr[1284])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1285*/ curfptr[1284])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1285*/ curfptr[1284]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1286*/ curfptr[1285]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1293*/ curfptr[1292]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1285*/ curfptr[1284]); + basilysgc_touch(/*_.VALDATA___V1292*/ curfptr[1291]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1287*/ curfptr[1286])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1287*/ curfptr[1286])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1287*/ curfptr[1286]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1288*/ curfptr[1287]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1295*/ curfptr[1294]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1287*/ curfptr[1286]); + basilysgc_touch(/*_.VALDATA___V1294*/ curfptr[1293]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1290*/ curfptr[1289]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1296*/ curfptr[1295])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1296*/ curfptr[1295])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1296*/ curfptr[1295]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1297*/ curfptr[1296]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1289*/ curfptr[1288]); + basilysgc_touch(/*_.VALDATA___V1296*/ curfptr[1295]); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1291*/ curfptr[1290])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1291*/ curfptr[1290])))); - ((basilysobject_ptr_t)(/*_.VALDATA___V1291*/ curfptr[1290]))->obj_vartab[1] = (basilys_ptr_t)( - /*_.VALSTR___V1292*/ curfptr[1291]); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297])))); + ((basilysobject_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297]))->obj_vartab[1] = (basilys_ptr_t)( + /*_.VALSTR___V1299*/ curfptr[1298]); /*touch:VALUEDATA_*/ - basilysgc_touch(/*_.VALDATA___V1291*/ curfptr[1290]); + basilysgc_touch(/*_.VALDATA___V1298*/ curfptr[1297]); /**COMMENT: before toplevel body **/; @@ -68393,25 +70156,25 @@ initial_frame_st curfram__; /*cond*/ if ( /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/ /*_.CONTENV___V2*/ curfptr[1]) /*then*/ { - /*_.OR___V1293*/ curfptr[1292] = + /*_.OR___V1300*/ curfptr[1299] = /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/ /*_.CONTENV___V2*/ curfptr[1];; } else { /*block*/{ { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V1294*/ curfptr[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V1301*/ curfptr[1300] = slot; }; ; /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_cstring = "warmelt-macro-3.c"; - /*_.FUN___V1295*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V1294*/ curfptr[1293]), (basilys_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); + /*_.FUN___V1302*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V1301*/ curfptr[1300]), (basilys_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.OR___V1293*/ curfptr[1292] = /*_.FUN___V1295*/ curfptr[1294];; + /*_.OR___V1300*/ curfptr[1299] = /*_.FUN___V1302*/ curfptr[1301];; /*epilog*/ - /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V1294*/ curfptr[1293] = 0 ; - /*clear*/ /*_.FUN___V1295*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V1301*/ curfptr[1300] = 0 ; + /*clear*/ /*_.FUN___V1302*/ curfptr[1301] = 0 ;} ; } ; @@ -68419,4009 +70182,4009 @@ initial_frame_st curfram__; /*com.block:upd.cur.mod.env.cont : at very start*/{}/*com.end block:upd.cur.mod.env.cont : at very start*/ ; /*epilog*/ - /*clear*/ /*_.OR___V1293*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.OR___V1300*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1319:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1401:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1319:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1000*/ curfptr[999]; - /*_.INSTALL_INITIAL_MACRO__V1296*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:1401:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1007*/ curfptr[1006]; + /*_.INSTALL_INITIAL_MACRO__V1303*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1296*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1303*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1320:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1402:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1297*/ curfptr[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1304*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:1320:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1402:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1320:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1000*/ curfptr[999]; - BASILYS_LOCATION("warmelt-macro.bysl:1320:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1402:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1007*/ curfptr[1006]; + BASILYS_LOCATION("warmelt-macro.bysl:1402:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFPRIMITIVE*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1297*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1304*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1297*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1304*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1402:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1508:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1402:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1004*/ curfptr[1003]; - /*_.INSTALL_INITIAL_MACRO__V1298*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1005*/ curfptr[1004]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:1508:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1013*/ curfptr[1012]; + /*_.INSTALL_INITIAL_MACRO__V1305*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1014*/ curfptr[1013]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1298*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1305*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1403:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1509:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1299*/ curfptr[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1306*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:1403:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1509:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1403:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1004*/ curfptr[1003]; - BASILYS_LOCATION("warmelt-macro.bysl:1403:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1509:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1013*/ curfptr[1012]; + BASILYS_LOCATION("warmelt-macro.bysl:1509:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFCITERATOR*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1299*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1005*/ curfptr[1004]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1306*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1014*/ curfptr[1013]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1299*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1306*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1540:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1668:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1540:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1009*/ curfptr[1008]; - /*_.INSTALL_INITIAL_MACRO__V1300*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1012*/ curfptr[1011]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:1668:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1018*/ curfptr[1017]; + /*_.INSTALL_INITIAL_MACRO__V1307*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1300*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1307*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1541:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1669:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1301*/ curfptr[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1308*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:1541:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1669:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1541:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1009*/ curfptr[1008]; - BASILYS_LOCATION("warmelt-macro.bysl:1541:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1669:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1018*/ curfptr[1017]; + BASILYS_LOCATION("warmelt-macro.bysl:1669:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFCMATCHER*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1301*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1012*/ curfptr[1011]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1308*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1301*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1308*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1658:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1786:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1658:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1016*/ curfptr[1015]; - /*_.INSTALL_INITIAL_MACRO__V1302*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1017*/ curfptr[1016]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:1786:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1025*/ curfptr[1024]; + /*_.INSTALL_INITIAL_MACRO__V1309*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1026*/ curfptr[1025]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1302*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1309*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1659:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1787:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1303*/ curfptr[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1310*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:1659:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1787:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1659:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1016*/ curfptr[1015]; - BASILYS_LOCATION("warmelt-macro.bysl:1659:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1787:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1025*/ curfptr[1024]; + BASILYS_LOCATION("warmelt-macro.bysl:1787:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFUNMATCHER*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1303*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1017*/ curfptr[1016]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1310*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1026*/ curfptr[1025]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1303*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1310*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1713:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1841:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1713:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1021*/ curfptr[1020]; - /*_.INSTALL_INITIAL_MACRO__V1304*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V872*/ curfptr[871]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:1841:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1030*/ curfptr[1029]; + /*_.INSTALL_INITIAL_MACRO__V1311*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V873*/ curfptr[872]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1304*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1311*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1714:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:1842:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1305*/ curfptr[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1312*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:1714:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:1842:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1714:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1021*/ curfptr[1020]; - BASILYS_LOCATION("warmelt-macro.bysl:1714:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:1842:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1030*/ curfptr[1029]; + BASILYS_LOCATION("warmelt-macro.bysl:1842:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFUN*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1305*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V872*/ curfptr[871]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1312*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V873*/ curfptr[872]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1305*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1312*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1945:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2073:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1945:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1043*/ curfptr[1042]; - /*_.INSTALL_INITIAL_MACRO__V1306*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V874*/ curfptr[873]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2073:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1052*/ curfptr[1051]; + /*_.INSTALL_INITIAL_MACRO__V1313*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V875*/ curfptr[874]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1306*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1313*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:1946:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2074:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1307*/ curfptr[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1314*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:1946:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2074:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:1946:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1043*/ curfptr[1042]; - BASILYS_LOCATION("warmelt-macro.bysl:1946:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2074:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1052*/ curfptr[1051]; + BASILYS_LOCATION("warmelt-macro.bysl:2074:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFCLASS*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1307*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V874*/ curfptr[873]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1314*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V875*/ curfptr[874]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1307*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1314*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2096:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2224:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2096:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1064*/ curfptr[1063]; - /*_.INSTALL_INITIAL_MACRO__V1308*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2224:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1073*/ curfptr[1072]; + /*_.INSTALL_INITIAL_MACRO__V1315*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1308*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1315*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2097:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2225:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1309*/ curfptr[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1316*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2097:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2225:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2097:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1064*/ curfptr[1063]; - BASILYS_LOCATION("warmelt-macro.bysl:2097:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2225:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1073*/ curfptr[1072]; + BASILYS_LOCATION("warmelt-macro.bysl:2225:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFINSTANCE*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1309*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1316*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1309*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1316*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2190:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2318:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2190:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1072*/ curfptr[1071]; - /*_.INSTALL_INITIAL_MACRO__V1310*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1073*/ curfptr[1072]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2318:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1079*/ curfptr[1078]; + /*_.INSTALL_INITIAL_MACRO__V1317*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1310*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1317*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2191:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2319:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1311*/ curfptr[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1318*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2191:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2319:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2191:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1072*/ curfptr[1071]; - BASILYS_LOCATION("warmelt-macro.bysl:2191:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2319:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1079*/ curfptr[1078]; + BASILYS_LOCATION("warmelt-macro.bysl:2319:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFSELECTOR*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1311*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1073*/ curfptr[1072]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1318*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1311*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1318*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2252:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2380:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2252:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1076*/ curfptr[1075]; - /*_.INSTALL_INITIAL_MACRO__V1312*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2380:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1083*/ curfptr[1082]; + /*_.INSTALL_INITIAL_MACRO__V1319*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1312*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1319*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2253:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2381:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1313*/ curfptr[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1320*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2253:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2381:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2253:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1076*/ curfptr[1075]; - BASILYS_LOCATION("warmelt-macro.bysl:2253:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2381:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1083*/ curfptr[1082]; + BASILYS_LOCATION("warmelt-macro.bysl:2381:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAKE_INSTANCE*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1313*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1320*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1313*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1320*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2364:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2492:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2364:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1083*/ curfptr[1082]; - BASILYS_LOCATION("warmelt-macro.bysl:2364:/ apply.arg"); - argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1076*/ curfptr[1075]; - /*_.INSTALL_INITIAL_PATMACRO__V1314*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V983*/ curfptr[982]), (basilys_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2492:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1090*/ curfptr[1089]; + BASILYS_LOCATION("warmelt-macro.bysl:2492:/ apply.arg"); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1083*/ curfptr[1082]; + /*_.INSTALL_INITIAL_PATMACRO__V1321*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V984*/ curfptr[983]), (basilys_ptr_t)(/*_.VALDATA___V1091*/ curfptr[1090]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1314*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1321*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2365:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2493:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1315*/ curfptr[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1322*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2365:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2493:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2365:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1076*/ curfptr[1075]; - BASILYS_LOCATION("warmelt-macro.bysl:2365:/ apply.arg"); - argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1083*/ curfptr[1082]; - BASILYS_LOCATION("warmelt-macro.bysl:2365:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2493:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1083*/ curfptr[1082]; + BASILYS_LOCATION("warmelt-macro.bysl:2493:/ apply.arg"); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1090*/ curfptr[1089]; + BASILYS_LOCATION("warmelt-macro.bysl:2493:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : INSTANCE*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.PATMACROXPORTER___V1315*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.PATMACROXPORTER___V1322*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1091*/ curfptr[1090]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.PATMACROXPORTER___V1315*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.PATMACROXPORTER___V1322*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2443:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2571:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2443:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1087*/ curfptr[1086]; - BASILYS_LOCATION("warmelt-macro.bysl:2443:/ apply.arg"); - argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1089*/ curfptr[1088]; - /*_.INSTALL_INITIAL_PATMACRO__V1316*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V983*/ curfptr[982]), (basilys_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2571:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1094*/ curfptr[1093]; + BASILYS_LOCATION("warmelt-macro.bysl:2571:/ apply.arg"); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1096*/ curfptr[1095]; + /*_.INSTALL_INITIAL_PATMACRO__V1323*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V984*/ curfptr[983]), (basilys_ptr_t)(/*_.VALDATA___V1097*/ curfptr[1096]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1316*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1323*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2444:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2572:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1317*/ curfptr[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1324*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2444:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2572:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2444:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1089*/ curfptr[1088]; - BASILYS_LOCATION("warmelt-macro.bysl:2444:/ apply.arg"); - argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1087*/ curfptr[1086]; - BASILYS_LOCATION("warmelt-macro.bysl:2444:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2572:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1096*/ curfptr[1095]; + BASILYS_LOCATION("warmelt-macro.bysl:2572:/ apply.arg"); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1094*/ curfptr[1093]; + BASILYS_LOCATION("warmelt-macro.bysl:2572:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : OBJECT*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.PATMACROXPORTER___V1317*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.PATMACROXPORTER___V1324*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1097*/ curfptr[1096]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.PATMACROXPORTER___V1317*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.PATMACROXPORTER___V1324*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2484:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2612:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2484:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1093*/ curfptr[1092]; - /*_.INSTALL_INITIAL_MACRO__V1318*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1094*/ curfptr[1093]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2612:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1100*/ curfptr[1099]; + /*_.INSTALL_INITIAL_MACRO__V1325*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1318*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1325*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2485:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2613:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1319*/ curfptr[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1326*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2485:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2613:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2485:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1093*/ curfptr[1092]; - BASILYS_LOCATION("warmelt-macro.bysl:2485:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2613:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1100*/ curfptr[1099]; + BASILYS_LOCATION("warmelt-macro.bysl:2613:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : UNSAFE_PUT_FIELDS*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1319*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1094*/ curfptr[1093]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1326*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1319*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1326*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2524:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2652:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2524:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1097*/ curfptr[1096]; - /*_.INSTALL_INITIAL_MACRO__V1320*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2652:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1104*/ curfptr[1103]; + /*_.INSTALL_INITIAL_MACRO__V1327*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1105*/ curfptr[1104]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1320*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1327*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2525:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2653:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1321*/ curfptr[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1328*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2525:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2653:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2525:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1097*/ curfptr[1096]; - BASILYS_LOCATION("warmelt-macro.bysl:2525:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2653:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1104*/ curfptr[1103]; + BASILYS_LOCATION("warmelt-macro.bysl:2653:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PUT_FIELDS*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1321*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1328*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1105*/ curfptr[1104]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1321*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1328*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2558:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2686:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2558:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1101*/ curfptr[1100]; - /*_.INSTALL_INITIAL_MACRO__V1322*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1102*/ curfptr[1101]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2686:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1108*/ curfptr[1107]; + /*_.INSTALL_INITIAL_MACRO__V1329*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1322*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1329*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2559:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2687:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1323*/ curfptr[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1330*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2559:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2687:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2559:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1101*/ curfptr[1100]; - BASILYS_LOCATION("warmelt-macro.bysl:2559:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2687:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1108*/ curfptr[1107]; + BASILYS_LOCATION("warmelt-macro.bysl:2687:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : UNSAFE_GET_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1323*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1102*/ curfptr[1101]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1330*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1323*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1330*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2592:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2720:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2592:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1105*/ curfptr[1104]; - /*_.INSTALL_INITIAL_MACRO__V1324*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1106*/ curfptr[1105]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2720:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1112*/ curfptr[1111]; + /*_.INSTALL_INITIAL_MACRO__V1331*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1113*/ curfptr[1112]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1324*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1331*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2593:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2721:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1325*/ curfptr[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1332*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2593:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2721:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2593:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1105*/ curfptr[1104]; - BASILYS_LOCATION("warmelt-macro.bysl:2593:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2721:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1112*/ curfptr[1111]; + BASILYS_LOCATION("warmelt-macro.bysl:2721:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GET_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1325*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1106*/ curfptr[1105]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1332*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1113*/ curfptr[1112]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1325*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1332*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2619:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2747:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2619:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1109*/ curfptr[1108]; - /*_.INSTALL_INITIAL_MACRO__V1326*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1110*/ curfptr[1109]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2747:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1116*/ curfptr[1115]; + /*_.INSTALL_INITIAL_MACRO__V1333*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1117*/ curfptr[1116]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1326*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1333*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2620:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2748:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1327*/ curfptr[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1334*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2620:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2748:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2620:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1109*/ curfptr[1108]; - BASILYS_LOCATION("warmelt-macro.bysl:2620:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2748:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1116*/ curfptr[1115]; + BASILYS_LOCATION("warmelt-macro.bysl:2748:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SETQ*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1327*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1110*/ curfptr[1109]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1334*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1117*/ curfptr[1116]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1327*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1334*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2666:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2794:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2666:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1113*/ curfptr[1112]; - /*_.INSTALL_INITIAL_MACRO__V1328*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2794:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1120*/ curfptr[1119]; + /*_.INSTALL_INITIAL_MACRO__V1335*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1328*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1335*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2667:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2795:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1329*/ curfptr[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1336*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2667:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2795:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2667:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1113*/ curfptr[1112]; - BASILYS_LOCATION("warmelt-macro.bysl:2667:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2795:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1120*/ curfptr[1119]; + BASILYS_LOCATION("warmelt-macro.bysl:2795:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IF*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1329*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1336*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1329*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1336*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2716:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2844:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2716:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1117*/ curfptr[1116]; - /*_.INSTALL_INITIAL_MACRO__V1330*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1118*/ curfptr[1117]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2844:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1124*/ curfptr[1123]; + /*_.INSTALL_INITIAL_MACRO__V1337*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1125*/ curfptr[1124]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1330*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1337*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2717:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2845:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1331*/ curfptr[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1338*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2717:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2845:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2717:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1117*/ curfptr[1116]; - BASILYS_LOCATION("warmelt-macro.bysl:2717:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2845:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1124*/ curfptr[1123]; + BASILYS_LOCATION("warmelt-macro.bysl:2845:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CPPIF*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1331*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1118*/ curfptr[1117]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1338*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1125*/ curfptr[1124]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1331*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1338*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2808:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2936:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2808:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1127*/ curfptr[1126]; - /*_.INSTALL_INITIAL_MACRO__V1332*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:2936:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1134*/ curfptr[1133]; + /*_.INSTALL_INITIAL_MACRO__V1339*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1135*/ curfptr[1134]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1332*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1339*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2809:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:2937:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1333*/ curfptr[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1340*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2809:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:2937:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2809:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1127*/ curfptr[1126]; - BASILYS_LOCATION("warmelt-macro.bysl:2809:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:2937:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1134*/ curfptr[1133]; + BASILYS_LOCATION("warmelt-macro.bysl:2937:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COND*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1333*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1340*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1135*/ curfptr[1134]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1333*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1340*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2901:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3029:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2901:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1134*/ curfptr[1133]; - BASILYS_LOCATION("warmelt-macro.bysl:2901:/ apply.arg"); - argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1136*/ curfptr[1135]; - /*_.INSTALL_INITIAL_PATMACRO__V1334*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V983*/ curfptr[982]), (basilys_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3029:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1141*/ curfptr[1140]; + BASILYS_LOCATION("warmelt-macro.bysl:3029:/ apply.arg"); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1143*/ curfptr[1142]; + /*_.INSTALL_INITIAL_PATMACRO__V1341*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V984*/ curfptr[983]), (basilys_ptr_t)(/*_.VALDATA___V1144*/ curfptr[1143]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1334*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1341*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2902:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3030:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1335*/ curfptr[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1342*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2902:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3030:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2902:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1136*/ curfptr[1135]; - BASILYS_LOCATION("warmelt-macro.bysl:2902:/ apply.arg"); - argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1134*/ curfptr[1133]; - BASILYS_LOCATION("warmelt-macro.bysl:2902:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3030:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1143*/ curfptr[1142]; + BASILYS_LOCATION("warmelt-macro.bysl:3030:/ apply.arg"); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1141*/ curfptr[1140]; + BASILYS_LOCATION("warmelt-macro.bysl:3030:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : AS*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.PATMACROXPORTER___V1335*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.PATMACROXPORTER___V1342*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1144*/ curfptr[1143]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.PATMACROXPORTER___V1335*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.PATMACROXPORTER___V1342*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2924:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3052:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2924:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1140*/ curfptr[1139]; - BASILYS_LOCATION("warmelt-macro.bysl:2924:/ apply.arg"); - argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1132*/ curfptr[1131]; - /*_.INSTALL_INITIAL_PATMACRO__V1336*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V983*/ curfptr[982]), (basilys_ptr_t)(/*_.VALDATA___V1141*/ curfptr[1140]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3052:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1147*/ curfptr[1146]; + BASILYS_LOCATION("warmelt-macro.bysl:3052:/ apply.arg"); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1139*/ curfptr[1138]; + /*_.INSTALL_INITIAL_PATMACRO__V1343*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V984*/ curfptr[983]), (basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1336*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1343*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2925:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3053:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1337*/ curfptr[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1344*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2925:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3053:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2925:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1132*/ curfptr[1131]; - BASILYS_LOCATION("warmelt-macro.bysl:2925:/ apply.arg"); - argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1140*/ curfptr[1139]; - BASILYS_LOCATION("warmelt-macro.bysl:2925:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3053:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1139*/ curfptr[1138]; + BASILYS_LOCATION("warmelt-macro.bysl:3053:/ apply.arg"); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1147*/ curfptr[1146]; + BASILYS_LOCATION("warmelt-macro.bysl:3053:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : AND*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.PATMACROXPORTER___V1337*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1141*/ curfptr[1140]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.PATMACROXPORTER___V1344*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.PATMACROXPORTER___V1337*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.PATMACROXPORTER___V1344*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2974:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3102:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2974:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1147*/ curfptr[1146]; - BASILYS_LOCATION("warmelt-macro.bysl:2974:/ apply.arg"); - argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1145*/ curfptr[1144]; - /*_.INSTALL_INITIAL_PATMACRO__V1338*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V983*/ curfptr[982]), (basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3102:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1154*/ curfptr[1153]; + BASILYS_LOCATION("warmelt-macro.bysl:3102:/ apply.arg"); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1152*/ curfptr[1151]; + /*_.INSTALL_INITIAL_PATMACRO__V1345*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V984*/ curfptr[983]), (basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1338*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1345*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:2975:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3103:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1339*/ curfptr[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1346*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:2975:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3103:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:2975:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1145*/ curfptr[1144]; - BASILYS_LOCATION("warmelt-macro.bysl:2975:/ apply.arg"); - argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1147*/ curfptr[1146]; - BASILYS_LOCATION("warmelt-macro.bysl:2975:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3103:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1152*/ curfptr[1151]; + BASILYS_LOCATION("warmelt-macro.bysl:3103:/ apply.arg"); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1154*/ curfptr[1153]; + BASILYS_LOCATION("warmelt-macro.bysl:3103:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : OR*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.PATMACROXPORTER___V1339*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.PATMACROXPORTER___V1346*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.PATMACROXPORTER___V1339*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.PATMACROXPORTER___V1346*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3073:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3201:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3073:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1154*/ curfptr[1153]; - /*_.INSTALL_INITIAL_MACRO__V1340*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3201:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1161*/ curfptr[1160]; + /*_.INSTALL_INITIAL_MACRO__V1347*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1340*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1347*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3074:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3202:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1341*/ curfptr[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1348*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3074:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3202:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3074:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1154*/ curfptr[1153]; - BASILYS_LOCATION("warmelt-macro.bysl:3074:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3202:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1161*/ curfptr[1160]; + BASILYS_LOCATION("warmelt-macro.bysl:3202:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MATCH*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1341*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1348*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1341*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1348*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3176:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3304:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3176:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1163*/ curfptr[1162]; - /*_.INSTALL_INITIAL_MACRO__V1342*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3304:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1170*/ curfptr[1169]; + /*_.INSTALL_INITIAL_MACRO__V1349*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1173*/ curfptr[1172]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1342*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1349*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3177:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3305:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1343*/ curfptr[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1350*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3177:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3305:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3177:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1163*/ curfptr[1162]; - BASILYS_LOCATION("warmelt-macro.bysl:3177:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3305:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1170*/ curfptr[1169]; + BASILYS_LOCATION("warmelt-macro.bysl:3305:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LET*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1343*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1350*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1173*/ curfptr[1172]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1343*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1350*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3206:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3334:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3206:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1171*/ curfptr[1170]; - /*_.INSTALL_INITIAL_MACRO__V1344*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1172*/ curfptr[1171]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3334:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1178*/ curfptr[1177]; + /*_.INSTALL_INITIAL_MACRO__V1351*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1179*/ curfptr[1178]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1344*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1351*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3207:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3335:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1345*/ curfptr[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1352*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3207:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3335:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3207:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1171*/ curfptr[1170]; - BASILYS_LOCATION("warmelt-macro.bysl:3207:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3335:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1178*/ curfptr[1177]; + BASILYS_LOCATION("warmelt-macro.bysl:3335:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LAMBDA*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1345*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1172*/ curfptr[1171]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1352*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1179*/ curfptr[1178]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1345*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1352*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3241:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3369:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3241:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1177*/ curfptr[1176]; - /*_.INSTALL_INITIAL_MACRO__V1346*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3369:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1184*/ curfptr[1183]; + /*_.INSTALL_INITIAL_MACRO__V1353*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1346*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1353*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3242:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3370:/ 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[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1354*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3242:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3370:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3242:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1177*/ curfptr[1176]; - BASILYS_LOCATION("warmelt-macro.bysl:3242:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3370:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1184*/ curfptr[1183]; + BASILYS_LOCATION("warmelt-macro.bysl:3370:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MULTICALL*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1347*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1354*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1347*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1354*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3265:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3393:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3265:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1181*/ curfptr[1180]; - /*_.INSTALL_INITIAL_MACRO__V1348*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1182*/ curfptr[1181]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3393:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1188*/ curfptr[1187]; + /*_.INSTALL_INITIAL_MACRO__V1355*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1348*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1355*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3266:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3394:/ 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[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1356*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3266:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3394:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3266:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1181*/ curfptr[1180]; - BASILYS_LOCATION("warmelt-macro.bysl:3266:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3394:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1188*/ curfptr[1187]; + BASILYS_LOCATION("warmelt-macro.bysl:3394:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : QUOTE*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1349*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1182*/ curfptr[1181]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1356*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1349*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1356*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3289:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3417:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3289:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1185*/ curfptr[1184]; - /*_.INSTALL_INITIAL_MACRO__V1350*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3417:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1192*/ curfptr[1191]; + /*_.INSTALL_INITIAL_MACRO__V1357*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1350*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1357*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3290:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3418:/ 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[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1358*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3290:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3418:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3290:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1185*/ curfptr[1184]; - BASILYS_LOCATION("warmelt-macro.bysl:3290:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3418:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1192*/ curfptr[1191]; + BASILYS_LOCATION("warmelt-macro.bysl:3418:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COMMENT*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1351*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1358*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1351*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1358*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3342:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3470:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3342:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1192*/ curfptr[1191]; - /*_.INSTALL_INITIAL_MACRO__V1352*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3470:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1199*/ curfptr[1198]; + /*_.INSTALL_INITIAL_MACRO__V1359*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1352*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1359*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3343:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3471:/ 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[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1360*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3343:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3471:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3343:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1192*/ curfptr[1191]; - BASILYS_LOCATION("warmelt-macro.bysl:3343:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3471:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1199*/ curfptr[1198]; + BASILYS_LOCATION("warmelt-macro.bysl:3471:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PROGN*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1353*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1360*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1353*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1360*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3356:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3484:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3356:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1196*/ curfptr[1195]; - /*_.INSTALL_INITIAL_MACRO__V1354*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1197*/ curfptr[1196]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3484:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1203*/ curfptr[1202]; + /*_.INSTALL_INITIAL_MACRO__V1361*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1354*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1361*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3357:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3485:/ 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[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1362*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3357:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3485:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3357:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1196*/ curfptr[1195]; - BASILYS_LOCATION("warmelt-macro.bysl:3357:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3485:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1203*/ curfptr[1202]; + BASILYS_LOCATION("warmelt-macro.bysl:3485:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : RETURN*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1355*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1197*/ curfptr[1196]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1362*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1355*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1362*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3391:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3519:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3391:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1201*/ curfptr[1200]; - /*_.INSTALL_INITIAL_MACRO__V1356*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3519:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1208*/ curfptr[1207]; + /*_.INSTALL_INITIAL_MACRO__V1363*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1211*/ curfptr[1210]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1356*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1363*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3392:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3520:/ 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[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1364*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3392:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3520:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3392:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1201*/ curfptr[1200]; - BASILYS_LOCATION("warmelt-macro.bysl:3392:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3520:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1208*/ curfptr[1207]; + BASILYS_LOCATION("warmelt-macro.bysl:3520:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FOREVER*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1357*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1364*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1211*/ curfptr[1210]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1357*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1364*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3427:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3555:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3427:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1208*/ curfptr[1207]; - /*_.INSTALL_INITIAL_MACRO__V1358*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1209*/ curfptr[1208]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3555:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1215*/ curfptr[1214]; + /*_.INSTALL_INITIAL_MACRO__V1365*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1358*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1365*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3428:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3556:/ 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[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1366*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3428:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3556:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3428:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1208*/ curfptr[1207]; - BASILYS_LOCATION("warmelt-macro.bysl:3428:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3556:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1215*/ curfptr[1214]; + BASILYS_LOCATION("warmelt-macro.bysl:3556:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXIT*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1359*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1209*/ curfptr[1208]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1366*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1359*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1366*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3462:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3590:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3462:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1212*/ curfptr[1211]; - /*_.INSTALL_INITIAL_MACRO__V1360*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1213*/ curfptr[1212]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3590:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1219*/ curfptr[1218]; + /*_.INSTALL_INITIAL_MACRO__V1367*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1220*/ curfptr[1219]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1360*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1367*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3463:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3591:/ 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[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1368*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3463:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3591:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3463:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1212*/ curfptr[1211]; - BASILYS_LOCATION("warmelt-macro.bysl:3463:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3591:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1219*/ curfptr[1218]; + BASILYS_LOCATION("warmelt-macro.bysl:3591:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COMPILE_WARNING*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1361*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1213*/ curfptr[1212]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1368*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1220*/ curfptr[1219]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1361*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1368*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3542:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3670:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3542:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1220*/ curfptr[1219]; - /*_.INSTALL_INITIAL_MACRO__V1362*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3670:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1227*/ curfptr[1226]; + /*_.INSTALL_INITIAL_MACRO__V1369*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1230*/ curfptr[1229]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1362*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1369*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3543:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3671:/ 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[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1370*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3543:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3671:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3543:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1220*/ curfptr[1219]; - BASILYS_LOCATION("warmelt-macro.bysl:3543:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3671:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1227*/ curfptr[1226]; + BASILYS_LOCATION("warmelt-macro.bysl:3671:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ASSERT_MSG*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1363*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1370*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1230*/ curfptr[1229]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1363*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1370*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3608:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3736:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3608:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1228*/ curfptr[1227]; - /*_.INSTALL_INITIAL_MACRO__V1364*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1229*/ curfptr[1228]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3736:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1235*/ curfptr[1234]; + /*_.INSTALL_INITIAL_MACRO__V1371*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1364*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1371*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3609:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3737:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1365*/ curfptr[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1372*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3609:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3737:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3609:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1228*/ curfptr[1227]; - BASILYS_LOCATION("warmelt-macro.bysl:3609:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3737:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1235*/ curfptr[1234]; + BASILYS_LOCATION("warmelt-macro.bysl:3737:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEBUG_MSG*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1365*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1229*/ curfptr[1228]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1372*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1365*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1372*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3638:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3766:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3638:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1233*/ curfptr[1232]; - /*_.INSTALL_INITIAL_MACRO__V1366*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3766:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1240*/ curfptr[1239]; + /*_.INSTALL_INITIAL_MACRO__V1373*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1243*/ curfptr[1242]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1366*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1373*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3639:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3767:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1367*/ curfptr[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1374*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3639:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3767:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3639:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1233*/ curfptr[1232]; - BASILYS_LOCATION("warmelt-macro.bysl:3639:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3767:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1240*/ curfptr[1239]; + BASILYS_LOCATION("warmelt-macro.bysl:3767:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_VALUES*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1367*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1374*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1243*/ curfptr[1242]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1367*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1374*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3669:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3797:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3669:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1239*/ curfptr[1238]; - /*_.INSTALL_INITIAL_MACRO__V1368*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1240*/ curfptr[1239]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3797:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1246*/ curfptr[1245]; + /*_.INSTALL_INITIAL_MACRO__V1375*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1368*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1375*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3670:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3798:/ 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[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1376*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3670:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3798:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3670:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1239*/ curfptr[1238]; - BASILYS_LOCATION("warmelt-macro.bysl:3670:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3798:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1246*/ curfptr[1245]; + BASILYS_LOCATION("warmelt-macro.bysl:3798:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_MACRO*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1369*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1240*/ curfptr[1239]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1376*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1369*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1376*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3706:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3834:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3706:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1243*/ curfptr[1242]; - /*_.INSTALL_INITIAL_MACRO__V1370*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1244*/ curfptr[1243]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3834:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1250*/ curfptr[1249]; + /*_.INSTALL_INITIAL_MACRO__V1377*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1251*/ curfptr[1250]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1370*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1377*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3707:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3835:/ 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[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1378*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3707:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3835:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3707:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1243*/ curfptr[1242]; - BASILYS_LOCATION("warmelt-macro.bysl:3707:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3835:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1250*/ curfptr[1249]; + BASILYS_LOCATION("warmelt-macro.bysl:3835:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_PATMACRO*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1371*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1244*/ curfptr[1243]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1378*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1251*/ curfptr[1250]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1371*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1378*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3734:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3862:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3734:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1248*/ curfptr[1247]; - /*_.INSTALL_INITIAL_MACRO__V1372*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1249*/ curfptr[1248]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3862:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1255*/ curfptr[1254]; + /*_.INSTALL_INITIAL_MACRO__V1379*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1372*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1379*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3735:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3863:/ 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[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1380*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3735:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3863:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3735:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1248*/ curfptr[1247]; - BASILYS_LOCATION("warmelt-macro.bysl:3735:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3863:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1255*/ curfptr[1254]; + BASILYS_LOCATION("warmelt-macro.bysl:3863:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_CLASS*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1373*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1249*/ curfptr[1248]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1380*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1373*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1380*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3758:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3886:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3758:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1252*/ curfptr[1251]; - /*_.INSTALL_INITIAL_MACRO__V1374*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1253*/ curfptr[1252]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3886:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1259*/ curfptr[1258]; + /*_.INSTALL_INITIAL_MACRO__V1381*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1260*/ curfptr[1259]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1374*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1381*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3759:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3887:/ 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[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1382*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3759:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3887:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3759:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1252*/ curfptr[1251]; - BASILYS_LOCATION("warmelt-macro.bysl:3759:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3887:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1259*/ curfptr[1258]; + BASILYS_LOCATION("warmelt-macro.bysl:3887:/ 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]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1375*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1253*/ curfptr[1252]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1382*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1260*/ curfptr[1259]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1375*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1382*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3780:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3908:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3780:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1256*/ curfptr[1255]; - /*_.INSTALL_INITIAL_MACRO__V1376*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3908:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1263*/ curfptr[1262]; + /*_.INSTALL_INITIAL_MACRO__V1383*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1264*/ curfptr[1263]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1376*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1383*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3781:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3909:/ 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[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1384*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3781:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3909:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3781:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1256*/ curfptr[1255]; - BASILYS_LOCATION("warmelt-macro.bysl:3781:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3909:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1263*/ curfptr[1262]; + BASILYS_LOCATION("warmelt-macro.bysl:3909:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PARENT_MODULE_ENVIRONMENT*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1377*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1384*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1264*/ curfptr[1263]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1377*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1384*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3807:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3935:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3807:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1260*/ curfptr[1259]; - /*_.INSTALL_INITIAL_MACRO__V1378*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1261*/ curfptr[1260]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3935:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1267*/ curfptr[1266]; + /*_.INSTALL_INITIAL_MACRO__V1385*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1268*/ curfptr[1267]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1378*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1385*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3808:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3936:/ 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[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1386*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3808:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3936:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3808:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1260*/ curfptr[1259]; - BASILYS_LOCATION("warmelt-macro.bysl:3808:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3936:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1267*/ curfptr[1266]; + BASILYS_LOCATION("warmelt-macro.bysl:3936:/ 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]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1379*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1261*/ curfptr[1260]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1386*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1268*/ curfptr[1267]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1379*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1386*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3836:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3964:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3836:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1264*/ curfptr[1263]; - /*_.INSTALL_INITIAL_MACRO__V1380*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3964:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1271*/ curfptr[1270]; + /*_.INSTALL_INITIAL_MACRO__V1387*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1380*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1387*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3837:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3965:/ 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[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1388*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3837:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3965:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3837:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1264*/ curfptr[1263]; - BASILYS_LOCATION("warmelt-macro.bysl:3837:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3965:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1271*/ curfptr[1270]; + BASILYS_LOCATION("warmelt-macro.bysl:3965:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FETCH_PREDEFINED*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1381*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1388*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1381*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1388*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3869:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3997:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3869:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1268*/ curfptr[1267]; - /*_.INSTALL_INITIAL_MACRO__V1382*/ curfptr[1292] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (basilys_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:3997:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1275*/ curfptr[1274]; + /*_.INSTALL_INITIAL_MACRO__V1389*/ curfptr[1299] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (basilys_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1382*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1389*/ curfptr[1299] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3870:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:3998:/ 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[1293] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1390*/ curfptr[1300] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3870:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:3998:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3870:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1268*/ curfptr[1267]; - BASILYS_LOCATION("warmelt-macro.bysl:3870:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:3998:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1275*/ curfptr[1274]; + BASILYS_LOCATION("warmelt-macro.bysl:3998:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : STORE_PREDEFINED*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1383*/ curfptr[1293]), (basilys_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.MACROXPORTER___V1390*/ curfptr[1300]), (basilys_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.MACROXPORTER___V1383*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1390*/ curfptr[1300] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1384*/ curfptr[1294] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1391*/ curfptr[1301] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V918*/ curfptr[917]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V919*/ curfptr[918]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V914*/ curfptr[913]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V921*/ curfptr[920]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V922*/ curfptr[921]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V928*/ curfptr[927]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V929*/ curfptr[928]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V923*/ curfptr[922]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V924*/ curfptr[923]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V930*/ curfptr[929]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V931*/ curfptr[930]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V925*/ curfptr[924]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V926*/ curfptr[925]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V933*/ curfptr[932]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V66*/ curfptr[65]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V67*/ curfptr[66]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V62*/ curfptr[61]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V63*/ curfptr[62]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V69*/ curfptr[68]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V70*/ curfptr[69]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V74*/ curfptr[73]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V75*/ curfptr[74]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V71*/ curfptr[70]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V72*/ curfptr[71]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V76*/ curfptr[75]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V77*/ curfptr[76]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V536*/ curfptr[535]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V537*/ curfptr[536]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V535*/ curfptr[534]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V539*/ curfptr[538]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V540*/ curfptr[539]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V544*/ curfptr[543]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V545*/ curfptr[544]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V541*/ curfptr[540]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V542*/ curfptr[541]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V550*/ curfptr[549]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V551*/ curfptr[550]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V548*/ curfptr[547]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V549*/ curfptr[548]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V553*/ curfptr[552]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V554*/ curfptr[553]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V556*/ curfptr[555]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V112*/ curfptr[111]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V113*/ curfptr[112]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V110*/ curfptr[109]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V111*/ curfptr[110]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V115*/ curfptr[114]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V116*/ curfptr[115]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V124*/ curfptr[123]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V125*/ curfptr[124]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V117*/ curfptr[116]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V118*/ curfptr[117]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V126*/ curfptr[125]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V127*/ curfptr[126]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V119*/ curfptr[118]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V120*/ curfptr[119]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V128*/ curfptr[127]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V129*/ curfptr[128]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V121*/ curfptr[120]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V122*/ curfptr[121]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V131*/ curfptr[130]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V134*/ curfptr[133]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V135*/ curfptr[134]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V132*/ curfptr[131]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V133*/ curfptr[132]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V137*/ curfptr[136]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V138*/ curfptr[137]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V142*/ curfptr[141]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V139*/ curfptr[138]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V140*/ curfptr[139]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V144*/ curfptr[143]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V145*/ curfptr[144]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V182*/ curfptr[181]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V183*/ curfptr[182]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V180*/ curfptr[179]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V181*/ curfptr[180]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V185*/ curfptr[184]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V186*/ curfptr[185]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V189*/ curfptr[188]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V654*/ curfptr[653]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V655*/ curfptr[654]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V653*/ curfptr[652]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V657*/ curfptr[656]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V658*/ curfptr[657]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V662*/ curfptr[661]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V663*/ curfptr[662]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V659*/ curfptr[658]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V660*/ curfptr[659]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V664*/ curfptr[663]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V665*/ curfptr[664]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V504*/ curfptr[503]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V505*/ curfptr[504]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V507*/ curfptr[506]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V508*/ curfptr[507]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V514*/ curfptr[513]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V515*/ curfptr[514]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V509*/ curfptr[508]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V510*/ curfptr[509]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V516*/ curfptr[515]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V517*/ curfptr[516]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V511*/ curfptr[510]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V512*/ curfptr[511]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V519*/ curfptr[518]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V668*/ curfptr[667]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V669*/ curfptr[668]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V666*/ curfptr[665]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V671*/ curfptr[670]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V672*/ curfptr[671]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V675*/ curfptr[674]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V292*/ curfptr[291]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V293*/ curfptr[292]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V290*/ curfptr[289]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V291*/ curfptr[290]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V295*/ curfptr[294]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V296*/ curfptr[295]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V302*/ curfptr[301]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V303*/ curfptr[302]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V300*/ curfptr[299]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V305*/ curfptr[304]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V306*/ curfptr[305]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V309*/ curfptr[308]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V352*/ curfptr[351]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V353*/ curfptr[352]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V350*/ curfptr[349]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V351*/ curfptr[350]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V355*/ curfptr[354]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V356*/ curfptr[355]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V357*/ curfptr[356]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V358*/ curfptr[357]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V364*/ curfptr[363]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V365*/ curfptr[364]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V359*/ curfptr[358]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V360*/ curfptr[359]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V366*/ curfptr[365]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V367*/ curfptr[366]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V370*/ curfptr[369]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V371*/ curfptr[370]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V368*/ curfptr[367]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V373*/ curfptr[372]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V374*/ curfptr[373]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V382*/ curfptr[381]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V383*/ curfptr[382]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V375*/ curfptr[374]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V376*/ curfptr[375]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V384*/ curfptr[383]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V385*/ curfptr[384]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V377*/ curfptr[376]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V378*/ curfptr[377]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V387*/ curfptr[386]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V379*/ curfptr[378]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V380*/ curfptr[379]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V388*/ curfptr[387]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V389*/ curfptr[388]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V338*/ curfptr[337]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V339*/ curfptr[338]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V336*/ curfptr[335]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V337*/ curfptr[336]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V341*/ curfptr[340]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V342*/ curfptr[341]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V347*/ curfptr[346]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V343*/ curfptr[342]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V344*/ curfptr[343]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V348*/ curfptr[347]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V278*/ curfptr[277]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V279*/ curfptr[278]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V276*/ curfptr[275]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V281*/ curfptr[280]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V282*/ curfptr[281]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V287*/ curfptr[286]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V283*/ curfptr[282]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V284*/ curfptr[283]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V289*/ curfptr[288]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V392*/ curfptr[391]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V393*/ curfptr[392]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V390*/ curfptr[389]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V391*/ curfptr[390]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V268*/ curfptr[267]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V269*/ curfptr[268]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V266*/ curfptr[265]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V267*/ curfptr[266]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V271*/ curfptr[270]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V272*/ curfptr[271]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V274*/ curfptr[273]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V275*/ curfptr[274]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V312*/ curfptr[311]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V313*/ curfptr[312]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V310*/ curfptr[309]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V311*/ curfptr[310]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V315*/ curfptr[314]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V316*/ curfptr[315]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V326*/ curfptr[325]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V327*/ curfptr[326]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V317*/ curfptr[316]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V318*/ curfptr[317]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V328*/ curfptr[327]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V329*/ curfptr[328]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V319*/ curfptr[318]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V320*/ curfptr[319]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V330*/ curfptr[329]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V331*/ curfptr[330]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V321*/ curfptr[320]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V322*/ curfptr[321]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V333*/ curfptr[332]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V323*/ curfptr[322]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V324*/ curfptr[323]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V334*/ curfptr[333]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V644*/ curfptr[643]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V645*/ curfptr[644]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V642*/ curfptr[641]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V643*/ curfptr[642]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V647*/ curfptr[646]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V648*/ curfptr[647]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V650*/ curfptr[649]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V651*/ curfptr[650]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V218*/ curfptr[217]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V219*/ curfptr[218]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V217*/ curfptr[216]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V224*/ curfptr[223]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V225*/ curfptr[224]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V222*/ curfptr[221]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V223*/ curfptr[222]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V227*/ curfptr[226]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V228*/ curfptr[227]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V232*/ curfptr[231]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V233*/ curfptr[232]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V229*/ curfptr[228]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V230*/ curfptr[229]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V234*/ curfptr[233]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V235*/ curfptr[234]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V238*/ curfptr[237]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V239*/ curfptr[238]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V236*/ curfptr[235]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V237*/ curfptr[236]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V241*/ curfptr[240]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V242*/ curfptr[241]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V244*/ curfptr[243]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V212*/ curfptr[211]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V213*/ curfptr[212]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V210*/ curfptr[209]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V202*/ curfptr[201]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V203*/ curfptr[202]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V200*/ curfptr[199]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V205*/ curfptr[204]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V206*/ curfptr[205]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V208*/ curfptr[207]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V209*/ curfptr[208]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V694*/ curfptr[693]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V695*/ curfptr[694]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V692*/ curfptr[691]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V693*/ curfptr[692]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V697*/ curfptr[696]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V698*/ curfptr[697]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V700*/ curfptr[699]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V398*/ curfptr[397]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V399*/ curfptr[398]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V397*/ curfptr[396]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V401*/ curfptr[400]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V402*/ curfptr[401]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V406*/ curfptr[405]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V407*/ curfptr[406]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V403*/ curfptr[402]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V404*/ curfptr[403]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V408*/ curfptr[407]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V634*/ curfptr[633]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V635*/ curfptr[634]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V632*/ curfptr[631]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V637*/ curfptr[636]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V638*/ curfptr[637]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V640*/ curfptr[639]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V641*/ curfptr[640]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V430*/ curfptr[429]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V431*/ curfptr[430]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V428*/ curfptr[427]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V429*/ curfptr[428]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V433*/ curfptr[432]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V434*/ curfptr[433]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V439*/ curfptr[438]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V435*/ curfptr[434]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V436*/ curfptr[435]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V440*/ curfptr[439]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V470*/ curfptr[469]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V471*/ curfptr[470]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V468*/ curfptr[467]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V469*/ curfptr[468]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V473*/ curfptr[472]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V474*/ curfptr[473]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V478*/ curfptr[477]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V479*/ curfptr[478]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V475*/ curfptr[474]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V476*/ curfptr[475]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V480*/ curfptr[479]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V481*/ curfptr[480]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V484*/ curfptr[483]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V485*/ curfptr[484]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V482*/ curfptr[481]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V483*/ curfptr[482]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V487*/ curfptr[486]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V488*/ curfptr[487]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V490*/ curfptr[489]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V491*/ curfptr[490]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V624*/ curfptr[623]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V625*/ curfptr[624]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V622*/ curfptr[621]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V627*/ curfptr[626]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V628*/ curfptr[627]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V630*/ curfptr[629]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V592*/ curfptr[591]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V593*/ curfptr[592]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V590*/ curfptr[589]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V595*/ curfptr[594]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V596*/ curfptr[595]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V600*/ curfptr[599]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V597*/ curfptr[596]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V598*/ curfptr[597]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V602*/ curfptr[601]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V603*/ curfptr[602]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V578*/ curfptr[577]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V579*/ curfptr[578]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V577*/ curfptr[576]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V581*/ curfptr[580]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V582*/ curfptr[581]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V586*/ curfptr[585]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V587*/ curfptr[586]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V583*/ curfptr[582]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V584*/ curfptr[583]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V589*/ curfptr[588]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V560*/ curfptr[559]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V561*/ curfptr[560]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V558*/ curfptr[557]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V559*/ curfptr[558]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V563*/ curfptr[562]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V564*/ curfptr[563]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V571*/ curfptr[570]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V565*/ curfptr[564]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V566*/ curfptr[565]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V567*/ curfptr[566]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V568*/ curfptr[567]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V575*/ curfptr[574]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V412*/ curfptr[411]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V413*/ curfptr[412]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V411*/ curfptr[410]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V415*/ curfptr[414]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V416*/ curfptr[415]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V422*/ curfptr[421]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V417*/ curfptr[416]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V418*/ curfptr[417]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V425*/ curfptr[424]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V419*/ curfptr[418]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V420*/ curfptr[419]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V426*/ curfptr[425]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V427*/ curfptr[426]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V522*/ curfptr[521]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V523*/ curfptr[522]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V520*/ curfptr[519]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V521*/ curfptr[520]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V525*/ curfptr[524]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V526*/ curfptr[525]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V530*/ curfptr[529]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V531*/ curfptr[530]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V527*/ curfptr[526]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V528*/ curfptr[527]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V532*/ curfptr[531]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V533*/ curfptr[532]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V80*/ curfptr[79]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V81*/ curfptr[80]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V78*/ curfptr[77]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V79*/ curfptr[78]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V83*/ curfptr[82]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V84*/ curfptr[83]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V90*/ curfptr[89]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V91*/ curfptr[90]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V85*/ curfptr[84]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V86*/ curfptr[85]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V92*/ curfptr[91]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V93*/ curfptr[92]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V87*/ curfptr[86]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V88*/ curfptr[87]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V94*/ curfptr[93]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V95*/ curfptr[94]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V606*/ curfptr[605]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V607*/ curfptr[606]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V604*/ curfptr[603]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V605*/ curfptr[604]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V609*/ curfptr[608]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V610*/ curfptr[609]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V617*/ curfptr[616]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V611*/ curfptr[610]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V612*/ curfptr[611]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V618*/ curfptr[617]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V619*/ curfptr[618]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V613*/ curfptr[612]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V614*/ curfptr[613]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V620*/ curfptr[619]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V621*/ curfptr[620]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V494*/ curfptr[493]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V495*/ curfptr[494]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V492*/ curfptr[491]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V497*/ curfptr[496]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V498*/ curfptr[497]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V501*/ curfptr[500]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V678*/ curfptr[677]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V679*/ curfptr[678]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V677*/ curfptr[676]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V98*/ curfptr[97]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V99*/ curfptr[98]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V96*/ curfptr[95]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V97*/ curfptr[96]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V101*/ curfptr[100]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V102*/ curfptr[101]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V106*/ curfptr[105]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V107*/ curfptr[106]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V103*/ curfptr[102]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V104*/ curfptr[103]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V108*/ curfptr[107]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V109*/ curfptr[108]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V148*/ curfptr[147]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V149*/ curfptr[148]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V151*/ curfptr[150]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V152*/ curfptr[151]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V155*/ curfptr[154]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V450*/ curfptr[449]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V451*/ curfptr[450]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V449*/ curfptr[448]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V453*/ curfptr[452]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V454*/ curfptr[453]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V458*/ curfptr[457]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V459*/ curfptr[458]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V455*/ curfptr[454]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V456*/ curfptr[455]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V460*/ curfptr[459]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V461*/ curfptr[460]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V192*/ curfptr[191]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V193*/ curfptr[192]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V190*/ curfptr[189]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V191*/ curfptr[190]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V195*/ curfptr[194]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V196*/ curfptr[195]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V198*/ curfptr[197]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V158*/ curfptr[157]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V159*/ curfptr[158]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V156*/ curfptr[155]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V161*/ curfptr[160]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V162*/ curfptr[161]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V164*/ curfptr[163]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V168*/ curfptr[167]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V169*/ curfptr[168]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V166*/ curfptr[165]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V167*/ curfptr[166]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V171*/ curfptr[170]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V172*/ curfptr[171]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V176*/ curfptr[175]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V177*/ curfptr[176]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V173*/ curfptr[172]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V174*/ curfptr[173]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V178*/ curfptr[177]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V179*/ curfptr[178]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V704*/ curfptr[703]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V705*/ curfptr[704]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V703*/ curfptr[702]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V707*/ curfptr[706]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V708*/ curfptr[707]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V712*/ curfptr[711]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V713*/ curfptr[712]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V709*/ curfptr[708]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V710*/ curfptr[709]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V715*/ curfptr[714]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V444*/ curfptr[443]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V445*/ curfptr[444]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V442*/ curfptr[441]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V443*/ curfptr[442]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V464*/ curfptr[463]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V465*/ curfptr[464]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V463*/ curfptr[462]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V684*/ curfptr[683]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V685*/ curfptr[684]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V682*/ curfptr[681]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V683*/ curfptr[682]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V687*/ curfptr[686]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V688*/ curfptr[687]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V690*/ curfptr[689]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V691*/ curfptr[690]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V248*/ curfptr[247]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V249*/ curfptr[248]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V246*/ curfptr[245]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V247*/ curfptr[246]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V251*/ curfptr[250]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V252*/ curfptr[251]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V254*/ curfptr[253]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V255*/ curfptr[254]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V258*/ curfptr[257]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V259*/ curfptr[258]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V256*/ curfptr[255]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V261*/ curfptr[260]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V262*/ curfptr[261]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V264*/ curfptr[263]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V265*/ curfptr[264]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V804*/ curfptr[803]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V805*/ curfptr[804]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V802*/ curfptr[801]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V803*/ curfptr[802]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V807*/ curfptr[806]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V808*/ curfptr[807]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V813*/ curfptr[812]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V809*/ curfptr[808]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V810*/ curfptr[809]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V815*/ curfptr[814]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V734*/ curfptr[733]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V735*/ curfptr[734]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V733*/ curfptr[732]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V737*/ curfptr[736]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V738*/ curfptr[737]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V740*/ curfptr[739]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V741*/ curfptr[740]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V718*/ curfptr[717]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V719*/ curfptr[718]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V716*/ curfptr[715]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V717*/ curfptr[716]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V842*/ curfptr[841]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V843*/ curfptr[842]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V840*/ curfptr[839]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V841*/ curfptr[840]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V744*/ curfptr[743]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V745*/ curfptr[744]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V742*/ curfptr[741]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V743*/ curfptr[742]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V747*/ curfptr[746]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V748*/ curfptr[747]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V752*/ curfptr[751]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V753*/ curfptr[752]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V749*/ curfptr[748]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V750*/ curfptr[749]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V754*/ curfptr[753]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V755*/ curfptr[754]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V818*/ curfptr[817]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V819*/ curfptr[818]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V816*/ curfptr[815]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V821*/ curfptr[820]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V822*/ curfptr[821]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V828*/ curfptr[827]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V829*/ curfptr[828]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V823*/ curfptr[822]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V824*/ curfptr[823]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V830*/ curfptr[829]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V831*/ curfptr[830]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V825*/ curfptr[824]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V826*/ curfptr[825]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V833*/ curfptr[832]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V846*/ curfptr[845]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V847*/ curfptr[846]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V834*/ curfptr[833]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V835*/ curfptr[834]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V774*/ curfptr[773]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V775*/ curfptr[774]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V772*/ curfptr[771]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V777*/ curfptr[776]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V778*/ curfptr[777]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V781*/ curfptr[780]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V798*/ curfptr[797]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V799*/ curfptr[798]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V796*/ curfptr[795]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V797*/ curfptr[796]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V768*/ curfptr[767]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V769*/ curfptr[768]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V766*/ curfptr[765]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V784*/ curfptr[783]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V785*/ curfptr[784]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V783*/ curfptr[782]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V787*/ curfptr[786]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V788*/ curfptr[787]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V792*/ curfptr[791]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V789*/ curfptr[788]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V790*/ curfptr[789]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V794*/ curfptr[793]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V795*/ curfptr[794]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V724*/ curfptr[723]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V725*/ curfptr[724]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V722*/ curfptr[721]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V723*/ curfptr[722]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V727*/ curfptr[726]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V728*/ curfptr[727]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V731*/ curfptr[730]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V758*/ curfptr[757]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V759*/ curfptr[758]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ 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___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V756*/ curfptr[755]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V757*/ curfptr[756]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V761*/ curfptr[760]; - BASILYS_LOCATION("warmelt-macro.bysl:3874:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V762*/ curfptr[761]; + BASILYS_LOCATION("warmelt-macro.bysl:4002:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAT_VAR*/ /*_.CONTENV___V2*/ curfptr[1]; - basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1384*/ curfptr[1294]), (basilys_ptr_t)(/*_.VALDATA___V764*/ curfptr[763]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1391*/ curfptr[1301]), (basilys_ptr_t)(/*_.VALDATA___V765*/ curfptr[764]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.VALUEXPORTER___V1384*/ curfptr[1294] = 0 ;} + /*clear*/ /*_.VALUEXPORTER___V1391*/ curfptr[1301] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ getslot"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1385*/ curfptr[1292] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1392*/ curfptr[1299] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V870*/ curfptr[869]; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V871*/ curfptr[870]; + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ 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___V1385*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1271*/ curfptr[1270]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1392*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V857*/ curfptr[856]; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V858*/ curfptr[857]; + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ 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___V1385*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1273*/ curfptr[1272]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1392*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V859*/ curfptr[858]; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V860*/ curfptr[859]; + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ 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___V1385*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1275*/ curfptr[1274]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1392*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1282*/ curfptr[1281]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V861*/ curfptr[860]; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V862*/ curfptr[861]; + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ 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___V1385*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1277*/ curfptr[1276]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1392*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V977*/ curfptr[976]; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V978*/ curfptr[977]; + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ 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___V1385*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1279*/ curfptr[1278]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1392*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1286*/ curfptr[1285]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V866*/ curfptr[865]; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V867*/ curfptr[866]; + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ 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___V1385*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1392*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1288*/ curfptr[1287]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V855*/ curfptr[854]; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V856*/ curfptr[855]; + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ 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___V1385*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1283*/ curfptr[1282]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1392*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1290*/ curfptr[1289]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V965*/ curfptr[964]; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V966*/ curfptr[965]; + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ 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___V1385*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1285*/ curfptr[1284]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1392*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V935*/ curfptr[934]; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V936*/ curfptr[935]; + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ 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___V1385*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1287*/ curfptr[1286]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1392*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V941*/ curfptr[940]; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V942*/ curfptr[941]; + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ 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___V1385*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1392*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1296*/ curfptr[1295]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V948*/ curfptr[947]; - BASILYS_LOCATION("warmelt-macro.bysl:3943:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ apply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V949*/ curfptr[948]; + BASILYS_LOCATION("warmelt-macro.bysl:4071:/ 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]; - basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1385*/ curfptr[1292]), (basilys_ptr_t)(/*_.VALDATA___V1291*/ curfptr[1290]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1392*/ curfptr[1299]), (basilys_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ - /*clear*/ /*_.VALUEXPORTER___V1385*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.VALUEXPORTER___V1392*/ curfptr[1299] = 0 ;} /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3957:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3957:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:4085:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:4085:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3957:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4085:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3957:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4085:/ apply.arg"); argtab[0].bp_cstring = "at end of warmelt-macro Class_Symbol"; - BASILYS_LOCATION("warmelt-macro.bysl:3957:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4085:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3957:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4085:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3957:/ apply.arg"); - argtab[3].bp_long = 3957; - /*_.DEBUG_MSG_FUN__V1387*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:4085:/ apply.arg"); + argtab[3].bp_long = 4085; + /*_.DEBUG_MSG_FUN__V1394*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V1386*/ curfptr[1293] = /*_.DEBUG_MSG_FUN__V1387*/ curfptr[1294];; + /*_.IFCPP___V1393*/ curfptr[1300] = /*_.DEBUG_MSG_FUN__V1394*/ curfptr[1301];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3957:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:4085:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3957:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V1387*/ curfptr[1294] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:4085:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V1394*/ curfptr[1301] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3957:/ cppif.else"); - /*_.IFCPP___V1386*/ curfptr[1293] = (/*nil*/NULL); + BASILYS_LOCATION("warmelt-macro.bysl:4085:/ cppif.else"); + /*_.IFCPP___V1393*/ curfptr[1300] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ - /*clear*/ /*_.IFCPP___V1386*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.IFCPP___V1393*/ curfptr[1300] = 0 ;} /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3958:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3958:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:4086:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:4086:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3958:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4086:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3958:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4086:/ apply.arg"); argtab[0].bp_cstring = "end of warmelt-macro predefined Class_Symbol"; - BASILYS_LOCATION("warmelt-macro.bysl:3958:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4086:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3958:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4086:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3958:/ apply.arg"); - argtab[3].bp_long = 3958; - /*_.DEBUG_MSG_FUN__V1389*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]), (basilys_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:4086:/ apply.arg"); + argtab[3].bp_long = 4086; + /*_.DEBUG_MSG_FUN__V1396*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]), (basilys_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V1388*/ curfptr[1292] = /*_.DEBUG_MSG_FUN__V1389*/ curfptr[1294];; + /*_.IFCPP___V1395*/ curfptr[1299] = /*_.DEBUG_MSG_FUN__V1396*/ curfptr[1301];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3958:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:4086:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3958:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V1389*/ curfptr[1294] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:4086:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V1396*/ curfptr[1301] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3958:/ cppif.else"); - /*_.IFCPP___V1388*/ curfptr[1292] = (/*nil*/NULL); + BASILYS_LOCATION("warmelt-macro.bysl:4086:/ cppif.else"); + /*_.IFCPP___V1395*/ curfptr[1299] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ - /*clear*/ /*_.IFCPP___V1388*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.IFCPP___V1395*/ curfptr[1299] = 0 ;} /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3959:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3959:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:4087:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:4087:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3959:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4087:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3959:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4087:/ apply.arg"); argtab[0].bp_cstring = "at end of warmelt-macro Install_Initial_Macro"; - BASILYS_LOCATION("warmelt-macro.bysl:3959:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4087:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3959:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4087:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3959:/ apply.arg"); - argtab[3].bp_long = 3959; - /*_.DEBUG_MSG_FUN__V1391*/ curfptr[1294] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALCLO___V977*/ curfptr[976]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:4087:/ apply.arg"); + argtab[3].bp_long = 4087; + /*_.DEBUG_MSG_FUN__V1398*/ curfptr[1301] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALCLO___V978*/ curfptr[977]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V1390*/ curfptr[1293] = /*_.DEBUG_MSG_FUN__V1391*/ curfptr[1294];; + /*_.IFCPP___V1397*/ curfptr[1300] = /*_.DEBUG_MSG_FUN__V1398*/ curfptr[1301];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3959:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:4087:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3959:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V1391*/ curfptr[1294] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:4087:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V1398*/ curfptr[1301] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3959:/ cppif.else"); - /*_.IFCPP___V1390*/ curfptr[1293] = (/*nil*/NULL); + BASILYS_LOCATION("warmelt-macro.bysl:4087:/ cppif.else"); + /*_.IFCPP___V1397*/ curfptr[1300] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ - /*clear*/ /*_.IFCPP___V1390*/ curfptr[1293] = 0 ;} + /*clear*/ /*_.IFCPP___V1397*/ curfptr[1300] = 0 ;} /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.bysl:3960:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.bysl:3960:/ block"); + BASILYS_LOCATION("warmelt-macro.bysl:4088:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.bysl:4088:/ block"); /*block*/{ - /*_.CLOSURE_ROUTINE__V1393*/ curfptr[1294] = - (basilys_closure_routine((basilys_ptr_t)(/*_.VALCLO___V977*/ curfptr[976])));; + /*_.CLOSURE_ROUTINE__V1400*/ curfptr[1301] = + (basilys_closure_routine((basilys_ptr_t)(/*_.VALCLO___V978*/ curfptr[977])));; /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.bysl:3960:/ apply"); + BASILYS_LOCATION("warmelt-macro.bysl:4088:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.bysl:3960:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4088:/ apply.arg"); argtab[0].bp_cstring = "at end of warmelt-macro Install_Initial_Macro routine"; - BASILYS_LOCATION("warmelt-macro.bysl:3960:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4088:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.bysl:3960:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.bysl:4088:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.bysl"; - BASILYS_LOCATION("warmelt-macro.bysl:3960:/ apply.arg"); - argtab[3].bp_long = 3960; - /*_.DEBUG_MSG_FUN__V1394*/ curfptr[1293] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLOSURE_ROUTINE__V1393*/ curfptr[1294]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.bysl:4088:/ apply.arg"); + argtab[3].bp_long = 4088; + /*_.DEBUG_MSG_FUN__V1401*/ curfptr[1300] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLOSURE_ROUTINE__V1400*/ curfptr[1301]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V1392*/ curfptr[1292] = /*_.DEBUG_MSG_FUN__V1394*/ curfptr[1293];; + /*_.IFCPP___V1399*/ curfptr[1299] = /*_.DEBUG_MSG_FUN__V1401*/ curfptr[1300];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.bysl:3960:/ clear"); - /*clear*/ /*_.CLOSURE_ROUTINE__V1393*/ curfptr[1294] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3960:/ clear"); + BASILYS_LOCATION("warmelt-macro.bysl:4088:/ clear"); + /*clear*/ /*_.CLOSURE_ROUTINE__V1400*/ curfptr[1301] = 0 ; + BASILYS_LOCATION("warmelt-macro.bysl:4088:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.bysl:3960:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V1394*/ curfptr[1293] = 0 ;} + BASILYS_LOCATION("warmelt-macro.bysl:4088:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V1401*/ curfptr[1300] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.bysl:3960:/ cppif.else"); - /*_.IFCPP___V1392*/ curfptr[1292] = (/*nil*/NULL); + BASILYS_LOCATION("warmelt-macro.bysl:4088:/ cppif.else"); + /*_.IFCPP___V1399*/ curfptr[1299] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ - /*clear*/ /*_.IFCPP___V1392*/ curfptr[1292] = 0 ;} + /*clear*/ /*_.IFCPP___V1399*/ curfptr[1299] = 0 ;} /**COMMENT: after toplevel body **/; @@ -72447,874 +74210,877 @@ initial_frame_st curfram__; /**COMMENT: intern symbols **/; /*internsym:CLASS_SRC_APPLY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V62*/ curfptr[61])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V63*/ curfptr[62])); /*internsym:CLASS_SRC*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V64*/ curfptr[63])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V65*/ curfptr[64])); /*internsym:SAPP_FUN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V74*/ curfptr[73])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V75*/ curfptr[74])); /*internsym:SAPP_ARGS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V76*/ curfptr[75])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V77*/ curfptr[76])); /*internsym:CLASS_SRC_MSEND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V78*/ curfptr[77])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V79*/ curfptr[78])); /*internsym:MSEND_SELSYMB*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V90*/ curfptr[89])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V91*/ curfptr[90])); /*internsym:MSEND_RECV*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V92*/ curfptr[91])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V93*/ curfptr[92])); /*internsym:MSEND_ARGS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V94*/ curfptr[93])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V95*/ curfptr[94])); /*internsym:CLASS_SRC_PRIMITIVE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V96*/ curfptr[95])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V97*/ curfptr[96])); /*internsym:SPRIM_OPER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V106*/ curfptr[105])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V107*/ curfptr[106])); /*internsym:SPRIM_ARGS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V108*/ curfptr[107])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V109*/ curfptr[108])); /*internsym:CLASS_SRC_CITERATION*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V110*/ curfptr[109])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V111*/ curfptr[110])); /*internsym:SCITER_OPER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V124*/ curfptr[123])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V125*/ curfptr[124])); /*internsym:SCITER_ARGS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V126*/ curfptr[125])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V127*/ curfptr[126])); /*internsym:SCITER_VARBIND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V128*/ curfptr[127])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V129*/ curfptr[128])); /*internsym:SCITER_BODY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V131*/ curfptr[130])); /*internsym:CLASS_SRC_CMATCHEXPR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V132*/ curfptr[131])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V133*/ curfptr[132])); /*internsym:SCMATX_CMATCHER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V142*/ curfptr[141])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])); /*internsym:SCMATX_ARGS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V144*/ curfptr[143])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V145*/ curfptr[144])); /*internsym:CLASS_SRC_PROGN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V147*/ curfptr[146])); /*internsym:SPROGN_BODY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V155*/ curfptr[154])); /*internsym:CLASS_SRC_RETURN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V156*/ curfptr[155])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156])); /*internsym:SRETURN_BODY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V164*/ curfptr[163])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164])); /*internsym:CLASS_SRC_SETQ*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V166*/ curfptr[165])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V167*/ curfptr[166])); /*internsym:SSTQ_VAR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V176*/ curfptr[175])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V177*/ curfptr[176])); /*internsym:SSTQ_EXPR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V178*/ curfptr[177])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V179*/ curfptr[178])); /*internsym:CLASS_SRC_COMMENT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V180*/ curfptr[179])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V181*/ curfptr[180])); /*internsym:SCOMM_STR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V189*/ curfptr[188])); /*internsym:CLASS_SRC_QUOTE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V190*/ curfptr[189])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V191*/ curfptr[190])); /*internsym:SQUOTED*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V198*/ curfptr[197])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198])); /*internsym:CLASS_SRC_EXPORTCOMMON*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V200*/ curfptr[199])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200])); /*internsym:SEXPORT_NAMES*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V208*/ curfptr[207])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V209*/ curfptr[208])); /*internsym:CLASS_SRC_EXPORT_VALUES*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V210*/ curfptr[209])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])); /*internsym:CLASS_SRC_EXPORT_CLASS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V217*/ curfptr[216])); /*internsym:CLASS_SRC_EXPORT_MACRO*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V222*/ curfptr[221])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V223*/ curfptr[222])); /*internsym:SEXPMAC_MNAME*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V232*/ curfptr[231])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V233*/ curfptr[232])); /*internsym:SEXPMAC_MVAL*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V234*/ curfptr[233])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V235*/ curfptr[234])); /*internsym:CLASS_SRC_EXPORT_PATMACRO*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V236*/ curfptr[235])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V237*/ curfptr[236])); /*internsym:SEXPPAT_PVAL*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V244*/ curfptr[243])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244])); /*internsym:CLASS_SRCDEF*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V246*/ curfptr[245])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V247*/ curfptr[246])); /*internsym:SDEF_NAME*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V254*/ curfptr[253])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V255*/ curfptr[254])); /*internsym:CLASS_SRCDEFORMAL*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V256*/ curfptr[255])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V257*/ curfptr[256])); /*internsym:SFORMAL_ARGS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V264*/ curfptr[263])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V265*/ curfptr[264])); /*internsym:CLASS_SRC_DEFUN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V266*/ curfptr[265])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V267*/ curfptr[266])); /*internsym:SFUN_BODY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V274*/ curfptr[273])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V275*/ curfptr[274])); /*internsym:CLASS_SRC_DEFPRIMITIVE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V276*/ curfptr[275])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276])); /*internsym:SPRIM_TYPE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V287*/ curfptr[286])); /*internsym:SPRIM_EXPANSION*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V289*/ curfptr[288])); /*internsym:CLASS_SRC_DEFCITERATOR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V290*/ curfptr[289])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V291*/ curfptr[290])); /*internsym:SCITERDEF_CITERATOR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V299*/ curfptr[298])); /*internsym:CLASS_SRC_DEFCMATCHER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V300*/ curfptr[299])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300])); /*internsym:SCMATDEF_CMATCHER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V309*/ curfptr[308])); /*internsym:CLASS_SRC_DEFUNMATCHER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V310*/ curfptr[309])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V311*/ curfptr[310])); /*internsym:SFUMATDEF_INS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V326*/ curfptr[325])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V327*/ curfptr[326])); /*internsym:SFUMATDEF_OUTS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V328*/ curfptr[327])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V329*/ curfptr[328])); /*internsym:SFUMATDEF_MATCHF*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V330*/ curfptr[329])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V331*/ curfptr[330])); /*internsym:SFUMATDEF_APPLYF*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V333*/ curfptr[332])); /*internsym:SFUMATDEF_DATA*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V334*/ curfptr[333])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])); /*internsym:CLASS_SRC_DEFOBJCOMMON*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V336*/ curfptr[335])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V337*/ curfptr[336])); /*internsym:SOBJ_PREDEF*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V347*/ curfptr[346])); /*internsym:SOBJ_DOCSTR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V348*/ curfptr[347])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348])); /*internsym:CLASS_SRC_DEFCLASS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V350*/ curfptr[349])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V351*/ curfptr[350])); /*internsym:SCLASS_CLABIND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])); /*internsym:SCLASS_SUPERBIND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V364*/ curfptr[363])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V365*/ curfptr[364])); /*internsym:SCLASS_FLDBINDS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V366*/ curfptr[365])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V367*/ curfptr[366])); /*internsym:CLASS_SRC_DEFINSTANCE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V368*/ curfptr[367])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V369*/ curfptr[368])); /*internsym:SINST_CLASS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V382*/ curfptr[381])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V383*/ curfptr[382])); /*internsym:SINST_CLABIND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V384*/ curfptr[383])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V385*/ curfptr[384])); /*internsym:SINST_OBJNUM*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V387*/ curfptr[386])); /*internsym:SINST_FIELDS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V388*/ curfptr[387])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V389*/ curfptr[388])); /*internsym:CLASS_SRC_DEFSELECTOR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V390*/ curfptr[389])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V391*/ curfptr[390])); /*internsym:CLASS_SRC_FIELDASSIGN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V397*/ curfptr[396])); /*internsym:SFLA_FIELD*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V406*/ curfptr[405])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V407*/ curfptr[406])); /*internsym:SFLA_EXPR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V408*/ curfptr[407])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408])); /*internsym:CLASS_SRC_MAKE_INSTANCE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V411*/ curfptr[410])); /*internsym:SMINS_CLASS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V422*/ curfptr[421])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V423*/ curfptr[422])); /*internsym:SMINS_CLABIND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V425*/ curfptr[424])); /*internsym:SMINS_FIELDS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V426*/ curfptr[425])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V427*/ curfptr[426])); /*internsym:CLASS_SRC_GET_FIELD*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V428*/ curfptr[427])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V429*/ curfptr[428])); /*internsym:SUGET_OBJ*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V439*/ curfptr[438])); /*internsym:SUGET_FIELD*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V440*/ curfptr[439])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440])); /*internsym:CLASS_SRC_UNSAFE_GET_FIELD*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V442*/ curfptr[441])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V443*/ curfptr[442])); /*internsym:CLASS_SRC_PUT_FIELDS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V449*/ curfptr[448])); /*internsym:SUPUT_OBJ*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V458*/ curfptr[457])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V459*/ curfptr[458])); /*internsym:SUPUT_FIELDS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V460*/ curfptr[459])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V461*/ curfptr[460])); /*internsym:CLASS_SRC_UNSAFE_PUT_FIELDS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V463*/ curfptr[462])); /*internsym:CLASS_SRC_IF*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V468*/ curfptr[467])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V469*/ curfptr[468])); /*internsym:SIF_TEST*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V478*/ curfptr[477])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V479*/ curfptr[478])); /*internsym:SIF_THEN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V480*/ curfptr[479])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V481*/ curfptr[480])); /*internsym:CLASS_SRC_IFELSE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V482*/ curfptr[481])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V483*/ curfptr[482])); /*internsym:SIF_ELSE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V490*/ curfptr[489])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V491*/ curfptr[490])); /*internsym:CLASS_SRC_OR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V492*/ curfptr[491])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492])); /*internsym:SOR_DISJ*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V501*/ curfptr[500])); /*internsym:CLASS_SRC_CPPIF*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502])); /*internsym:SIFP_COND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V514*/ curfptr[513])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V515*/ curfptr[514])); /*internsym:SIFP_THEN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V516*/ curfptr[515])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V517*/ curfptr[516])); /*internsym:SIFP_ELSE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V519*/ curfptr[518])); /*internsym:CLASS_SRC_MATCH*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V520*/ curfptr[519])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V521*/ curfptr[520])); /*internsym:SMAT_MATCHEDX*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V530*/ curfptr[529])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V531*/ curfptr[530])); /*internsym:SMAT_CASES*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V532*/ curfptr[531])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V533*/ curfptr[532])); /*internsym:CLASS_SRC_CASEMATCH*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V535*/ curfptr[534])); /*internsym:SCAM_PATT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V544*/ curfptr[543])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V545*/ curfptr[544])); /*internsym:SCAM_BODY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546])); /*internsym:CLASS_SRC_CASEWHENMATCH*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V548*/ curfptr[547])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V549*/ curfptr[548])); /*internsym:SCWM_WHEN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V556*/ curfptr[555])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556])); /*internsym:CLASS_SRC_LETBINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V558*/ curfptr[557])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V559*/ curfptr[558])); /*internsym:SLETB_TYPE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V571*/ curfptr[570])); /*internsym:SLETB_BINDER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V573*/ curfptr[572])); /*internsym:SLETB_EXPR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V575*/ curfptr[574])); /*internsym:CLASS_SRC_LET*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V577*/ curfptr[576])); /*internsym:SLET_BINDINGS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V586*/ curfptr[585])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V587*/ curfptr[586])); /*internsym:SLET_BODY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V589*/ curfptr[588])); /*internsym:CLASS_SRC_LAMBDA*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V590*/ curfptr[589])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])); /*internsym:SLAM_ARGBIND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V600*/ curfptr[599])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V601*/ curfptr[600])); /*internsym:SLAM_BODY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V602*/ curfptr[601])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V603*/ curfptr[602])); /*internsym:CLASS_SRC_MULTICALL*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V604*/ curfptr[603])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V605*/ curfptr[604])); /*internsym:SMULC_RESBIND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V617*/ curfptr[616])); /*internsym:SMULC_CALL*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V618*/ curfptr[617])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V619*/ curfptr[618])); /*internsym:SMULC_BODY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V620*/ curfptr[619])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V621*/ curfptr[620])); /*internsym:CLASS_SRC_LABELLED*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V622*/ curfptr[621])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])); /*internsym:SLABEL_BIND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V630*/ curfptr[629])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V631*/ curfptr[630])); /*internsym:CLASS_SRC_FOREVER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V632*/ curfptr[631])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632])); /*internsym:SFRV_BODY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V640*/ curfptr[639])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V641*/ curfptr[640])); /*internsym:CLASS_SRC_EXIT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V642*/ curfptr[641])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V643*/ curfptr[642])); /*internsym:SEXI_BODY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V650*/ curfptr[649])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V651*/ curfptr[650])); /*internsym:CLASS_SRC_COMPILEWARNING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V653*/ curfptr[652])); /*internsym:SCWARN_MSG*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V662*/ curfptr[661])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V663*/ curfptr[662])); /*internsym:SCWARN_EXPR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V664*/ curfptr[663])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V665*/ curfptr[664])); /*internsym:CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V666*/ curfptr[665])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V667*/ curfptr[666])); /*internsym:CMEC_COMMENT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V675*/ curfptr[674])); /*internsym:CLASS_SRC_PARENT_MODULE_ENVIRONMENT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V676*/ curfptr[675])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V677*/ curfptr[676])); /*internsym:CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V682*/ curfptr[681])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V683*/ curfptr[682])); /*internsym:SUCME_COMMENT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V690*/ curfptr[689])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V691*/ curfptr[690])); /*internsym:CLASS_SRC_FETCH_PREDEFINED*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V692*/ curfptr[691])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V693*/ curfptr[692])); /*internsym:SFEPD_PREDEF*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V700*/ curfptr[699])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V701*/ curfptr[700])); /*internsym:CLASS_SRC_STORE_PREDEFINED*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V703*/ curfptr[702])); /*internsym:SSTPD_PREDEF*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V712*/ curfptr[711])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V713*/ curfptr[712])); /*internsym:SSTPD_VALUE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V714*/ curfptr[713])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V715*/ curfptr[714])); /*internsym:CLASS_SRCPATTERN_ANY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V716*/ curfptr[715])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V717*/ curfptr[716])); /*internsym:CLASS_SRCPATTERN_OR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V722*/ curfptr[721])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V723*/ curfptr[722])); /*internsym:ORPAT_DISJ*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V730*/ curfptr[729])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V731*/ curfptr[730])); /*internsym:CLASS_SRCPATTERN_AND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V732*/ curfptr[731])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V733*/ curfptr[732])); /*internsym:ANDPAT_CONJ*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V740*/ curfptr[739])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V741*/ curfptr[740])); /*internsym:CLASS_SRCPATTERN_AS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V742*/ curfptr[741])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V743*/ curfptr[742])); /*internsym:ASPAT_VARPAT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V752*/ curfptr[751])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V753*/ curfptr[752])); /*internsym:ASPAT_SUBPAT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V754*/ curfptr[753])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V755*/ curfptr[754])); /*internsym:CLASS_SRCPATTERN_VARIABLE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V756*/ curfptr[755])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V757*/ curfptr[756])); /*internsym:SPAT_VAR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V764*/ curfptr[763])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V765*/ curfptr[764])); /*internsym:CLASS_SRCPATTERN_JOKERVAR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V766*/ curfptr[765])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])); /*internsym:CLASS_SRCPATTERN_CONSTANT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V772*/ curfptr[771])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772])); /*internsym:SPAT_CONSTX*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V781*/ curfptr[780])); /*internsym:CLASS_SRCPATTERN_OBJECT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V782*/ curfptr[781])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V783*/ curfptr[782])); /*internsym:SPAT_CLASS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V792*/ curfptr[791])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792])); /*internsym:SPAT_FIELDS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V794*/ curfptr[793])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V795*/ curfptr[794])); /*internsym:CLASS_SRCPATTERN_INSTANCE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V796*/ curfptr[795])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V797*/ curfptr[796])); /*internsym:CLASS_SRCFIELDPATTERN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V802*/ curfptr[801])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V803*/ curfptr[802])); /*internsym:SPAF_FIELD*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V812*/ curfptr[811])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V813*/ curfptr[812])); /*internsym:SPAF_PATTERN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V815*/ curfptr[814])); /*internsym:CLASS_SRCPATTERN_COMPOSITE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V816*/ curfptr[815])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V817*/ curfptr[816])); /*internsym:SPAC_OPERATOR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V828*/ curfptr[827])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V829*/ curfptr[828])); /*internsym:SPAC_INARGS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V830*/ curfptr[829])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V831*/ curfptr[830])); /*internsym:SPAC_OUTARGS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V833*/ curfptr[832])); /*internsym:CLASS_SRCPATTERN_CMATCH*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V834*/ curfptr[833])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V835*/ curfptr[834])); /*internsym:CLASS_SRCPATTERN_ANYMATCH*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V840*/ curfptr[839])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V841*/ curfptr[840])); /*internsym:CLASS_SEXPR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V852*/ curfptr[851])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V853*/ curfptr[852])); /*internsym:CLASS_ENVIRONMENT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V878*/ curfptr[877])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V879*/ curfptr[878])); /*internsym:DISCR_MULTIPLE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V880*/ curfptr[879])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V881*/ curfptr[880])); /*internsym:CLASS_SYMBOL*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V882*/ curfptr[881])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V883*/ curfptr[882])); /*internsym:DEBUG_MSG_FUN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V884*/ curfptr[883])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V885*/ curfptr[884])); /*internsym:CLASS_CITERATOR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V886*/ curfptr[885])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V887*/ curfptr[886])); /*internsym:CLASS_CMATCHER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V888*/ curfptr[887])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V889*/ curfptr[888])); /*internsym:FIND_ENV*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V891*/ curfptr[890])); /*internsym:CLASS_MACRO_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V892*/ curfptr[891])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V893*/ curfptr[892])); /*internsym:CLASS_SELECTOR_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V894*/ curfptr[893])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V895*/ curfptr[894])); /*internsym:CLASS_PRIMITIVE_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V896*/ curfptr[895])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V897*/ curfptr[896])); /*internsym:CLASS_CITERATOR_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V898*/ curfptr[897])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V899*/ curfptr[898])); /*internsym:CLASS_CMATCHER_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V900*/ curfptr[899])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V901*/ curfptr[900])); /*internsym:CLASS_FUNMATCHER_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V902*/ curfptr[901])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V903*/ curfptr[902])); /*internsym:CLASS_VALUE_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V905*/ curfptr[904])); /*internsym:CLASS_PRIMITIVE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V906*/ curfptr[905])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V907*/ curfptr[906])); /*internsym:CLASS_SELECTOR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V908*/ curfptr[907])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V909*/ curfptr[908])); /*internsym:CLASS_FUNMATCHER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V910*/ curfptr[909])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])); /*internsym:DEFUN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V872*/ curfptr[871])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V873*/ curfptr[872])); /*internsym:DEFCLASS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V874*/ curfptr[873])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V875*/ curfptr[874])); /*internsym:CLASS_KEYWORD*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V912*/ curfptr[911])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V913*/ curfptr[912])); /*internsym:CLASS_PATTEXPCONTEXT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V914*/ curfptr[913])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V915*/ curfptr[914])); /*internsym:CLASS_ROOT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V916*/ curfptr[915])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V917*/ curfptr[916])); /*internsym:PCTX_MEXPANDER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V928*/ curfptr[927])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V929*/ curfptr[928])); /*internsym:PCTX_PEXPANDER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V930*/ curfptr[929])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V931*/ curfptr[930])); /*internsym:PCTX_VARMAP*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V933*/ curfptr[932])); /*internsym:PAIRLIST_TO_MULTIPLE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V949*/ curfptr[948])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V950*/ curfptr[949])); /*internsym:CLASS_ANY_MATCHER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V951*/ curfptr[950])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V952*/ curfptr[951])); /*internsym:DISCR_BOX*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V954*/ curfptr[953])); /*internsym:MULTIPLE_MAP*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V955*/ curfptr[954])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V956*/ curfptr[955])); /*internsym:CLASS_FORMAL_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V957*/ curfptr[956])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V958*/ curfptr[957])); /*internsym:CLASS_NAMED*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V959*/ curfptr[958])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V960*/ curfptr[959])); /*internsym:CLASS_PATMACRO_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V961*/ curfptr[960])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V962*/ curfptr[961])); /*internsym:QUESTION*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V937*/ curfptr[936])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V938*/ curfptr[937])); /*internsym:_*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V940*/ curfptr[939])); /*internsym:LIST_MAP*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V966*/ curfptr[965])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V967*/ curfptr[966])); /*internsym:CTYPE_VALUE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V968*/ curfptr[967])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V969*/ curfptr[968])); /*internsym:DISCR_MAPOBJECTS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V970*/ curfptr[969])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V971*/ curfptr[970])); /*internsym:DISCR_LIST*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V972*/ curfptr[971])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V973*/ curfptr[972])); /*internsym:CLASS_CTYPE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V974*/ curfptr[973])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V975*/ curfptr[974])); /*internsym:PUT_ENV*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V978*/ curfptr[977])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V979*/ curfptr[978])); /*internsym:INITIAL_ENVIRONMENT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V980*/ curfptr[979])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])); /*internsym:WARN_SHADOW*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V984*/ curfptr[983])); - - /*internsym:DISCR_STRING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V985*/ curfptr[984])); /*internsym:DISCR_VERBATIMSTRING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V997*/ curfptr[996])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V996*/ curfptr[995])); + + /*internsym:CLASS_LOCATED*/ + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V998*/ curfptr[997])); + + /*internsym:LIST_TO_MULTIPLE*/ + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001])); + + /*internsym:CLASS_ANY_BINDING*/ + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1008*/ curfptr[1007])); /*internsym:DEFPRIMITIVE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009])); /*internsym:DEFCITERATOR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1005*/ curfptr[1004])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1014*/ curfptr[1013])); /*internsym:MULTIPLE_EVERY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018])); /*internsym:DEFCMATCHER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1012*/ curfptr[1011])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020])); /*internsym:DEFUNMATCHER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1017*/ curfptr[1016])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1026*/ curfptr[1025])); /*internsym:FRESH_ENV*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1022*/ curfptr[1021])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030])); /*internsym:CLASS_FUNCTION_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1033*/ curfptr[1032])); /*internkeyw:SUPER*/ - (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026])); + (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035])); /*internsym:CLASS_CLASS_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1045*/ curfptr[1044])); /*internsym:CLASS_CLASS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1047*/ curfptr[1046])); /*internkeyw:FIELDS*/ - (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1029*/ curfptr[1028])); + (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037])); /*internkeyw:PREDEF*/ - (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030])); + (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039])); /*internkeyw:DOCSTR*/ - (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1033*/ curfptr[1032])); + (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041])); /*internsym:DISCR_SEQCLASS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1053*/ curfptr[1052])); /*internsym:DISCR_INTEGER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1046*/ curfptr[1045])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1055*/ curfptr[1054])); /*internsym:DISCR_MAPSTRINGS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1057*/ curfptr[1056])); /*internsym:DISCR_SEQFIELD*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058])); /*internsym:CLASS_FIELD*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060])); /*internsym:CLASS_FIELD_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1054*/ curfptr[1053])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1063*/ curfptr[1062])); /*internsym:MULTIPLE_ITERATE_TEST*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067])); /*internkeyw:OBJ_NUM*/ - (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1062*/ curfptr[1061])); - - /*internsym:LIST_TO_MULTIPLE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064])); + (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1071*/ curfptr[1070])); /*internsym:CLASS_INSTANCE_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1074*/ curfptr[1073])); /*internsym:DEFINSTANCE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075])); /*internsym:DEFSELECTOR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1073*/ curfptr[1072])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079])); /*internsym:MAKE_INSTANCE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083])); /*internsym:INSTANCE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1091*/ curfptr[1090])); /*internsym:OBJECT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1097*/ curfptr[1096])); /*internsym:UNSAFE_PUT_FIELDS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1094*/ curfptr[1093])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100])); /*internsym:PUT_FIELDS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1105*/ curfptr[1104])); /*internsym:UNSAFE_GET_FIELD*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1102*/ curfptr[1101])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108])); /*internsym:GET_FIELD*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1106*/ curfptr[1105])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1113*/ curfptr[1112])); /*internsym:SETQ*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1110*/ curfptr[1109])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1117*/ curfptr[1116])); /*internsym:IF*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120])); /*internsym:CPPIF*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1118*/ curfptr[1117])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1125*/ curfptr[1124])); /*internkeyw:ELSE*/ - (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121])); + (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128])); /*internsym:COND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1135*/ curfptr[1134])); /*internsym:AS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1144*/ curfptr[1143])); /*internsym:AND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1141*/ curfptr[1140])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147])); /*internsym:OR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154])); /*internkeyw:WHEN*/ - (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151])); + (void) basilysgc_intern_keyword((basilys_ptr_t)(/*_.VALDATA___V1159*/ curfptr[1158])); /*internsym:MATCH*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161])); /*internsym:CLASS_LET_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1164*/ curfptr[1163])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1171*/ curfptr[1170])); /*internsym:LET*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1173*/ curfptr[1172])); /*internsym:LAMBDA*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1172*/ curfptr[1171])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1179*/ curfptr[1178])); /*internsym:MULTICALL*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184])); /*internsym:QUOTE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1182*/ curfptr[1181])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188])); /*internsym:COMMENT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192])); /*internsym:PROGN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199])); /*internsym:RETURN*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1197*/ curfptr[1196])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203])); /*internsym:CLASS_LABEL_BINDING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1202*/ curfptr[1201])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1209*/ curfptr[1208])); /*internsym:FOREVER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1211*/ curfptr[1210])); /*internsym:EXIT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1209*/ curfptr[1208])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215])); /*internsym:COMPILE_WARNING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1213*/ curfptr[1212])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1220*/ curfptr[1219])); /*internsym:ASSERT_FAILED*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222])); /*internsym:FIND_ENV_DEBUG*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1221*/ curfptr[1220])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227])); /*internsym:ENABLE_CHECKING*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1218*/ curfptr[1217])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224])); /*internsym:ASSERT_MSG*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1230*/ curfptr[1229])); /*internsym:THE_CALLCOUNT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1233*/ curfptr[1232])); /*internsym:DEBUG_MSG*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1229*/ curfptr[1228])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235])); /*internsym:DEBUGMSG*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1241*/ curfptr[1240])); /*internsym:EXPORT_VALUES*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1243*/ curfptr[1242])); /*internsym:EXPORT_MACRO*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1240*/ curfptr[1239])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246])); /*internsym:EXPORT_PATMACRO*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1244*/ curfptr[1243])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1251*/ curfptr[1250])); /*internsym:EXPORT_CLASS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1249*/ curfptr[1248])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255])); /*internsym:CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1253*/ curfptr[1252])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1260*/ curfptr[1259])); /*internsym:PARENT_MODULE_ENVIRONMENT*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1264*/ curfptr[1263])); /*internsym:UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1261*/ curfptr[1260])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1268*/ curfptr[1267])); /*internsym:FETCH_PREDEFINED*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271])); /*internsym:STORE_PREDEFINED*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275])); /*internsym:EXPAND_APPLY*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1271*/ curfptr[1270])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277])); /*internsym:EXPAND_MSEND*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1273*/ curfptr[1272])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279])); /*internsym:EXPAND_PAIRLIST_AS_TUPLE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1275*/ curfptr[1274])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1282*/ curfptr[1281])); /*internsym:EXPAND_PRIMITIVE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1277*/ curfptr[1276])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283])); /*internsym:INSTALL_INITIAL_MACRO*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1279*/ curfptr[1278])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1286*/ curfptr[1285])); /*internsym:LAMBDA_ARG_BINDINGS*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1288*/ curfptr[1287])); /*internsym:MACROEXPAND_1*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1283*/ curfptr[1282])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1290*/ curfptr[1289])); /*internsym:MACROEXPAND_TOPLEVEL_LIST*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1285*/ curfptr[1284])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291])); /*internsym:PATTERNEXPAND_1*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1287*/ curfptr[1286])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293])); /*internsym:PATTERNEXPAND_EXPR*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1296*/ curfptr[1295])); /*internsym:PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ - (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1291*/ curfptr[1290])); + (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297])); /**COMMENT: set retinit from boxloc **/; @@ -73337,7 +75103,7 @@ void mark_module_basilys(void*fp) { int ix=0; initial_frame_st* framptr_= (initial_frame_st*)fp; - for(ix=0; ix<1394; ix++) + for(ix=0; ix<1401; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); |